anchor.diff:    (sys.lap-x86:ret))
   
   (sys.int::define-lap-function %allocate-from-general-area ((tag data words))
  -  (:gc :no-frame :layout #*0)
  +  (:gc :no-frame :layout #*0 :incoming-arguments :rcx)
     ;; Attempt to quickly allocate from the general area. Will call
     ;; %SLOW-ALLOCATE-FROM-GENERAL-AREA if things get too hairy.
     ;; R8 = tag; R9 = data; R10 = words
     ;; Check argument count.
     (sys.lap-x86:cmp64 :rcx #.(ash 3 #.sys.int::+n-fixnum-bits+))
     (sys.lap-x86:jne SLOW-PATH-BAD-ARGS)
  +  (:gc :no-frame :layout #*0)
     ;; Update allocation meter.
     ;; *BYTES-CONSED* is updated elsewhere.
     (sys.lap-x86:mov64 :rbx (:constant *general-allocation-count*))
  
positive.code:   ;; Tail call into SLOW-CONS.
    (sys.lap-x86:mov32 :ecx #.(ash 2 #.sys.int::+n-fixnum-bits+))
    SLOW-PATH-BAD-ARGS
    (sys.lap-x86:mov64 :r13 (:function slow-cons))
    (sys.lap-x86:jmp (:object :r13 #.sys.int::+fref-entry-point+)))
  
negative.code: ;;            (= x y))))
  (sys.int::define-lap-function eql ((x y))
    "Compare X and Y."
    ENTRY-POINT
    (:gc :no-frame :layout #*0 :incoming-arguments :rcx)
    (sys.lap-x86:push :rbp)
    (:gc :no-frame :layout #*00 :incoming-arguments :rcx)
    (sys.lap-x86:mov64 :rbp :rsp)
    (:gc :frame :incoming-arguments :rcx)
    ;; Check arg count.
    (sys.lap-x86:cmp64 :rcx #.(ash 2 sys.int::+n-fixnum-bits+)) ; fixnum 2
    (sys.lap-x86:jne BAD-ARGUMENTS)
    (:gc :frame)
    ;; EQ test.
    ;; This additionally covers fixnums, characters and single-floats.
    (sys.lap-x86:cmp64 :r8 :r9)
  