From: Gary K. <gw...@me...> - 2007-01-16 21:00:59
|
Hi Attila, Thanks. The problem I'm having is that I have multiple systems. =20 System A is changing the readtable and system B (loaded after A) is =20 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 =20= > 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. > > --=20 > - 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=E4llet) -- Gary Warren King, metabang.com Cell: (413) 885 9127 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM |