X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug-dump.lisp;h=8d7b7187464bfbded43a891121f4678a63b91e9c;hb=e0814eee6f6dea52db010b45a330100f2fe65832;hp=5a0df420897a0076ba9c15c0d23ca02a3bdfe7eb;hpb=165bb53b405ab95ce76615ab77cee8284df0a36e;p=sbcl.git

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