Followup to r11467: STREAM wasn't in the original list of types.

Found by: mevenson
parent 35c6b499
......@@ -482,9 +482,9 @@
(or
(when (fixnum-type-p declared-type) 'FIXNUM)
(find-if #'(lambda (type) (eq type declared-type))
`(SYMBOL CHARACTER CONS HASH-TABLE STREAM))
'(SYMBOL CHARACTER CONS HASH-TABLE))
(find-if #'(lambda (type) (subtypep declared-type type))
`(STRING VECTOR)))))
'(STRING VECTOR)))))
(defknown generate-type-check-for-variable (t) t)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment