anchor.diff:        href =-href
         ? functional
         builtin? macro?
  -      %%macroexpand %%macrocall %%%macro?))
  +      %%macroexpand %%macrocall %%%macro?
  +      %princ %force-output))
   
   (defun make-keyword (x)
     (values (intern (symbol-name x) "KEYWORD")))
  
positive.code:                                                       x)))
                                         x)))
  
  (defun =-aref (v x i)
    (setf (aref x i) v))
  
  (defmacro %set-atom-fun (x v) `(setf (symbol-function ',x) ,v))
  
  
negative.code: (defun %< (&rest x) (apply #'< (chars-to-numbers x)))
  (defun %> (&rest x) (apply #'> (chars-to-numbers x)))
  
  (defun string== (a b) (string= a b))
  
  (defun list-string (x)
    (apply #'concatenate 'string (mapcar #'(lambda (x)
  