anchor.diff:  ;;; Description: Macros and functions implementing LISA's initial query
   ;;; language implementation.
   
  -;;; $Id: retrieve.lisp,v 1.10 2002/04/06 03:46:08 youngde Exp $
  +;;; $Id: retrieve.lisp,v 1.11 2002/04/07 00:48:41 youngde Exp $
   
   (in-package "LISA")
   
  
positive.code:                       (prin1-to-string (map-variable obj)))
                       ((stringp obj) obj)
                       (t (prin1-to-string obj)))))
        (sort (mapcar #'transform (flatten body))
              #'string<))))
               
  
negative.code:           (find-rule (current-engine) query-name))
        (values nil))))
  
  (defun normalize-query (body)
    (let ((varlist '())
          (index 0))
  