X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Fbenchmarks.lisp;h=ec281d4df860e77f1b49864b6e8b3ffc36abf853;hp=c6b0be0cb7d5a7ac06b2c122b0a4b337dae0d6e0;hb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;hpb=09f07ac9d914a83f9426609f3264f4e66b5a6d97

diff --git a/tests/benchmarks.lisp b/tests/benchmarks.lisp
index c6b0be0..ec281d4 100644
--- 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 ***~%")
-    (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))