How to disable-package-locks?

[David]

Hello, I am reading P.Norvig's book PAIP(written in 1991) and try to run it's code in sbcl.

There is a defun name "symbol" in auxfns.lisp. After (load "auxfns.lisp"), sbcl report " Lock on package COMMON-LISP violated when setting fdefinition of SYMBOL while in package COMMON-LISP-USER."

How to disable package lock for defun "symbol"?

Thank you very much!

[Zach Beane]

One option is to choose the CONTINUE restart, which will ignore the
package lock.

Another option is to use SB-EXT:UNLOCK-PACKAGE.

Another is to avoide the conflict by making your own package which
shadows CL:SYMBOL.

Zach

[Pascal J. Bourguignon]

I have a patch for paip code. Check:

https://gitorious.org/com-informatimago/com-informatimago/blobs/4d69061f51e43bf46ac0c2e10cec5f644fd1b476/cl-loaders/norvig.lisp


--
__Pascal J. Bourguignon__

[budden]

Hi!
I use the following macro, maybe it would help:
(defmacro portably-without-package-locks (&body body)
`(#+sbcl sb-ext:without-package-locks
#+allegro excl::without-package-locks
#+cmu ext:without-package-locks
#+lispworks let
#+lispworks
((lw:*handle-warn-on-redefinition* :warn)
; (dspec:*redefinition-action* :warn)
(hcl:*packages-for-warn-on-redefinition* nil))
#+clisp ext:without-package-lock #+clisp ()
#+ccl let
#+ccl ((ccl:*warn-if-redefine-kernel* nil))
#-(or allegro lispworks sbcl clisp cmu ccl)
progn
,@body))