Re: ASDF, readtables and with-operation

Hi Attila,

Thanks. The problem I'm having is that I have multiple systems.  
System A is changing the readtable and system B (loaded after A) is  
smashing into A's changes.


On Jan 16, 2007, at 3:34 PM, Attila Lendvai wrote:

>> thoughts very welcome.
>
> i wonder why you need this. i'm also playing a lot with the readtable,
> but compile-file rebinds *readtable*, so you are free to setf it as
> you like. take a look at this:
>
> (defmacro enable-sharp-boolean-syntax ()
>  "Copies *readtable* and enables #t and #f readers for t and nil in  
> the copy."
>  '(eval-when (:compile-toplevel :execute)
>    (setf *readtable* (copy-readtable *readtable*))
>    (%enable-sharp-boolean-syntax)))
>
> (defun %enable-sharp-boolean-syntax ()
>  (set-dispatch-macro-character
>   #\# #\t
>   (lambda (s c n)
>     (declare (ignore s c n))
>     t))
>  (set-dispatch-macro-character
>   #\# #\f
>   (lambda (s c n)
>     (declare (ignore s c n))
>     nil)))
>
> and at the top of the files i simply put:
>
> (enable-sharp-boolean-syntax)
>
> i may be missing something, though.
>
> -- 
> - attila
>
> "- The truth is that I've been too considerate, and so became
> unintentionally cruel...
> - I understand.
> - No, you don't understand! We don't speak the same language!"
> (Ingmar Bergman - Smultronstället)

--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM





-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV