anchor.diff:    ;; Attempt to quickly allocate a cons. Will call SLOW-CONS if things get too hairy.
     ;; This is not even remotely SMP safe.
     ;; R8 = car; R9 = cdr
  +  ;; Update allocation meter.
  +  (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+))
     ;; Big hammer, disable interrupts. Faster than taking locks & stuff.
     (sys.lap-x86:cli)
     ;; Check argument count.
  
positive.code: 
  #-x86-64
  (defun cons (car cdr)
    (slow-cons car cdr))
  
  (defun slow-cons (car cdr)
  
negative.code: (sys.int::defglobal *allocator-lock*)
  (sys.int::defglobal *general-area-expansion-granularity*)
  (sys.int::defglobal *cons-area-expansion-granularity*)
  
  (sys.int::defglobal *general-fast-path-hits*)
  (sys.int::defglobal *general-allocation-count*)
  (sys.int::defglobal *cons-fast-path-hits*)
  (sys.int::defglobal *cons-allocation-count*)
  
  (defvar *maximum-allocation-attempts* 5
    "GC this many times before giving up on an allocation.")
  