anchor.diff:    (sys.lap-x86:call (:object :r13 #.sys.int::+fref-entry-point+))
     (sys.lap-x86:ud2)
     bad-arguments
  +  (:gc :frame :incoming-arguments :rcx)
     (sys.lap-x86:mov64 :r13 (:function sys.int::raise-invalid-argument-error))
  -  (sys.lap-x86:call (:object :r13 #.sys.int::+fref-entry-point+))
  -  (sys.lap-x86:ud2))
  +  (sys.lap-x86:lea64 :rbx (:rip (+ (- ENTRY-POINT 16) #.sys.int::+tag-object+)))
  +  (:gc :no-frame :layout #*0 :incoming-arguments :rcx)
  +  (sys.lap-x86:jmp (:object :r13 #.sys.int::+fref-entry-point+)))
   
   ;; (defun eql (x y)
   ;;   (or (eq x y)
  
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)
  