diff-match-patch

SBCL 2.5.5.114-85e41f89c / ASDF 3.3.5

diff-match-patch/test

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/diff-match-patch/2281e20cac5a8922567ea4cbc6f4644b126ec6b1/diff-match-patch-20250710-git/lib.lisp
; in: DEFUN SEQ-TYPE
;     (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

;     (TYPEP DIFF-MATCH-PATCH::X0 'SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; in: DEFUN INDEX
;     (MIN DIFF-MATCH-PATCH::I DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (MAX (MIN DIFF-MATCH-PATCH::I DIFF-MATCH-PATCH::L) 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (MIN DIFF-MATCH-PATCH::I DIFF-MATCH-PATCH::L)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

;     (MAX (MIN DIFF-MATCH-PATCH::I DIFF-MATCH-PATCH::L) 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

; in: DEFUN NARROW
;     (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (MINUSP DIFF-MATCH-PATCH::START)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (MINUSP DIFF-MATCH-PATCH::END)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a DOUBLE-FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a DOUBLE-FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ DIFF-MATCH-PATCH::SEQ 0 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (MINUSP DIFF-MATCH-PATCH::START)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (+ DIFF-MATCH-PATCH::L DIFF-MATCH-PATCH::START)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (REAL * (0)), not a FIXNUM.
;       The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a (REAL * (0)), not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL).

;     (MINUSP DIFF-MATCH-PATCH::END)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (+ DIFF-MATCH-PATCH::L DIFF-MATCH-PATCH::END)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (REAL * (0)), not a FIXNUM.
;       The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a (REAL * (0)), not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL).

; in: DEFUN EMPTY
;     (LENGTH DIFF-MATCH-PATCH::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; in: DEFUN PREFIXP
;     (LENGTH DIFF-MATCH-PATCH::A)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::B)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN SUFFIXP
;     (LENGTH DIFF-MATCH-PATCH::B)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::A)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN SPLIT-AT
;     (SUBSEQ DIFF-MATCH-PATCH::SEQ 0 POSITION)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::POSITION2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ DIFF-MATCH-PATCH::SEQ 0 POSITION)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ DIFF-MATCH-PATCH::SEQ POSITION DIFF-MATCH-PATCH::POSITION2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::POSITION2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ DIFF-MATCH-PATCH::SEQ 0 POSITION)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ DIFF-MATCH-PATCH::SEQ POSITION)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

; in: DEFUN SPLIT-LINES
;     (LENGTH DIFF-MATCH-PATCH::STR)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (AREF DIFF-MATCH-PATCH::STR DIFF-MATCH-PATCH::I)
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::STR DIFF-MATCH-PATCH::LAST-BREAK)
; --> BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a DOUBLE-FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a DOUBLE-FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::STR DIFF-MATCH-PATCH::LAST-BREAK
;      DIFF-MATCH-PATCH::BR)
; --> BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a DOUBLE-FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a DOUBLE-FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; in: DEFUN JOIN
;     (DIFF-MATCH-PATCH::SEQ-TYPE (CAR DIFF-MATCH-PATCH::PARTS*))
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (DIFF-MATCH-PATCH::ITER-JOINING 'VECTOR DIFF-MATCH-PATCH::PARTS*)
; --> LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE16)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE16 #:INDEX15)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

;     (DIFF-MATCH-PATCH::ITER-JOINING 'STRING DIFF-MATCH-PATCH::PARTS*)
; --> LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE24)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE24 #:INDEX23)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

;     (DIFF-MATCH-PATCH::ITER-JOINING 'LIST DIFF-MATCH-PATCH::PARTS*)
; --> LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE32)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE32 #:INDEX31)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

;     (DIFF-MATCH-PATCH::SEQ-TYPE (CAR DIFF-MATCH-PATCH::PARTS*))
; --> BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; in: DEFUN JOIN*
;     (DIFF-MATCH-PATCH::JOIN DIFF-MATCH-PATCH::PARTS)
; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE40)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; --> BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE40 #:INDEX39)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF IF 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE48)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF IF 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; --> BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE48 #:INDEX47)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF IF THE 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE56)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF IF THE 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; --> BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE56 #:INDEX55)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; in: DEFUN MAPCALL
;     (FUNCALL DIFF-MATCH-PATCH::FN
;              (MAP 'LIST DIFF-MATCH-PATCH::MFN DIFF-MATCH-PATCH::PARTS))
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function

; in: DEFUN OVERLAP
;     (LENGTH DIFF-MATCH-PATCH::A)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::B)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::A)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (< DIFF-MATCH-PATCH::L* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * (35184372088830)) (SINGLE-FLOAT * 3.5184372e13) (DOUBLE-FLOAT * 3.518437208883d13)), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * (35184372088830)) (SINGLE-FLOAT * 3.5184372e13) (DOUBLE-FLOAT * 3.518437208883d13)), not a DOUBLE-FLOAT.

;     (SEARCH DIFF-MATCH-PATCH::A DIFF-MATCH-PATCH::B :START1 DIFF-MATCH-PATCH::-L*
;             :END2 DIFF-MATCH-PATCH::L)
; 
; note: unable to open code due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.The second argument is a SEQUENCE, not a VECTOR.

;     (< DIFF-MATCH-PATCH::L* DIFF-MATCH-PATCH::L)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR (RATIONAL * (35184372088830)) (SINGLE-FLOAT * 3.5184372e13) (DOUBLE-FLOAT * 3.518437208883d13)), not a FIXNUM.

;     (ITERATE:ITER
;       (ITERATE:WITH DIFF-MATCH-PATCH::BEST := 0)
;       (ITERATE:WITH DIFF-MATCH-PATCH::L* := 1)
;       (ITERATE:WITH DIFF-MATCH-PATCH::-L* :=
;        (- (LENGTH DIFF-MATCH-PATCH::A) DIFF-MATCH-PATCH::L*))
;       (ITERATE:WHILE (< DIFF-MATCH-PATCH::L* DIFF-MATCH-PATCH::L))
;       (ITERATE:FOR DIFF-MATCH-PATCH::M :=
;        (SEARCH DIFF-MATCH-PATCH::A DIFF-MATCH-PATCH::B :START1
;                DIFF-MATCH-PATCH::-L* :END2 DIFF-MATCH-PATCH::L))
;       (ITERATE:UNTIL (NULL DIFF-MATCH-PATCH::M))
;       (INCF DIFF-MATCH-PATCH::L* DIFF-MATCH-PATCH::M)
;       (DECF DIFF-MATCH-PATCH::-L* DIFF-MATCH-PATCH::M)
;       (WHEN
;           (OR (ZEROP DIFF-MATCH-PATCH::M)
;               (DIFF-MATCH-PATCH::OVEQ DIFF-MATCH-PATCH::A DIFF-MATCH-PATCH::B
;                DIFF-MATCH-PATCH::L* DIFF-MATCH-PATCH::-L*))
;         (SETQ DIFF-MATCH-PATCH::BEST DIFF-MATCH-PATCH::L*)
;         (INCF DIFF-MATCH-PATCH::L*)
;         (DECF DIFF-MATCH-PATCH::-L*))
;       (ITERATE:FINALLY (RETURN DIFF-MATCH-PATCH::BEST)))
; --> BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (+ DIFF-MATCH-PATCH::M DIFF-MATCH-PATCH::L*)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (OR (RATIONAL * (17592186044415)) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a FIXNUM.
;       The result is a (VALUES (OR (DOUBLE-FLOAT * 3.5184372088829d13) (SINGLE-FLOAT * 3.5184372e13) (RATIONAL * (35184372088829))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a (OR (RATIONAL * (17592186044415)) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (OR (DOUBLE-FLOAT * 3.5184372088829d13) (SINGLE-FLOAT * 3.5184372e13) (RATIONAL * (35184372088829))) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN SETQ THE 
; ==>
;   (+ 1 DIFF-MATCH-PATCH::L*)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 3.5184372088829d13) (SINGLE-FLOAT * 3.5184372e13) (RATIONAL * (35184372088829))), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * (35184372088830)) (SINGLE-FLOAT * 3.5184372e13) (DOUBLE-FLOAT * 3.518437208883d13)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 3.5184372088829d13) (SINGLE-FLOAT * 3.5184372e13) (RATIONAL * (35184372088829))), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * (35184372088830)) (SINGLE-FLOAT * 3.5184372e13) (DOUBLE-FLOAT * 3.518437208883d13)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

; in: DEFUN LONG-SHORT
;     (LENGTH DIFF-MATCH-PATCH::A)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::B)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN WRITE-LINE-URLENCODE
;     (ITERATE:ITER
;       (ITERATE:FOR DIFF-MATCH-PATCH::C :IN-STRING DIFF-MATCH-PATCH::LINE)
;       (DIFF-MATCH-PATCH::WRITE-CHAR-URLENCODE DIFF-MATCH-PATCH::C
;        DIFF-MATCH-PATCH::OUT)
;       (ITERATE:FINALLY (TERPRI DIFF-MATCH-PATCH::OUT)))
; ==>
;   (LENGTH #:SEQUENCE63)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN SETQ THE CHAR 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/diff-match-patch/2281e20cac5a8922567ea4cbc6f4644b126ec6b1/diff-match-patch-20250710-git/diff.lisp
; in: DEFUN PAST-DIFF-DEADLINE
;     (>= (DIFF-MATCH-PATCH::GET-INTERNAL-SECONDS)
;         DIFF-MATCH-PATCH::%DIFF-DEADLINE%)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The second argument is a REAL, not a RATIONAL.
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The second argument is a REAL, not a SINGLE-FLOAT.

; in: DEFUN AFFIX-MATCH
;     (LENGTH DIFF-MATCH-PATCH::B)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::A)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::A DIFF-MATCH-PATCH::PREFIX-END
;                               DIFF-MATCH-PATCH::SUFFIX-START-A)
; --> BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::A
;                               DIFF-MATCH-PATCH::SUFFIX-START-A)
; --> BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::B 0 DIFF-MATCH-PATCH::PREFIX-END)
; --> BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::B DIFF-MATCH-PATCH::PREFIX-END
;                               DIFF-MATCH-PATCH::SUFFIX-START-B)
; --> BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

; in: DEFUN MAPDIFF
;     (FUNCALL DIFF-MATCH-PATCH::FN DIFF-MATCH-PATCH::X)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function

; in: DEFUN DIFF-SEQ-TYPE
;     (DIFF-MATCH-PATCH::SEQ-TYPE (CADAR DIFF-MATCH-PATCH::DIFFS))
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

; --> BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; in: DEFUN DIFF
;     (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::A)
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::PREFIX)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::B*)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::A*)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::A)
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::SUFFIX)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (MAP 'VECTOR DIFF-MATCH-PATCH::ABBR DIFF-MATCH-PATCH::A)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: ABBR is not known to be a function

;     (MAP 'VECTOR DIFF-MATCH-PATCH::ABBR DIFF-MATCH-PATCH::B)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: ABBR is not known to be a function

;     (COERCE DIFF-MATCH-PATCH::A 'VECTOR)
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR CONS SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.

;     (COERCE DIFF-MATCH-PATCH::B 'VECTOR)
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR CONS SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.

;     (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::A)
; --> BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::A)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::B)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::WITH-DIFF-DEADLINE NIL
;       (COND
;        ((DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::A)
;         (IF (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::B)
;             'NIL
;             `(#)))
;        ((DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::B)
;         `((:- ,DIFF-MATCH-PATCH::A)))
;        ((EQ DIFF-MATCH-PATCH::A DIFF-MATCH-PATCH::B)
;         `((:= ,DIFF-MATCH-PATCH::B)))
;        ((AND (MEMBER # #) (NOT #))
;         (DIFF-MATCH-PATCH::DLET* (# # # # #)
;           (DIFF-MATCH-PATCH:MAPDIFF # #)))
;        (T
;         (DIFF-MATCH-PATCH::DLET* (#)
;           (IF #
;               `#
;               #)))))
; --> OR LET IF AND IF 
; ==>
;   (+ #:G2 #:G1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL).
;       unable to do inline float arithmetic (cost 3) because:
;       The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES (OR FLOAT (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)) &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &OPTIONAL).

; in: DEFUN DIFF-COMPUTE
;     (SEARCH DIFF-MATCH-PATCH::SHORT DIFF-MATCH-PATCH::LONG :TEST
;             DIFF-MATCH-PATCH::TEST)
; 
; note: unable to open code due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.The second argument is a SEQUENCE, not a VECTOR.

;     (SUBSEQ DIFF-MATCH-PATCH::LONG 0 DIFF-MATCH-PATCH::INFIX-START)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (LENGTH DIFF-MATCH-PATCH::SHORT)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (SUBSEQ DIFF-MATCH-PATCH::LONG
;             (+ DIFF-MATCH-PATCH::INFIX-START (LENGTH DIFF-MATCH-PATCH::SHORT)))
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (LENGTH DIFF-MATCH-PATCH::SHORT)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (> (LENGTH DIFF-MATCH-PATCH::A) DIFF-MATCH-PATCH:*DIFF-CHECK-LINES-LENGTH*)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.

;     (> (LENGTH DIFF-MATCH-PATCH::B) DIFF-MATCH-PATCH:*DIFF-CHECK-LINES-LENGTH*)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.

; in: DEFUN HALF-MATCH
;     (LENGTH DIFF-MATCH-PATCH::SHORT)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::LONG)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (SUBSEQ DIFF-MATCH-PATCH::A 0 DIFF-MATCH-PATCH::SA)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ DIFF-MATCH-PATCH::B 0 DIFF-MATCH-PATCH::SB)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ DIFF-MATCH-PATCH::A DIFF-MATCH-PATCH::SA
;             (+ DIFF-MATCH-PATCH::SA DIFF-MATCH-PATCH::L))
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ DIFF-MATCH-PATCH::A (+ DIFF-MATCH-PATCH::SA DIFF-MATCH-PATCH::L))
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (SUBSEQ DIFF-MATCH-PATCH::B (+ DIFF-MATCH-PATCH::SB DIFF-MATCH-PATCH::L))
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (LENGTH DIFF-MATCH-PATCH::LONG)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (SEARCH DIFF-MATCH-PATCH::LONG DIFF-MATCH-PATCH::SHORT :TEST
;             DIFF-MATCH-PATCH::TEST :START1 DIFF-MATCH-PATCH::PIVOT :END1
;             DIFF-MATCH-PATCH::PIVOT* :START2
;             (IF DIFF-MATCH-PATCH::J
;                 (1+ DIFF-MATCH-PATCH::J)
;                 0))
; 
; note: unable to open code due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.The second argument is a SEQUENCE, not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::LONG)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; in: DEFUN DIFF-LINE-MODE
;     (DIFF-MATCH-PATCH::MAPCALL #'DIFF-MATCH-PATCH::JOIN DIFF-MATCH-PATCH::UNABBR)
; --> BLOCK LET LAMBDA FUNCTION FUNCALL 
; ==>
;   1
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (MAP 'VECTOR DIFF-MATCH-PATCH::ABBR
;          (DIFF-MATCH-PATCH::SPLIT-LINES DIFF-MATCH-PATCH::A))
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: ABBR is not known to be a function

;     (MAP 'VECTOR DIFF-MATCH-PATCH::ABBR
;          (DIFF-MATCH-PATCH::SPLIT-LINES DIFF-MATCH-PATCH::B))
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: ABBR is not known to be a function

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::ADDS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::MAPCALL #'DIFF-MATCH-PATCH::JOIN DIFF-MATCH-PATCH::UNABBR)
; --> BLOCK LET LAMBDA FUNCTION FUNCALL 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; in: DEFUN DIFF-BISECT
;     (AREF DIFF-MATCH-PATCH::V1 DIFF-MATCH-PATCH::OFFSET)
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.

;     (AREF DIFF-MATCH-PATCH::V2 DIFF-MATCH-PATCH::OFFSET)
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.

;     (ITERATE:ITER
;       (ITERATE:FOR DIFF-MATCH-PATCH::K :FROM
;        (- DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::D) :TO
;        (- DIFF-MATCH-PATCH::D DIFF-MATCH-PATCH::END) :BY 2)
;       (ITERATE:FOR DIFF-MATCH-PATCH::OFFSET :=
;        (+ DIFF-MATCH-PATCH::MAX-D DIFF-MATCH-PATCH::K))
;       (ITERATE:FOR DIFF-MATCH-PATCH::X :=
;        (IF (OR (= DIFF-MATCH-PATCH::K #) (AND # #))
;            (AREF DIFF-MATCH-PATCH::V (1+ DIFF-MATCH-PATCH::OFFSET))
;            (1+ (AREF DIFF-MATCH-PATCH::V #))))
;       (ITERATE:FOR DIFF-MATCH-PATCH::Y :=
;        (- DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::K))
;       (WHEN
;           (AND (< DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
;                (< DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB))
;         (LET ((DIFF-MATCH-PATCH::Q #))
;           (INCF DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::Q)
;           (INCF DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::Q)))
;       (SETF (AREF DIFF-MATCH-PATCH::V DIFF-MATCH-PATCH::OFFSET)
;               DIFF-MATCH-PATCH::X)
;       (COND
;        ((> DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
;         (INCF DIFF-MATCH-PATCH::END 2))
;        ((> DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB)
;         (INCF DIFF-MATCH-PATCH::START 2))
;        ((NOT (EQ DIFF-MATCH-PATCH::FRONTP DIFF-MATCH-PATCH::FROM-END))
;         (LET (#)
;           (DIFF-MATCH-PATCH::DLET* #
;             #))))
;       (ITERATE:FINALLY
;        (RETURN (VALUES DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::END))))
; --> BLOCK BLOCK TAGBODY PROGN IF 
; ==>
;   (> DIFF-MATCH-PATCH::K #:LIMIT101)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (= DIFF-MATCH-PATCH::K (- DIFF-MATCH-PATCH::D))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (/= DIFF-MATCH-PATCH::K DIFF-MATCH-PATCH::D)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (AREF DIFF-MATCH-PATCH::V (1- DIFF-MATCH-PATCH::OFFSET))
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.

;     (AREF DIFF-MATCH-PATCH::V (1+ DIFF-MATCH-PATCH::OFFSET))
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.

;     (< (AREF DIFF-MATCH-PATCH::V (1- DIFF-MATCH-PATCH::OFFSET))
;        (AREF DIFF-MATCH-PATCH::V (1+ DIFF-MATCH-PATCH::OFFSET)))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (AREF DIFF-MATCH-PATCH::V (1+ DIFF-MATCH-PATCH::OFFSET))
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.

;     (AREF DIFF-MATCH-PATCH::V (1- DIFF-MATCH-PATCH::OFFSET))
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.

;     (< DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (< DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (MAKE-ARRAY DIFF-MATCH-PATCH::LV :ELEMENT-TYPE
;                 `(INTEGER -1 ,DIFF-MATCH-PATCH::LV) :INITIAL-ELEMENT -1)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (ITERATE:ITER
;       (ITERATE:FOR DIFF-MATCH-PATCH::K :FROM
;        (- DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::D) :TO
;        (- DIFF-MATCH-PATCH::D DIFF-MATCH-PATCH::END) :BY 2)
;       (ITERATE:FOR DIFF-MATCH-PATCH::OFFSET :=
;        (+ DIFF-MATCH-PATCH::MAX-D DIFF-MATCH-PATCH::K))
;       (ITERATE:FOR DIFF-MATCH-PATCH::X :=
;        (IF (OR (= DIFF-MATCH-PATCH::K #) (AND # #))
;            (AREF DIFF-MATCH-PATCH::V (1+ DIFF-MATCH-PATCH::OFFSET))
;            (1+ (AREF DIFF-MATCH-PATCH::V #))))
;       (ITERATE:FOR DIFF-MATCH-PATCH::Y :=
;        (- DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::K))
;       (WHEN
;           (AND (< DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
;                (< DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB))
;         (LET ((DIFF-MATCH-PATCH::Q #))
;           (INCF DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::Q)
;           (INCF DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::Q)))
;       (SETF (AREF DIFF-MATCH-PATCH::V DIFF-MATCH-PATCH::OFFSET)
;               DIFF-MATCH-PATCH::X)
;       (COND
;        ((> DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
;         (INCF DIFF-MATCH-PATCH::END 2))
;        ((> DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB)
;         (INCF DIFF-MATCH-PATCH::START 2))
;        ((NOT (EQ DIFF-MATCH-PATCH::FRONTP DIFF-MATCH-PATCH::FROM-END))
;         (LET (#)
;           (DIFF-MATCH-PATCH::DLET* #
;             #))))
;       (ITERATE:FINALLY
;        (RETURN (VALUES DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::END))))
; --> BLOCK BLOCK TAGBODY PROGN LET* FUNCALL 
; ==>
;   1
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.

;     (> DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (> DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (AREF DIFF-MATCH-PATCH::V* DIFF-MATCH-PATCH::OFFSET*)
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.

;     (MINUSP (AREF DIFF-MATCH-PATCH::V* DIFF-MATCH-PATCH::OFFSET*))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (MAKE-ARRAY DIFF-MATCH-PATCH::LV :ELEMENT-TYPE
;                 `(INTEGER -1 ,DIFF-MATCH-PATCH::LV) :INITIAL-ELEMENT -1)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

;     (>= DIFF-MATCH-PATCH::X* DIFF-MATCH-PATCH::LIMIT)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (LENGTH DIFF-MATCH-PATCH::A)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::B)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (SETF (AREF DIFF-MATCH-PATCH::V (1+ DIFF-MATCH-PATCH::MAX-D)) 0)
; --> FUNCALL 
; ==>
;   1
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING.

;     (- DIFF-MATCH-PATCH::D DIFF-MATCH-PATCH::END)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (- DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::D)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (ITERATE:ITER
;       (ITERATE:FOR DIFF-MATCH-PATCH::K :FROM
;        (- DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::D) :TO
;        (- DIFF-MATCH-PATCH::D DIFF-MATCH-PATCH::END) :BY 2)
;       (ITERATE:FOR DIFF-MATCH-PATCH::OFFSET :=
;        (+ DIFF-MATCH-PATCH::MAX-D DIFF-MATCH-PATCH::K))
;       (ITERATE:FOR DIFF-MATCH-PATCH::X :=
;        (IF (OR (= DIFF-MATCH-PATCH::K #) (AND # #))
;            (AREF DIFF-MATCH-PATCH::V (1+ DIFF-MATCH-PATCH::OFFSET))
;            (1+ (AREF DIFF-MATCH-PATCH::V #))))
;       (ITERATE:FOR DIFF-MATCH-PATCH::Y :=
;        (- DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::K))
;       (WHEN
;           (AND (< DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
;                (< DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB))
;         (LET ((DIFF-MATCH-PATCH::Q #))
;           (INCF DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::Q)
;           (INCF DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::Q)))
;       (SETF (AREF DIFF-MATCH-PATCH::V DIFF-MATCH-PATCH::OFFSET)
;               DIFF-MATCH-PATCH::X)
;       (COND
;        ((> DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
;         (INCF DIFF-MATCH-PATCH::END 2))
;        ((> DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB)
;         (INCF DIFF-MATCH-PATCH::START 2))
;        ((NOT (EQ DIFF-MATCH-PATCH::FRONTP DIFF-MATCH-PATCH::FROM-END))
;         (LET (#)
;           (DIFF-MATCH-PATCH::DLET* #
;             #))))
;       (ITERATE:FINALLY
;        (RETURN (VALUES DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::END))))
; ==>
;   (- (- DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::D) 2)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

; --> BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (+ DIFF-MATCH-PATCH::K 2)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

; --> BLOCK BLOCK TAGBODY PROGN IF 
; ==>
;   (> DIFF-MATCH-PATCH::K #:LIMIT101)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

;     (+ DIFF-MATCH-PATCH::MAX-D DIFF-MATCH-PATCH::K)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (1- DIFF-MATCH-PATCH::OFFSET)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (< (AREF DIFF-MATCH-PATCH::V (1- DIFF-MATCH-PATCH::OFFSET))
;        (AREF DIFF-MATCH-PATCH::V (1+ DIFF-MATCH-PATCH::OFFSET)))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

;     (1- DIFF-MATCH-PATCH::OFFSET)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (1+ (AREF DIFF-MATCH-PATCH::V (1- DIFF-MATCH-PATCH::OFFSET)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (1+ DIFF-MATCH-PATCH::OFFSET)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (- DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::K)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a REAL, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL).
;       etc.

;     (< DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.

;     (< DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.

;     (ITERATE:ITER
;       (ITERATE:FOR DIFF-MATCH-PATCH::K :FROM
;        (- DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::D) :TO
;        (- DIFF-MATCH-PATCH::D DIFF-MATCH-PATCH::END) :BY 2)
;       (ITERATE:FOR DIFF-MATCH-PATCH::OFFSET :=
;        (+ DIFF-MATCH-PATCH::MAX-D DIFF-MATCH-PATCH::K))
;       (ITERATE:FOR DIFF-MATCH-PATCH::X :=
;        (IF (OR (= DIFF-MATCH-PATCH::K #) (AND # #))
;            (AREF DIFF-MATCH-PATCH::V (1+ DIFF-MATCH-PATCH::OFFSET))
;            (1+ (AREF DIFF-MATCH-PATCH::V #))))
;       (ITERATE:FOR DIFF-MATCH-PATCH::Y :=
;        (- DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::K))
;       (WHEN
;           (AND (< DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
;                (< DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB))
;         (LET ((DIFF-MATCH-PATCH::Q #))
;           (INCF DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::Q)
;           (INCF DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::Q)))
;       (SETF (AREF DIFF-MATCH-PATCH::V DIFF-MATCH-PATCH::OFFSET)
;               DIFF-MATCH-PATCH::X)
;       (COND
;        ((> DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
;         (INCF DIFF-MATCH-PATCH::END 2))
;        ((> DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB)
;         (INCF DIFF-MATCH-PATCH::START 2))
;        ((NOT (EQ DIFF-MATCH-PATCH::FRONTP DIFF-MATCH-PATCH::FROM-END))
;         (LET (#)
;           (DIFF-MATCH-PATCH::DLET* #
;             #))))
;       (ITERATE:FINALLY
;        (RETURN (VALUES DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::END))))
; --> BLOCK BLOCK TAGBODY PROGN IF LET SETQ THE 
; ==>
;   (+ DIFF-MATCH-PATCH::Q DIFF-MATCH-PATCH::X)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a (OR (RATIONAL * (17592186044415)) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a (OR (RATIONAL * (17592186044415)) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL).
;       etc.

; ==>
;   (+ DIFF-MATCH-PATCH::Q DIFF-MATCH-PATCH::Y)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a (OR (RATIONAL * (17592186044415)) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a (OR (RATIONAL * (17592186044415)) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL).
;       etc.

;     (> DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.

;     (> DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.

;     (ITERATE:ITER
;       (ITERATE:FOR DIFF-MATCH-PATCH::K :FROM
;        (- DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::D) :TO
;        (- DIFF-MATCH-PATCH::D DIFF-MATCH-PATCH::END) :BY 2)
;       (ITERATE:FOR DIFF-MATCH-PATCH::OFFSET :=
;        (+ DIFF-MATCH-PATCH::MAX-D DIFF-MATCH-PATCH::K))
;       (ITERATE:FOR DIFF-MATCH-PATCH::X :=
;        (IF (OR (= DIFF-MATCH-PATCH::K #) (AND # #))
;            (AREF DIFF-MATCH-PATCH::V (1+ DIFF-MATCH-PATCH::OFFSET))
;            (1+ (AREF DIFF-MATCH-PATCH::V #))))
;       (ITERATE:FOR DIFF-MATCH-PATCH::Y :=
;        (- DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::K))
;       (WHEN
;           (AND (< DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
;                (< DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB))
;         (LET ((DIFF-MATCH-PATCH::Q #))
;           (INCF DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::Q)
;           (INCF DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::Q)))
;       (SETF (AREF DIFF-MATCH-PATCH::V DIFF-MATCH-PATCH::OFFSET)
;               DIFF-MATCH-PATCH::X)
;       (COND
;        ((> DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
;         (INCF DIFF-MATCH-PATCH::END 2))
;        ((> DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB)
;         (INCF DIFF-MATCH-PATCH::START 2))
;        ((NOT (EQ DIFF-MATCH-PATCH::FRONTP DIFF-MATCH-PATCH::FROM-END))
;         (LET (#)
;           (DIFF-MATCH-PATCH::DLET* #
;             #))))
;       (ITERATE:FINALLY
;        (RETURN (VALUES DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::END))))
; --> BLOCK BLOCK TAGBODY PROGN IF IF SETQ THE 
; ==>
;   (+ 2 DIFF-MATCH-PATCH::START)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (+ DIFF-MATCH-PATCH::MAX-D DIFF-MATCH-PATCH::DELTA (- DIFF-MATCH-PATCH::K))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The first argument is a (INTEGER -17592186044414 26388279066622), not a (UNSIGNED-BYTE 64).
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (MINUSP (AREF DIFF-MATCH-PATCH::V* DIFF-MATCH-PATCH::OFFSET*))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (>= DIFF-MATCH-PATCH::X* DIFF-MATCH-PATCH::LIMIT)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.

;     (ITERATE:ITER
;       (ITERATE:FOR DIFF-MATCH-PATCH::K :FROM
;        (- DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::D) :TO
;        (- DIFF-MATCH-PATCH::D DIFF-MATCH-PATCH::END) :BY 2)
;       (ITERATE:FOR DIFF-MATCH-PATCH::OFFSET :=
;        (+ DIFF-MATCH-PATCH::MAX-D DIFF-MATCH-PATCH::K))
;       (ITERATE:FOR DIFF-MATCH-PATCH::X :=
;        (IF (OR (= DIFF-MATCH-PATCH::K #) (AND # #))
;            (AREF DIFF-MATCH-PATCH::V (1+ DIFF-MATCH-PATCH::OFFSET))
;            (1+ (AREF DIFF-MATCH-PATCH::V #))))
;       (ITERATE:FOR DIFF-MATCH-PATCH::Y :=
;        (- DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::K))
;       (WHEN
;           (AND (< DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
;                (< DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB))
;         (LET ((DIFF-MATCH-PATCH::Q #))
;           (INCF DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::Q)
;           (INCF DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::Q)))
;       (SETF (AREF DIFF-MATCH-PATCH::V DIFF-MATCH-PATCH::OFFSET)
;               DIFF-MATCH-PATCH::X)
;       (COND
;        ((> DIFF-MATCH-PATCH::X DIFF-MATCH-PATCH::LA)
;         (INCF DIFF-MATCH-PATCH::END 2))
;        ((> DIFF-MATCH-PATCH::Y DIFF-MATCH-PATCH::LB)
;         (INCF DIFF-MATCH-PATCH::START 2))
;        ((NOT (EQ DIFF-MATCH-PATCH::FRONTP DIFF-MATCH-PATCH::FROM-END))
;         (LET (#)
;           (DIFF-MATCH-PATCH::DLET* #
;             #))))
;       (ITERATE:FINALLY
;        (RETURN (VALUES DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::END))))
; --> BLOCK BLOCK TAGBODY PROGN IF SETQ THE 
; ==>
;   (+ 2 DIFF-MATCH-PATCH::END)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (- DIFF-MATCH-PATCH::LA DIFF-MATCH-PATCH::X)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (- DIFF-MATCH-PATCH::LB DIFF-MATCH-PATCH::Y)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       etc.

;     (- DIFF-MATCH-PATCH::LA (AREF DIFF-MATCH-PATCH::V2 DIFF-MATCH-PATCH::OFFSET))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (+ DIFF-MATCH-PATCH::MAX-D DIFF-MATCH-PATCH::X*)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (- (+ DIFF-MATCH-PATCH::MAX-D DIFF-MATCH-PATCH::X*) DIFF-MATCH-PATCH::OFFSET)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (- DIFF-MATCH-PATCH::LA DIFF-MATCH-PATCH::X)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

; in: DEFUN NEXT-DIFFS
;     (DIFF-MATCH-PATCH::JOIN DIFF-MATCH-PATCH::DELS)
; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (DIFF-MATCH-PATCH::JOIN DIFF-MATCH-PATCH::ADDS)
; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (DIFF-MATCH-PATCH::JOIN DIFF-MATCH-PATCH::DELS)
; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE117)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; --> BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE117 #:INDEX116)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF IF 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE125)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF IF 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; --> BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE125 #:INDEX124)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF IF THE 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE133)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF IF THE 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; --> BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE133 #:INDEX132)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::JOIN DIFF-MATCH-PATCH::ADDS)
; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE141)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; --> BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE141 #:INDEX140)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF IF 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE149)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF IF 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; --> BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE149 #:INDEX148)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF IF THE 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE157)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET COND IF IF THE 
; --> DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; --> BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE157 #:INDEX156)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK LET COND IF IF THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE 
; --> BLOCK VALUES IF LET IF DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; in: DEFUN TRANSLATE-POSITION
;     (ITERATE:ITER
;       (ITERATE:FOR (DIFF-MATCH-PATCH::OP DIFF-MATCH-PATCH::X) :IN
;        DIFF-MATCH-PATCH::DIFFS)
;       (ITERATE:FOR DIFF-MATCH-PATCH::L := (LENGTH DIFF-MATCH-PATCH::X))
;       (ITERATE:INITIALLY
;        (SETQ DIFF-MATCH-PATCH::LA 0
;              DIFF-MATCH-PATCH::LB 0))
;       (ITERATE:FOR DIFF-MATCH-PATCH::LA :NEXT
;        (INCF DIFF-MATCH-PATCH::LA
;              (DIFF-MATCH-PATCH::VAL DIFF-MATCH-PATCH::L DIFF-MATCH-PATCH::OP :+)))
;       (ITERATE:FOR DIFF-MATCH-PATCH::LB :NEXT
;        (INCF DIFF-MATCH-PATCH::LB
;              (DIFF-MATCH-PATCH::VAL DIFF-MATCH-PATCH::L DIFF-MATCH-PATCH::OP :-)))
;       (ITERATE:FOR DIFF-MATCH-PATCH::^LA :PREVIOUS DIFF-MATCH-PATCH::LA
;        :INITIALLY 0)
;       (ITERATE:FOR DIFF-MATCH-PATCH::^LB :PREVIOUS DIFF-MATCH-PATCH::LB
;        :INITIALLY 0)
;       (ITERATE:WITH DIFF-MATCH-PATCH::DELETED := NIL)
;       (WHEN (> DIFF-MATCH-PATCH::LA POSITION)
;         (RETURN
;          (IF (EQ DIFF-MATCH-PATCH::OP :-)
;              DIFF-MATCH-PATCH::^LB
;              (+ DIFF-MATCH-PATCH::^LB #))))
;       (ITERATE:FINALLY (RETURN DIFF-MATCH-PATCH::LB)))
; 
; caught STYLE-WARNING:
;   The variable DELETED is defined but never used.

;     (LENGTH DIFF-MATCH-PATCH::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (> DIFF-MATCH-PATCH::LA POSITION)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (ITERATE:ITER
;       (ITERATE:FOR (DIFF-MATCH-PATCH::OP DIFF-MATCH-PATCH::X) :IN
;        DIFF-MATCH-PATCH::DIFFS)
;       (ITERATE:FOR DIFF-MATCH-PATCH::L := (LENGTH DIFF-MATCH-PATCH::X))
;       (ITERATE:INITIALLY
;        (SETQ DIFF-MATCH-PATCH::LA 0
;              DIFF-MATCH-PATCH::LB 0))
;       (ITERATE:FOR DIFF-MATCH-PATCH::LA :NEXT
;        (INCF DIFF-MATCH-PATCH::LA
;              (DIFF-MATCH-PATCH::VAL DIFF-MATCH-PATCH::L DIFF-MATCH-PATCH::OP :+)))
;       (ITERATE:FOR DIFF-MATCH-PATCH::LB :NEXT
;        (INCF DIFF-MATCH-PATCH::LB
;              (DIFF-MATCH-PATCH::VAL DIFF-MATCH-PATCH::L DIFF-MATCH-PATCH::OP :-)))
;       (ITERATE:FOR DIFF-MATCH-PATCH::^LA :PREVIOUS DIFF-MATCH-PATCH::LA
;        :INITIALLY 0)
;       (ITERATE:FOR DIFF-MATCH-PATCH::^LB :PREVIOUS DIFF-MATCH-PATCH::LB
;        :INITIALLY 0)
;       (ITERATE:WITH DIFF-MATCH-PATCH::DELETED := NIL)
;       (WHEN (> DIFF-MATCH-PATCH::LA POSITION)
;         (RETURN
;          (IF (EQ DIFF-MATCH-PATCH::OP :-)
;              DIFF-MATCH-PATCH::^LB
;              (+ DIFF-MATCH-PATCH::^LB #))))
;       (ITERATE:FINALLY (RETURN DIFF-MATCH-PATCH::LB)))
; --> BLOCK BLOCK TAGBODY PROGN SETQ THE SETQ THE 
; ==>
;   (+ (DIFF-MATCH-PATCH::VAL DIFF-MATCH-PATCH::L DIFF-MATCH-PATCH::OP :+)
;      DIFF-MATCH-PATCH::LA)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a REAL, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

; ==>
;   (+ (DIFF-MATCH-PATCH::VAL DIFF-MATCH-PATCH::L DIFF-MATCH-PATCH::OP :-)
;      DIFF-MATCH-PATCH::LB)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (> DIFF-MATCH-PATCH::LA POSITION)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

;     (- POSITION DIFF-MATCH-PATCH::^LA)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The second argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL).
;       etc.

;     (+ DIFF-MATCH-PATCH::^LB (- POSITION DIFF-MATCH-PATCH::^LA))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a REAL, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL).
;       etc.

; in: DEFUN LEVENSHTEIN
;     (LENGTH DIFF-MATCH-PATCH::DELS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::ADDS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (ITERATE:ITER
;       (ITERATE:FOR
;        (VALUES DIFF-MATCH-PATCH::DELS DIFF-MATCH-PATCH::ADDS
;                DIFF-MATCH-PATCH::EQUALITY REST)
;        := (DIFF-MATCH-PATCH::NEXT-DIFFS DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:SUMMING
;        (MAX (LENGTH DIFF-MATCH-PATCH::DELS) (LENGTH DIFF-MATCH-PATCH::ADDS)))
;       (ITERATE:UNTIL (ENDP (SETQ DIFF-MATCH-PATCH::DIFFS REST))))
; --> BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (+ #:RESULT165
;      (MAX (LENGTH DIFF-MATCH-PATCH::DELS) (LENGTH DIFF-MATCH-PATCH::ADDS)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "diff-match-patch" "src" "diff">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/diff-match-patch/2281e20cac5a8922567ea4cbc6f4644b126ec6b1/diff-match-patch-20250710-git/cleanup.lisp
; in: DEFUN EDITS-XOR
;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::ADDS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; in: DEFUN CLEANUP-MERGE.JOIN-DIFFERENCES
;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::^EQUALITY
;                              DIFF-MATCH-PATCH::EQUALITY)
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::PREFIX)
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::SUFFIX DIFF-MATCH-PATCH::EQUALITY)
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::EQUALITY)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::ADDS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::SUFFIX)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::SUFFIX DIFF-MATCH-PATCH::EQUALITY)
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE221)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE221 #:INDEX220)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE229)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE229 #:INDEX228)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE237)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE237 #:INDEX236)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::^EQUALITY
;                              DIFF-MATCH-PATCH::EQUALITY)
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE173)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE173 #:INDEX172)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE181)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE181 #:INDEX180)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE189)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE189 #:INDEX188)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::PREFIX)
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE197)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE197 #:INDEX196)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE205)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE205 #:INDEX204)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE213)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE213 #:INDEX212)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::PREFIX)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; in: DEFUN CLEANUP-MERGE.SHIFT-DIFFERENCES
;     (ITERATE:ITER
;       (ITERATE:UNTIL (ENDP DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:WITH DIFF-MATCH-PATCH::DIFFS-ORIG := DIFF-MATCH-PATCH::DIFFS)
;       (ITERATE:WITH DIFF-MATCH-PATCH::CHANGED := NIL)
;       (ITERATE:WITH DIFF-MATCH-PATCH::^EQUALITY := NIL)
;       (ITERATE:FOR
;        (VALUES DIFF-MATCH-PATCH::DELS DIFF-MATCH-PATCH::ADDS
;                DIFF-MATCH-PATCH::EQUALITY REST)
;        := (DIFF-MATCH-PATCH::NEXT-DIFFS DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:FOR (DIFF-MATCH-PATCH::OP DIFF-MATCH-PATCH::EDIT) :=
;        (DIFF-MATCH-PATCH::EDITS-XOR DIFF-MATCH-PATCH::DELS
;         DIFF-MATCH-PATCH::ADDS))
;       (COND
;        ((AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;              DIFF-MATCH-PATCH::EDIT
;              (DIFF-MATCH-PATCH::SUFFIXP DIFF-MATCH-PATCH::^EQUALITY
;                                         DIFF-MATCH-PATCH::EDIT
;                                         DIFF-MATCH-PATCH::TEST))
;         (DIFF-MATCH-PATCH::SHIFT-LEFT DIFF-MATCH-PATCH::^EQUALITY
;          DIFF-MATCH-PATCH::EDIT DIFF-MATCH-PATCH::EQUALITY)
;         (ITERATE:COLLECT `(,DIFF-MATCH-PATCH::OP ,DIFF-MATCH-PATCH::EDIT) :INTO
;          DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::CHANGED T))
;        ((AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;              DIFF-MATCH-PATCH::EDIT
;              (DIFF-MATCH-PATCH::PREFIXP DIFF-MATCH-PATCH::EQUALITY
;                                         DIFF-MATCH-PATCH::EDIT
;                                         DIFF-MATCH-PATCH::TEST))
;         (DIFF-MATCH-PATCH::SHIFT-RIGHT DIFF-MATCH-PATCH::^EQUALITY
;          DIFF-MATCH-PATCH::EDIT DIFF-MATCH-PATCH::EQUALITY)
;         (SETQ DIFF-MATCH-PATCH::^EQUALITY NIL)
;         (ITERATE:NCONCING `(# #) :INTO DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::CHANGED T))
;        (T
;         (ITERATE:NCONCING (DIFF-MATCH-PATCH::FILTER-DIFFS `#) :INTO
;          DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY)))
;       (SETQ DIFF-MATCH-PATCH::DIFFS REST)
;       (WHEN
;           (AND (ENDP REST)
;                (NOT (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)))
;         (ITERATE:COLLECT `(:= ,DIFF-MATCH-PATCH::^EQUALITY) :INTO
;          DIFF-MATCH-PATCH::DIFFS*))
;       (ITERATE:FINALLY
;        (RETURN
;         (IF DIFF-MATCH-PATCH::CHANGED
;             DIFF-MATCH-PATCH::DIFFS*
;             DIFF-MATCH-PATCH::DIFFS-ORIG))))
; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> DIFF-MATCH-PATCH::NARROW - 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::NARROW 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER 
; --> LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE320)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER 
; --> LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE320 #:INDEX319)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE328)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ 
; --> THE 
; ==>
;   (ELT #:SEQUENCE328 #:INDEX327)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE336)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ 
; --> THE 
; ==>
;   (ELT #:SEQUENCE336 #:INDEX335)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (ITERATE:ITER
;       (ITERATE:UNTIL (ENDP DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:WITH DIFF-MATCH-PATCH::DIFFS-ORIG := DIFF-MATCH-PATCH::DIFFS)
;       (ITERATE:WITH DIFF-MATCH-PATCH::CHANGED := NIL)
;       (ITERATE:WITH DIFF-MATCH-PATCH::^EQUALITY := NIL)
;       (ITERATE:FOR
;        (VALUES DIFF-MATCH-PATCH::DELS DIFF-MATCH-PATCH::ADDS
;                DIFF-MATCH-PATCH::EQUALITY REST)
;        := (DIFF-MATCH-PATCH::NEXT-DIFFS DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:FOR (DIFF-MATCH-PATCH::OP DIFF-MATCH-PATCH::EDIT) :=
;        (DIFF-MATCH-PATCH::EDITS-XOR DIFF-MATCH-PATCH::DELS
;         DIFF-MATCH-PATCH::ADDS))
;       (COND
;        ((AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;              DIFF-MATCH-PATCH::EDIT
;              (DIFF-MATCH-PATCH::SUFFIXP DIFF-MATCH-PATCH::^EQUALITY
;                                         DIFF-MATCH-PATCH::EDIT
;                                         DIFF-MATCH-PATCH::TEST))
;         (DIFF-MATCH-PATCH::SHIFT-LEFT DIFF-MATCH-PATCH::^EQUALITY
;          DIFF-MATCH-PATCH::EDIT DIFF-MATCH-PATCH::EQUALITY)
;         (ITERATE:COLLECT `(,DIFF-MATCH-PATCH::OP ,DIFF-MATCH-PATCH::EDIT) :INTO
;          DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::CHANGED T))
;        ((AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;              DIFF-MATCH-PATCH::EDIT
;              (DIFF-MATCH-PATCH::PREFIXP DIFF-MATCH-PATCH::EQUALITY
;                                         DIFF-MATCH-PATCH::EDIT
;                                         DIFF-MATCH-PATCH::TEST))
;         (DIFF-MATCH-PATCH::SHIFT-RIGHT DIFF-MATCH-PATCH::^EQUALITY
;          DIFF-MATCH-PATCH::EDIT DIFF-MATCH-PATCH::EQUALITY)
;         (SETQ DIFF-MATCH-PATCH::^EQUALITY NIL)
;         (ITERATE:NCONCING `(# #) :INTO DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::CHANGED T))
;        (T
;         (ITERATE:NCONCING (DIFF-MATCH-PATCH::FILTER-DIFFS `#) :INTO
;          DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY)))
;       (SETQ DIFF-MATCH-PATCH::DIFFS REST)
;       (WHEN
;           (AND (ENDP REST)
;                (NOT (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)))
;         (ITERATE:COLLECT `(:= ,DIFF-MATCH-PATCH::^EQUALITY) :INTO
;          DIFF-MATCH-PATCH::DIFFS*))
;       (ITERATE:FINALLY
;        (RETURN
;         (IF DIFF-MATCH-PATCH::CHANGED
;             DIFF-MATCH-PATCH::DIFFS*
;             DIFF-MATCH-PATCH::DIFFS-ORIG))))
; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> DIFF-MATCH-PATCH::NARROW BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> DIFF-MATCH-PATCH::NARROW BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> DIFF-MATCH-PATCH::NARROW BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER 
; --> LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE296)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER 
; --> LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE296 #:INDEX295)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE304)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ 
; --> THE 
; ==>
;   (ELT #:SEQUENCE304 #:INDEX303)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE312)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ 
; --> THE 
; ==>
;   (ELT #:SEQUENCE312 #:INDEX311)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::NARROW BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::NARROW BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::NARROW BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE248)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE248 #:INDEX247)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE256)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE256 #:INDEX255)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE264)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE264 #:INDEX263)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::SUFFIXP DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EDIT
;                                DIFF-MATCH-PATCH::TEST)
; --> BLOCK LET - 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::B)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; ==>
;   (LENGTH DIFF-MATCH-PATCH::A)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::PREFIXP DIFF-MATCH-PATCH::EQUALITY DIFF-MATCH-PATCH::EDIT
;                                DIFF-MATCH-PATCH::TEST)
; --> BLOCK LET 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::A)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK LET AND IF <= 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::B)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (ITERATE:ITER
;       (ITERATE:UNTIL (ENDP DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:WITH DIFF-MATCH-PATCH::DIFFS-ORIG := DIFF-MATCH-PATCH::DIFFS)
;       (ITERATE:WITH DIFF-MATCH-PATCH::CHANGED := NIL)
;       (ITERATE:WITH DIFF-MATCH-PATCH::^EQUALITY := NIL)
;       (ITERATE:FOR
;        (VALUES DIFF-MATCH-PATCH::DELS DIFF-MATCH-PATCH::ADDS
;                DIFF-MATCH-PATCH::EQUALITY REST)
;        := (DIFF-MATCH-PATCH::NEXT-DIFFS DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:FOR (DIFF-MATCH-PATCH::OP DIFF-MATCH-PATCH::EDIT) :=
;        (DIFF-MATCH-PATCH::EDITS-XOR DIFF-MATCH-PATCH::DELS
;         DIFF-MATCH-PATCH::ADDS))
;       (COND
;        ((AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;              DIFF-MATCH-PATCH::EDIT
;              (DIFF-MATCH-PATCH::SUFFIXP DIFF-MATCH-PATCH::^EQUALITY
;                                         DIFF-MATCH-PATCH::EDIT
;                                         DIFF-MATCH-PATCH::TEST))
;         (DIFF-MATCH-PATCH::SHIFT-LEFT DIFF-MATCH-PATCH::^EQUALITY
;          DIFF-MATCH-PATCH::EDIT DIFF-MATCH-PATCH::EQUALITY)
;         (ITERATE:COLLECT `(,DIFF-MATCH-PATCH::OP ,DIFF-MATCH-PATCH::EDIT) :INTO
;          DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::CHANGED T))
;        ((AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;              DIFF-MATCH-PATCH::EDIT
;              (DIFF-MATCH-PATCH::PREFIXP DIFF-MATCH-PATCH::EQUALITY
;                                         DIFF-MATCH-PATCH::EDIT
;                                         DIFF-MATCH-PATCH::TEST))
;         (DIFF-MATCH-PATCH::SHIFT-RIGHT DIFF-MATCH-PATCH::^EQUALITY
;          DIFF-MATCH-PATCH::EDIT DIFF-MATCH-PATCH::EQUALITY)
;         (SETQ DIFF-MATCH-PATCH::^EQUALITY NIL)
;         (ITERATE:NCONCING `(# #) :INTO DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::CHANGED T))
;        (T
;         (ITERATE:NCONCING (DIFF-MATCH-PATCH::FILTER-DIFFS `#) :INTO
;          DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY)))
;       (SETQ DIFF-MATCH-PATCH::DIFFS REST)
;       (WHEN
;           (AND (ENDP REST)
;                (NOT (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)))
;         (ITERATE:COLLECT `(:= ,DIFF-MATCH-PATCH::^EQUALITY) :INTO
;          DIFF-MATCH-PATCH::DIFFS*))
;       (ITERATE:FINALLY
;        (RETURN
;         (IF DIFF-MATCH-PATCH::CHANGED
;             DIFF-MATCH-PATCH::DIFFS*
;             DIFF-MATCH-PATCH::DIFFS-ORIG))))
; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE272)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE272 #:INDEX271)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE280)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE280 #:INDEX279)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE288)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE288 #:INDEX287)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; in: DEFUN CLEANUP-SEMANTIC.NEXT-SHORT-EQUALITY
;     (LENGTH DIFF-MATCH-PATCH::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (MIN (DIFF-MATCH-PATCH::MAXC DIFF-MATCH-PATCH::EDIT-LENGTHS-LEFT)
;          (DIFF-MATCH-PATCH::MAXC DIFF-MATCH-PATCH::EDIT-LENGTHS-RIGHT))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (MAX (CAR DIFF-MATCH-PATCH::P) (CDR DIFF-MATCH-PATCH::P))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

;     (ITERATE:ITER
;       (ITERATE:FOR (DIFF-MATCH-PATCH::HEAD . REST) :ON DIFF-MATCH-PATCH::DIFFS)
;       (ITERATE:FOR (DIFF-MATCH-PATCH::OP DIFF-MATCH-PATCH::X) :=
;        DIFF-MATCH-PATCH::HEAD)
;       (ITERATE:WITH DIFF-MATCH-PATCH::LOOKBACK := NIL)
;       (ITERATE:WITH DIFF-MATCH-PATCH::EQUALITY := NIL)
;       (ITERATE:WITH DIFF-MATCH-PATCH::RET)
;       (ITERATE:WITH DIFF-MATCH-PATCH::EDIT-LENGTHS-LEFT)
;       (ITERATE:WITH DIFF-MATCH-PATCH::EDIT-LENGTHS-RIGHT := (CONS 0 0))
;       (IF (EQ DIFF-MATCH-PATCH::OP :=)
;           (PROGN
;            (WHEN DIFF-MATCH-PATCH::EQUALITY
;              (PUSH DIFF-MATCH-PATCH::RET DIFF-MATCH-PATCH::PREV-EQUALITIES))
;            (SETQ DIFF-MATCH-PATCH::EDIT-LENGTHS-LEFT
;                    DIFF-MATCH-PATCH::EDIT-LENGTHS-RIGHT
;                  DIFF-MATCH-PATCH::EDIT-LENGTHS-RIGHT #
;                  DIFF-MATCH-PATCH::RET #
;                  DIFF-MATCH-PATCH::LOOKBACK NIL
;                  DIFF-MATCH-PATCH::EQUALITY DIFF-MATCH-PATCH::X))
;           (PROGN
;            (CASE DIFF-MATCH-PATCH::OP (:- #) (:+ #))
;            (IF (AND DIFF-MATCH-PATCH::EQUALITY #)
;                (RETURN #))
;            (PUSH DIFF-MATCH-PATCH::HEAD DIFF-MATCH-PATCH::LOOKBACK))))
; --> BLOCK BLOCK TAGBODY PROGN IF PROGN LET IF IF LET* 
; ==>
;   (+ (LENGTH DIFF-MATCH-PATCH::X) (CDR #:EDIT-LENGTHS-RIGHT7))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN LET IF LET* 
; ==>
;   (+ (LENGTH DIFF-MATCH-PATCH::X) (CAR #:EDIT-LENGTHS-RIGHT5))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (MIN (DIFF-MATCH-PATCH::MAXC DIFF-MATCH-PATCH::EDIT-LENGTHS-LEFT)
;          (DIFF-MATCH-PATCH::MAXC DIFF-MATCH-PATCH::EDIT-LENGTHS-RIGHT))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; in: DEFUN CLEANUP-SEMANTIC.BOUNDARY-SCORE
;     (DIFF-MATCH-PATCH::COUNTING-NEWLINES
;      (DIFF-MATCH-PATCH::N :FROM DIFF-MATCH-PATCH::POS :BELOW
;       DIFF-MATCH-PATCH::END)
;      (ITERATE:THEREIS (>= DIFF-MATCH-PATCH::N 2)))
; 
; caught WARNING:
;   COUNT appears to be used as an ITERATE clause keyword, in this sexpression: (COUNT 1 :INTO N). This use is now deprecated and will cease to be supported in a future version. Please use the alternative keyword COUNTING instead. If you intended COUNT to be interpreted as a function call, instead of an ITERATE clause, you must find an alternative way of calling it, at present, perhaps by using FUNCALL or APPLY.

;     (LENGTH DIFF-MATCH-PATCH::STR)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (< DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::POS)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (<= DIFF-MATCH-PATCH::POS DIFF-MATCH-PATCH::END)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (AREF DIFF-MATCH-PATCH::STR (1- DIFF-MATCH-PATCH::POS))
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.

;     (<= DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::POS)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (< DIFF-MATCH-PATCH::POS DIFF-MATCH-PATCH::END)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (AREF DIFF-MATCH-PATCH::STR DIFF-MATCH-PATCH::POS)
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.

;     (DIFF-MATCH-PATCH::COUNTING-NEWLINES
;      (DIFF-MATCH-PATCH::N :FROM (1- DIFF-MATCH-PATCH::POS) :DOWNTO
;       DIFF-MATCH-PATCH::START)
;      (ITERATE:THEREIS (>= DIFF-MATCH-PATCH::N 2)))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

;     (DIFF-MATCH-PATCH::COUNTING-NEWLINES
;      (DIFF-MATCH-PATCH::N :FROM DIFF-MATCH-PATCH::POS :BELOW
;       DIFF-MATCH-PATCH::END)
;      (ITERATE:THEREIS (>= DIFF-MATCH-PATCH::N 2)))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

;     (< DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::POS)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

;     (<= DIFF-MATCH-PATCH::POS DIFF-MATCH-PATCH::END)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.

;     (1- DIFF-MATCH-PATCH::POS)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (<= DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::POS)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.

;     (< DIFF-MATCH-PATCH::POS DIFF-MATCH-PATCH::END)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

;     (1- DIFF-MATCH-PATCH::POS)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (DIFF-MATCH-PATCH::COUNTING-NEWLINES
;      (DIFF-MATCH-PATCH::N :FROM (1- DIFF-MATCH-PATCH::POS) :DOWNTO
;       DIFF-MATCH-PATCH::START)
;      (ITERATE:THEREIS (>= DIFF-MATCH-PATCH::N 2)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (DIFF-MATCH-PATCH::COUNTING-NEWLINES
;      (DIFF-MATCH-PATCH::N :FROM DIFF-MATCH-PATCH::POS :BELOW
;       DIFF-MATCH-PATCH::END)
;      (ITERATE:THEREIS (>= DIFF-MATCH-PATCH::N 2)))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

; in: DEFUN CLEANUP-SEMANTIC.SHIFT-LOSSLESS
;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EDIT
;                              DIFF-MATCH-PATCH::EQUALITY)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (LENGTH DIFF-MATCH-PATCH::EDIT)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::BUF)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (FUNCALL DIFF-MATCH-PATCH::TEST
;              (AREF DIFF-MATCH-PATCH::BUF DIFF-MATCH-PATCH::WINDOW)
;              (AREF DIFF-MATCH-PATCH::BUF DIFF-MATCH-PATCH::WINDOW-END))
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST is not known to be a function

;     (AREF DIFF-MATCH-PATCH::BUF DIFF-MATCH-PATCH::WINDOW)
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.

;     (AREF DIFF-MATCH-PATCH::BUF DIFF-MATCH-PATCH::WINDOW-END)
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.

;     (LENGTH DIFF-MATCH-PATCH::^EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (= DIFF-MATCH-PATCH::BEST-WINDOW (LENGTH DIFF-MATCH-PATCH::^EQUALITY))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY*)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EDIT
;                              DIFF-MATCH-PATCH::EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR CONS), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (ITERATE:ITER
;       (ITERATE:UNTIL (ENDP DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:WITH DIFF-MATCH-PATCH::^EQUALITY := NIL)
;       (ITERATE:FOR
;        (VALUES DIFF-MATCH-PATCH::DELS DIFF-MATCH-PATCH::ADDS
;                DIFF-MATCH-PATCH::EQUALITY REST)
;        := (DIFF-MATCH-PATCH::NEXT-DIFFS DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:FOR (DIFF-MATCH-PATCH::OP DIFF-MATCH-PATCH::EDIT) :=
;        (DIFF-MATCH-PATCH::EDITS-XOR DIFF-MATCH-PATCH::DELS
;         DIFF-MATCH-PATCH::ADDS))
;       (ITERATE:FOR
;        (VALUES DIFF-MATCH-PATCH::^EQUALITY* DIFF-MATCH-PATCH::EDIT*
;                DIFF-MATCH-PATCH::EQUALITY*)
;        :=
;        (WHEN
;            (AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;                 DIFF-MATCH-PATCH::EDIT)
;          (ITERATE:ITER
;            (ITERATE:WITH DIFF-MATCH-PATCH::BUF := #)
;            (ITERATE:WITH DIFF-MATCH-PATCH::WIDTH := #)
;            (ITERATE:WITH DIFF-MATCH-PATCH::BUF-START := #)
;            (ITERATE:WITH DIFF-MATCH-PATCH::BUF-END := #)
;            (ITERATE:FOR DIFF-MATCH-PATCH::WINDOW :INDEX-OF-STRING
;             DIFF-MATCH-PATCH::BUF :FROM DIFF-MATCH-PATCH::BUF-START :TO
;             DIFF-MATCH-PATCH::BUF-END)
;            (ITERATE:FOR DIFF-MATCH-PATCH::WINDOW-END := #)
;            (ITERATE:WHILE #)
;            (ITERATE:FOR DIFF-MATCH-PATCH::SCORE := #)
;            (ITERATE:MAXIMIZING DIFF-MATCH-PATCH::SCORE :INTO
;             DIFF-MATCH-PATCH::BEST-SCORE)
;            (ITERATE:REDUCING DIFF-MATCH-PATCH::WINDOW :BY # :INTO
;             DIFF-MATCH-PATCH::BEST-WINDOW :INITIAL-VALUE
;             DIFF-MATCH-PATCH::BUF-START)
;            (ITERATE:FINALLY #))))
;       (IF DIFF-MATCH-PATCH::EDIT*
;           (PROGN
;            (UNLESS (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY*)
;              (ITERATE:COLLECT `#))
;            (ITERATE:COLLECT `(,DIFF-MATCH-PATCH::OP ,DIFF-MATCH-PATCH::EDIT*))
;            (SETQ DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY*))
;           (PROGN
;            (ITERATE:NCONCING (DIFF-MATCH-PATCH::FILTER-DIFFS `#))
;            (SETQ DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY)))
;       (SETQ DIFF-MATCH-PATCH::DIFFS REST)
;       (WHEN
;           (AND (ENDP REST)
;                (NOT (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)))
;         (ITERATE:COLLECT `(:= ,DIFF-MATCH-PATCH::^EQUALITY))))
; --> BLOCK BLOCK TAGBODY PROGN MULTIPLE-VALUE-SETQ VALUES 
; ==>
;   1
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a (REAL 0), not a FIXNUM.

;     (< DIFF-MATCH-PATCH::SCORE DIFF-MATCH-PATCH::BEST-SCORE)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a (REAL 0), not a FIXNUM.

;     (+ DIFF-MATCH-PATCH::BEST-WINDOW DIFF-MATCH-PATCH::WIDTH)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

; in: DEFUN CLEANUP-SEMANTIC.ELIMINATE-OVERLAPS
;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::EQUALITY)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (>= DIFF-MATCH-PATCH::OV1 DIFF-MATCH-PATCH::OV2)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (> DIFF-MATCH-PATCH::OV1 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (LENGTH DIFF-MATCH-PATCH::DELS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (/ (LENGTH DIFF-MATCH-PATCH::DELS) 2)
; 
; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL 0 17592186044415/2) &OPTIONAL), not a (VALUES INTEGER &REST T).

;     (>= DIFF-MATCH-PATCH::OV1 (/ (LENGTH DIFF-MATCH-PATCH::DELS) 2))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL (0)), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL (0)), not a DOUBLE-FLOAT.

;     (LENGTH DIFF-MATCH-PATCH::ADDS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (/ (LENGTH DIFF-MATCH-PATCH::ADDS) 2)
; 
; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL 0 17592186044415/2) &OPTIONAL), not a (VALUES INTEGER &REST T).

;     (>= DIFF-MATCH-PATCH::OV1 (/ (LENGTH DIFF-MATCH-PATCH::ADDS) 2))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (0) (17592186044415/2)) (SINGLE-FLOAT (0.0) (8.796093e12)) (DOUBLE-FLOAT (0.0d0) (8.7960930222075d12))), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (0) (17592186044415/2)) (SINGLE-FLOAT (0.0) (8.796093e12)) (DOUBLE-FLOAT (0.0d0) (8.7960930222075d12))), not a DOUBLE-FLOAT.

;     (>= DIFF-MATCH-PATCH::OV2 DIFF-MATCH-PATCH::OV1)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (> DIFF-MATCH-PATCH::OV2 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (LENGTH DIFF-MATCH-PATCH::DELS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (/ (LENGTH DIFF-MATCH-PATCH::DELS) 2)
; 
; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL 0 17592186044415/2) &OPTIONAL), not a (VALUES INTEGER &REST T).

;     (>= DIFF-MATCH-PATCH::OV2 (/ (LENGTH DIFF-MATCH-PATCH::DELS) 2))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL (0)), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL (0)), not a DOUBLE-FLOAT.

;     (LENGTH DIFF-MATCH-PATCH::ADDS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (/ (LENGTH DIFF-MATCH-PATCH::ADDS) 2)
; 
; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL 0 17592186044415/2) &OPTIONAL), not a (VALUES INTEGER &REST T).

;     (>= DIFF-MATCH-PATCH::OV2 (/ (LENGTH DIFF-MATCH-PATCH::ADDS) 2))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (0) (17592186044415/2)) (SINGLE-FLOAT (0.0) (8.796093e12)) (DOUBLE-FLOAT (0.0d0) (8.7960930222075d12))), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (0) (17592186044415/2)) (SINGLE-FLOAT (0.0) (8.796093e12)) (DOUBLE-FLOAT (0.0d0) (8.7960930222075d12))), not a DOUBLE-FLOAT.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::B 0 DIFF-MATCH-PATCH::OV)
; --> BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::A 0 (- DIFF-MATCH-PATCH::OV))
; --> BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::B DIFF-MATCH-PATCH::OV)
; --> BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::ADDS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (>= DIFF-MATCH-PATCH::OV1 DIFF-MATCH-PATCH::OV2)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.

;     (> DIFF-MATCH-PATCH::OV1 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (>= DIFF-MATCH-PATCH::OV2 DIFF-MATCH-PATCH::OV1)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.

;     (> DIFF-MATCH-PATCH::OV2 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::A 0 (- DIFF-MATCH-PATCH::OV))
; --> BLOCK IF LET* DIFF-MATCH-PATCH::INDEX COND IF IF + 
; ==>
;   1
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (REAL (0)), not a FIXNUM.
;       The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a (REAL (0)), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

; in: DEFUN CLEANUP-FOR-EFFICIENCY
;     (LENGTH DIFF-MATCH-PATCH::^EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (/ DIFF-MATCH-PATCH:*DIFF-EDIT-COST* 2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a INTEGER.The result is a (VALUES REAL &OPTIONAL), not a (VALUES INTEGER &REST T).
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^ADDS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^DELS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::ADDS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=1646915 "main thread" RUNNING {123FB58093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "diff-match-patch" "src" "cleanup">

Backtrace for: #<SB-THREAD:THREAD tid=1646915 "main thread" RUNNING {123FB58093}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121FD586B3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121FD586B3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {121FD586B3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "diff-match-patch" "src" "cleanup">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "diff-match-patch" "src" "cleanup">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "diff-match-patch" "src" "cleanup">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "diff-match-patch" "src" "cleanup">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12046C5703}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12046C5703}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "diff-match-patch/test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "diff-match-patch/test">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "diff-match-patch/test">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "diff-match-patch/test")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "diff-match-patch/test") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12046D708B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1204695FCB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "diff-match-patch/test") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "diff-match-patch" "diff-match-patch/test")
23: (DEPCHECK::MAGIC "diff-match-patch" "diff-match-patch/test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-0KqusBSS/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "diff-match-patch" "diff-match-patch/test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-0KqusBSS/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-0KqusBSS/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::%START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 WARNING condition
;   caught 1 STYLE-WARNING condition
;   printed 3161 notes

diff-match-patch

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/diff-match-patch/2281e20cac5a8922567ea4cbc6f4644b126ec6b1/diff-match-patch-20250710-git/cleanup.lisp
; in: DEFUN EDITS-XOR
;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::ADDS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; in: DEFUN CLEANUP-MERGE.JOIN-DIFFERENCES
;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::^EQUALITY
;                              DIFF-MATCH-PATCH::EQUALITY)
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::PREFIX)
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::SUFFIX DIFF-MATCH-PATCH::EQUALITY)
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::EQUALITY)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::ADDS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::SUFFIX)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::SUFFIX DIFF-MATCH-PATCH::EQUALITY)
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE55)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE55 #:INDEX54)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE63)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE63 #:INDEX62)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE71)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE71 #:INDEX70)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::^EQUALITY
;                              DIFF-MATCH-PATCH::EQUALITY)
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE7)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE7 #:INDEX6)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE15)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE15 #:INDEX14)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE23)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE23 #:INDEX22)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::PREFIX)
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE31)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE31 #:INDEX30)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE39)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE39 #:INDEX38)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE47)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE47 #:INDEX46)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::PREFIX)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; in: DEFUN CLEANUP-MERGE.SHIFT-DIFFERENCES
;     (ITERATE:ITER
;       (ITERATE:UNTIL (ENDP DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:WITH DIFF-MATCH-PATCH::DIFFS-ORIG := DIFF-MATCH-PATCH::DIFFS)
;       (ITERATE:WITH DIFF-MATCH-PATCH::CHANGED := NIL)
;       (ITERATE:WITH DIFF-MATCH-PATCH::^EQUALITY := NIL)
;       (ITERATE:FOR
;        (VALUES DIFF-MATCH-PATCH::DELS DIFF-MATCH-PATCH::ADDS
;                DIFF-MATCH-PATCH::EQUALITY REST)
;        := (DIFF-MATCH-PATCH::NEXT-DIFFS DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:FOR (DIFF-MATCH-PATCH::OP DIFF-MATCH-PATCH::EDIT) :=
;        (DIFF-MATCH-PATCH::EDITS-XOR DIFF-MATCH-PATCH::DELS
;         DIFF-MATCH-PATCH::ADDS))
;       (COND
;        ((AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;              DIFF-MATCH-PATCH::EDIT
;              (DIFF-MATCH-PATCH::SUFFIXP DIFF-MATCH-PATCH::^EQUALITY
;                                         DIFF-MATCH-PATCH::EDIT
;                                         DIFF-MATCH-PATCH::TEST))
;         (DIFF-MATCH-PATCH::SHIFT-LEFT DIFF-MATCH-PATCH::^EQUALITY
;          DIFF-MATCH-PATCH::EDIT DIFF-MATCH-PATCH::EQUALITY)
;         (ITERATE:COLLECT `(,DIFF-MATCH-PATCH::OP ,DIFF-MATCH-PATCH::EDIT) :INTO
;          DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::CHANGED T))
;        ((AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;              DIFF-MATCH-PATCH::EDIT
;              (DIFF-MATCH-PATCH::PREFIXP DIFF-MATCH-PATCH::EQUALITY
;                                         DIFF-MATCH-PATCH::EDIT
;                                         DIFF-MATCH-PATCH::TEST))
;         (DIFF-MATCH-PATCH::SHIFT-RIGHT DIFF-MATCH-PATCH::^EQUALITY
;          DIFF-MATCH-PATCH::EDIT DIFF-MATCH-PATCH::EQUALITY)
;         (SETQ DIFF-MATCH-PATCH::^EQUALITY NIL)
;         (ITERATE:NCONCING `(# #) :INTO DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::CHANGED T))
;        (T
;         (ITERATE:NCONCING (DIFF-MATCH-PATCH::FILTER-DIFFS `#) :INTO
;          DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY)))
;       (SETQ DIFF-MATCH-PATCH::DIFFS REST)
;       (WHEN
;           (AND (ENDP REST)
;                (NOT (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)))
;         (ITERATE:COLLECT `(:= ,DIFF-MATCH-PATCH::^EQUALITY) :INTO
;          DIFF-MATCH-PATCH::DIFFS*))
;       (ITERATE:FINALLY
;        (RETURN
;         (IF DIFF-MATCH-PATCH::CHANGED
;             DIFF-MATCH-PATCH::DIFFS*
;             DIFF-MATCH-PATCH::DIFFS-ORIG))))
; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; ==>
;   (DIFF-MATCH-PATCH::SEQ-TYPE DIFF-MATCH-PATCH::X0)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> DIFF-MATCH-PATCH::NARROW - 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::NARROW 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER 
; --> LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE154)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER 
; --> LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE154 #:INDEX153)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE162)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ 
; --> THE 
; ==>
;   (ELT #:SEQUENCE162 #:INDEX161)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE170)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ 
; --> THE 
; ==>
;   (ELT #:SEQUENCE170 #:INDEX169)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (ITERATE:ITER
;       (ITERATE:UNTIL (ENDP DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:WITH DIFF-MATCH-PATCH::DIFFS-ORIG := DIFF-MATCH-PATCH::DIFFS)
;       (ITERATE:WITH DIFF-MATCH-PATCH::CHANGED := NIL)
;       (ITERATE:WITH DIFF-MATCH-PATCH::^EQUALITY := NIL)
;       (ITERATE:FOR
;        (VALUES DIFF-MATCH-PATCH::DELS DIFF-MATCH-PATCH::ADDS
;                DIFF-MATCH-PATCH::EQUALITY REST)
;        := (DIFF-MATCH-PATCH::NEXT-DIFFS DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:FOR (DIFF-MATCH-PATCH::OP DIFF-MATCH-PATCH::EDIT) :=
;        (DIFF-MATCH-PATCH::EDITS-XOR DIFF-MATCH-PATCH::DELS
;         DIFF-MATCH-PATCH::ADDS))
;       (COND
;        ((AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;              DIFF-MATCH-PATCH::EDIT
;              (DIFF-MATCH-PATCH::SUFFIXP DIFF-MATCH-PATCH::^EQUALITY
;                                         DIFF-MATCH-PATCH::EDIT
;                                         DIFF-MATCH-PATCH::TEST))
;         (DIFF-MATCH-PATCH::SHIFT-LEFT DIFF-MATCH-PATCH::^EQUALITY
;          DIFF-MATCH-PATCH::EDIT DIFF-MATCH-PATCH::EQUALITY)
;         (ITERATE:COLLECT `(,DIFF-MATCH-PATCH::OP ,DIFF-MATCH-PATCH::EDIT) :INTO
;          DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::CHANGED T))
;        ((AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;              DIFF-MATCH-PATCH::EDIT
;              (DIFF-MATCH-PATCH::PREFIXP DIFF-MATCH-PATCH::EQUALITY
;                                         DIFF-MATCH-PATCH::EDIT
;                                         DIFF-MATCH-PATCH::TEST))
;         (DIFF-MATCH-PATCH::SHIFT-RIGHT DIFF-MATCH-PATCH::^EQUALITY
;          DIFF-MATCH-PATCH::EDIT DIFF-MATCH-PATCH::EQUALITY)
;         (SETQ DIFF-MATCH-PATCH::^EQUALITY NIL)
;         (ITERATE:NCONCING `(# #) :INTO DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::CHANGED T))
;        (T
;         (ITERATE:NCONCING (DIFF-MATCH-PATCH::FILTER-DIFFS `#) :INTO
;          DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY)))
;       (SETQ DIFF-MATCH-PATCH::DIFFS REST)
;       (WHEN
;           (AND (ENDP REST)
;                (NOT (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)))
;         (ITERATE:COLLECT `(:= ,DIFF-MATCH-PATCH::^EQUALITY) :INTO
;          DIFF-MATCH-PATCH::DIFFS*))
;       (ITERATE:FINALLY
;        (RETURN
;         (IF DIFF-MATCH-PATCH::CHANGED
;             DIFF-MATCH-PATCH::DIFFS*
;             DIFF-MATCH-PATCH::DIFFS-ORIG))))
; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> DIFF-MATCH-PATCH::NARROW BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> DIFF-MATCH-PATCH::NARROW BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> DIFF-MATCH-PATCH::NARROW BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER 
; --> LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE130)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER 
; --> LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE130 #:INDEX129)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE138)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ 
; --> THE 
; ==>
;   (ELT #:SEQUENCE138 #:INDEX137)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE146)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING 
; --> ITERATE:ITER LET* BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ 
; --> THE 
; ==>
;   (ELT #:SEQUENCE146 #:INDEX145)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF 
; --> THE MACROLET CASE LET DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::NARROW BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::NARROW BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK BLOCK TAGBODY PROGN IF IF PROGN PROGN SETQ THE 
; --> DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::NARROW BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE82)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE82 #:INDEX81)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE90)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE90 #:INDEX89)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE98)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE98 #:INDEX97)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::SUFFIXP DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EDIT
;                                DIFF-MATCH-PATCH::TEST)
; --> BLOCK LET - 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::B)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; ==>
;   (LENGTH DIFF-MATCH-PATCH::A)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::PREFIXP DIFF-MATCH-PATCH::EQUALITY DIFF-MATCH-PATCH::EDIT
;                                DIFF-MATCH-PATCH::TEST)
; --> BLOCK LET 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::A)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK LET AND IF <= 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::B)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (ITERATE:ITER
;       (ITERATE:UNTIL (ENDP DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:WITH DIFF-MATCH-PATCH::DIFFS-ORIG := DIFF-MATCH-PATCH::DIFFS)
;       (ITERATE:WITH DIFF-MATCH-PATCH::CHANGED := NIL)
;       (ITERATE:WITH DIFF-MATCH-PATCH::^EQUALITY := NIL)
;       (ITERATE:FOR
;        (VALUES DIFF-MATCH-PATCH::DELS DIFF-MATCH-PATCH::ADDS
;                DIFF-MATCH-PATCH::EQUALITY REST)
;        := (DIFF-MATCH-PATCH::NEXT-DIFFS DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:FOR (DIFF-MATCH-PATCH::OP DIFF-MATCH-PATCH::EDIT) :=
;        (DIFF-MATCH-PATCH::EDITS-XOR DIFF-MATCH-PATCH::DELS
;         DIFF-MATCH-PATCH::ADDS))
;       (COND
;        ((AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;              DIFF-MATCH-PATCH::EDIT
;              (DIFF-MATCH-PATCH::SUFFIXP DIFF-MATCH-PATCH::^EQUALITY
;                                         DIFF-MATCH-PATCH::EDIT
;                                         DIFF-MATCH-PATCH::TEST))
;         (DIFF-MATCH-PATCH::SHIFT-LEFT DIFF-MATCH-PATCH::^EQUALITY
;          DIFF-MATCH-PATCH::EDIT DIFF-MATCH-PATCH::EQUALITY)
;         (ITERATE:COLLECT `(,DIFF-MATCH-PATCH::OP ,DIFF-MATCH-PATCH::EDIT) :INTO
;          DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::CHANGED T))
;        ((AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;              DIFF-MATCH-PATCH::EDIT
;              (DIFF-MATCH-PATCH::PREFIXP DIFF-MATCH-PATCH::EQUALITY
;                                         DIFF-MATCH-PATCH::EDIT
;                                         DIFF-MATCH-PATCH::TEST))
;         (DIFF-MATCH-PATCH::SHIFT-RIGHT DIFF-MATCH-PATCH::^EQUALITY
;          DIFF-MATCH-PATCH::EDIT DIFF-MATCH-PATCH::EQUALITY)
;         (SETQ DIFF-MATCH-PATCH::^EQUALITY NIL)
;         (ITERATE:NCONCING `(# #) :INTO DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::CHANGED T))
;        (T
;         (ITERATE:NCONCING (DIFF-MATCH-PATCH::FILTER-DIFFS `#) :INTO
;          DIFF-MATCH-PATCH::DIFFS*)
;         (SETQ DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY)))
;       (SETQ DIFF-MATCH-PATCH::DIFFS REST)
;       (WHEN
;           (AND (ENDP REST)
;                (NOT (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)))
;         (ITERATE:COLLECT `(:= ,DIFF-MATCH-PATCH::^EQUALITY) :INTO
;          DIFF-MATCH-PATCH::DIFFS*))
;       (ITERATE:FINALLY
;        (RETURN
;         (IF DIFF-MATCH-PATCH::CHANGED
;             DIFF-MATCH-PATCH::DIFFS*
;             DIFF-MATCH-PATCH::DIFFS-ORIG))))
; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE106)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE106 #:INDEX105)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE114)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK TAGBODY 
; --> PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE114 #:INDEX113)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* 
; ==>
;   (LENGTH #:SEQUENCE122)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> COND IF IF THE DIFF-MATCH-PATCH::ITER-JOINING ITERATE:ITER LET* BLOCK 
; --> TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT #:SEQUENCE122 #:INDEX121)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET 
; ==>
;   (ELT DIFF-MATCH-PATCH::X 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN PROGN SETQ THE DIFF-MATCH-PATCH::JOIN* 
; --> BLOCK DIFF-MATCH-PATCH::JOIN BLOCK LET COND IF IF THE MACROLET CASE LET 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF 
; --> DIFF-MATCH-PATCH::SEQ-TYPE BLOCK VALUES IF LET IF TYPEP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

; in: DEFUN CLEANUP-SEMANTIC.NEXT-SHORT-EQUALITY
;     (LENGTH DIFF-MATCH-PATCH::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (MIN (DIFF-MATCH-PATCH::MAXC DIFF-MATCH-PATCH::EDIT-LENGTHS-LEFT)
;          (DIFF-MATCH-PATCH::MAXC DIFF-MATCH-PATCH::EDIT-LENGTHS-RIGHT))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (MAX (CAR DIFF-MATCH-PATCH::P) (CDR DIFF-MATCH-PATCH::P))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

;     (ITERATE:ITER
;       (ITERATE:FOR (DIFF-MATCH-PATCH::HEAD . REST) :ON DIFF-MATCH-PATCH::DIFFS)
;       (ITERATE:FOR (DIFF-MATCH-PATCH::OP DIFF-MATCH-PATCH::X) :=
;        DIFF-MATCH-PATCH::HEAD)
;       (ITERATE:WITH DIFF-MATCH-PATCH::LOOKBACK := NIL)
;       (ITERATE:WITH DIFF-MATCH-PATCH::EQUALITY := NIL)
;       (ITERATE:WITH DIFF-MATCH-PATCH::RET)
;       (ITERATE:WITH DIFF-MATCH-PATCH::EDIT-LENGTHS-LEFT)
;       (ITERATE:WITH DIFF-MATCH-PATCH::EDIT-LENGTHS-RIGHT := (CONS 0 0))
;       (IF (EQ DIFF-MATCH-PATCH::OP :=)
;           (PROGN
;            (WHEN DIFF-MATCH-PATCH::EQUALITY
;              (PUSH DIFF-MATCH-PATCH::RET DIFF-MATCH-PATCH::PREV-EQUALITIES))
;            (SETQ DIFF-MATCH-PATCH::EDIT-LENGTHS-LEFT
;                    DIFF-MATCH-PATCH::EDIT-LENGTHS-RIGHT
;                  DIFF-MATCH-PATCH::EDIT-LENGTHS-RIGHT #
;                  DIFF-MATCH-PATCH::RET #
;                  DIFF-MATCH-PATCH::LOOKBACK NIL
;                  DIFF-MATCH-PATCH::EQUALITY DIFF-MATCH-PATCH::X))
;           (PROGN
;            (CASE DIFF-MATCH-PATCH::OP (:- #) (:+ #))
;            (IF (AND DIFF-MATCH-PATCH::EQUALITY #)
;                (RETURN #))
;            (PUSH DIFF-MATCH-PATCH::HEAD DIFF-MATCH-PATCH::LOOKBACK))))
; --> BLOCK BLOCK TAGBODY PROGN IF PROGN LET IF IF LET* 
; ==>
;   (+ (LENGTH DIFF-MATCH-PATCH::X) (CDR #:EDIT-LENGTHS-RIGHT7))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

; --> BLOCK BLOCK TAGBODY PROGN IF PROGN LET IF LET* 
; ==>
;   (+ (LENGTH DIFF-MATCH-PATCH::X) (CAR #:EDIT-LENGTHS-RIGHT5))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

;     (MIN (DIFF-MATCH-PATCH::MAXC DIFF-MATCH-PATCH::EDIT-LENGTHS-LEFT)
;          (DIFF-MATCH-PATCH::MAXC DIFF-MATCH-PATCH::EDIT-LENGTHS-RIGHT))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; in: DEFUN CLEANUP-SEMANTIC.BOUNDARY-SCORE
;     (DIFF-MATCH-PATCH::COUNTING-NEWLINES
;      (DIFF-MATCH-PATCH::N :FROM DIFF-MATCH-PATCH::POS :BELOW
;       DIFF-MATCH-PATCH::END)
;      (ITERATE:THEREIS (>= DIFF-MATCH-PATCH::N 2)))
; 
; caught WARNING:
;   COUNT appears to be used as an ITERATE clause keyword, in this sexpression: (COUNT 1 :INTO N). This use is now deprecated and will cease to be supported in a future version. Please use the alternative keyword COUNTING instead. If you intended COUNT to be interpreted as a function call, instead of an ITERATE clause, you must find an alternative way of calling it, at present, perhaps by using FUNCALL or APPLY.

;     (LENGTH DIFF-MATCH-PATCH::STR)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (< DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::POS)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (<= DIFF-MATCH-PATCH::POS DIFF-MATCH-PATCH::END)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (AREF DIFF-MATCH-PATCH::STR (1- DIFF-MATCH-PATCH::POS))
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.

;     (<= DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::POS)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (< DIFF-MATCH-PATCH::POS DIFF-MATCH-PATCH::END)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (AREF DIFF-MATCH-PATCH::STR DIFF-MATCH-PATCH::POS)
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.

;     (DIFF-MATCH-PATCH::COUNTING-NEWLINES
;      (DIFF-MATCH-PATCH::N :FROM (1- DIFF-MATCH-PATCH::POS) :DOWNTO
;       DIFF-MATCH-PATCH::START)
;      (ITERATE:THEREIS (>= DIFF-MATCH-PATCH::N 2)))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

;     (DIFF-MATCH-PATCH::COUNTING-NEWLINES
;      (DIFF-MATCH-PATCH::N :FROM DIFF-MATCH-PATCH::POS :BELOW
;       DIFF-MATCH-PATCH::END)
;      (ITERATE:THEREIS (>= DIFF-MATCH-PATCH::N 2)))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

;     (< DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::POS)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

;     (<= DIFF-MATCH-PATCH::POS DIFF-MATCH-PATCH::END)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.

;     (1- DIFF-MATCH-PATCH::POS)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (<= DIFF-MATCH-PATCH::START DIFF-MATCH-PATCH::POS)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.

;     (< DIFF-MATCH-PATCH::POS DIFF-MATCH-PATCH::END)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

;     (1- DIFF-MATCH-PATCH::POS)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (DIFF-MATCH-PATCH::COUNTING-NEWLINES
;      (DIFF-MATCH-PATCH::N :FROM (1- DIFF-MATCH-PATCH::POS) :DOWNTO
;       DIFF-MATCH-PATCH::START)
;      (ITERATE:THEREIS (>= DIFF-MATCH-PATCH::N 2)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

;     (DIFF-MATCH-PATCH::COUNTING-NEWLINES
;      (DIFF-MATCH-PATCH::N :FROM DIFF-MATCH-PATCH::POS :BELOW
;       DIFF-MATCH-PATCH::END)
;      (ITERATE:THEREIS (>= DIFF-MATCH-PATCH::N 2)))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       etc.

; in: DEFUN CLEANUP-SEMANTIC.SHIFT-LOSSLESS
;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EDIT
;                              DIFF-MATCH-PATCH::EQUALITY)
; 
; note: *INLINE-EXPANSION-LIMIT* (50) was exceeded while inlining SEQ-TYPE

;     (LENGTH DIFF-MATCH-PATCH::EDIT)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (LENGTH DIFF-MATCH-PATCH::BUF)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (FUNCALL DIFF-MATCH-PATCH::TEST
;              (AREF DIFF-MATCH-PATCH::BUF DIFF-MATCH-PATCH::WINDOW)
;              (AREF DIFF-MATCH-PATCH::BUF DIFF-MATCH-PATCH::WINDOW-END))
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: TEST is not known to be a function

;     (AREF DIFF-MATCH-PATCH::BUF DIFF-MATCH-PATCH::WINDOW)
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.

;     (AREF DIFF-MATCH-PATCH::BUF DIFF-MATCH-PATCH::WINDOW-END)
; 
; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.

;     (LENGTH DIFF-MATCH-PATCH::^EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (= DIFF-MATCH-PATCH::BEST-WINDOW (LENGTH DIFF-MATCH-PATCH::^EQUALITY))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY*)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::JOIN* DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EDIT
;                              DIFF-MATCH-PATCH::EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (ITERATE:ITER
;       (ITERATE:UNTIL (ENDP DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:WITH DIFF-MATCH-PATCH::^EQUALITY := NIL)
;       (ITERATE:FOR
;        (VALUES DIFF-MATCH-PATCH::DELS DIFF-MATCH-PATCH::ADDS
;                DIFF-MATCH-PATCH::EQUALITY REST)
;        := (DIFF-MATCH-PATCH::NEXT-DIFFS DIFF-MATCH-PATCH::DIFFS))
;       (ITERATE:FOR (DIFF-MATCH-PATCH::OP DIFF-MATCH-PATCH::EDIT) :=
;        (DIFF-MATCH-PATCH::EDITS-XOR DIFF-MATCH-PATCH::DELS
;         DIFF-MATCH-PATCH::ADDS))
;       (ITERATE:FOR
;        (VALUES DIFF-MATCH-PATCH::^EQUALITY* DIFF-MATCH-PATCH::EDIT*
;                DIFF-MATCH-PATCH::EQUALITY*)
;        :=
;        (WHEN
;            (AND DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY
;                 DIFF-MATCH-PATCH::EDIT)
;          (ITERATE:ITER
;            (ITERATE:WITH DIFF-MATCH-PATCH::BUF := #)
;            (ITERATE:WITH DIFF-MATCH-PATCH::WIDTH := #)
;            (ITERATE:WITH DIFF-MATCH-PATCH::BUF-START := #)
;            (ITERATE:WITH DIFF-MATCH-PATCH::BUF-END := #)
;            (ITERATE:FOR DIFF-MATCH-PATCH::WINDOW :INDEX-OF-STRING
;             DIFF-MATCH-PATCH::BUF :FROM DIFF-MATCH-PATCH::BUF-START :TO
;             DIFF-MATCH-PATCH::BUF-END)
;            (ITERATE:FOR DIFF-MATCH-PATCH::WINDOW-END := #)
;            (ITERATE:WHILE #)
;            (ITERATE:FOR DIFF-MATCH-PATCH::SCORE := #)
;            (ITERATE:MAXIMIZING DIFF-MATCH-PATCH::SCORE :INTO
;             DIFF-MATCH-PATCH::BEST-SCORE)
;            (ITERATE:REDUCING DIFF-MATCH-PATCH::WINDOW :BY # :INTO
;             DIFF-MATCH-PATCH::BEST-WINDOW :INITIAL-VALUE
;             DIFF-MATCH-PATCH::BUF-START)
;            (ITERATE:FINALLY #))))
;       (IF DIFF-MATCH-PATCH::EDIT*
;           (PROGN
;            (UNLESS (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY*)
;              (ITERATE:COLLECT `#))
;            (ITERATE:COLLECT `(,DIFF-MATCH-PATCH::OP ,DIFF-MATCH-PATCH::EDIT*))
;            (SETQ DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY*))
;           (PROGN
;            (ITERATE:NCONCING (DIFF-MATCH-PATCH::FILTER-DIFFS `#))
;            (SETQ DIFF-MATCH-PATCH::^EQUALITY DIFF-MATCH-PATCH::EQUALITY)))
;       (SETQ DIFF-MATCH-PATCH::DIFFS REST)
;       (WHEN
;           (AND (ENDP REST)
;                (NOT (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)))
;         (ITERATE:COLLECT `(:= ,DIFF-MATCH-PATCH::^EQUALITY))))
; --> BLOCK BLOCK TAGBODY PROGN MULTIPLE-VALUE-SETQ VALUES 
; ==>
;   1
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a (REAL 0), not a FIXNUM.

;     (< DIFF-MATCH-PATCH::SCORE DIFF-MATCH-PATCH::BEST-SCORE)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a (REAL 0), not a FIXNUM.

;     (+ DIFF-MATCH-PATCH::BEST-WINDOW DIFF-MATCH-PATCH::WIDTH)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

; in: DEFUN CLEANUP-SEMANTIC.ELIMINATE-OVERLAPS
;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::EQUALITY)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (>= DIFF-MATCH-PATCH::OV1 DIFF-MATCH-PATCH::OV2)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (> DIFF-MATCH-PATCH::OV1 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (LENGTH DIFF-MATCH-PATCH::DELS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (/ (LENGTH DIFF-MATCH-PATCH::DELS) 2)
; 
; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL 0 17592186044415/2) &OPTIONAL), not a (VALUES INTEGER &REST T).

;     (>= DIFF-MATCH-PATCH::OV1 (/ (LENGTH DIFF-MATCH-PATCH::DELS) 2))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL (0)), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL (0)), not a DOUBLE-FLOAT.

;     (LENGTH DIFF-MATCH-PATCH::ADDS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (/ (LENGTH DIFF-MATCH-PATCH::ADDS) 2)
; 
; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL 0 17592186044415/2) &OPTIONAL), not a (VALUES INTEGER &REST T).

;     (>= DIFF-MATCH-PATCH::OV1 (/ (LENGTH DIFF-MATCH-PATCH::ADDS) 2))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (0) (17592186044415/2)) (SINGLE-FLOAT (0.0) (8.796093e12)) (DOUBLE-FLOAT (0.0d0) (8.7960930222075d12))), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (0) (17592186044415/2)) (SINGLE-FLOAT (0.0) (8.796093e12)) (DOUBLE-FLOAT (0.0d0) (8.7960930222075d12))), not a DOUBLE-FLOAT.

;     (>= DIFF-MATCH-PATCH::OV2 DIFF-MATCH-PATCH::OV1)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL.

;     (> DIFF-MATCH-PATCH::OV2 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

;     (LENGTH DIFF-MATCH-PATCH::DELS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (/ (LENGTH DIFF-MATCH-PATCH::DELS) 2)
; 
; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL 0 17592186044415/2) &OPTIONAL), not a (VALUES INTEGER &REST T).

;     (>= DIFF-MATCH-PATCH::OV2 (/ (LENGTH DIFF-MATCH-PATCH::DELS) 2))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL (0)), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL (0)), not a DOUBLE-FLOAT.

;     (LENGTH DIFF-MATCH-PATCH::ADDS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (/ (LENGTH DIFF-MATCH-PATCH::ADDS) 2)
; 
; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL 0 17592186044415/2) &OPTIONAL), not a (VALUES INTEGER &REST T).

;     (>= DIFF-MATCH-PATCH::OV2 (/ (LENGTH DIFF-MATCH-PATCH::ADDS) 2))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (0) (17592186044415/2)) (SINGLE-FLOAT (0.0) (8.796093e12)) (DOUBLE-FLOAT (0.0d0) (8.7960930222075d12))), not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (0) (17592186044415/2)) (SINGLE-FLOAT (0.0) (8.796093e12)) (DOUBLE-FLOAT (0.0d0) (8.7960930222075d12))), not a DOUBLE-FLOAT.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::B 0 DIFF-MATCH-PATCH::OV)
; --> BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::A 0 (- DIFF-MATCH-PATCH::OV))
; --> BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::B DIFF-MATCH-PATCH::OV)
; --> BLOCK IF LET* 
; ==>
;   (LENGTH DIFF-MATCH-PATCH::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> BLOCK IF LET* IF AND IF 
; ==>
;   (= DIFF-MATCH-PATCH::START* 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; ==>
;   (= DIFF-MATCH-PATCH::END* DIFF-MATCH-PATCH::L)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK IF LET* IF 
; ==>
;   (SUBSEQ DIFF-MATCH-PATCH::SEQ DIFF-MATCH-PATCH::START* DIFF-MATCH-PATCH::END*)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::ADDS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (>= DIFF-MATCH-PATCH::OV1 DIFF-MATCH-PATCH::OV2)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.

;     (> DIFF-MATCH-PATCH::OV1 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (>= DIFF-MATCH-PATCH::OV2 DIFF-MATCH-PATCH::OV1)
; 
; note: forced to do full call
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.

;     (> DIFF-MATCH-PATCH::OV2 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (DIFF-MATCH-PATCH::NARROW DIFF-MATCH-PATCH::A 0 (- DIFF-MATCH-PATCH::OV))
; --> BLOCK IF LET* DIFF-MATCH-PATCH::INDEX COND IF IF + 
; ==>
;   1
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (REAL (0)), not a FIXNUM.
;       The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
;       unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
;       The second argument is a (REAL (0)), not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL).
;       etc.

; in: DEFUN CLEANUP-FOR-EFFICIENCY
;     (LENGTH DIFF-MATCH-PATCH::^EQUALITY)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (/ DIFF-MATCH-PATCH:*DIFF-EDIT-COST* 2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a INTEGER.The result is a (VALUES REAL &OPTIONAL), not a (VALUES INTEGER &REST T).
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^ADDS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::DELS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^DELS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::^EQUALITY)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (DIFF-MATCH-PATCH::EMPTY DIFF-MATCH-PATCH::ADDS)
; --> BLOCK OR LET IF AND IF ZEROP 
; ==>
;   1
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=1646919 "main thread" RUNNING {123FB68093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "diff-match-patch" "src" "cleanup">

Backtrace for: #<SB-THREAD:THREAD tid=1646919 "main thread" RUNNING {123FB68093}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120FA88743}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120FA88743}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {120FA88743}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "diff-match-patch" "src" "cleanup">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "diff-match-patch" "src" "cleanup">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "diff-match-patch" "src" "cleanup">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "diff-match-patch" "src" "cleanup">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12046C5743}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12046C5743}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "diff-match-patch"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "diff-match-patch">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "diff-match-patch">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "diff-match-patch")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "diff-match-patch") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12046D482B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120469380B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "diff-match-patch") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "diff-match-patch" "diff-match-patch")
23: (DEPCHECK::MAGIC "diff-match-patch" "diff-match-patch" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-42QWAxSZ/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "diff-match-patch" "diff-match-patch" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-42QWAxSZ/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-42QWAxSZ/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::%START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 WARNING condition
;   printed 1471 notes