Skip to content
Snippets Groups Projects
Commit b0f45727 authored by gerd's avatar gerd
Browse files

(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.
parent 5d2d04f0
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment