/[cmucl]/src/code/weak.lisp
ViewVC logotype

Diff of /src/code/weak.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by pw, Wed Mar 17 19:30:14 1999 UTC revision 1.6 by gerd, Wed Jun 18 14:29:24 2003 UTC
# Line 40  Line 40 
40          (broken (c::%weak-pointer-broken weak-pointer)))          (broken (c::%weak-pointer-broken weak-pointer)))
41      (values value (not broken))))      (values value (not broken))))
42    
43    (declaim (inline (setf weak-pointer-value)))
44    (defun (setf weak-pointer-value) (object weak-pointer)
45      "Updates WEAK-POINTER to point to a new object."
46      (declare (type weak-pointer weak-pointer))
47      (c::%set-weak-pointer-broken weak-pointer nil)
48      (c::%set-weak-pointer-value weak-pointer object))
49    
50  ;;; For the interpreter..  ;;; For the interpreter..
51    
52  (defun c::%weak-pointer-value (w)  (defun c::%weak-pointer-value (w)
# Line 50  Line 57 
57    (declare (type weak-pointer w))    (declare (type weak-pointer w))
58    (c::%weak-pointer-broken w))    (c::%weak-pointer-broken w))
59    
60    (defun c::%set-weak-pointer-value (w v)
61      (declare (type weak-pointer w))
62      (c::%set-weak-pointer-value w v))
63    
64    (defun c::%set-weak-pointer-broken (w v)
65      (declare (type weak-pointer w) (type boolean v))
66      (c::%set-weak-pointer-broken w v))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5