anchor.diff:    (let ((name (extract-object value)))
       (cond ((symbolp name)
              value)
  -          (t (error "TODO: setf symbols.")))))
  +          ((and (= (list-length name) 2)
  +                (eql (first name) 'setf)
  +                (symbolp (second name)))
  +           (make-value (resolve-setf-symbol (second name)) +tag-symbol+))
  +          (t (error "Unknown function name ~S." name)))))
   
   (defun load-source-file (file)
     (let ((llf-path (merge-pathnames (make-pathname :type "llf" :defaults file)))
  
positive.code:       (setf (aref seq i) (code-char (load-character stream))))
      seq))
  
  (defun llf-next-is-unbound-p (stream)
    (let ((current-position (file-position stream)))
      (cond ((eql (read-byte stream) +llf-unbound+)
  
negative.code:                name))
        (let ((address (allocate 6)))
          (setf (word address) (make-value (store-string name)
                                           +tag-array-like+)
                (word (+ address 1)) (make-value (gethash "T" *symbol-table*) +tag-symbol+)
                (word (+ address 2)) (if keywordp
                                         (make-value address +tag-symbol+)
  