From: Nikodemus S. <de...@us...> - 2004-07-14 14:10:25
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6076/src/code Modified Files: early-package.lisp Log Message: 0.8.12.32: Fix the performance degradation in DEFCLASS caused by package locks. * While at it, correct WITHOUT-PACKAGE-LOCKS to have identical semantics both with and without :SB-PACKAGE-LOCKS in features. * Yay for Boinkmarks for catching this. Index: early-package.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/early-package.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- early-package.lisp 4 Jul 2004 13:03:27 -0000 1.2 +++ early-package.lisp 14 Jul 2004 14:10:16 -0000 1.3 @@ -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) |