Changeset main,7 for main/xbase.lisp

Timestamp:

10/19/2007 05:48:34 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

main

revision id:

dsowen@tux-20071019174834-ccyug084mkzdnhpx

Message:

Wrap everything in explicit transactions for speed.

File:

• main/xbase.lisp (modified) (1 diff)

main/xbase.lisp

@@ -210 +210 @@
   (multiple-value-bind (db-name table-name) (split-name filename)
     (let ((recs (import-dbf filename table-name)))
-      (format t "~A;~%~%~%~%"
+      (format t "BEGIN;~%~%~%~%~A;~%~%~%~%"
               (slot-value (gethash 'import-struct *dbfs*) 'sql-create))
       (dolist (rec recs)
         (unless (/= (slot-value rec '%deleted) 32)
-          (format t "~A;~%~%" (sql-insert rec)))))))
+          (format t "~A;~%~%" (sql-insert rec))))
+      (format t "~%~%COMMIT;~%"))))
 
 (defun main ()