Mylić o `` ql: quickload`` i wykonywalnych skryptach w SBCL

Question

Próbowałem używać pakietów Quicklisp w moim skryptu wykonywalnym. A (trywialne) jest przykładem pracy:

#!/usr/bin/sbcl --script 

(eval-when (:compile-toplevel :load-toplevel :execute) 
    (ql:quickload "lisp-unit")) ;as explained by another question 

(defpackage :test 
    (:use :cl :lisp-unit)) 

(format t "This is a test.") 

Po chmod ing plik z tego kodu w niej (zwany test.lisp), starałem się ją wykonać. Jednakże, następnie dostał się następujący komunikat o błędzie:

Unhandled SB-C::INPUT-ERROR-IN-LOAD in thread #<SB-THREAD:THREAD 
              "main thread" RUNNING 
              {1002C16923}>: 
    READ error during LOAD: 

    Package QL does not exist. 

     Line: 4, Column: 15, File-Position: 95 

     Stream: #<SB-SYS:FD-STREAM 
      for "file /home/koz/Documents/Programming/CL/trees/test.lisp" 
      {1002C19A93}> 

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1002C16923}> 
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) {1002C2498B}>) 
2: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN SB-DEBUG::FUNCALL-WITH-DEBUG-IO-SYNTAX) {1002C2495B}>) 
3: (PRINT-BACKTRACE :STREAM #<SB-SYS:FD-STREAM for "standard error" {1002C14CF3}> :START 0 :FROM :INTERRUPTED-FRAME :COUNT NIL :PRINT-THREAD T :PRINT-FRAME-SOURCE NIL :METHOD-FRAME-STYLE NIL) 
4: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SB-C::INPUT-ERROR-IN-LOAD {1002C1CB93}> #<unavailable argument>) 
5: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SB-C::INPUT-ERROR-IN-LOAD {1002C1CB93}>) 
6: (INVOKE-DEBUGGER #<SB-C::INPUT-ERROR-IN-LOAD {1002C1CB93}>) 
7: (ERROR #<SB-C::INPUT-ERROR-IN-LOAD {1002C1CB93}>) 
8: (SB-C:COMPILER-ERROR SB-C::INPUT-ERROR-IN-LOAD :CONDITION #<SB-INT:SIMPLE-READER-PACKAGE-ERROR "Package ~A does not exist." {1002C1CAA3}> :STREAM #<SB-SYS:FD-STREAM for "file /home/koz/Documents/Programming/CL/trees/test.lisp" {1002C19A93}>) 
9: (SB-C::READ-FOR-COMPILE-FILE #<SB-SYS:FD-STREAM for "file /home/koz/Documents/Programming/CL/trees/test.lisp" {1002C19A93}> 25 SB-C::INPUT-ERROR-IN-LOAD) 
10: (SB-INT:LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /home/koz/Documents/Programming/CL/trees/test.lisp" {1002C19A93}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading") 
11: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /home/koz/Documents/Programming/CL/trees/test.lisp" {1002C19A93}> NIL) 
12: (LOAD #<SB-SYS:FD-STREAM for "file /home/koz/Documents/Programming/CL/trees/test.lisp" {1002C19A93}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT) 
13: ((FLET SB-IMPL::LOAD-SCRIPT :IN SB-IMPL::PROCESS-SCRIPT) #<SB-SYS:FD-STREAM for "file /home/koz/Documents/Programming/CL/trees/test.lisp" {1002C19A93}>) 
14: ((FLET #:WITHOUT-INTERRUPTS-BODY-140 :IN SB-IMPL::PROCESS-SCRIPT)) 
15: (SB-IMPL::PROCESS-SCRIPT "./test.lisp") 
16: (SB-IMPL::TOPLEVEL-INIT) 
17: ((FLET #:WITHOUT-INTERRUPTS-BODY-89 :IN SAVE-LISP-AND-DIE)) 
18: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE)) 

unhandled condition in --disable-debugger mode, quitting 

jestem pewien, co się tu dzieje - jeśli staram się zrobić coś podobnego z Toplevel (czyli rozpocząć SBCL, obciążenie lisp-unit korzystając ql:quickload itp), Nie dostaję czegoś takiego.

Answer 1

W SBCL, --script nie ładuje plików init. Jeśli chcesz używać Quicklisp, musisz go załadować. Zwykle oznacza to coś takiego jak (load "~/quicklisp/setup.lisp") przed użyciem czegokolwiek związanego z Quicklisp.

Nie sądzę, że SBCL i Quicklisp doskonale nadają się do zadań skryptowych. Kiedy piszę skrypty, zwykle nie oczekuję od nich pobierania rzeczy z Internetu takich jak ql:quickload. Quicklisp jest również dość gadatliwy. Ładowanie FBC przez SBCL jest dość powolne. Wszystko razem nie zapewnia bardzo dobrego skryptowania.

Zdecydowanie wolę załadować wszystko, co potrzebne do użycia w sesji Common Lisp, a następnie wywoływać funkcje, aby załatwiać sprawy. Kiedy nie mogę tego użyć (np. Do uruchamiania rzeczy z crona lub z pliku Makefile), często używam buildapp do tworzenia plików wykonywalnych.

Answer 2

Powinieneś rozważyć użycie cl-launch, który jest stworzony do tego celu. Możesz włączyć Quicklisp, przekazując opcję -Q. Twój przykładowy kod będzie mniej więcej taki:

#!/usr/bin/cl -Q -p lisp-unit 

(eval-when (:compile-toplevel :load-toplevel :execute) 
    (ql:quickload "lisp-unit")) ;as explained by another question 
(defpackage :test (:use :cl :lisp-unit)) 

(defun main (argv) "Code goes here")