anchor.diff:      (unless in-phrase
         (error "Missing OF or IN iteration path."))
       (unless from-phrase
  -      (setq from-phrase '(clsql:*default-database*)))
  +      (setq from-phrase '(clsql-base:*default-database*)))
   
       (unless (consp iter-var)
         (setq iter-var (list iter-var)))
  
positive.code: 			      'loop-record-result-set-))
  	     (step-var (ansi-loop::loop-gentemp 'loop-record-step-)))
  	 (push `(when ,result-set-var
  		  (clsql:database-dump-result-set ,result-set-var ,db-var))
  	       ansi-loop::*loop-epilogue*)
  	 `(((,variable nil ,@(and data-type (list data-type)))
  	    (,query-var ,(first in-phrase))
  
negative.code:     (unless in-phrase
        (ansi-loop::loop-error "Missing OF or IN iteration path."))
      (unless from-phrase
        (setq from-phrase '(clsql-base:*default-database*)))
  
      (unless (consp variable)
        (setq variable (list variable)))
  