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))