anchor.diff:  
   (defun array-values (array positions)
     "This function returns a list of the values in array found at the specified
  -  positions."
  +positions."
     (assert (arrayp array))
     (assert (listp positions))
     (mapcar #'(lambda (position)
  
positive.code: 
  (defun conjoin (predicate &rest predicates)
    "This function takes in one or more predicates, and returns a predicate that
    returns true whenever all of the predicates return true.  This is from Paul
    Graham's ``ANSI Common Lisp'' and is based upon the conjoin function from
    Dylan, a programming language which he describes as a ``cross between Scheme
    and Common Lisp, with a syntax like Pascal.''"
    (assert (or (functionp predicate)
                (symbolp predicate)))
    (dolist (predicate predicates)
  
negative.code: 
  (defun curry (function &rest arguments)
    "This function takes in a function and some of its arguments, and returns a
  function that expects the rest of the required arguments.  This is from Paul
  Graham's ``ANSI Common Lisp'' and is based upon the curry function from
  Dylan, a programming language which he describes as a ``cross between Scheme
  and Common Lisp, with a syntax like Pascal.''"
    (assert (or (functionp function)
                (symbolp function)))
    #'(lambda (&rest more-arguments)
  