From 07e6275031d782ba19b9b22fb846cad3cd1d0e4b Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 4 May 2003 03:30:28 +0000 Subject: [PATCH 1/1] r4795: Auto commit for Debian build --- rules.lisp | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/rules.lisp b/rules.lisp index 50c8ae5..a7bd048 100644 --- a/rules.lisp +++ b/rules.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: rules.lisp,v 1.37 2003/05/04 03:24:28 kevin Exp $ +;;;; $Id: rules.lisp,v 1.38 2003/05/04 03:30:28 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg ;;;; @@ -65,13 +65,7 @@ (funcall (func rule) obj))))) -#+ignore -(defmethod (setf slot-value-using-class) :around - (new-value (cl hyperobject-class) obj (slot hyperobject-esd)) - (call-next-method)) - -#+ignore (defmethod (setf slot-value-using-class) :around (new-value (cl hyperobject-class) obj (slot hyperobject-esd)) @@ -90,11 +84,3 @@ (call-next-method) (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)) - (let ((value (call-next-method))) - (cmsg-c :verbose "slot value: class: ~s, obj: ~s, slot: ~s" cl (class-of obj) slot) - value)) -- 2.34.1