From 81631609ae02879280f2b4f4da74475c67b0a32c Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 25 May 2004 01:00:46 +0000 Subject: [PATCH] r9462: * sql/oodml.lisp: Removed old stub function --- ChangeLog | 3 ++- sql/oodml.lisp | 9 +-------- 2 files changed, 3 insertions(+), 9 deletions(-) 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)) -- 2.34.1