0.8.16.2: TYPE-ERROR for ERROR

[sbcl.git] / src / code / early-package.lisp

diff --git a/src/code/early-package.lisp b/src/code/early-package.lisp
index c17ad6e..a1f24bb 100644 (file)
--- a/src/code/early-package.lisp
+++ b/src/code/early-package.lisp
@@ -69,11 +69,8 @@
 (defmacro without-package-locks (&body body)
   #!+sb-doc
   "Ignores all runtime package lock violations during the execution of
-body. Body can begin with declarations."
-  #!-sb-package-locks
-  `(progn ,@body)
-  #!+sb-package-locks
-  `(let ((*ignored-package-locks* t))
+body. Body can begin with declarations."  
+  `(let (#!+sb-package-locks (*ignored-package-locks* t))
     ,@body))
 
 (!defun-from-collected-cold-init-forms !early-package-cold-init)