projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Improved undefined-function backtrace on non-x86oids.
[sbcl.git]
/
src
/
code
/
late-type.lisp
diff --git
a/src/code/late-type.lisp
b/src/code/late-type.lisp
index
13e3368
..
d1eaa9e
100644
(file)
--- a/
src/code/late-type.lisp
+++ b/
src/code/late-type.lisp
@@
-432,8
+432,9
@@
1
(values-type-max-value-count type)))
1
(values-type-max-value-count type)))
+;;; VALUES type with a single value.
(defun type-single-value-p (type)
(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))))
(not (values-type-rest type))
(null (values-type-optional type))
(singleton-p (values-type-required type))))