Bogus type error in comparison of complex number with THE form
Compiling this:
(defun c9 (x) (= (the (eql 1.0d0) x) #c(1/2 1/2)))
and evaluating (c9 1.0d0)
yields a type error:
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER: #C(0.5d0 0.5d0) is not of type (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0)) [Condition of type TYPE-ERROR]