anchor.diff:       `(funcall ,',sym ,@body)))
   
   (defgeneric access (obj arg)
  -  (:documentation "Allows access into any kind of type."))
  +  (:documentation "Returns whatever is associated with ARG in OBJ."))
   
   (defmethod access ((seq sequence) (n number))
     "Returns the Nth element of a sequence."
     (elt seq n))
  -
  -(defmethod access ((seq sequence) (s symbol))
  -  "Calls the function named by S on the sequence."
  -  (funcall s seq))
   
   (defmethod access ((tab hash-table) x)
     "Returns whatever is stored in TAB under X."
  
positive.code: 
  (mac w/ssyntax (&body body)
    "Allows BODY to use ssyntax."
    (let syms (keep #'ssyntax (redup (keep #'symbolp (flat (list body)))))
      `(macrolet ,(map #'ssyntax-macro syms)
         (symbol-macrolet ,(map #'ssyntax-sym-mac syms)
           ,@body))))
  
  (defparameter ssyntax-tests* '()
  
negative.code: (def ssyntax-sym-mac (sym)
    "Given a symbol that has ssyntax, returns the symbol-macrolet binding
     for it to be transformed into what it is supposed to be."
    (aand (ssyntax sym)
          (gethash (car it) ssyntax-sym-macs*)
          (funcall it sym (symbol-name sym))))
  
  (def ssyntax-macro (sym)
    "Given a symbol that has ssyntax, returns the macrolet definition for
     it to be a macro and expand correctly."
    (aand (ssyntax sym)
          (gethash (car it) ssyntax-macros*)
          (funcall it sym (symbol-name sym))))
  
  (defssyntax-test notf (sym name)
    (declare (ignore sym))
  