anchor.diff:     (caar (database-query 
   	  (concatenate 'string "SELECT last_value FROM " 
   		       (%sequence-name-to-table sequence-name))
  -	  database
  -	  :auto))))
  +	  database :auto nil))))
   
   (defmethod database-create (connection-spec (type (eql :aodbc)))
     (warn "Not implemented."))
  
positive.code: 
  (when (find-package :dbi)
    (clsql-sys:database-type-load-foreign :aodbc)) 
  
  (defmethod database-initialize-database-type ((database-type (eql :aodbc)))
    t)
  
  
  ;; AODBC interface
  
negative.code: 	   (car (database-query 
  		 (concatenate 'string "SELECT last_value,is_called FROM " 
  			      table-name)
  		 database :auto nil))))
       (cond
         ((char-equal (schar (second tuple) 0) #\f)
  	(database-execute-command
  