Confuso su `` ql: quickload`` e script eseguibili in SBCL

Question

Ho cercato di utilizzare i pacchetti Quicklisp in uno script eseguibile. A (banale) esempio di lavoro è:

#!/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.") 

Dopo chmod ing il file con questo codice in esso (chiamato test.lisp), ho cercato di eseguirlo. Tuttavia, ho poi ottenuto il seguente messaggio di errore:

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 

io sono sicuro che cosa sta succedendo qui - se cerco di fare qualcosa di simile dal primo livello (ad esempio, avviare SBCL, carico lisp-unit utilizzando ql:quickload, ecc), Non capisco niente del genere.

Answer 1

In SBCL, --script non carica i file di inizializzazione. Se si desidera utilizzare Quicklisp, è necessario organizzarsi per caricarlo. Questo di solito significa qualcosa come (load "~/quicklisp/setup.lisp") prima di usare qualsiasi cosa relativa a Quicklisp.

Non penso che SBCL e Quicklisp siano ideali per attività di scripting. Quando scrivo script, normalmente non mi aspetto che recuperino da Internet come fa ql:quickload. Quicklisp è anche piuttosto dettagliato. Il caricamento FASL di SBCL è piuttosto lento. Considerato tutto insieme, non costituisce un'ottima esperienza di scripting.

Preferisco fortemente caricare tutto ciò che è necessario utilizzare in una sessione Common Lisp e quindi chiamare le funzioni per fare le cose. Quando non riesco a usarlo (come per l'esecuzione di materiale da cron o da un Makefile), uso spesso buildapp per creare file eseguibili.

Answer 2

Si consiglia di utilizzare cl-launch, creato per questo scopo. Puoi abilitare Quicklisp passando l'opzione -Q. Il tuo codice di esempio sarebbe qualcosa del tipo:

#!/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")