;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: mop.lisp,v 1.15 2002/12/14 18:51:56 kevin Exp $
+;;;; $Id: mop.lisp,v 1.16 2002/12/14 21:52:48 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
(defun compile-rule (source-code dependants volatile cl)
(let ((access (appendnew dependants volatile)))
-;; (compile nil
+ (compile nil
(eval
`(lambda (obj)
(when (every #'(lambda (x) (slot-boundp obj x))
(quote ,dependants))
(with-slots ,access obj
- ,@source-code))))))
-;;)
+ ,@source-code)))))))
(defun finalize-rules (cl)
(let* ((direct-rules (direct-rules cl))
(let ((name (slot-definition-name slot)))
(dolist (rule (rules cl))
(when (find name (dependants rule))
- (cmsg "firing rule: ~a" rule)
+ (cmsg-c :debug "firing rule: ~W" (source-code rule))
(funcall (func rule) obj)))))
+
+#+ignore
+(defmethod (setf slot-value-using-class)
+ :around (new-value (cl hyperobject-class) obj
+ (slot standard-effective-slot-definition))
+ (call-next-method))
+
(defmethod (setf slot-value-using-class)
:around (new-value (cl hyperobject-class) obj
(slot standard-effective-slot-definition))