Small cleanup in sql/context.lisp

Martin Thornquist <[email protected]> Tue, 17 Dec 2002 22:33:43 +0100

Newsgroups	gmane.lisp.uncommon-sql
Message-ID	<[email protected]>

Well, I've been away from UncommonSQL for some weeks, so I never
updated CVS after the patch I submitted were incorporated, before now.
It seems the one who applied the patch to sql/context.lisp forgot
remove the old instance-snapshot method (which I had split into
#-lispworks and #+lispworks versions). Here's a patch:



Martin
-- 
"An ideal world is left as an exercise to the reader."
                                                 -Paul Graham, On Lisp

context.lisp.diff (text/x-patch, 969 B)

Index: sql/context.lisp
===================================================================
RCS file: /cvs/usql/sql/context.lisp,v
retrieving revision 1.79
diff -u -r1.79 context.lisp
--- sql/context.lisp	2002/10/28 18:57:58	1.79
+++ sql/context.lisp	2002/12/17 21:17:34
@@ -141,16 +141,6 @@
                              unbound)) ss)))
     (cons :snapshot (cons unbound ss))))
 
-(defmethod instance-snapshot ((instance standard-db-object) &aux ss)
-  (let ((*db-deserializing* t)
-        (unbound (gensym)))
-    (dolist (slot (pcl:class-slots (pcl:class-of instance)))
-      (let ((name (slot-value slot 'pcl::name)))
-        (push (cons name (if (slot-boundp instance name)
-                             (slot-value instance name)
-                             unbound)) ss)))
-    (cons :snapshot (cons unbound ss))))
-
 (defmethod instance-restore ((instance standard-db-object) ss)
   (destructuring-bind (snapshot-tag unbound-marker &rest slots)
       ss