Changeset 8418

Timestamp:

Feb 4, 2008, 7:26:54 AM (17 years ago)

Author:

Gary Byers

Message:

WEAK-GC-METHOD.

File:

• trunk/source/lib/misc.lisp (modified) (1 diff)

trunk/source/lib/misc.lisp

@@ -841 +841 @@
         
 
+(defparameter *weak-gc-method-names*
+  '((:traditional . 0)
+    (:non-circular . 1)))
+
+
+(defun weak-gc-method ()
+  (or (car (rassoc (%get-kernel-global 'weak-gc-method)
+                   *weak-gc-method-names*))
+      :traditional))
+
+
+(defun (setf weak-gc-method) (name)
+  (setf (%get-kernel-global 'weak-gc-method)
+        (or (cdr (assoc name *weak-gc-method-names*))
+            0))
+  name)