anchor.diff:    (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)))
   
  
positive.code:        (write-integer (logior (sys.int::%%value-address object)
                                (sys.int::%%value-tag object))
                        16)
         (write-char #\>))))
  
  (defun fmakunbound (name)
    (sys.int::%fmakunbound (sys.int::function-symbol name))
    name)
  
  (loop
     (fresh-line)
     (write-char #\>)
     (let ((form (read)))
       (fresh-line)
       (write (eval form))))
  
negative.code:     (write-char #\Space)
      (write-integer (sys.int::memref-unsigned-byte-64 fp -2) 16)))
  
  (defun error (what &rest r)
    (fresh-line)
    (write-string "Error: ")
    (write what)
    (write-char #\Space)
    (write r)
    (fresh-line)
    (backtrace)
    (loop))
  
  