X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fltv.lisp;h=cbeba897fcbbc0abe43f3d898b8cd434b3c9b2fc;hb=c179ad4d7bef50a974e8907adb079d47c8bea37e;hp=a695b65283366f0e337f43a4455198ce602f495f;hpb=d0376c0b2e38ff518c85d50a5befd3a13e14d3e1;p=sbcl.git

diff --git a/src/compiler/ltv.lisp b/src/compiler/ltv.lisp
index a695b65..cbeba89 100644
--- a/src/compiler/ltv.lisp
+++ b/src/compiler/ltv.lisp
@@ -30,7 +30,7 @@ guaranteed to never be modified, so it can be put in read-only storage."
                       (cond ((consp form)
                              (let ((op (car form)))
                                (cond ((member op '(the truly-the))
-                                      (specifier-type (second form)))
+                                      (values-specifier-type (second form)))
                                      ((eq 'function op)
                                       (specifier-type 'function))
                                      ((and (legal-fun-name-p op)