projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
(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)
,@body))
(!defun-from-collected-cold-init-forms !early-package-cold-init)