r9462: * sql/oodml.lisp: Removed old stub function

diff --git a/ChangeLog b/ChangeLog
index 6099d1164e4a82d78fa393e034efc380d52e2c90..280beab59152c03312a33af6709da8f7106ff526 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,7 +2,8 @@
         * db-oracle/oracle-sql.lisp: Add declaration so that SBCL runs efficiently.
        * tests/test-init.lisp: capitalize odbc backend name in banner
        * CONTRIBUTORS: Add note about Marcus' excellent work
-       
+       * sql/oodml.lisp: Removed old stub function     
+       
 24 May 2004: Marcus Pearce (m.t.pearce@city.ac.uk) 
        * db-postgresql-socket/postgresql-socket-sql.lisp: replace 
        CLSQL-SIMPLE-WARNING with SQL-WARNING. 

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 3a005ad0990ac8b19d82c95fbcca018e7b55f590..960dbd288282f10a36940849d8a909a2e3d123f3 100644 (file)
--- 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))