anchor.diff:  (clsql:locally-enable-sql-reader-syntax)
   
   ;;;;;; Our helper functions ;;;;;;;
  +(defun flatten-results (rlist)
  +  (mapcar #'first rlist))
  +
   (defgeneric query-wordnet (wordnet)
     (:documentation "Our generic function that'll query wordnet"))
   
  
positive.code: 	  (clsql:select tbl
  			:where [= srcword word]
  			:order-by order-by
  			:database db)
  	  (clsql:select tbl
  			:where [= srcword word]
  			:database db))))
  	  
  (defun list-word-defs (word)
    (dolist (obj (query-db :word word :tbl 'worddef)) 
      (format t "Definition: ~a~%" (slot-value (first obj) 'definition))))
  
  (defun list-word-parse (word)
    (dolist (obj (query-db :word word :tbl 'wordparse))
  
negative.code: ; to join up the tables as needed.
  ;
  ;
  (defpackage :wordnet
    (:use :cl :clsql-odbc :clsql-sqlite3)
    (:export :connect-wordnet-mssql
  