X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcompiler%2Fir2tran.lisp;h=4a35b4796c41c103f0160b7effd13ee945502358;hb=0b9304783ffb07853927ec7ab67378602d4f39b4;hp=16748346341747bae91d2273b2d3119f08997361;hpb=930e3879538d196aeb8c08e9d1b223f641f533d6;p=sbcl.git

diff --git a/src/compiler/ir2tran.lisp b/src/compiler/ir2tran.lisp
index 1674834..4a35b47 100644
--- a/src/compiler/ir2tran.lisp
+++ b/src/compiler/ir2tran.lisp
@@ -667,7 +667,7 @@
   (let* ((type (node-derived-type call))
          (types
           (mapcar #'primitive-type
-                  (if (values-type-p type)
+                  (if (args-type-p type)
                       (append (args-type-required type)
                               (args-type-optional type))
                       (list type))))