Re: [tbnl-devel] Re: problem with the example

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.