nil *default-database* problem w/patch

I think I've discovered a bug in oodml.lisp, in clsql-3.1.7.

If you try to call update-instance-from-records from within a
with-database form while *default-database* is nil, you get a database
error saying that "NIL is not a database".

There is just a missing :database parameter in update-instance-from-records.
A diff of the file between versions 3.1.6 and 3.1.7 shows that the same
ommission was fixed in several other functions, but it looks like you
missed a spot. :-)

Thanks,
-A

			Linux: The ultimate video game.


*** clsql-3.1.7/sql/oodml.lisp	2005-02-10 07:12:18.000000000 -0600
--- lisplibs/clsql-3.1.7/sql/oodml.lisp	2005-03-17 15:33:00.000000000 -0600
***************
*** 263,269 ****
           (res (apply #'select (append (mapcar #'cdr sels)
                                        (list :from  view-table
                                              :where view-qual)
! 				      (list :result-types nil)))))
      (when res
        (get-slot-values-from-view instance (mapcar #'car sels) (car res)))))

--- 263,270 ----
           (res (apply #'select (append (mapcar #'cdr sels)
                                        (list :from  view-table
                                              :where view-qual)
! 				      (list :result-types nil
! 					    :database vd)))))
      (when res
        (get-slot-values-from-view instance (mapcar #'car sels) (car res)))))