X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fweak.lisp;h=e5300e106aab2185d8283e9e8b94e4507d5e1bdb;hb=08917ec0d00a781a1089922a5419b7f136cdf08f;hp=7268b383f6f1329a8b270e4bb459fe7cc9dddcb6;hpb=7861e493d9ba821f82471b81bed0223d8033a001;p=sbcl.git diff --git a/src/code/weak.lisp b/src/code/weak.lisp index 7268b38..e5300e1 100644 --- a/src/code/weak.lisp +++ b/src/code/weak.lisp @@ -33,5 +33,5 @@ returns the values NIL and NIL." ;; compiler will never try to reorder them even in code where we ;; neglect to frame them in a LET? (let ((value (sb!c::%weak-pointer-value weak-pointer)) - (broken (sb!c::%weak-pointer-broken weak-pointer))) + (broken (sb!c::%weak-pointer-broken weak-pointer))) (values value (not broken))))