[oct-cvs] Oct commit: oct qd-methods.lisp

[rtoy]

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)