From: Adam Warner <lists@co...> - 2003-09-22 11:47:31
Hi Christophe Rhodes,
>> - (push (concatenate 'string "(LOAD \"" (pop-option) "\")")
>> + (push (concatenate 'string "(load \"" (pop-option) "\")")
>> The patch is safe to apply. I have tested that both these invocations
>> 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) "\")")
Good point. But your example is broken. Make it |LOAD| or |CL|:|LOAD|
Otherwise the syntax appears to create a symbol in the default package
that contains a colon!
No sane individual would ever use :preserve or :downcase with an ANSI
image but it's good to be robust.