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)
