[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv23523

Modified Files:
	complexes.lisp 
Log Message:
complexp

--- /project/movitz/cvsroot/movitz/losp/muerte/complexes.lisp	2008/04/21 19:31:32	1.2
+++ /project/movitz/cvsroot/movitz/losp/muerte/complexes.lisp	2008/07/09 20:17:46	1.3
@@ -6,7 +6,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: complexes.lisp,v 1.2 2008/04/21 19:31:32 ffjeld Exp $
+;;;; $Id: complexes.lisp,v 1.3 2008/07/09 20:17:46 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -18,7 +18,8 @@
 (provide :muerte/complexes)
 
 (defstruct (complex (:constructor make-complex-number)
-		    (:conc-name #:||))
+		    (:conc-name #:||)
+		    (:predicate complexp))
   realpart
   imagpart)