anchor.diff:  	  ()
   	  ())))
         (t
  -       (let ((query-var (gensym 'loop-record-))
  -	     (db-var (gensym 'loop-record-database-))
  -	     (result-set-var (gensym 'loop-record-result-set-)))
  +       (let ((query-var (gensym "LOOP-RECORD-"))
  +	     (db-var (gensym "LOOP-RECORD-DATABASE-"))
  +	     (result-set-var (gensym "LOOP-RECORD-RESULT-SET-")))
   	 (values
   	  t
   	  nil
  
positive.code:       (setq from-phrase '(clsql-base-sys:*default-database*)))
      (cond
        ((consp iter-var)
         (let ((query-var (gensym 'loop-record-))
  	     (db-var (gensym 'loop-record-database-))
  	     (result-set-var (gensym 'loop-record-result-set-))
  	     (step-var (gensym 'loop-record-step-)))
  	 (values
  	  t
  	  nil
  
negative.code: 			  :preposition-groups '((:of :in) (:from))
  			  :inclusive-permitted nil)
  
  #+lispworks 
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (in-package loop))
  
  #+lispworks
  (cl-user::define-loop-method (record records tuple tuples) clsql-loop-method 
  