r11859: Canonicalize whitespace

[clsql.git] / tests / benchmarks.lisp

diff --git a/tests/benchmarks.lisp b/tests/benchmarks.lisp
index 66800eb530df19c37fb88fb5eb3a1fa4c6f82920..a39f49b036f45d7e92ceaceef462aa0977195430 100644 (file)
--- a/tests/benchmarks.lisp
+++ b/tests/benchmarks.lisp
@@ -26,18 +26,18 @@
       :type (string 100))
    (c :initarg :c
       :type float)))
       :type (string 100))
    (c :initarg :c
       :type float)))

-   
+

 (defun run-benchmarks (&key (report-stream *standard-output*) (sexp-report-stream nil) (count 10000))
   (let ((specs (read-specs))
 (defun run-benchmarks (&key (report-stream *standard-output*) (sexp-report-stream nil) (count 10000))
   (let ((specs (read-specs))

-       (*report-stream* report-stream)
-       (*sexp-report-stream* sexp-report-stream))
+        (*report-stream* report-stream)
+        (*sexp-report-stream* sexp-report-stream))

     (unless specs
       (warn "Not running benchmarks because test configuration file is missing")
       (return-from run-benchmarks :skipped))
     (load-necessary-systems specs)
     (dolist (db-type +all-db-types+)
       (dolist (spec (db-type-spec db-type specs))
     (unless specs
       (warn "Not running benchmarks because test configuration file is missing")
       (return-from run-benchmarks :skipped))
     (load-necessary-systems specs)
     (dolist (db-type +all-db-types+)
       (dolist (spec (db-type-spec db-type specs))

-       (do-benchmarks-for-backend db-type spec count))))
+        (do-benchmarks-for-backend db-type spec count))))

   (values))
 
 (defun do-benchmarks-for-backend (db-type spec count)
   (values))
 
 (defun do-benchmarks-for-backend (db-type spec count)


@@ -75,10 +75,10 @@
 
     (format *report-stream* "~&~%*** JOINED OBJECT QUERY RETRIEVAL DEFERRED ***~%")
     (let* ((slotdef (find 'address (clsql-sys::class-slots (find-class 'employee-address))
 
     (format *report-stream* "~&~%*** JOINED OBJECT QUERY RETRIEVAL DEFERRED ***~%")
     (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))))
+                          :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))

-        (mapcar #'(lambda (ea) (slot-value ea 'address)) (select 'employee-address :flatp t))))
+         (mapcar #'(lambda (ea) (slot-value ea 'address)) (select 'employee-address :flatp t))))

       (setf (gethash :retrieval dbi) :immediate))))
       (setf (gethash :retrieval dbi) :immediate))))