X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdebug.impure.lisp;h=96916bb24537620a1b70f7202f6f4e1209b24073;hb=c8cc0137e55e6179f6af344f42e54f514660f68b;hp=f7dfab91ce7a341db0ce1779f4230ac38f5915ed;hpb=34dd23563d2f5cf05c72b971da0d0b065a09bf2a;p=sbcl.git

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index f7dfab9..96916bb 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -23,7 +23,7 @@
   (declare (type function fun))
   ;; The Lisp-level type FUNCTION can conceal a multitude of sins..
   (case (sb-kernel:widetag-of fun)
-    ((#.sb-vm:simple-fun-header-widetag #.sb-vm:closure-fun-header-widetag)
+    (#.sb-vm:simple-fun-header-widetag
       (sb-kernel:%simple-fun-arglist fun))
     (#.sb-vm:closure-header-widetag (get-arglist
 				     (sb-kernel:%closure-fun fun)))