Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

minor fix converting path variable from string to pathname #23

Closed
wants to merge 1 commit into from
Closed

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.

None yet

2 participants