Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv28377/src/code
Modified Files:
toplevel.lisp
Log Message:
0.8.3.89:
Treatment of --load
... half fix the problems. Put LOAD into a multiple escape, so
that changes to the readtable don't break the
command-line option;
... log behaviour in the presence of #\" and #\* as a bug.
Index: toplevel.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/toplevel.lisp,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- toplevel.lisp 13 Sep 2003 01:19:37 -0000 1.50
+++ toplevel.lisp 23 Sep 2003 14:50:16 -0000 1.51
@@ -351,8 +351,10 @@
(push (pop-option) reversed-evals))
((string= option "--load")
(pop-option)
- (push (concatenate 'string "(LOAD \"" (pop-option) "\")")
- reversed-evals))
+ (push
+ ;; FIXME: see BUG 296
+ (concatenate 'string "(|LOAD| \"" (pop-option) "\")")
+ reversed-evals))
((string= option "--noprint")
(pop-option)
(setf noprint t))
@@ -362,10 +364,10 @@
((string= option "--noprogrammer")
(warn "treating deprecated --noprogrammer as --disable-debugger")
(pop-option)
- (push "(DISABLE-DEBUGGER)" reversed-evals))
+ (push "(|DISABLE-DEBUGGER|)" reversed-evals))
((string= option "--disable-debugger")
(pop-option)
- (push "(DISABLE-DEBUGGER)" reversed-evals))
+ (push "(|DISABLE-DEBUGGER|)" reversed-evals))
((string= option "--end-toplevel-options")
(pop-option)
(return))
|