diff -ur cl-paip-1.0.2.orig/auxfns.lisp cl-paip-1.0.2/auxfns.lisp
--- cl-paip-1.0.2.orig/auxfns.lisp	2002-11-11 23:53:18.000000000 -0600
+++ cl-paip-1.0.2/auxfns.lisp	2005-02-05 16:29:36.297025165 -0600
@@ -15,6 +15,16 @@
   #+clisp
   (dolist (pkg '(excl common-lisp common-lisp-user))
     (setf (ext:package-lock (find-package pkg)) nil))
+  #+sbcl
+  (dolist (pkg '(common-lisp common-lisp-user))
+    (sb-ext:unlock-package (find-package pkg)))
+  #+cmu
+  (dolist (pkg '(extensions common-lisp common-lisp-user))
+    (let ((pkg (find-package pkg)))
+      (when pkg
+	(setf (ext:package-lock pkg) nil)
+	(setf (ext:package-definition-lock pkg) nil))))
+
   ;; Don't warn if a function is defined in multiple files --
   ;; this happens often since we refine several programs.
   #+Lispworks