0.pre7.129:

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

diff --git a/src/compiler/debug-dump.lisp b/src/compiler/debug-dump.lisp
index 5a0df42..612524f 100644 (file)
--- a/src/compiler/debug-dump.lisp
+++ b/src/compiler/debug-dump.lisp
@@ -375,8 +375,8 @@
          (frob-lambda let (= level 3)))))
 
     (let ((sorted (sort (vars) #'string<
-                       :key #'(lambda (x)
-                                (symbol-name (leaf-debug-name (car x))))))
+                       :key (lambda (x)
+                              (symbol-name (leaf-debug-name (car x))))))
          (prev-name nil)
          (id 0)
          (i 0)
@@ -461,8 +461,8 @@
 ;;; (Must be known values return...)
 (defun compute-debug-returns (fun)
   (coerce-to-smallest-eltype
-   (mapcar #'(lambda (loc)
-              (tn-sc-offset loc))
+   (mapcar (lambda (loc)
+            (tn-sc-offset loc))
           (return-info-locations (tail-set-info (lambda-tail-set fun))))))
 \f
 ;;;; debug functions