[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

TYPEP doesn't test COMPLEX



(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