X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1-translators.lisp;h=885f5d2476ee73b06e1125baff0e377232443bb1;hb=4b13aa3a7f0f4c6249e2787f4171e3c362d634c1;hp=acff2a9232a838ce036b50920602af12c96ef0f9;hpb=9264b512a21d1200fb9ab21874206c4bf436ed27;p=sbcl.git

diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index acff2a9..885f5d2 100644
--- a/src/compiler/ir1-translators.lisp
+++ b/src/compiler/ir1-translators.lisp
@@ -449,7 +449,7 @@ body, references to a NAME will effectively be replaced with the EXPANSION."
                nargs
                min)))
 
-    (when (eq (template-result-types template) :conditional)
+    (when (template-conditional-p template)
       (bug "%PRIMITIVE was used with a conditional template."))
 
     (when (template-more-results-type template)