anchor.diff:         (write-integer (logior (sys.int::%%value-address object)
                                 (sys.int::%%value-tag object))
                         16)
  -       (write-char #\>))))
  +       (write-char #\>)))
  +  object)
   
   (defun fmakunbound (name)
     (sys.int::%fmakunbound (sys.int::function-symbol name))
     name)
   
  +(setf *package* (find-package "CL-USER"))
   (loop
      (fresh-line)
      (write-char #\>)
      (let ((form (read)))
        (fresh-line)
  -     (write (eval form))))
  +     (let ((result (eval form)))
  +       (fresh-line)
  +       (write result))))
  
positive.code:     (cons
       (write-char #\()
       (write (car object))
       (write-string " . ")
       (write (cdr object))
       (write-char #\)))
      (symbol (write-string (symbol-name object)))
      (string
       (write-char #\")
       (dotimes (i (length object))
  
negative.code:   (prog1 (sys.int::%make-symbol *bump-pointer* (sys.int::simplify-string name))
      (incf *bump-pointer* (* 8 6))))
  
  (defun sys.int::raise-type-error (datum expected)
    (fresh-line)
    (write-string "Type error. Expected ")
    (write expected)
    (write-string " got ")
    (write datum)
    (terpri)
    (loop))
  
  (defun eval (form)
    (typecase form
      (symbol (symbol-value form))
      (cons (case (first form)
              ((function) (symbol-function (second form)))
              ((quote) (second form))
              ((setq) (setf (symbol-value (second form)) (eval (third form))))
              (t (apply (first form) (mapcar 'eval (rest form))))))
      (t form)))
  
  