241 |
number integer bignum rational ratio float |
number integer bignum rational ratio float |
242 |
short-float single-float double-float long-float complex |
short-float single-float double-float long-float complex |
243 |
character standard-char string-char |
character standard-char string-char |
244 |
real |
real |
245 |
package stream pathname readtable hash-table random-state |
package stream pathname readtable hash-table random-state |
246 |
structure array simple-array function compiled-function |
structure array simple-array function compiled-function |
247 |
arithmetic-error base-char base-string broadcast-stream |
arithmetic-error base-char base-string broadcast-stream |
313 |
(cond ((member t1 '(null cons list)) (values t t)) |
(cond ((member t1 '(null cons list)) (values t t)) |
314 |
(t (values nil ntp1)))) |
(t (values nil ntp1)))) |
315 |
((eq t2 'sequence) |
((eq t2 'sequence) |
316 |
(cond ((member t1 '(null cons list sequence)) (values t t)) |
(cond ((member t1 '(null cons list sequence base-string simple-base-string)) (values t t)) |
317 |
((eq t1 'array) |
((or (eq t1 'simple-array) (eq t1 'array)) |
318 |
(if (and (cdr i1) (consp (cadr i1)) (null (cdadr i1))) |
(if (and (cdr i1) (consp (cadr i1)) (null (cdadr i1))) |
319 |
(values t t) |
(values t t) |
320 |
(values nil t))) |
(values nil t))) |
391 |
(if (member t2 '(standard-char string-char character)) |
(if (member t2 '(standard-char string-char character)) |
392 |
(values t t) |
(values t t) |
393 |
(values nil ntp2))) |
(values nil ntp2))) |
394 |
|
(base-string |
395 |
|
(if (member t2 '(string vector array sequence)) |
396 |
|
(values t t) |
397 |
|
(values nil ntp2))) |
398 |
|
(base-char |
399 |
|
(if (member t2 '(character string-char)) |
400 |
|
(values t t) |
401 |
|
(values nil ntp2))) |
402 |
|
(simple-base-string |
403 |
|
(if (member t2 '(string simple-string base-string vector |
404 |
|
simple-vector simple-array array sequence)) |
405 |
|
(values t t) |
406 |
|
(values nil ntp2))) |
407 |
(string-char |
(string-char |
408 |
(if (member t2 '(string-char character)) |
(if (member t2 '(string-char character)) |
409 |
(values t t) |
(values t t) |