Changeset 7956 for branches/working-0711/ccl/lib/macros.lisp

Timestamp:

Dec 26, 2007, 8:04:40 AM (13 years ago)

Author:

gb

Message:

New hash-table iteration scheme.
New WITH-PROCESS-WHOSTATE just binds a special.

File:

• branches/working-0711/ccl/lib/macros.lisp (modified) (2 diffs)

branches/working-0711/ccl/lib/macros.lisp

@@ -2629 +2629 @@
   (let* ((hash (gensym))
          (keys (gensym))
+         (values (gensym))
+         (count (gensym))
          (state (gensym)))
     `(let* ((,hash ,hash-table)
-            (,keys (make-array (the fixnum (hash-table-count ,hash))))
-            (,state (vector ,hash 0 ,keys (enumerate-hash-keys ,hash ,keys))))
-      (declare (dynamic-extent ,keys ,state))
-      (macrolet ((,mname () `(next-hash-table-iteration ,',state)))
+            (,count (hash-table-count ,hash))
+            (,keys (make-array ,count))
+            (,values (make-array ,count))
+            (,state (vector ,hash 0 ,keys ,values (enumerate-hash-keys-and-values ,hash ,keys ,values))))
+      (declare (dynamic-extent ,keys ,state)
+               (fixnum ,count))
+      (macrolet ((,mname () `(next-hash-table-iteration-1 ,',state)))
         ,@body))))
 
@@ -2987 +2992 @@
 
 (defmacro with-process-whostate ((whostate) &body body)
-  (let* ((p (gensym))
-         (old-whostate (gensym)))
-    `(let* ((,p *current-process*)
-            (,old-whostate (process-whostate ,p)))
-      (unwind-protect
-           (progn
-             (setf (%process-whostate ,p) ,whostate)
-             ,@body)
-        (setf (%process-whostate ,p) ,old-whostate)))))
+  `(let* ((*whostate* ,whostate))
+    ,@body))