projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.8.6: applied MNA megapatch (will be edited shortly)
[sbcl.git]
/
src
/
code
/
typep.lisp
diff --git
a/src/code/typep.lisp
b/src/code/typep.lisp
index
b82f92c
..
2c461ed
100644
(file)
--- a/
src/code/typep.lisp
+++ b/
src/code/typep.lisp
@@
-114,6
+114,12
@@
(dolist (type (union-type-types type))
(when (%%typep object type)
(return t))))
(dolist (type (union-type-types type))
(when (%%typep object type)
(return t))))
+ ;; MNA: cons compound-type patch
+ ;; FIXIT: all commented out
+; (cons-type
+; (and (consp object)
+; (%%typep (car object) (cons-type-car-type type))
+; (%%typep (cdr object) (cons-type-cdr-type type))))
(unknown-type
;; dunno how to do this ANSIly -- WHN 19990413
#+sb-xc-host (error "stub: %%TYPEP UNKNOWN-TYPE in xcompilation host")
(unknown-type
;; dunno how to do this ANSIly -- WHN 19990413
#+sb-xc-host (error "stub: %%TYPEP UNKNOWN-TYPE in xcompilation host")