X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-type.lisp;h=d1eaa9e40be7acb7ea798c3d04e8b0215bdb0ad0;hb=ac93aa515b197d751dad85d70432ebc87fac420a;hp=13e3368efd11a934662439c48d64fafdc9b8fb1c;hpb=a27847030e4ba8f7298ad3d302b0c5b05a8b8542;p=sbcl.git

diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp
index 13e3368..d1eaa9e 100644
--- a/src/code/late-type.lisp
+++ b/src/code/late-type.lisp
@@ -432,8 +432,9 @@
       1
       (values-type-max-value-count type)))
 
+;;; VALUES type with a single value.
 (defun type-single-value-p (type)
-  (and (values-type-p type)
+  (and (%values-type-p type)
        (not (values-type-rest type))
        (null (values-type-optional type))
        (singleton-p (values-type-required type))))