anchor.diff:  (sys.int::define-lap-function values-list ((list)
                                              ((list 0)))
     "Returns the elements of LIST as multiple values."
  -  (:gc :no-frame :layout #*0)
  +  ENTRY-POINT
  +  (:gc :no-frame :layout #*0 :incoming-arguments :rcx)
     (sys.lap-x86:push :rbp)
  -  (:gc :no-frame :layout #*00)
  +  (:gc :no-frame :layout #*00 :incoming-arguments :rcx)
     (sys.lap-x86:mov64 :rbp :rsp)
  -  (:gc :frame)
  +  (:gc :frame :incoming-arguments :rcx)
     (sys.lap-x86:sub64 :rsp 16) ; 2 slots
     (sys.lap-x86:cmp32 :ecx #.(ash 1 sys.int::+n-fixnum-bits+)) ; fixnum 1
     (sys.lap-x86:jne bad-arguments)
  +  (:gc :frame)
     ;; RBX = iterator, (:stack 0) = list.
     (sys.lap-x86:mov64 :rbx :r8)
     (sys.lap-x86:mov64 (:stack 0) :r8)
  
positive.code: ;;            (= x y))))
  (sys.int::define-lap-function eql ((x y))
    "Compare X and Y."
    (:gc :no-frame :layout #*0)
    (sys.lap-x86:push :rbp)
    (:gc :no-frame :layout #*00)
    (sys.lap-x86:mov64 :rbp :rsp)
    (:gc :frame)
    ;; Check arg count.
    (sys.lap-x86:cmp64 :rcx #.(ash 2 sys.int::+n-fixnum-bits+)) ; fixnum 2
    (sys.lap-x86:jne BAD-ARGUMENTS)
    ;; EQ test.
    ;; This additionally covers fixnums, characters and single-floats.
    (sys.lap-x86:cmp64 :r8 :r9)
  
negative.code:   (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: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)
  