r9336: 12 May 2004 Kevin Rosenberg (kevin@rosenberg.net)

[clsql.git] / tests / benchmarks.lisp

diff --git a/tests/benchmarks.lisp b/tests/benchmarks.lisp
index c6b0be0cb7d5a7ac06b2c122b0a4b337dae0d6e0..ec281d4df860e77f1b49864b6e8b3ffc36abf853 100644 (file)
--- a/tests/benchmarks.lisp
+++ b/tests/benchmarks.lisp
@@ -74,9 +74,9 @@
        (mapcar #'(lambda (ea) (slot-value ea 'address)) (select 'employee-address :flatp t))))
 
     (format *report-stream* "~&~%*** JOINED OBJECT QUERY RETRIEVAL DEFERRED ***~%")
        (mapcar #'(lambda (ea) (slot-value ea 'address)) (select 'employee-address :flatp t))))
 
     (format *report-stream* "~&~%*** JOINED OBJECT QUERY RETRIEVAL DEFERRED ***~%")

-    (let* ((slotdef (find 'address (clsql::class-slots (find-class 'employee-address))
-                         :key #'clsql::slot-definition-name))
-          (dbi (when slotdef (clsql::view-class-slot-db-info slotdef))))
+    (let* ((slotdef (find 'address (clsql-sys::class-slots (find-class 'employee-address))
+                         :key #'clsql-sys::slot-definition-name))
+          (dbi (when slotdef (clsql-sys::view-class-slot-db-info slotdef))))

       (setf (gethash :retrieval dbi) :deferred)
       (time
        (dotimes (i (truncate n 10))
       (setf (gethash :retrieval dbi) :deferred)
       (time
        (dotimes (i (truncate n 10))