[Sbcl-devel] sb-ext:with-unlocked-packages

[Greg B. <gwb...@se...>]

 From Greg Bennett, Using sbcl-1.4.0 under Linux Mint 64-bit.

While porting some code, I need to compile a method on method-name.
I have wrapped this in sb-ext:with-unlocked-packages :

(sb-ext:with-unlocked-packages (:sb-mop)
       (defmethod method-name ((thing sb-mop::standard-method))
    (let ((gf (slot-value thing 'generic-function))
          )
       (when gf
          (slot-value gf 'sb-mop::name))
       )
    ))

but still receive:
; caught ERROR:
;   READ error during COMPILE-FILE:
;
;     Lock on package SB-MOP violated when interning NAME while in package
;     QUAIL-KERNEL.
;   See also:
;     The SBCL Manual, Node "Package Locks"

so clearly I do not understand how this macro works. Indeed, perhaps I 
should do this
differently.

Thanks for advice and assistance.
Cheers /GB