anchor.diff:      (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.
  
positive.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)
    (backtrace)
    (loop))
  
  (defun eval (form)
    (typecase form
  
negative.code: (write-to-the-screen "Hello, World!")
  
  (defun sys.int::raise-undefined-function (invoked-through)
    (error 'undefined-function :name symbol))
  
  (defun sys.int::raise-unbound-error (symbol)
    (error 'unbound-variable :name symbol))
  
  (defun poll-keyboard ()
    (loop (let ((cmd (system:io-port/8 #x64)))
  