anchor.diff:            (find-rule (current-engine) query-name))
         (values nil))))
   
  -#+ignore
  -(defun normalize-query (body)
  -  (let ((varlist '())
  -        (index 0))
  -    (flet ((map-variable (var)
  -             (let ((item (cdr (assoc var varlist))))
  -               (when (null item)
  -                 (setf item
  -                   (make-symbol (format nil "?_~D" (incf index))))
  -                 (setf varlist (acons var item varlist)))
  -               (values item))))
  -      (mapcar #'(lambda (obj)
  -                  (if (variablep obj) (map-variable obj) obj))
  -              (flatten body)))))
  -
   (defun normalize-query (body)
     (let ((varlist '())
           (index 0))
  
positive.code: ;;; 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 $
  
  (in-package "LISA")
  
  
negative.code:                       (prin1-to-string (map-variable obj)))
                       ((stringp obj) obj)
                       (t (prin1-to-string obj)))))
        (mapcar #'(lambda (pattern)
                    (sort (mapcar #'transform (flatten pattern))
                          #'string<))
                body))))
               
  