anchor.diff:          ;; Copy machine code into the area.
           (dotimes (i (truncate (length mc) 8))
             (setf (word (+ address i)) (nibbles:ub64ref/le mc (* i 8))))
  +        ;; Set header word.
  +        (setf (word address) (logior (ash (truncate (length mc) 16) 16)
  +                                     (ash (length constants) 32)))
           ;; Write constant pool.
           (dotimes (i (length constants))
             (cond ((assoc (aref constants i) constant-values)
  
positive.code: 
  (defparameter *source-files*
    '("../cold/test.lisp"))
  
  ;; name, allocation mode, initial size (2MB pages), <2gb addresses only.
  (defparameter *initial-areas*
  
negative.code: (defun resolve-function-name (value)
    (let ((name (extract-object value)))
      (cond ((symbolp name)
             value)
            (t (error "TODO: setf symbols.")))))
  
  