X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-package.lisp;h=a1f24bbec9b267faa02d19b5ea06b9e60689e652;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=c17ad6e162bea9b6e50a7e8ecd300d1968e591de;hpb=fea8ea02847ddc0864546a02480fb3e97d6fa318;p=sbcl.git

diff --git a/src/code/early-package.lisp b/src/code/early-package.lisp
index c17ad6e..a1f24bb 100644
--- 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)