anchor.diff:    (sys.int::%fmakunbound (sys.int::function-symbol name))
     name)
   
  +(defparameter *debugger-depth* 0)
  +(defvar *debug-io* nil)
  +
  +(defun sys.int::enter-debugger (condition)
  +  (let* ((*standard-input* *debug-io*)
  +	 (*standard-output* *debug-io*)
  +	 (debug-level *debugger-depth*)
  +	 (*debugger-depth* (1+ *debugger-depth*))
  +	 (restarts (compute-restarts))
  +	 (restart-count (length restarts)))
  +    (fresh-line)
  +    (write condition :escape nil :readably nil)
  +    (write-char #\Space)
  +    (write-char #\()
  +    (write (class-name (class-of condition)))
  +    (write-char #\))
  +    (fresh-line)
  +    (show-restarts restarts)
  +    (loop
  +       (fresh-line)
  +       (write-string "Pick a restart# ")
  +       (let ((form (read)))
  +         (when (and (integerp form) (>= form 0) (< form restart-count))
  +           (invoke-restart-interactively (nth (- restart-count form 1) restarts)))))))
  +
  +(defun show-restarts (restarts)
  +  (let ((restart-count (length restarts)))
  +    (write-string "Available restarts:")(terpri)
  +    (do ((i 0 (1+ i))
  +	 (r restarts (cdr r)))
  +	((null r))
  +      (write i)
  +      (write-char #\Space)
  +      (write (restart-name (car r)))
  +      (terpri))))
  +
  +(defun sys.int::%invalid-argument-error (&rest args)
  +  (fresh-line)
  +  (write-string "Invalid arguments to function")
  +  (fresh-line)
  +  (backtrace)
  +  (loop))
  +
  +(defun copy-list (list)
  +  (when list
  +    (cons (car list) (copy-list (cdr list)))))
  +
   (setf *package* (find-package "CL-USER"))
   (loop
  -   (fresh-line)
  -   (write-char #\>)
  -   (let ((form (read)))
  +   (with-simple-restart (continue "Carry on chaps.")
        (fresh-line)
  -     (let ((result (eval form)))
  +     (write-char #\>)
  +     (let ((form (read)))
          (fresh-line)
  -       (write result))))
  +       (let ((result (eval form)))
  +         (fresh-line)
  +         (write result)))))
  
positive.code:      (write-char #\Space)
       (write-integer (sys.int::lisp-object-address object) 16)
       (write-char #\>))
      (t (write-char #\#)
         (write-char #\<)
         (write-string "Unknown-object ")
  
negative.code:     (incf *bump-pointer* (truncate total-size 8))
      ;; Return value.
      (sys.int::%%assemble-value address #b0111)))
  
  (defun sys.int::%allocate-and-fill-array (length real-element-type initial-element)
    (let ((array (sys.int::%allocate-and-clear-array length real-element-type)))
      (dotimes (i length)
        (setf (aref array i) initial-element))
      array))
  
  (defun sys.int::make-simple-vector (length)
    "Allocate a SIMPLE-VECTOR with LENGTH elements.
  