[movitz-cvs] CVS movitz/losp/muerte - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

17 Apr 2008

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv14469
Modified Files:
    defstruct.lisp 
Log Message:
Fix a bug where the :copier and :constructor options were mixed up.

--- /project/movitz/cvsroot/movitz/losp/muerte/defstruct.lisp	2008/03/15 20:57:34	1.18
+++ /project/movitz/cvsroot/movitz/losp/muerte/defstruct.lisp	2008/04/17 19:33:11	1.19
@@ -9,7 +9,7 @@
 ;;;; Created at:    Mon Jan 22 13:10:59 2001
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: defstruct.lisp,v 1.18 2008/03/15 20:57:34 ffjeld Exp $
+;;;; $Id: defstruct.lisp,v 1.19 2008/04/17 19:33:11 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -168,7 +168,7 @@
    	    (:conc-name (push (string (or parameter ""))
    			      (getf collector :conc-name)))
    	    (:constructor (push parameter (getf collector :constructor)))
-		    (:copier (push parameter (getf collector :constructor)))
+		    (:copier (push parameter (getf collector :copier)))
    	    (:predicate (push parameter (getf collector :predicate)))
    	    (:type (push parameter (getf collector :type)))
    	    (:initial-offset (push parameter (getf collector :initial-offset)))

    