anchor.diff:           (emit `(lap:ldr :x0 (:stack ,(second loc))))))
         (setf *x0-value* true-tag))
       (when kill
  -      (setf *load-list* (delete tag *load-list*)))))
  +      (kill-value tag))))
   
   (defun load-in-reg (reg tag &optional kill)
     (if (eql reg :x0)
  
positive.code: (defvar *current-lambda-name* nil)
  (defvar *gc-info-fixups* nil)
  (defvar *active-nl-exits* nil)
  
  (defconstant +binding-stack-gs-offset+ (- (* 7 8) sys.int::+tag-object+))
  
  
negative.code:          (*trailers* '())
           (arg-registers '(:x0 :x1 :x2 :x3 :x4))
           (*gc-info-fixups* '())
           (*active-nl-exits* '())
           (*literal-pool* (make-array 0 :adjustable t :fill-pointer 0)))
      ;; Check some assertions.
      ;; No keyword arguments, no special arguments, no non-constant
      ;; &optional init-forms and no non-local arguments.
  