(compile nil '(lambda (x) (typep x '(not (member 0d0))))) recurses
infinitely. The same symptom could be observed when compiling CLOCC's cllib:rnd.lisp. From Alexey Dejneka on cmucl-imp. * src/compiler/typetran.lisp (source-transform-union-typep): Produce (or (listp ...) ...) only if a member-type is among the union types, that member-type contains nil, and the rest of union types contains the cons type.
Please register or sign in to comment