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: 			  :preposition-groups '((:of :in) (:from))
  			  :inclusive-permitted nil)
  
  #+lispworks (in-package loop)
  
  #+lispworks
  (cl-user::define-loop-method (record records tuple tuples) clsql-loop-method 
  
negative.code: (defun clsql-loop-method (method-name iter-var iter-var-data-type 
  			  prep-phrases inclusive? allowed-preps 
  			  method-specific-data)
    (declare (ignore method-name inclusive? allowed-preps method-specific-data))
    (let ((in-phrase nil)
  	(from-phrase nil))
      (loop for (prep . rest) in prep-phrases
  