Add definer for computed-universe
Wed Jun 3 02:47:15 PDT 2009 levente.meszaros@gmail.com
* Add definer for computed-universe
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/api.lisp new-computed-class/api.lisp
--- old-computed-class/api.lisp 2014-07-28 13:36:35.000000000 -0700
+++ new-computed-class/api.lisp 2014-07-28 13:36:35.000000000 -0700
@@ -73,6 +73,9 @@
`(,',primitive-compute-as-macro-name ()
,@body)))))
+(def (definer e :available-flags "e") computed-universe (compute-as-macro-name &rest args &key name default-recomputation-mode self-variable-name current-value-variable-name)
+ (declare (ignore name default-recomputation-mode self-variable-name current-value-variable-name))
+ `(define-computed-universe ,compute-as-macro-name ,@args))
(defgeneric computed-value-equal-p (old-value new-value)
(:documentation "When a new value is set in a computed slot, then this method is used to decide whether dependent slots should be recalculated or not.")
diff -rN -u old-computed-class/engine.lisp new-computed-class/engine.lisp
--- old-computed-class/engine.lisp 2014-07-28 13:36:35.000000000 -0700
+++ new-computed-class/engine.lisp 2014-07-28 13:36:35.000000000 -0700
@@ -123,7 +123,6 @@
:create-struct #t
:struct-options ((:conc-name rsc-)))
-
(defun computed-state-value (computed-state)
"Read the value, recalculate when needed."
(declare (type computed-state computed-state)