[tbnl-devel] Re: problem with the example

[Edi Weitz]

On Sat, 19 Mar 2005 20:58:48 +0100, Sergio Garcia <sergio.garcia at 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)
       , at body))

  #+:sbcl
  (defmacro with-lock-held* ((lock) &body body)
    `(cond (*locked* , at body)
           (t (let ((*locked* t))
                (kmrcl::with-lock-held (,lock)
                  , at body)))))

Cheers,
Edi.