anchor.diff:  
   #-x86-64
   (defun %allocate-from-general-area (tag data words)
  +  (sys.int::%atomic-fixnum-add-symbol '*general-allocation-count* 1)
     (%slow-allocate-from-general-area tag data words))
   
   (defun %slow-allocate-from-general-area (tag data words)
  
positive.code:   ;; Check argument count.
    (sys.lap-x86:cmp64 :rcx #.(ash 3 #.sys.int::+n-fixnum-bits+))
    (sys.lap-x86:jne SLOW-PATH-INTERRUPTS-ENABLED)
    ;; Assemble the final header value in RDI.
    (sys.lap-x86:mov64 :rdi :r9)
    (sys.lap-x86:shl64 :rdi #.(- sys.int::+object-data-shift+ sys.int::+n-fixnum-bits+))
  
negative.code: 
  #-x86-64
  (defun cons (car cdr)
    (sys.int::%atomic-fixnum-add-symbol '*cons-allocation-count* 1)
    (slow-cons car cdr))
  
  (defun slow-cons (car cdr)
  