19 Mar
2005
19 Mar
'05
8:17 p.m.
On Sat, 19 Mar 2005 20:58:48 +0100, Sergio Garcia <sergio.garcia@gmail.com> wrote:
I just switched to SBCL from CMUCL because of the lack of unicode support in CMUCL :( *sigh*
Well, I think it's not too hard. Something like (untested): cd /path/to/tbnl perl -i.bak -p -e 's/kmrcl::with-lock-held/with-lock-held*/' *lisp Then in specials.lisp add: #+:sbcl (defvar *locked* nil) And in util.lisp: #-:sbcl (defmacro with-lock-held* ((lock) &body body) `(kmrcl::with-lock-held (,lock) ,@body)) #+:sbcl (defmacro with-lock-held* ((lock) &body body) `(cond (*locked* ,@body) (t (let ((*locked* t)) (kmrcl::with-lock-held (,lock) ,@body))))) Cheers, Edi.