[postmodern-devel] 0.22 regression?

[Feng Hou]

CL-USER> (deftable test-data ()
  ((field1 :type integer)
   (field2 :type (or string db-null))
   (field3 :type (numeric 10 3)))
   (:indices field1 field3))

CL-USER> (create-table 'test-data)

Database error 42601: syntax error at end of input
Query: CREATE TABLE test_data (field1 INTEGER NOT NULL, field2 TEXT
   [Condition of type DATABASE-ERROR]

  3: (CL-POSTGRES:EXEC-QUERY
      #<DATABASE-CONNECTION {BF30B39}>
      "CREATE TABLE test_data (field1 INTEGER NOT NULL, field2 TEXT"
      CL-POSTGRES:IGNORE-ROW-READER)
      Locals:
        CL-POSTGRES::CONNECTION = #<DATABASE-CONNECTION {BF30B39}>
        CL-POSTGRES::QUERY = "CREATE TABLE test_data (field1 INTEGER
NOT NULL, field2 TEXT"
        CL-POSTGRES:ROW-READER = CL-POSTGRES:IGNORE-ROW-READER