anchor.diff:    (if args
         (format nil "INT(~A)" (car args))
         "INT"))
  +
  +(defmethod database-get-type-specifier ((type (eql 'bigint)) args database)
  +  (declare (ignore args database))
  +  "BIGINT")
                 
   (defmethod database-get-type-specifier ((type (eql 'simple-base-string)) args
                                           database)
  
positive.code: (defmethod read-sql-value (val (type (eql 'boolean)) database)
    (declare (ignore database))
    (equal "t" val))
  
  (defmethod read-sql-value (val (type (eql 'wall-time)) database)
    (declare (ignore database))
  
negative.code:   (declare (ignore database))
    (etypecase val
      (string
       (parse-integer val))
      (number val)))
  
  (defmethod read-sql-value (val (type (eql 'bigint)) database)
    (declare (ignore database))
    (etypecase val
      (string
       (parse-integer val))
      (number val)))
  
  (defmethod read-sql-value (val (type (eql 'float)) database)
  