Skip to content
Snippets Groups Projects
Commit c63cc26b authored by pw's avatar pw
Browse files

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.
parent 9445356a
No related branches found
No related tags found
No related merge requests found
......@@ -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))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment