Update argument list after image restoreon SBCL

This commit is contained in:
Michael Raskin 2014-11-16 19:07:41 +03:00
parent 58e27a257e
commit 0f28ce0ad8

View File

@ -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"