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