From: Kevin M. Rosenberg Date: Wed, 23 Apr 2003 20:11:22 +0000 (+0000) Subject: r4613: Auto commit for Debian build X-Git-Tag: debian-2.11.0-2~116 X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=commitdiff_plain;h=e073bb3fcbbac497f541d37472e46fa59ed2433c r4613: Auto commit for Debian build --- diff --git a/debian/changelog b/debian/changelog index 184fe78..19fa97b 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,6 +1,6 @@ cl-hyperobject (2.6.4-1) unstable; urgency=low - * Work-around issue with cmucl + * New upstream -- Kevin M. Rosenberg Tue, 22 Apr 2003 08:06:37 -0600 diff --git a/rules.lisp b/rules.lisp index 7ce24ed..b42d361 100644 --- a/rules.lisp +++ b/rules.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: rules.lisp,v 1.26 2003/04/22 19:19:41 kevin Exp $ +;;;; $Id: rules.lisp,v 1.27 2003/04/23 20:11:22 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg ;;;; @@ -64,20 +64,21 @@ (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 hyperobject-esd)) + ;; this does not work on gerd-pcl in cmu 18e+ + (esd-value-constraint slot) (call-next-method)) -;; this does not work on gerd-pcl in cmu 18e+ +#+ignore (defmethod (setf slot-value-using-class) :around (new-value (cl hyperobject-class) obj (slot hyperobject-esd)) #+ignore (cmsg-c :verbose "Setf slot value: class: ~s, obj: ~s, slot: ~s, value: ~s" cl (class-of obj) slot new-value) - - (let ((func (slot-value slot 'value-constraint))) + (let ((func (esd-value-constraint slot))) (call-next-method) (cond ((and func (not (funcall func new-value))) @@ -90,6 +91,8 @@ (when (direct-rules cl) (fire-class-rules cl obj slot))))))) + + #+ignore (defmethod (setf slot-value-using-class) :around (new-value (cl hyperobject-class) obj (slot hyperobject-esd))