From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 25 May 2004 01:00:46 +0000 (+0000)
Subject: r9462:        * sql/oodml.lisp: Removed old stub function
X-Git-Tag: v3.8.6~386
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=81631609ae02879280f2b4f4da74475c67b0a32c

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

diff --git a/ChangeLog b/ChangeLog
index 6099d11..280beab 100644
--- 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 3a005ad..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))