(make-weak-pointer object))
#!-sb-fluid (declaim (inline weak-pointer-value))
(defun weak-pointer-value (weak-pointer)
#!+sb-doc
"If WEAK-POINTER is valid, return the value of WEAK-POINTER and T.
(make-weak-pointer object))
#!-sb-fluid (declaim (inline weak-pointer-value))
(defun weak-pointer-value (weak-pointer)
#!+sb-doc
"If WEAK-POINTER is valid, return the value of WEAK-POINTER and T.