Re: [Sbcl-devel] [PATCH] sbcl --load broken in 0.8.3.83

[Christophe R. <cs...@ca...>]

Adam Warner <li...@co...> writes:

> Fix/Patch:
> --- src/code/toplevel.lisp.original     2003-09-22 20:57:38.000000000 +1200
> +++ src/code/toplevel.lisp      2003-09-22 20:58:26.000000000 +1200
> @@ -351,7 +351,7 @@
>                      (push (pop-option) reversed-evals))
>                     ((string= option "--load")
>                      (pop-option)
> -                    (push (concatenate 'string "(LOAD \"" (pop-option) "\")")
> +                    (push (concatenate 'string "(load \"" (pop-option) "\")")
>                            reversed-evals))
>                     ((string= option "--noprint")
>                      (pop-option)
>
>
> The patch is safe to apply. I have tested that both these invocations
> work:
>
> sbcl --load u.lisp
> sbcl --sysinit /dev/null --userinit /dev/null --load u.lisp

Heh.  Neat.  On the other hand, your patch wouldn't work if you had
readtable-case set to :preserve or :downcase.  For reliable working,
we probably want to make that
  (concatenate 'string "(|CL:LOAD|\"" (pop-option) "\")")
right?

Cheers,

Christophe
-- 
http://www-jcsu.jesus.cam.ac.uk/~csr21/       +44 1223 510 299/+44 7729 383 757
(set-pprint-dispatch 'number (lambda (s o) (declare (special b)) (format s b)))
(defvar b "~&Just another Lisp hacker~%")    (pprint #36rJesusCollegeCambridge)