anchor.diff:  ;;; (setf (table-slot x) "Honk")
   ;;; (table-update x)
          (defun ,(symb name 'update) (,name)
  +         (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
            (with-pg
              (update-dao ,name)))
          (export ',(symb name 'update))
  
positive.code:        ;; Will throw an error if the indexes already exist.
  
         (defun ,(symb name 'create-indexes) ()
           (with-pg
             ,@ (mapcar (lambda (idx)
                          `(query (:create-index (quote ,(symb idx :idx)) :on ,(symbol-name name) :fields (quote ,idx))))
  
negative.code: 
         ;; Create the table if it doesn't exist.
         (defun ,(symb name 'create-table) ()
           (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
           (with-pg
             (unless (table-exists-p ',name)
               (execute (dao-table-definition ',name)))))
  