anchor.diff:  	  (clsql:select tbl
   			:where [= srcword word]
   			:order-by order-by
  -			:database db)
  +			:database db
  +			:flatp t)
   	  (clsql:select tbl
   			:where [= srcword word]
  -			:database db))))
  +			:database db
  +			:flatp t))))
   	  
   (defun list-word-defs (word)
     (dolist (obj (query-db :word word :tbl 'worddef)) 
  -    (format t "Definition: ~a~%" (slot-value (first obj) 'definition))))
  +    (format t "Definition: ~a~%" (slot-value obj 'definition))))
   
   (defun list-word-parse (word)
     (dolist (obj (query-db :word word :tbl 'wordparse))
  
positive.code: 			       :database-type :odbc
  			       :make-default t)))
  
  (defun connect-wordnet-sqlite ()
    (setf *sqlite* (clsql:connect '("/tmp/test.sqlite3") 
  				:database-type :sqlite3
  				:make-default nil)))
  
  
negative.code: ; to join up the tables as needed.
  ;
  ;
  (defpackage :wordnet
    (:use :cl :clsql-odbc :clsql-sqlite3)
    (:export :connect-wordnet-mssql
  