anchor.diff:  (defvar *trailers* nil)
   (defvar *current-lambda-name* nil)
   (defvar *gc-info-fixups* nil)
  +(defvar *used-dynamic-extent* nil)
   
   (defconstant +binding-stack-gs-offset+ (- (* 1 8) sys.int::+tag-array-like+))
   (defconstant +tls-base-offset+ (- sys.int::+tag-array-like+))
  
positive.code:     (setf (aref *stack-values* rest-head) nil
            (aref *stack-values* rest-tail) nil)))
  
  (defun cg-form (form)
    (flet ((save-tag (tag)
  	   (when (and tag *for-value* (not (keywordp tag)))
  
negative.code:         (emit-rest-list lambda arg-registers)))
      ;; No longer in argument setup mode, switch over to normal GC info.
      (emit-gc-info)
      (let ((code-tag (let ((*for-value* (if *perform-tce* :tail :multiple)))
                        (cg-form `(progn ,@(lambda-information-body lambda))))))
        (when code-tag
          (load-multiple-values code-tag)
          (when *used-dynamic-extent*
            (flush-data-registers (eql code-tag :multiple)))
          (emit `(sys.lap-x86:leave)
                `(:gc :no-frame)
                `(sys.lap-x86:ret))))
  