0.pre7.125:

[sbcl.git] / src / compiler / debug.lisp

diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp
index 9875753..ba299a1 100644 (file)
--- a/src/compiler/debug.lisp
+++ b/src/compiler/debug.lisp
@@ -115,36 +115,36 @@
        ((null (block-next block)))
       (check-block-consistency block)))
 
-  (maphash #'(lambda (k v)
-              (declare (ignore k))
-              (unless (or (constant-p v)
-                          (and (global-var-p v)
-                               (member (global-var-kind v)
-                                       '(:global :special))))
-                (barf "strange *FREE-VARIABLES* entry: ~S" v))
-              (dolist (n (leaf-refs v))
-                (check-node-reached n))
-              (when (basic-var-p v)
-                (dolist (n (basic-var-sets v))
-                  (check-node-reached n))))
+  (maphash (lambda (k v)
+            (declare (ignore k))
+            (unless (or (constant-p v)
+                        (and (global-var-p v)
+                             (member (global-var-kind v)
+                                     '(:global :special))))
+              (barf "strange *FREE-VARIABLES* entry: ~S" v))
+            (dolist (n (leaf-refs v))
+              (check-node-reached n))
+            (when (basic-var-p v)
+              (dolist (n (basic-var-sets v))
+                (check-node-reached n))))
           *free-variables*)
 
-  (maphash #'(lambda (k v)
-              (declare (ignore k))
-              (unless (constant-p v)
-                (barf "strange *CONSTANTS* entry: ~S" v))
-              (dolist (n (leaf-refs v))
-                (check-node-reached n)))
+  (maphash (lambda (k v)
+            (declare (ignore k))
+            (unless (constant-p v)
+              (barf "strange *CONSTANTS* entry: ~S" v))
+            (dolist (n (leaf-refs v))
+              (check-node-reached n)))
           *constants*)
 
-  (maphash #'(lambda (k v)
-              (declare (ignore k))
-              (unless (or (functional-p v)
-                          (and (global-var-p v)
-                               (eq (global-var-kind v) :global-function)))
-                (barf "strange *FREE-FUNCTIONS* entry: ~S" v))
-              (dolist (n (leaf-refs v))
-                (check-node-reached n)))
+  (maphash (lambda (k v)
+            (declare (ignore k))
+            (unless (or (functional-p v)
+                        (and (global-var-p v)
+                             (eq (global-var-kind v) :global-function)))
+              (barf "strange *FREE-FUNCTIONS* entry: ~S" v))
+            (dolist (n (leaf-refs v))
+              (check-node-reached n)))
           *free-functions*)
   (clrhash *seen-functions*)
   (clrhash *seen-blocks*)
@@ -643,9 +643,9 @@
           (atypes (template-arg-types info))
           (rtypes (template-result-types info)))
       (check-tn-refs (vop-args vop) vop nil
-                    (count-if-not #'(lambda (x)
-                                      (and (consp x)
-                                           (eq (car x) :constant)))
+                    (count-if-not (lambda (x)
+                                    (and (consp x)
+                                         (eq (car x) :constant)))
                                   atypes)
                     (template-more-args-type info) "args")
       (check-tn-refs (vop-results vop) vop t
@@ -987,7 +987,7 @@
 
   (let ((succ (block-succ block)))
     (format t "successors~{ c~D~}~%"
-           (mapcar #'(lambda (x) (cont-num (block-start x))) succ)))
+           (mapcar (lambda (x) (cont-num (block-start x))) succ)))
   (values))
 
 ;;; Print a useful representation of a TN. If the TN has a leaf, then do a
@@ -1128,10 +1128,10 @@
 ;;; Make a list out of all of the recorded conflicts.
 (defun listify-conflicts-table ()
   (collect ((res))
-    (maphash #'(lambda (k v)
-                (declare (ignore v))
-                (when k
-                  (res k)))
+    (maphash (lambda (k v)
+              (declare (ignore v))
+              (when k
+                (res k)))
             *list-conflicts-table*)
     (clrhash *list-conflicts-table*)
     (res)))