anchor.diff:  	"VARCHAR"
         "VARCHAR(255)")))
   
  +(defmethod database-get-type-specifier ((type (eql 'universal-time)) args database)
  +  (declare (ignore args database))
  +  "BIGINT")
  +
   (defmethod database-get-type-specifier ((type (eql 'wall-time)) args database)
     (declare (ignore args))
     (case (database-underlying-type 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)
  