From: Nikodemus S. <de...@us...> - 2004-08-17 23:39:53
|
Update of /cvsroot/sbcl/sbcl/doc/manual In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5608/doc/manual Modified Files: start-stop.texinfo Log Message: 0.8.13.73: Documentation oops * "When putting example snippets in docs, check that they actually work." Index: start-stop.texinfo =================================================================== RCS file: /cvsroot/sbcl/sbcl/doc/manual/start-stop.texinfo,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- start-stop.texinfo 17 Aug 2004 22:55:57 -0000 1.1 +++ start-stop.texinfo 17 Aug 2004 23:39:43 -0000 1.2 @@ -301,7 +301,8 @@ @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 #\# #\! |