[tbnl-devel] Re: problem with the example

[Edi Weitz]

Maybe like this (again untested):

  #+:sbcl
  (defvar *locks* nil)

  #-:sbcl
  (defmacro with-lock-held* ((lock) &body body)
    `(kmrcl::with-lock-held (,lock)
       , at body))

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