Changeset 599

Timestamp:

Mar 1, 2004, 9:03:33 AM (21 years ago)

Author:

Gary Byers

Message:

Invert order of initform/initfunction (FORM follows FUNCTION ? Nah ..)
in canonicalized direct-default-initargs.

File:

• trunk/ccl/lib/macros.lisp (modified) (2 diffs)

trunk/ccl/lib/macros.lisp

@@ -1582 +1582 @@
                                (setq key (pop tail)
                                      val (pop tail))
-                             (push ``(,',key ,,(make-initfunction val) ,',val) canonical))
+                             (push ``(,',key ,',val  ,,(make-initfunction val)) canonical))
                            `(':direct-default-initargs (list ,@(nreverse canonical))))))
                    (:metaclass
@@ -2597 +2597 @@
         (%restore-terminal-input ,got-it)))))
 
-(defmacro do-unexhausted-lisp-threads ((thread) &body body)
-  `(dolist (,thread (population-data *lisp-thread-population*))
-    (unless (thread-exhausted-p ,thread)
-      ,@body)))
-
-(defmacro do-inactive-lisp-threads ((thread) &body body)
-  (let* ((current (gensym)))
-    `(let* ((,current *current-lisp-thread*))
-      (do-unexhausted-lisp-threads (,thread)
-        (unless (eq ,thread ,current) ,@body)))))
+
+
+
 
 (defmacro %with-recursive-lock-ptr ((lockptr) &body body)