X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fbenchmarks.lisp;h=66800eb530df19c37fb88fb5eb3a1fa4c6f82920;hb=36509b8d390e94b2b0f8e681c09d5e89452978d8;hp=c6b0be0cb7d5a7ac06b2c122b0a4b337dae0d6e0;hpb=131603d1f5661779b00c5cfa79ecceace1078b1d;p=clsql.git

diff --git a/tests/benchmarks.lisp b/tests/benchmarks.lisp
index c6b0be0..66800eb 100644
--- a/tests/benchmarks.lisp
+++ b/tests/benchmarks.lisp
@@ -3,7 +3,7 @@
 ;;;; File:    benchmarks.lisp
 ;;;; Authors: Kevin Rosenberg
 ;;;; Created: 03/05/2004
-;;;; Updated: $Id: test-init.lisp 9212 2004-05-03 18:44:03Z kevin $
+;;;; Updated: $Id$
 ;;;;
 ;;;; Benchmark suite
 ;;;;
@@ -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))