anchor.diff:  			  :preposition-groups '((:of :in) (:from))
   			  :inclusive-permitted nil)
   
  -#+lispworks (in-package loop)
  +#+lispworks 
  +(eval-when (:compile-toplevel :load-toplevel :execute)
  +  (in-package loop))
   
   #+lispworks
   (cl-user::define-loop-method (record records tuple tuples) clsql-loop-method 
  
positive.code: 	  ()
  	  ())))
        (t
         (let ((query-var (gensym 'loop-record-))
  	     (db-var (gensym 'loop-record-database-))
  	     (result-set-var (gensym 'loop-record-result-set-)))
  	 (values
  	  t
  	  nil
  
negative.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
  