projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.29.13: relax CAST-EXTERNALLY-CHECKABLE-P a bit
[sbcl.git]
/
src
/
code
/
final.lisp
diff --git
a/src/code/final.lisp
b/src/code/final.lisp
index
c2ef070
..
8b21939
100644
(file)
--- a/
src/code/final.lisp
+++ b/
src/code/final.lisp
@@
-17,9
+17,8
@@
(sb!thread:make-mutex :name "Finalizer store lock."))
(defmacro with-finalizer-store-lock (&body body)
(sb!thread:make-mutex :name "Finalizer store lock."))
(defmacro with-finalizer-store-lock (&body body)
- `(sb!thread::call-with-system-mutex (lambda () ,@body)
- *finalizer-store-lock*
- t))
+ `(sb!thread::with-system-mutex (*finalizer-store-lock* :without-gcing t)
+ ,@body))
(defun finalize (object function &key dont-save)
#!+sb-doc
(defun finalize (object function &key dont-save)
#!+sb-doc