From scaekenberghe at common-lisp.net Mon Feb 14 20:20:10 2005 From: scaekenberghe at common-lisp.net (Sven Van Caekenberghe) Date: Mon, 14 Feb 2005 21:20:10 +0100 (CET) Subject: [cl-prevalence-cvs] CVS update: cl-prevalence/src/managed-prevalence.lisp Message-ID: <20050214202010.0061588171@common-lisp.net> Update of /project/cl-prevalence/cvsroot/cl-prevalence/src In directory common-lisp.net:/tmp/cvs-serv27436/src Modified Files: managed-prevalence.lisp Log Message: some error messages were wrong (format args mixup) Date: Mon Feb 14 21:20:04 2005 Author: scaekenberghe Index: cl-prevalence/src/managed-prevalence.lisp diff -u cl-prevalence/src/managed-prevalence.lisp:1.3 cl-prevalence/src/managed-prevalence.lisp:1.4 --- cl-prevalence/src/managed-prevalence.lisp:1.3 Tue Oct 5 13:44:36 2004 +++ cl-prevalence/src/managed-prevalence.lisp Mon Feb 14 21:20:02 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: managed-prevalence.lisp,v 1.3 2004/10/05 11:44:36 scaekenberghe Exp $ +;;;; $Id: managed-prevalence.lisp,v 1.4 2005/02/14 20:20:02 scaekenberghe Exp $ ;;;; ;;;; The code in this file adds another layer above plain object prevalence. ;;;; We manage objects with ids in an organized fashion, adding an id counter and preferences. @@ -134,12 +134,12 @@ (index-name (get-objects-slot-index-name class 'id))) (setf (get-root-object system root-name) (delete object (get-root-object system root-name))) (remhash id (get-root-object system index-name))) - (error "no object of class ~a with id ~d found in ~s" system class id)))) + (error "no object of class ~a with id ~d found in ~s" class id system)))) (defun tx-change-object-slots (system class id slots-and-values) "Change some slots of the object of class with id in system using slots and values" (let ((object (find-object-with-id system class id))) - (unless object (error "no object of class ~a with id ~d found in ~s" system class id)) + (unless object (error "no object of class ~a with id ~d found in ~s" class id system)) (loop :for (slot value) :in slots-and-values :do (when (slot-value-changed-p object slot value) (remove-object-from-slot-index system class slot object)