anchor.diff:        (when (string= name (symbol-name (aref pkg i)))
           (return (values (aref pkg i) :internal))))))
   
  +(defun %defpackage (&rest args)
  +  (declare (ignore args)))
  +
  +(defun export (&rest args)
  +  (declare (ignore args)))
  +
  +;;; The compiler can only handle (apply function arg-list).
  +(defun apply (function arg &rest more-args)
  +  (declare (dynamic-extent more-args))
  +  (cond (more-args
  +         ;; Convert (... (final-list ...)) to (... final-list...)
  +         (do* ((arg-list (cons arg more-args))
  +               (i arg-list (cdr i)))
  +              ((null (cddr i))
  +               (setf (cdr i) (cadr i))
  +               (apply function arg-list))))
  +        (t (apply function arg))))
  +
   ;;; TODO: This requires a considerably more flexible mechanism.
   ;;; 12 is where the TLS slots in a stack group start.
   (defparameter *next-symbol-tls-slot* 12)
  
positive.code:          (error "TODO: character peek."))
          (t (error "Bad peek type ~S." peek-type))))
  
  (defun raise-undefined-function (invoked-through &rest args)
    (declare (ignore args))
    (write-char #\!)
    (write-char #\#)
    (when (symbolp invoked-through)
      (write-string (symbol-name invoked-through)))
    (loop (%hlt)))
  
  (defun raise-unbound-error (symbol)
    (write-char #\!)
    (write-char #\*)
    (write-string (symbol-name symbol))
    (loop (%hlt)))
  
  (defun raise-type-error (datum expected-type)
  
negative.code:   (write-line "Hello, world.")
    (setf *print-base* 10.
          *print-escape* t
          *print-readably* nil
          *print-safe* t)
    ;; Hook SETF symbols up.
    (dotimes (i (length *initial-setf-obarray*))
      (let* ((sym (svref *initial-setf-obarray* i))
  