diff --git a/code/weak.lisp b/code/weak.lisp index 3939c4c01dbde2d255f683343f2ccd5d5b1d7b0b..fe910ce848e53b88ccf5d59fa1e386f83d9d7f92 100644 --- a/code/weak.lisp +++ b/code/weak.lisp @@ -5,11 +5,11 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/weak.lisp,v 1.4 1994/10/31 04:11:27 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/weak.lisp,v 1.5 1999/03/17 19:30:14 pw Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/weak.lisp,v 1.4 1994/10/31 04:11:27 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/weak.lisp,v 1.5 1999/03/17 19:30:14 pw Exp $ ;;; ;;; Weak Pointer Support. ;;; @@ -39,3 +39,14 @@ (let ((value (c::%weak-pointer-value weak-pointer)) (broken (c::%weak-pointer-broken weak-pointer))) (values value (not broken)))) + +;;; For the interpreter.. + +(defun c::%weak-pointer-value (w) + (declare (type weak-pointer w)) + (c::%weak-pointer-value w)) + +(defun c::%weak-pointer-broken (w) + (declare (type weak-pointer w)) + (c::%weak-pointer-broken w)) +