anchor.diff:  
   ;;; (table-get-all) -> (#<TABLE> #<TABLE> ...)
          (defun ,(symb name 'get-all) ()
  +         (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
            (with-pg
              (select-dao ',name)))
          (export ',(symb name 'get-all))
   
   ;;; (table-get "uid") -> #<TABLE>
          (defun ,(symb name 'get) (id)
  +         (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
            (with-pg
              (get-dao ',name id)))
          (export ',(symb name 'get))
  
positive.code: ;;; (defvar x (table-get "uid"))
  ;;; (table-delete x)
         (defun ,(symb name 'delete) (,name)
           (with-pg
             (delete-dao ,name)))
         (export ',(symb name 'delete))
  
negative.code: ;;; (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))
  