Update argument list after image restoreon SBCL

2014-11-16 19:07:41 +03:00 · 2014-11-16 19:07:41 +03:00 · 0f28ce0ad8
parent 58e27a257e
commit 0f28ce0ad8
1 changed files with 1 additions and 0 deletions
--- a/pkgs/development/lisp-modules/clwrapper/build-with-lisp.sh
+++ b/pkgs/development/lisp-modules/clwrapper/build-with-lisp.sh
@ -47,6 +47,7 @@ case "$NIX_LISP" in
                  :toplevel (lambda ()
                    (setf common-lisp:*standard-input* (sb-sys::make-fd-stream 0 :input t :buffering :line))
                    (setf common-lisp:*standard-output* (sb-sys::make-fd-stream 1 :output t :buffering :line))
+                    (setf asdf/image:*command-line-arguments* (cdr sb-ext:*posix-argv*))
                    $code)
                    :executable t :save-runtime-options t :purify t))"
                systems=":sb-posix $systems"