anchor.diff:  
   
   
  -(declaim (ftype (function (tvar t fixnum) (values t)) set-tvar-value-and-version)
  +(declaim (ftype (function (tvar t atomic-counter-num) (values t))
  +		set-tvar-value-and-version)
            (inline
              set-tvar-value-and-version))
   
  
positive.code:   "Set the VALUE and VERSION of VAR. If lock is a bit inside TVAR version,
  also set it (which may unlock VAR!). Return VALUE."
    (declare (type tvar var)
             (type fixnum version))
  
    (progn
      ;; if we have memory barriers, we MUST use them
  
negative.code: 
  
  
  (declaim (ftype (function (tvar) (values t atomic-counter-num bit))
  		tvar-value-and-version-or-fail)
           (inline
             tvar-value-and-version-or-fail))
  
  