[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-11-26-g1fc53cc

Raymond Toy rtoy at common-lisp.net
Fri Nov 28 18:40:27 UTC 2014

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  1fc53cc336bf03c52a438bb237d95080f00dd203 (commit)
      from  2b39eba64aa3f2b122bcc275e6597f9cb2a5f7f4 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 1fc53cc336bf03c52a438bb237d95080f00dd203
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Fri Nov 28 10:40:20 2014 -0800

    Signal an error for an invalid :allocation value for a slot.
    Fixes ticket:95, along with changeset:[2b39eb]

diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp
index 1d4049d..3f247f2 100644
--- a/src/pcl/std-class.lisp
+++ b/src/pcl/std-class.lisp
@@ -435,7 +435,12 @@
 	    else do
 	      (loop for (option value . more) on slot by #'cddr
-		    if (and (member option '(:allocation :type :initform
+		    if (and (eq option :allocation)
+			    (not (member value '(:class :instance)))) do
+		      (simple-program-error
+		       "~@<Slot ~S: :allocation value must be :class or :instance, not ~S~@:>"
+		       slot-name value)
+		    else if (and (member option '(:type :initform
 			    (not (eq unsupplied
 				     (getf more option unsupplied)))) do


Summary of changes:
 src/pcl/std-class.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

CMU Common Lisp

More information about the cmucl-cvs mailing list