(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