anchor.diff:  (cl:defpackage #:sykosomatic.db
  -  (:use :cl :alexandria :postmodern)
  -  (:export :id :defdao :init-db :with-db :dblog :rebuild-table
  +  (:use :cl :alexandria :postmodern
  +        :sykosomatic.util)
  +  (:export :id :defdao :init-db
  +           :with-db
  +           :get-connection
  +           :done-with-connection
  +           :dblog :rebuild-table
              :rebuild :drop-table :drop-all-tables
              :assert-validation :with-validation :assert-required))
   (cl:in-package #:sykosomatic.db)
  
positive.code: 
  (defgeneric id (dao))
  
  ;; Forms
  (defvar *validation-errors*)
  
  
negative.code:               when form
                collect form)))))
  
  (defun drop-table (symbol)
    (with-db ()
      (query (format nil "drop table if exists ~A" (sql-compile symbol)))))
  