[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-serv27807/src

Modified Files:
	managed-prevalence.lisp 
Log Message:
changed signature

Date: Thu Jan  5 15:08:52 2006
Author: scaekenberghe

Index: cl-prevalence/src/managed-prevalence.lisp
diff -u cl-prevalence/src/managed-prevalence.lisp:1.4 cl-prevalence/src/managed-prevalence.lisp:1.5
--- cl-prevalence/src/managed-prevalence.lisp:1.4	Mon Feb 14 21:20:02 2005
+++ cl-prevalence/src/managed-prevalence.lisp	Thu Jan  5 15:08:50 2006
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: managed-prevalence.lisp,v 1.4 2005/02/14 20:20:02 scaekenberghe Exp $
+;;;; $Id: managed-prevalence.lisp,v 1.5 2006/01/05 14:08:50 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.
@@ -58,7 +58,7 @@
     (when index
       (gethash id index))))
 
-(defgeneric find-object-with-slot (system class slot value &optional (test #'equalp))
+(defgeneric find-object-with-slot (system class slot value &optional test)
   (:documentation "Find and return the object in system of class with slot equal to value, null if not found"))
 
 (defmethod find-object-with-slot ((system prevalence-system) class slot value &optional (test #'equalp))