(TYPEP x 'COMPLEX) always => NIL. KCl (Kyoto Common Lisp) June 3, 1987 >(typep #c(1 1) 'complex) NIL This can be fixed as follows: (setf (get 'complex 'type-predicate) 'complexp) Jeff Dalton, JANET: J.Dalton@uk.ac.ed AI Applications Institute, ARPA: J.Dalton%uk.ac.ed@nss.cs.ucl.ac.uk Edinburgh University. UUCP: ...!ukc!ed.ac.uk!J.Dalton