From c63cc26b6b556e08dd07cd615e0ffb8df0080d35 Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Wed, 17 Mar 1999 19:30:14 +0000 Subject: [PATCH] Callable functions for primitives c::%weak-pointer-value and c::%weak-pointer-broken were missing causing missing function errors when something calling weak-pointer-value was interpreted. This rev adds those functions. --- code/weak.lisp | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/code/weak.lisp b/code/weak.lisp index 3939c4c01..fe910ce84 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)) + -- GitLab