0.pre7.124:

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

diff --git a/src/compiler/debug-dump.lisp b/src/compiler/debug-dump.lisp
index 5a0df42..8d7b718 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)