Commit 672ded2d authored by Daniel Kochmański's avatar Daniel Kochmański

typep: handle * type

This is the same as T according to '2.4.3 Type Specifiers' in the
spec. Fixes #240.

"If a type specifier is a list, the car of the list is a symbol,
and the rest of the list is subsidiary type information. Such a type
specifier is called a compound type specifier. Except as explicitly
stated otherwise, the subsidiary items can be unspecified. The
unspecified subsidiary items are indicated by writing *. For example, to
completely specify a vector, the type of the elements and the length of
the vector must be present."
parent 4fcf4892
......@@ -539,7 +539,7 @@ Returns T if X belongs to TYPE; NIL otherwise."
(AND (dolist (e i t)
(unless (typep object e) (return nil))))
(SATISFIES (funcall (car i) object))
((T) t)
((T *) t)
((NIL) nil)
(BIGNUM (and (integerp object) (not (si::fixnump object))))
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