X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=ca2ab733f650c30e948097bdd6a82fe6db2b470f;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=5fe79b8fbf75c0853b2c76a1efd6ce2ce9c92335;hpb=57500f8641535b9b958abe1e8b65863941becf4f;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 5fe79b8..ca2ab73 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -219,7 +219,7 @@
 	 (pprint-indent :current 8)
 	 (dotimes (i (- (get-closure-length x) (1- sb-vm:closure-info-offset)))
 	   (format s "~@:_~S: ~S" i (%closure-index-ref x i)))))
-      ((#.sb-vm:simple-fun-header-widetag #.sb-vm:closure-fun-header-widetag)
+      (#.sb-vm:simple-fun-header-widetag
        (%describe-fun-compiled x s kind name))
       (#.sb-vm:funcallable-instance-header-widetag
        ;; Only STANDARD-GENERIC-FUNCTION would be handled here, but