[cl-prevalence-cvs] CVS update: cl-prevalence/src/managed-prevalence.lisp

[Sven Van Caekenberghe]

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)