X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=doc%2Fmanual%2Fstart-stop.texinfo;h=8e9df470bfef80c52f6a35309828a29c1032ddbb;hb=66973734ef6a395f2f0ca9e3a52111d41a0aed25;hp=320a8b6e02c590aa391b22beaafe41ac47ed1db2;hpb=3c0ee1b87c4191298a8842cf7682c3f308680e66;p=sbcl.git

diff --git a/doc/manual/start-stop.texinfo b/doc/manual/start-stop.texinfo
index 320a8b6..8e9df47 100644
--- a/doc/manual/start-stop.texinfo
+++ b/doc/manual/start-stop.texinfo
@@ -301,7 +301,8 @@ initialization file does the trick:
 @lisp
 ;;; If the first user-processable command-line argument is a filename,
 ;;; disable the debugger, load the file handling shebang-line and quit.
-(let ((script (probe-file (second sb-ext:*posix-argv*))))
+(let ((script (and (second sb-ext:*posix-argv*)
+                   (probe-file (second sb-ext:*posix-argv*)))))
   (when script
     ;; Handle the possible shebang-line
     (set-dispatch-macro-character #\# #\!