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: 	    (,result-set-var nil)
  	    (,step-var nil))
  	   ((multiple-value-bind (%rs %cols)
  		(clsql:database-query-result-set ,query-var ,db-var :result-types :auto)
  	      (setq ,result-set-var %rs ,step-var (make-list %cols))))
  	   ()
  	   ()
  	   (not (clsql:database-store-next-row ,result-set-var ,db-var ,step-var))
  	   (,variable ,step-var)
  	   (not ,result-set-var)
  	   ()
  	   (not (clsql:database-store-next-row ,result-set-var ,db-var ,step-var))
  	   (,variable ,step-var)))))))
  
  #+(or cmu scl sbcl openmcl allegro)
  
negative.code: 	    (,result-set-var nil)
  	    (,step-var nil))
  	  `((multiple-value-bind (%rs %cols)
  		(clsql-base:database-query-result-set ,query-var ,db-var :result-types :auto)
  	      (setq ,result-set-var %rs ,step-var (make-list %cols))))
  	  ()
  	  ()
  	  `((unless (clsql-base:database-store-next-row ,result-set-var ,db-var ,step-var)
  	      (when ,result-set-var
  		(clsql-base:database-dump-result-set ,result-set-var ,db-var))
  	      t))
  	  `(,iter-var ,step-var)
  	  `((unless (clsql-base:database-store-next-row ,result-set-var ,db-var ,step-var)
  	      (when ,result-set-var
  		(clsql-base:database-dump-result-set ,result-set-var ,db-var))
  	      t))
  	  `(,iter-var ,step-var)
  	  ()
  