(define-source-transform atom (x)
`(not (consp ,x)))
+#!+sb-unicode
+(define-source-transform base-char-p (x)
+ `(typep ,x 'base-char))
\f
;;;; TYPEP source transform
(intersection-type
(source-transform-intersection-typep object type))
(member-type
- `(member ,object ',(member-type-members type)))
+ `(if (member ,object ',(member-type-members type)) t))
(args-type
(compiler-warn "illegal type specifier for TYPEP: ~S"
(cadr spec))