Fix scripts/clpm-live-sbcl when it is linked somewhere into the PATH
Previosly, when you made a link If you follow "Live install" instructions from INSTALL.org and link scripts/clpm-live-sbcl, it will return following error: ``` [art@art-osx:~]% clpm While evaluating the form starting at line 13, column 0 of #P"/Users/art/projects/lisp/clpm/scripts/live.lisp": Unhandled SB-INT:SIMPLE-PROGRAM-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001540143}>: invalid number of arguments: 1 Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001540143}> 0: (SETUP-ASDF "live") [external] 1: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SETUP-ASDF "live") #<NULL-LEXENV>) 2: (SB-EXT:EVAL-TLF (SETUP-ASDF "live") 3 NIL) 3: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (SETUP-ASDF "live") 3) 4: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) (SETUP-ASDF "live") :CURRENT-INDEX 3) 5: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) {100158765B}> #<SB-C::SOURCE-INFO {1001587623}> SB-C::INPUT-ERROR-IN-LOAD) 6: (SB-INT:LOAD-AS-SOURCE #<SB-INT:FORM-TRACKING-STREAM for "file /Users/art/projects/lisp/clpm/scripts/live.lisp" {1001585BD3}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading") 7: ((FLET SB-FASL::THUNK :IN LOAD)) 8: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (FLET SB-FASL::THUNK :IN LOAD) {C63ECEB}> #<SB-INT:FORM-TRACKING-STREAM for "file /Users/art/projects/lisp/clpm/scripts/live.lisp" {1001585BD3}>) 9: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-INT:FORM-TRACKING-STREAM for "file /Users/art/projects/lisp/clpm/scripts/live.lisp" {1001585BD3}> NIL) 10: (LOAD #P"/Users/art/projects/lisp/clpm/scripts/live.lisp" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT) 11: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD (MERGE-PATHNAMES "live.lisp" *LOAD-TRUENAME*)) #<NULL-LEXENV>) 12: (SB-EXT:EVAL-TLF (LOAD (MERGE-PATHNAMES "live.lisp" *LOAD-TRUENAME*)) 2 NIL) 13: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (LOAD (MERGE-PATHNAMES "live.lisp" *LOAD-TRUENAME*)) 2) 14: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) (LOAD (MERGE-PATHNAMES "live.lisp" *LOAD-TRUENAME*)) :CURRENT-INDEX 2) 15: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) {1001547F9B}> #<SB-C::SOURCE-INFO {1001547F63}> SB-C::INPUT-ERROR-IN-LOAD) 16: (SB-INT:LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /Users/art/.local/bin/clpm" {1000898C33}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading") 17: ((FLET SB-FASL::THUNK :IN LOAD)) 18: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (FLET SB-FASL::THUNK :IN LOAD) {C63F74B}> #<SB-SYS:FD-STREAM for "file /Users/art/.local/bin/clpm" {1000898C33}>) 19: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /Users/art/.local/bin/clpm" {1000898C33}> NIL) 20: (LOAD #<SB-SYS:FD-STREAM for "file /Users/art/.local/bin/clpm" {1000898C33}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT) 21: ((FLET SB-IMPL::LOAD-SCRIPT :IN SB-IMPL::PROCESS-SCRIPT) #<SB-SYS:FD-STREAM for "file /Users/art/.local/bin/clpm" {1000898C33}>) 22: ((FLET SB-UNIX::BODY :IN SB-IMPL::PROCESS-SCRIPT)) 23: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-IMPL::PROCESS-SCRIPT)) 24: (SB-IMPL::PROCESS-SCRIPT "/Users/art/.local/bin/clpm") 25: (SB-IMPL::TOPLEVEL-INIT) 26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP)) 28: (SB-IMPL::START-LISP) unhandled condition in --disable-debugger mode, quitting ``` This patch fixes this issue.
Status | Name | Job ID | Coverage | ||||||
---|---|---|---|---|---|---|---|---|---|
Build | |||||||||
passed | dynamic-release:linux:amd64 |
#21983
|
00:06:39
|
|
|||||
passed | dynamic-release:linux:arm |
#21985
armv7
|
00:29:35
|
|
|||||
passed | dynamic-release:linux:arm64 |
#21984
arm64
|
00:02:51
|
|
|||||
passed | dynamic-release:macos:amd64 |
#21986
macos-0.4-amd64
|
00:03:23
|
|
|||||
passed | dynamic-release:macos:arm64 |
#21987
macos-arm64
|
00:01:33
|
|
|||||
passed | dynamic-release:windows:amd64 |
#21988
windows-amd64
|
00:22:22
|
|
|||||
passed | static-release:linux:amd64 |
#21981
|
00:06:56
|
|
|||||
passed | static-release:linux:arm64 |
#21982
arm64
|
00:02:44
|
|
|||||
Test | |||||||||
passed | test-dynamic-release:linux:amd64 |
#21991
|
00:03:38
|
|
|||||
passed | test-dynamic-release:linux:arm64 |
#21992
arm64
|
00:00:49
|
|
|||||
passed | test-dynamic-release:macos:amd64 |
#21993
macos-0.4-amd64
|
00:01:59
|
|
|||||
passed | test-dynamic-release:macos:arm64 |
#21994
macos-arm64
|
00:00:27
|
|
|||||
passed | test-static-release:linux:amd64 |
#21989
|
00:03:31
|
|
|||||
passed | test-static-release:linux:arm64 |
#21990
arm64
|
00:00:50
|
|
|||||