X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug.lisp;h=7e2139806014d065d9c9d1f6fa11b8ae8e856056;hb=2ff0ff83dacac9fb25a31f5783b6ea8c0442bc2c;hp=c5a08587a52eb896b0d28a73db8e3c764b19ad98;hpb=731da68c7e3b7f2c4bc310aa75fc75f5aead24d2;p=sbcl.git

diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp
index c5a0858..7e21398 100644
--- a/src/compiler/debug.lisp
+++ b/src/compiler/debug.lisp
@@ -642,7 +642,7 @@
                                    atypes)
                      (template-more-args-type info) "args")
       (check-tn-refs (vop-results vop) vop t
-                     (if (eq rtypes :conditional) 0 (length rtypes))
+                     (if (template-conditional-p info) 0 (length rtypes))
                      (template-more-results-type info) "results")
       (check-tn-refs (vop-temps vop) vop t 0 t "temps")
       (unless (= (length (vop-codegen-info vop))