r9309: fix recording reversion

tests/test-init.lisp: Change a :column attribute
        to test symbols as value

diff --git a/ChangeLog b/ChangeLog
index ee9f43b14cdc2433c090e192c24658033f8162e2..a03088506ab71458a5f064a53418a3e7cd1e9a3f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,10 @@
 10 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
        * sql/kmr-mop.lisp: Explicitly check slot order and
        store as a cl:*feature*
+       * sql/recording.lisp: Remove additional types to
+       increase CommonSQL conformance.
+       * tests/test-init.lisp: Change a :column attribute
+       to test symbols as value
        
 9 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
        * Version 2.10.15

diff --git a/base/basic-sql.lisp b/base/basic-sql.lisp
index 258832d573b738d7bb749f164e2f09b948758612..a7d32cfba64a92d3278750975fae24c2f92929cb 100644 (file)
--- a/base/basic-sql.lisp
+++ b/base/basic-sql.lisp
@@ -31,13 +31,13 @@ that expression and a list of field names selected in sql-exp."))
 
 (defmethod query ((query-expression string) &key (database *default-database*)
                   (result-types :auto) (flatp nil) (field-names t))
-  (record-sql-action query-expression :query database)
+  (record-sql-command query-expression database)
   (multiple-value-bind (rows names) (database-query query-expression database result-types
                                                     field-names)
     (let ((result (if (and flatp (= 1 (length (car rows))))
                       (mapcar #'car rows)
                     rows)))
-      (record-sql-action result :result database)
+      (record-sql-result result database)
       (if field-names
          (values result names)
        result))))
@@ -55,9 +55,9 @@ pair."))
 
 (defmethod execute-command ((sql-expression string)
                             &key (database *default-database*))
-  (record-sql-action sql-expression :command database)
+  (record-sql-command sql-expression database)
   (let ((res (database-execute-command sql-expression database)))
-    (record-sql-action res :result database))
+    (record-sql-result res database))
   (values))
 
 ;;; Large objects support

diff --git a/base/package.lisp b/base/package.lisp
index 1650d3e0f3adcdec11b21a2d5572118448852743..cef8cd95ace98cb7623bb0eea2c80d4242b9fa73 100644 (file)
--- a/base/package.lisp
+++ b/base/package.lisp
@@ -235,7 +235,8 @@
      #:mjd-to-gregorian
 
      ;; recording.lisp -- SQL I/O Recording 
-     #:record-sql-action
+     #:record-sql-command
+     #:record-sql-result
      #:add-sql-stream                 ; recording  xx
      #:delete-sql-stream                 ; recording  xx
      #:list-sql-streams                  ; recording  xx

diff --git a/sql/package.lisp b/sql/package.lisp
index ff6ec173a1a40f5b3a5358dda5ae4e10ec2df541..1b887ed46cc99d9fdc6525705930f33d49691ac6 100644 (file)
--- a/sql/package.lisp
+++ b/sql/package.lisp
@@ -209,7 +209,8 @@
 
        
        ;; recording.lisp -- SQL I/O Recording 
-       #:record-sql-action
+       #:record-sql-command
+       #:record-sql-result
        #:add-sql-stream                   ; recording  xx
        #:delete-sql-stream                ; recording  xx
        #:list-sql-streams                 ; recording  xx

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 6034918aa4502d691c94830ceefb22a3fd9d5ff4..ed949879c440b32c3a5ffd5116845f929d994fb6 100644 (file)
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -145,7 +145,7 @@
     :type (string 30)
     :initarg :city)
    (postal-code
-    :column "zip"
+    :column zip
     :type integer
     :void-value 0
     :initarg :postal-code))