[cmucl-ticket] [cmucl] #3: without-package-locks doesn't work with defmacro

[cmucl]

#3: without-package-locks doesn't work with defmacro
--------------------+-------------------------------------------------------
 Reporter:  rtoy    |       Owner:  somebody
     Type:  defect  |      Status:  new     
 Priority:  major   |   Milestone:          
Component:  Core    |     Version:  19c     
 Keywords:          |  
--------------------+-------------------------------------------------------
 Reported in cmucl-help, 2006/04/30:
 {{{
  (in-package "CL-USER")
  (ext:without-package-locks
   (defmacro mp::with-process-lock ((lock) &body body)
        `(mp:with-lock-held (,lock) , at body)))
 }}}

 The above produces an error about a locked package, even though there's a
 without-package-locks.

-- 
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/3>
cmucl <http://common-lisp.net/project/cmucl>
cmucl