anchor.diff:  (def keys (tab)
     "Evaluates to all of the keys in the hash table tab"
     (ret result '()
  -    (maphash (fn (k v) (push k result)) tab)))
  +    (maphash (fn (k v)
  +		 (declare (ignore v))
  +		 (push k result))
  +	     tab)))
   
   (def vals (tab)
     "Evaluatates to all of the values in the table tab"
     (ret result '()
  -    (maphash (fn (k v) (push v result)) tab)))
  +    (maphash (fn (k v)
  +		 (declare (ignore k))
  +		 (push v result))
  +	     tab)))
   
   (def listtab (xs)
     "Evaluates to a table which is equivalent to the alist xs"
  
positive.code: 
  (mac awhen (expr &body body)
     "Analog of alf but for when"
    `(let1 it ,expr (lf it (progn ,@body)))) ; change name of progn
  
  (mac aand (&rest args)
    "Evaluates each argument one by one. Binds the result of the previous
  
negative.code:       (single body)
          (car body)
        `(let1 it ,(car body)
  	(declare (ignorable it))
          (ado ,@(cdr body)))))
  
  (mac accum (accfn &body body)
  