Allow non computed atoms to be initforms of computed slots.
Wed Jun 3 03:09:39 PDT 2009 levente.meszaros@gmail.com
* Allow non computed atoms to be initforms of computed slots.
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-computed-class/mop.lisp new-computed-class/mop.lisp
--- old-computed-class/mop.lisp 2014-07-30 02:09:48.000000000 -0700
+++ new-computed-class/mop.lisp 2014-07-30 02:09:48.000000000 -0700
@@ -101,7 +101,7 @@
(when (and initform-p
primitive-form)
(if computed-in
- (assert (eq (first primitive-form) computed-in) ()
+ (assert (or (atom primitive-form) (eq (first primitive-form) computed-in)) ()
":computed-in and the :initform parameters are not consistent. ~S is not computed in ~S"
initform computed-in)
(setf computed-in (first primitive-form)))