/[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.6.48.1 by rtoy, Mon Feb 8 17:15:49 2010 UTC revision 1.6.48.2 by rtoy, Wed Feb 10 04:01:27 2010 UTC
# Line 23  Line 23 
23  (export '(weak-pointer weak-pointer-p make-weak-pointer weak-pointer-value))  (export '(weak-pointer weak-pointer-p make-weak-pointer weak-pointer-value))
24    
25  (defun make-weak-pointer (object)  (defun make-weak-pointer (object)
26    "Allocates and returns a weak pointer which points to OBJECT."    _N"Allocates and returns a weak pointer which points to OBJECT."
27    (declare (values weak-pointer))    (declare (values weak-pointer))
28    (make-weak-pointer object))    (make-weak-pointer object))
29    
30  (declaim (inline weak-pointer-value))  (declaim (inline weak-pointer-value))
31  (defun weak-pointer-value (weak-pointer)  (defun weak-pointer-value (weak-pointer)
32    "If WEAK-POINTER is valid, returns the value of WEAK-POINTER and T.    _N"If WEAK-POINTER is valid, returns the value of WEAK-POINTER and T.
33     If the referent of WEAK-POINTER has been garbage collected, returns     If the referent of WEAK-POINTER has been garbage collected, returns
34     the values NIL and NIL."     the values NIL and NIL."
35    (declare (type weak-pointer weak-pointer)    (declare (type weak-pointer weak-pointer)
# Line 44  Line 44 
44    
45  (declaim (inline (setf weak-pointer-value)))  (declaim (inline (setf weak-pointer-value)))
46  (defun (setf weak-pointer-value) (object weak-pointer)  (defun (setf weak-pointer-value) (object weak-pointer)
47    "Updates WEAK-POINTER to point to a new object."    _N"Updates WEAK-POINTER to point to a new object."
48    (declare (type weak-pointer weak-pointer))    (declare (type weak-pointer weak-pointer))
49    (c::%set-weak-pointer-broken weak-pointer nil)    (c::%set-weak-pointer-broken weak-pointer nil)
50    (c::%set-weak-pointer-value weak-pointer object))    (c::%set-weak-pointer-value weak-pointer object))

Legend:
Removed from v.1.6.48.1  
changed lines
  Added in v.1.6.48.2

  ViewVC Help
Powered by ViewVC 1.1.5