anchor.diff:      ((nil)
        (cons car cdr))
       (:pinned
  +     (sys.int::%atomic-fixnum-add-symbol '*bytes-consed* 32)
        (%cons-in-pinned-area car cdr))
       (:wired
  +     (sys.int::%atomic-fixnum-add-symbol '*bytes-consed* 32)
        (%cons-in-wired-area car cdr))))
   
   #+x86-64
  
positive.code:         *general-fast-path-hits* 0
          *general-allocation-count* 0
          *cons-fast-path-hits* 0
          *cons-allocation-count* 0))
  
  (defun verify-freelist (start base end)
    (do ((freelist start (freelist-entry-next freelist))
  
negative.code:   (sys.lap-x86:mov64 :rbx (:constant *cons-allocation-count*))
    (sys.lap-x86:mov64 :rbx (:object :rbx #.sys.int::+symbol-value+))
    (sys.lap-x86:add64 (:object :rbx #.sys.int::+symbol-value-cell-value+) #.(ash 1 sys.int::+n-fixnum-bits+))
    (sys.lap-x86:mov64 :rbx (:constant *bytes-consed*))
    (sys.lap-x86:mov64 :rbx (:object :rbx #.sys.int::+symbol-value+))
    (sys.lap-x86:add64 (:object :rbx #.sys.int::+symbol-value-cell-value+) #.(ash 16 sys.int::+n-fixnum-bits+))
    ;; Big hammer, disable interrupts. Faster than taking locks & stuff.
    (sys.lap-x86:cli)
    ;; Check argument count.
  