X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Foodml.lisp;h=960dbd288282f10a36940849d8a909a2e3d123f3;hb=81631609ae02879280f2b4f4da74475c67b0a32c;hp=d44b90b75caad8484d3f3cb48007599ecefc2481;hpb=e622ee6f4bf2b9fe81af59d566e651c983a4833b;p=clsql.git

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index d44b90b..960dbd2 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -1,7 +1,7 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id: 
+;;;; $Id$
 ;;;;
 ;;;; The CLSQL Object Oriented Data Manipulation Language (OODML).
 ;;;;
@@ -1057,11 +1057,4 @@ as elements of a list."
 		 (record-caches database)) results)
   results)
 
-(defun update-cached-results (targets qualifiers database)
-  ;; FIXME: this routine will need to update slots in cached objects, perhaps adding or removing objects from cached
-  ;; for now, dump cache entry and perform fresh search
-  (let ((res (apply #'find-all targets qualifiers)))
-    (setf (gethash (compute-records-cache-key targets qualifiers)
-		   (record-caches database)) res)
-    res))