anchor.diff:                (word (+ address 5)) (make-fixnum 0))
           (setf (gethash name (if keywordp *keyword-table* *symbol-table*)) address))))
   
  +(defun resolve-setf-symbol (symbol)
  +  (or (gethash (symbol-name symbol) *setf-table*)
  +      (let ((name (symbol-name symbol))
  +            (address (allocate 6)))
  +        (setf (word address) (make-value (store-string name)
  +                                         +tag-array-like+)
  +              (word (+ address 1)) (make-value (gethash "NIL" *symbol-table*) +tag-symbol+)
  +              (word (+ address 2)) (make-value 0 +tag-unbound-value+)
  +              (word (+ address 3)) (make-value *undefined-function-address* +tag-function+)
  +              (word (+ address 4)) (make-value (gethash "NIL" *symbol-table*) +tag-symbol+)
  +              (word (+ address 5)) (make-fixnum 0))
  +        (setf (gethash name *setf-table*) address))))
  +
   ;; fixme, nil and t should be constant.
   (defun create-support-objects ()
     "Create NIL, T and the undefined function thunk."
  
positive.code:   (let ((name (extract-object value)))
      (cond ((symbolp name)
             value)
            (t (error "TODO: setf symbols.")))))
  
  (defun load-source-file (file)
    (let ((llf-path (merge-pathnames (make-pathname :type "llf" :defaults file)))
  
negative.code:                       (ecase what
                          ((nil t) (make-value (symbol-address (symbol-name what) nil)
                                                 +tag-symbol+))
                          ((:undefined-function undefined-function)
                           (make-value *undefined-function-address* +tag-function+)))))
             (length (ecase type
                       (:signed32 (check-type value (signed-byte 32))
                                  4)
  