Update of /project/oct/cvsroot/oct In directory clnet:/tmp/cvs-serv10436 Modified Files: qd-methods.lisp Log Message: Fix typo. --- /project/oct/cvsroot/oct/qd-methods.lisp 2007/08/25 17:08:48 1.46 +++ /project/oct/cvsroot/oct/qd-methods.lisp 2007/08/25 21:17:03 1.47 @@ -813,7 +813,7 @@ (complex (float (realpart number) #q0) (float (imagpart number) #q0))) -(defmethod coerce ((number qd-complex) (type (eql qd-complex))) +(defmethod coerce ((number qd-complex) (type (eql 'qd-complex))) number)