Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 598)
+++ /trunk/ccl/lib/macros.lisp	(revision 599)
@@ -1582,5 +1582,5 @@
 			       (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,14 +2597,7 @@
 	(%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)