anchor.diff:  ;;;; write the rest of the functions from arc
   ;;;; figure out why code won't compile
   
  -(load "./aliases.lisp")
  +(load "aliases.lisp")
   
   (def single (xs)
     "A predicate for testing whether a list has only one element"
  
positive.code: 
  (mac rec (withses &body body)
    "Same as loop in Anarki. Look for use cases"
    (lets w (pair withses)
      `(funcall (rfn recur ,(mapf #'car w) ,@body) ,@(mapf #'cadr w))))
  
  (def del (test xs)
    "Deletes all of the elements that pass test in the list xs. If test
     is a function all objects passing the test are removed. If test is
     anything else, all objects iso with it are removed"
    (lets f (testify test)
      (rec (xs xs)
        (lf (no xs)
  	    '()
  
negative.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
  