X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;h=9632d08678d6bcbc4cfa5f08e854f97571b08d30;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=54819e15b0223d83ada4a89b01da02118a636cca;hpb=492dce07cf27b3cbee8ce4800c938fcb884aa53e;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 54819e1..9632d08 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -497,7 +497,8 @@ any non-negative real number."
 
     ;; Delete all the options that we processed, so that only
     ;; user-level options are left visible to user code.
-    (setf (rest *posix-argv*) options)
+    (when *posix-argv*
+      (setf (rest *posix-argv*) options))
 
     ;; Disable debugger before processing initialization files & co.
     (when disable-debugger