anchor.diff:  	  (%error "list expected"))
       (dolist (i lst)
         (if (consp i)
  -		  (if (funcall (or test eql) key (car i))
  +		  (if (funcall (or test #'eql) key (car i))
   	  	  	  (return i))
   		  (and (print i)
   			   (%error "not a pair"))))))
  
positive.code: 	  (%error "list expected"))
      (dolist (i lst)
        (if (consp i)
  		  (if (funcall (or test eql) key (car i))
  	  	      (return i))
  		  (%error "not a pair")))))
  
  (defun %setf-assoc (new-value key x &key test)
    (if (listp x)
        (when x
  		(if (funcall (or test eql) key (car x))
              (rplaca lst new-value)
  			(%setf-assoc new-value key (cdr x) :test test)))
  	  (%error "not a pair")))
  
negative.code: ;;;; TRE  environment
  ;;;; Copyright (C) 2005-2006,2009 Sven Klose <pixel@copei.de>
  ;;;;
  ;;;; Associative lists
  
  