Skip to content

Conversation

@anquegi
Copy link

@anquegi anquegi commented Feb 22, 2017

I make this change because using with roswell it gives me the following error:

Unhandled SIMPLE-TYPE-ERROR:
The value of CL-PROJECT::PATH is "/Users/toni/learn/emacs/my-project", which is not of type PATHNAME.

since pathname is a function specified in cltl2 I think that this should work in all common lisp implementations

Long Traces

 2017-02-22 14:53:07 ☆ |ruby-2.3.1@learn| Antonios-MacBook-Pro in ~/learn/emacs
○ → make-project /Users/toni/learn/emacs/my-project --name my-project --description "sample project" --license LLGPL --depends-on alexandria jonathan dexador
Unhandled SIMPLE-TYPE-ERROR:
  The value of CL-PROJECT::PATH is "/Users/toni/learn/emacs/my-project", which is not of type PATHNAME.

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1002DE7773}>
0: ((LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX))
1: (SB-IMPL::CALL-WITH-SANE-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX) {10050C003B}>)
2: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX) {10050C000B}>)
3: (PRINT-BACKTRACE :STREAM #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {10001530A3}> :START 0 :FROM :INTERRUPTED-FRAME :COUNT NIL :PRINT-THREAD T :PRINT-FRAME-SOURCE NIL :METHOD-FRAME-STYLE NIL)
4: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-TYPE-ERROR expected-type: PATHNAME datum: "/Users/toni/learn/emacs/my-project"> #<unavailable argument>)
5: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SIMPLE-TYPE-ERROR expected-type: PATHNAME datum: "/Users/toni/learn/emacs/my-project">)
6: (INVOKE-DEBUGGER #<SIMPLE-TYPE-ERROR expected-type: PATHNAME datum: "/Users/toni/learn/emacs/my-project">)
7: (ERROR #<SIMPLE-TYPE-ERROR expected-type: PATHNAME datum: "/Users/toni/learn/emacs/my-project">)
8: (SB-KERNEL:CHECK-TYPE-ERROR CL-PROJECT::PATH "/Users/toni/learn/emacs/my-project" PATHNAME NIL)
9: (CL-PROJECT:MAKE-PROJECT #<unavailable argument> #<unavailable &REST argument> :NAME #<unused argument> :DESCRIPTION #<unused argument> :AUTHOR #<unused argument> :EMAIL #<unused argument> :LICENSE #<unused argument> :DEPENDS-ON #<unused argument> :WITHOUT-TESTS #<unused argument>)
10: (SB-INT:SIMPLE-EVAL-IN-LEXENV (APPLY (QUOTE MAIN) ROSWELL:*ARGV*) #<NULL-LEXENV>)
11: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ROSWELL:QUIT (APPLY (QUOTE MAIN) ROSWELL:*ARGV*)) #<NULL-LEXENV>)
12: (EVAL-TLF (ROSWELL:QUIT (APPLY (QUOTE MAIN) ROSWELL:*ARGV*)) NIL #<NULL-LEXENV>)
13: ((FLET SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (ROSWELL:QUIT (APPLY (QUOTE MAIN) ROSWELL:*ARGV*)) NIL)
14: (SB-INT:LOAD-AS-SOURCE #<CONCATENATED-STREAM :STREAMS NIL {1004333B83}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading")
15: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<CONCATENATED-STREAM :STREAMS NIL {1004333B83}> NIL)
16: (LOAD #<CONCATENATED-STREAM :STREAMS NIL {1004333B83}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
17: ((FLET ROSWELL::BODY :IN ROSWELL:SCRIPT) #<SB-SYS:FD-STREAM for "file /Users/toni/.roswell/bin/make-project" {100432CDD3}>)
18: (ROSWELL:SCRIPT :SCRIPT "/Users/toni/.roswell/bin/make-project" "/Users/toni/learn/emacs/my-project" "--name" "my-project" "--description" "sample project" "--license" "LLGPL" "--depends-on" "alexandria" "jonathan" "dexador")
19: (ROSWELL:RUN ((:EVAL "(ros:quicklisp)") (:SCRIPT "/Users/toni/.roswell/bin/make-project" "/Users/toni/learn/emacs/my-project" "--name" "my-project" "--description" "sample project" "--license" "LLGPL" "--depends-on" "alexandria" "jonathan" ...) (:QUIT NIL)))
20: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ROSWELL:RUN (QUOTE ((:EVAL "(ros:quicklisp)") (:SCRIPT "/Users/toni/.roswell/bin/make-project" "/Users/toni/learn/emacs/my-project" "--name" "my-project" "--description" "sample project" "--license" "LLGPL" "--depends-on" "alexandria" "jonathan" ...) (:QUIT NIL)))) #<NULL-LEXENV>)
21: (EVAL (ROSWELL:RUN (QUOTE ((:EVAL "(ros:quicklisp)") (:SCRIPT "/Users/toni/.roswell/bin/make-project" "/Users/toni/learn/emacs/my-project" "--name" "my-project" "--description" "sample project" "--license" "LLGPL" "--depends-on" "alexandria" "jonathan" ...) (:QUIT NIL)))))
22: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(progn #-ros.init(cl:load \"/usr/local/Cellar/roswell/17.1.8.73/etc/roswell/init.lisp\"))") (:EVAL . "(ros:run '((:eval\"(ros:quicklisp)\")(:script \"/Users/toni/.roswell/bin/make-project\"\"/Users/toni/learn/emacs/my-project\"\"--name\"\"my-project\"\"--description\"\"sample project\"\"--license\"\"LLGPL\"\"--depends-on\"\"alexandria\"\"jonathan\"\"dexador\")(:quit ())))")))
23: (SB-IMPL::TOPLEVEL-INIT)
24: ((FLET #:WITHOUT-INTERRUPTS-BODY-85 :IN SAVE-LISP-AND-DIE))
25: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting

Changing that I can build projects:


 2017-02-22 14:53:31 ☆ |ruby-2.3.1@learn| Antonios-MacBook-Pro in ~/learn/emacs
○ → make-project /Users/toni/learn/emacs/my-project --name my-project --description "sample project" --license LLGPL --depends-on alexandria jonathan dexador
writing /Users/toni/learn/emacs/my-project/my-project.asd
writing /Users/toni/learn/emacs/my-project/my-project-test.asd
writing /Users/toni/learn/emacs/my-project/README.org
writing /Users/toni/learn/emacs/my-project/README.markdown
writing /Users/toni/learn/emacs/my-project/.gitignore
writing /Users/toni/learn/emacs/my-project/src/my-project.lisp
writing /Users/toni/learn/emacs/my-project/t/my-project.lisp

@madand
Copy link

madand commented Apr 11, 2017

The issue is more cleanly resolved by #22. Since the underlying call of uiop:ensure-directory-pathname actually supports string input.

Also this is a duplicate of #21.

@anquegi anquegi closed this Apr 21, 2017
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

2 participants