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