[cmucl-cvs] CMUCL commit: src/code (defstruct.lisp)

[Raymond Toy]

    Date: Sunday, December 26, 2010 @ 09:54:33
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: defstruct.lisp

Allow more than one keyword constructor for defstruct.  Bug and fix
from Rob Warnock.


----------------+
 defstruct.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/code/defstruct.lisp
diff -u src/code/defstruct.lisp:1.102 src/code/defstruct.lisp:1.103
--- src/code/defstruct.lisp:1.102	Fri Apr 23 09:23:29 2010
+++ src/code/defstruct.lisp	Sun Dec 26 09:54:33 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/defstruct.lisp,v 1.102 2010-04-23 13:23:29 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/code/defstruct.lisp,v 1.103 2010-12-26 14:54:33 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1120,7 +1120,7 @@
 	  (res (create-keyword-constructor defstruct creator))
 	  (dolist (other-name (rest defaults))
 	    (res `(setf (fdefinition ',other-name) (fdefinition ',cname)))
-	    (res `(declaim (ftype function ',other-name))))))
+	    (res `(declaim (ftype function ,other-name))))))
       
       (dolist (boa boas)
 	(res (create-boa-constructor defstruct boa creator)))