cl-6502

SBCL 2.1.7.62-417920f09 / ASDF 3.3.5

cl-6502-test

WARNING: PARSE-VERSION: "0.9.8-dev" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "0.9.8-dev" for component "cl-6502" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/cl-6502.asd", using NIL instead
WARNING: Invalid :version specifier "0.9.8-dev" for component "cl-6502" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/cl-6502.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/cl-6502.asd" contains definition for system "cl-6502-test". Please only define "cl-6502" and secondary systems with a name starting with "cl-6502/" (e.g. "cl-6502/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/addressing.lisp
; in: DEFADDRESS IMPLIED
;     (|6502|::DEFADDRESS |6502|:IMPLIED
;         (:READER "^$" :WRITER "")
;       NIL)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA |6502|:IMPLIED
;         (|6502|:CPU)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK |6502|:IMPLIED NIL))
; 
; caught STYLE-WARNING:
;   The variable CPU is defined but never used.

; ==>
;   #'(SB-INT:NAMED-LAMBDA (SETF |6502|:IMPLIED)
;         (|6502|::VALUE |6502|:CPU)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK |6502|:IMPLIED (SETF (|6502|:GET-BYTE NIL) |6502|::VALUE)))
; 
; caught STYLE-WARNING:
;   The variable CPU is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-6502" "addressing">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/cpu.lisp
; in: DEFSTRUCT CPU
;     (DEFSTRUCT |6502|:CPU
;       "A 6502 CPU with an extra slot for tracking the cycle count/clock ticks."
;       (|6502|::PC 65532 :TYPE |6502|:U16)
;       (|6502|::SP 253 :TYPE |6502|:U8)
;       (|6502|::SR 36 :TYPE |6502|:U8)
;       (|6502|::XR 0 :TYPE |6502|:U8)
;       (|6502|::YR 0 :TYPE |6502|:U8)
;       (|6502|::AR 0 :TYPE |6502|:U8)
;       (|6502|::CC 0 :TYPE FIXNUM))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION |6502|:CPU {1008A24BF3}>
;    '#(#<SB-KERNEL:WRAPPER (ID=0) for T {50201003}>
;       #<SB-KERNEL:WRAPPER (ID=1) for STRUCTURE-OBJECT {50201073}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to |6502|:CPU-PC, (COMMON-LISP:SETF |6502|:CPU-PC), |6502|:CPU-XR, |6502|:CPU-YR, |6502|:CPU-AR, (COMMON-LISP:SETF |6502|:CPU-AR), |6502|:CPU-CC and (COMMON-LISP:SETF |6502|:CPU-CC) could not be inlined because the structure definition for |6502|:CPU was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/cpu.lisp
; in: DECLAIM (INLINE WRAP-BYTE WRAP-WORD WRAP-PAGE)
;     (DECLAIM (INLINE |6502|:WRAP-BYTE |6502|:WRAP-WORD |6502|::WRAP-PAGE)
;              (FTYPE (FUNCTION (FIXNUM) |6502|:U8) |6502|:WRAP-BYTE))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM
;    '(INLINE |6502|:WRAP-BYTE |6502|:WRAP-WORD |6502|::WRAP-PAGE)
;    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming |6502|:WRAP-BYTE to be INLINE, but 6 calls to it were previously compiled. A declaration of NOTINLINE at the call sites will eliminate this warning, as will proclaiming and defining the function before its first potential use.
; 
; caught STYLE-WARNING:
;   Proclaiming |6502|:WRAP-WORD to be INLINE, but 10 calls to it were previously compiled. A declaration of NOTINLINE at the call sites will eliminate this warning, as will proclaiming and defining the function before its first potential use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/cpu.lisp
; in: DECLAIM (INLINE STACK-PUSH STACK-POP)
;     (DECLAIM (INLINE |6502|::STACK-PUSH |6502|::STACK-POP))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE |6502|::STACK-PUSH |6502|::STACK-POP)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming |6502|::STACK-PUSH to be INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at the call site will eliminate this warning, as will proclaiming and defining the function before its first potential use.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-6502" "cpu">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/parser.lisp
; in: DEFUN MATCH-OPERAND-ADDRESS-MODES
;     (MULTIPLE-VALUE-BIND
;         (|6502|::START |6502|::END |6502|::MATCH-START |6502|::MATCH-END)
;         (CL-PPCRE:SCAN (|6502|:READER |6502|::ADDRESS-MODE) STREAM)
;       (WHEN |6502|::START
;         (SETF |6502|::VALUE-MATCH (LIST |6502|::MATCH-START |6502|::MATCH-END))))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA
;         (
;          &OPTIONAL (|6502|::START) (|6502|::END) (|6502|::MATCH-START)
;          (|6502|::MATCH-END)
;          &REST #:G3)
;       (DECLARE (IGNORE #:G3))
;       (WHEN |6502|::START
;         (SETF |6502|::VALUE-MATCH
;                 (LIST |6502|::MATCH-START |6502|::MATCH-END))))
; 
; caught STYLE-WARNING:
;   The variable END is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-6502" "parser">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/assemble.lisp
; in: DEFUN ZERO-PAGE-ADDRESS
;     (ERROR "Invalid address" :ARGUMENT |6502|::ADDR)
; 
; caught STYLE-WARNING:
;   Too many arguments (2) to ERROR "Invalid address": uses at most 0.
;   See also:
;     The ANSI Standard, Section 22.3.10.2
; 
; caught STYLE-WARNING:
;   Too many arguments (2) to ERROR "Invalid address": uses at most 0.
;   See also:
;     The ANSI Standard, Section 22.3.10.2

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/assemble.lisp
; in: DEFUN MAKE-BYTE
;     (ERROR "Cannot make-byte" :ARGUMENT |6502|::VALUE)
; 
; caught STYLE-WARNING:
;   Too many arguments (2) to ERROR "Cannot make-byte": uses at most 0.
;   See also:
;     The ANSI Standard, Section 22.3.10.2

;     (ERROR "Undefined label" :ARGUMENT |6502|::VALUE)
; 
; caught STYLE-WARNING:
;   Too many arguments (2) to ERROR "Undefined label": uses at most 0.
;   See also:
;     The ANSI Standard, Section 22.3.10.2

;     (ERROR "Cannot make-byte" :ARGUMENT |6502|::VALUE)
; 
; caught STYLE-WARNING:
;   Too many arguments (2) to ERROR "Cannot make-byte": uses at most 0.
;   See also:
;     The ANSI Standard, Section 22.3.10.2
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-6502" "assemble">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM ADC
;     (|6502|::DEFASM |6502|::ADC
;         (:DOCS "Add to Accumulator with Carry")
;         ((97 6 2 |6502|:INDIRECT-X) (101 3 2 |6502|:ZERO-PAGE)
;          (105 2 2 |6502|:IMMEDIATE) (109 4 3 |6502|:ABSOLUTE)
;          (113 5 2 |6502|:INDIRECT-Y) (117 4 2 |6502|:ZERO-PAGE-X)
;          (121 4 3 |6502|:ABSOLUTE-Y) (125 4 3 |6502|:ABSOLUTE-X))
;       (LET ((|6502|::RESULT (+ # # #)))
;         (|6502|::SET-FLAGS-IF :CARRY (> |6502|::RESULT 255) :OVERFLOW
;                               (|6502|::OVERFLOW-P |6502|::RESULT
;                                                   (|6502|:CPU-AR |6502|:CPU)
;                                                   (|6502|::GETTER))
;                               :NEGATIVE (LOGBITP 7 |6502|::RESULT) :ZERO
;                               (ZEROP (|6502|:WRAP-BYTE |6502|::RESULT)))
;         (SETF (|6502|:CPU-AR |6502|:CPU) (|6502|:WRAP-BYTE |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ADC-61 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ADC-61)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ADC-65 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ADC-65)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ADC-69 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMMEDIATE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ADC-69)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ADC-6D BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ADC-6D)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ADC-71 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ADC-71)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ADC-75 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ADC-75)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ADC-79 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ADC-79)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ADC-7D BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ADC-7D)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM AND
;     (|6502|::DEFASM AND
;         (:DOCS "And with Accumulator")
;         ((33 6 2 |6502|:INDIRECT-X) (37 3 2 |6502|:ZERO-PAGE)
;          (41 2 2 |6502|:IMMEDIATE) (45 4 3 |6502|:ABSOLUTE)
;          (49 5 2 |6502|:INDIRECT-Y) (53 4 2 |6502|:ZERO-PAGE-X)
;          (57 4 3 |6502|:ABSOLUTE-Y) (61 4 3 |6502|:ABSOLUTE-X))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::AND-21 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN AND-21)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::AND-25 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN AND-25)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::AND-29 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMMEDIATE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN AND-29)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::AND-2D BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN AND-2D)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::AND-31 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN AND-31)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::AND-35 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN AND-35)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::AND-39 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN AND-39)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::AND-3D BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN AND-3D)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM BCC
;     (|6502|::DEFASM |6502|::BCC
;         (:DOCS "Branch on Carry Clear" :TRACK-PC NIL)
;         ((144 2 2 |6502|:RELATIVE))
;       (|6502|::BRANCH-IF (ZEROP (|6502|:STATUS-BIT :CARRY))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::BCC-90 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:RELATIVE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN BCC-90)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:RELATIVE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN BCC-90)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM BCS
;     (|6502|::DEFASM |6502|::BCS
;         (:DOCS "Branch on Carry Set" :TRACK-PC NIL)
;         ((176 2 2 |6502|:RELATIVE))
;       (|6502|::BRANCH-IF (PLUSP (|6502|:STATUS-BIT :CARRY))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::BCS-B0 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:RELATIVE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN BCS-B0)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:RELATIVE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN BCS-B0)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM BEQ
;     (|6502|::DEFASM |6502|::BEQ
;         (:DOCS "Branch if Equal" :TRACK-PC NIL)
;         ((240 2 2 |6502|:RELATIVE))
;       (|6502|::BRANCH-IF (PLUSP (|6502|:STATUS-BIT :ZERO))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::BEQ-F0 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:RELATIVE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN BEQ-F0)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:RELATIVE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN BEQ-F0)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM BIT
;     (|6502|::DEFASM BIT
;         (:DOCS "Test Bits in Memory with Accumulator")
;         ((36 3 2 |6502|:ZERO-PAGE) (44 4 3 |6502|:ABSOLUTE))
;       (LET ((|6502|::OPERAND (|6502|::GETTER)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP (LOGAND # |6502|::OPERAND)) :NEGATIVE
;                               (LOGBITP 7 |6502|::OPERAND) :OVERFLOW
;                               (LOGBITP 6 |6502|::OPERAND))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::BIT-24 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN BIT-24)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::BIT-2C BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN BIT-2C)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM BMI
;     (|6502|::DEFASM |6502|::BMI
;         (:DOCS "Branch on Negative Result" :TRACK-PC NIL)
;         ((48 2 2 |6502|:RELATIVE))
;       (|6502|::BRANCH-IF (PLUSP (|6502|:STATUS-BIT :NEGATIVE))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::BMI-30 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:RELATIVE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN BMI-30)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:RELATIVE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN BMI-30)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM BNE
;     (|6502|::DEFASM |6502|::BNE
;         (:DOCS "Branch if Not Equal" :TRACK-PC NIL)
;         ((208 2 2 |6502|:RELATIVE))
;       (|6502|::BRANCH-IF (ZEROP (|6502|:STATUS-BIT :ZERO))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::BNE-D0 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:RELATIVE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN BNE-D0)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:RELATIVE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN BNE-D0)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM BPL
;     (|6502|::DEFASM |6502|::BPL
;         (:DOCS "Branch on Positive Result" :TRACK-PC NIL)
;         ((16 2 2 |6502|:RELATIVE))
;       (|6502|::BRANCH-IF (ZEROP (|6502|:STATUS-BIT :NEGATIVE))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::BPL-10 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:RELATIVE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN BPL-10)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:RELATIVE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN BPL-10)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM BRK
;     (|6502|::DEFASM |6502|::BRK
;         (:DOCS "Force Break")
;         ((0 7 1 |6502|:IMPLIED))
;       (LET ((|6502|::PC (|6502|:WRAP-WORD #)))
;         (|6502|::STACK-PUSH-WORD |6502|::PC |6502|:CPU)
;         (|6502|::SET-STATUS-BIT :BREAK 1)
;         (|6502|::STACK-PUSH (|6502|:CPU-SR |6502|:CPU) |6502|:CPU)
;         (|6502|::SET-STATUS-BIT :INTERRUPT 1)
;         (SETF (|6502|:CPU-PC |6502|:CPU) (|6502|:GET-WORD 65534))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::BRK-0 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN BRK-0)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN BRK-0)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM BVC
;     (|6502|::DEFASM |6502|::BVC
;         (:DOCS "Branch on Overflow Clear" :TRACK-PC NIL)
;         ((80 2 2 |6502|:RELATIVE))
;       (|6502|::BRANCH-IF (ZEROP (|6502|:STATUS-BIT :OVERFLOW))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::BVC-50 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:RELATIVE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN BVC-50)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:RELATIVE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN BVC-50)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM BVS
;     (|6502|::DEFASM |6502|::BVS
;         (:DOCS "Branch on Overflow Set" :TRACK-PC NIL)
;         ((112 2 2 |6502|:RELATIVE))
;       (|6502|::BRANCH-IF (PLUSP (|6502|:STATUS-BIT :OVERFLOW))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::BVS-70 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:RELATIVE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN BVS-70)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:RELATIVE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN BVS-70)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM CLC
;     (|6502|::DEFASM |6502|::CLC
;         (:DOCS "Clear Carry Flag")
;         ((24 2 1 |6502|:IMPLIED))
;       (|6502|::SET-STATUS-BIT :CARRY 0))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CLC-18 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CLC-18)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN CLC-18)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM CLD
;     (|6502|::DEFASM |6502|::CLD
;         (:DOCS "Clear Decimal Flag")
;         ((216 2 1 |6502|:IMPLIED))
;       (|6502|::SET-STATUS-BIT :DECIMAL 0))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CLD-D8 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CLD-D8)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN CLD-D8)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM CLI
;     (|6502|::DEFASM |6502|::CLI
;         (:DOCS "Clear Interrupt Flag")
;         ((88 2 1 |6502|:IMPLIED))
;       (|6502|::SET-STATUS-BIT :INTERRUPT 0))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CLI-58 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CLI-58)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN CLI-58)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM CLV
;     (|6502|::DEFASM |6502|::CLV
;         (:DOCS "Clear Overflow Flag")
;         ((184 2 1 |6502|:IMPLIED))
;       (|6502|::SET-STATUS-BIT :OVERFLOW 0))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CLV-B8 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CLV-B8)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN CLV-B8)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM CMP
;     (|6502|::DEFASM |6502|::CMP
;         (:DOCS "Compare Memory with Accumulator")
;         ((193 6 2 |6502|:INDIRECT-X) (197 3 2 |6502|:ZERO-PAGE)
;          (201 2 2 |6502|:IMMEDIATE) (205 4 3 |6502|:ABSOLUTE)
;          (209 5 2 |6502|:INDIRECT-Y) (213 4 2 |6502|:ZERO-PAGE-X)
;          (217 4 3 |6502|:ABSOLUTE-Y) (221 4 3 |6502|:ABSOLUTE-X))
;       (LET ((|6502|::RESULT (- # #)))
;         (|6502|::SET-FLAGS-IF :CARRY (NOT (MINUSP |6502|::RESULT)) :ZERO
;                               (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CMP-C1 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CMP-C1)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CMP-C5 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CMP-C5)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CMP-C9 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMMEDIATE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CMP-C9)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CMP-CD BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CMP-CD)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CMP-D1 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CMP-D1)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CMP-D5 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CMP-D5)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CMP-D9 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CMP-D9)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CMP-DD BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CMP-DD)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM CPX
;     (|6502|::DEFASM |6502|::CPX
;         (:DOCS "Compare Memory with X register")
;         ((224 2 2 |6502|:IMMEDIATE) (228 3 2 |6502|:ZERO-PAGE)
;          (236 4 3 |6502|:ABSOLUTE))
;       (LET ((|6502|::RESULT (- # #)))
;         (|6502|::SET-FLAGS-IF :CARRY (NOT (MINUSP |6502|::RESULT)) :ZERO
;                               (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CPX-E0 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMMEDIATE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CPX-E0)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CPX-E4 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CPX-E4)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CPX-EC BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CPX-EC)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM CPY
;     (|6502|::DEFASM |6502|::CPY
;         (:DOCS "Compare Memory with Y register")
;         ((192 2 2 |6502|:IMMEDIATE) (196 3 2 |6502|:ZERO-PAGE)
;          (204 4 3 |6502|:ABSOLUTE))
;       (LET ((|6502|::RESULT (- # #)))
;         (|6502|::SET-FLAGS-IF :CARRY (NOT (MINUSP |6502|::RESULT)) :ZERO
;                               (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CPY-C0 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMMEDIATE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CPY-C0)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CPY-C4 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CPY-C4)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::CPY-CC BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN CPY-CC)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM DEX
;     (|6502|::DEFASM |6502|::DEX
;         (:DOCS "Decrement X register")
;         ((202 2 1 |6502|:IMPLIED))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::DEX-CA BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN DEX-CA)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN DEX-CA)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM DEY
;     (|6502|::DEFASM |6502|::DEY
;         (:DOCS "Decrement Y register")
;         ((136 2 1 |6502|:IMPLIED))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::DEY-88 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN DEY-88)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN DEY-88)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM EOR
;     (|6502|::DEFASM |6502|::EOR
;         (:DOCS "Exclusive OR with Accumulator")
;         ((65 6 2 |6502|:INDIRECT-X) (69 3 2 |6502|:ZERO-PAGE)
;          (73 2 2 |6502|:IMMEDIATE) (77 4 3 |6502|:ABSOLUTE)
;          (81 5 2 |6502|:INDIRECT-Y) (85 4 2 |6502|:ZERO-PAGE-X)
;          (89 4 3 |6502|:ABSOLUTE-Y) (93 4 3 |6502|:ABSOLUTE-X))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::EOR-41 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN EOR-41)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::EOR-45 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN EOR-45)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::EOR-49 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMMEDIATE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN EOR-49)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::EOR-4D BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN EOR-4D)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::EOR-51 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN EOR-51)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::EOR-55 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN EOR-55)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::EOR-59 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN EOR-59)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::EOR-5D BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN EOR-5D)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM INX
;     (|6502|::DEFASM |6502|::INX
;         (:DOCS "Increment X register")
;         ((232 2 1 |6502|:IMPLIED))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::INX-E8 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN INX-E8)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN INX-E8)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM INY
;     (|6502|::DEFASM |6502|::INY
;         (:DOCS "Increment Y register")
;         ((200 2 1 |6502|:IMPLIED))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::INY-C8 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN INY-C8)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN INY-C8)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM JMP
;     (|6502|::DEFASM |6502|::JMP
;         (:DOCS "Jump Unconditionally" :RAW-P T :TRACK-PC NIL)
;         ((76 3 3 |6502|:ABSOLUTE) (108 5 3 |6502|:INDIRECT))
;       (SETF (|6502|:CPU-PC |6502|:CPU) (|6502|::GETTER)))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::JMP-4C BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN JMP-4C)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::JMP-6C BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN JMP-6C)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM JSR
;     (|6502|::DEFASM |6502|::JSR
;         (:DOCS "Jump to Subroutine" :RAW-P T :TRACK-PC NIL)
;         ((32 6 3 |6502|:ABSOLUTE))
;       (|6502|::STACK-PUSH-WORD (|6502|:WRAP-WORD (1+ (|6502|:CPU-PC |6502|:CPU)))
;                                |6502|:CPU)
;       (SETF (|6502|:CPU-PC |6502|:CPU) (|6502|::GETTER)))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::JSR-20 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN JSR-20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM LDA
;     (|6502|::DEFASM |6502|::LDA
;         (:DOCS "Load Accumulator from Memory")
;         ((161 6 2 |6502|:INDIRECT-X) (165 3 2 |6502|:ZERO-PAGE)
;          (169 2 2 |6502|:IMMEDIATE) (173 4 3 |6502|:ABSOLUTE)
;          (177 5 2 |6502|:INDIRECT-Y) (181 4 2 |6502|:ZERO-PAGE-X)
;          (185 4 3 |6502|:ABSOLUTE-Y) (189 4 3 |6502|:ABSOLUTE-X))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDA-A1 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDA-A1)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDA-A5 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDA-A5)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDA-A9 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMMEDIATE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDA-A9)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDA-AD BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDA-AD)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDA-B1 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDA-B1)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDA-B5 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDA-B5)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDA-B9 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDA-B9)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDA-BD BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDA-BD)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM LDX
;     (|6502|::DEFASM |6502|::LDX
;         (:DOCS "Load X register from Memory")
;         ((162 2 2 |6502|:IMMEDIATE) (166 3 2 |6502|:ZERO-PAGE)
;          (174 4 3 |6502|:ABSOLUTE) (182 4 2 |6502|:ZERO-PAGE-Y)
;          (190 4 3 |6502|:ABSOLUTE-Y))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDX-A2 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMMEDIATE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDX-A2)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDX-A6 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDX-A6)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDX-AE BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDX-AE)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDX-B6 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDX-B6)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDX-BE BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDX-BE)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM LDY
;     (|6502|::DEFASM |6502|::LDY
;         (:DOCS "Load Y register from Memory")
;         ((160 2 2 |6502|:IMMEDIATE) (164 3 2 |6502|:ZERO-PAGE)
;          (172 4 3 |6502|:ABSOLUTE) (188 4 3 |6502|:ABSOLUTE-X)
;          (180 4 2 |6502|:ZERO-PAGE-X))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDY-A0 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMMEDIATE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDY-A0)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDY-A4 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDY-A4)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDY-AC BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDY-AC)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDY-BC BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDY-BC)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::LDY-B4 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN LDY-B4)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM NOP
;     (|6502|::DEFASM |6502|::NOP
;         (:DOCS "No Operation")
;         ((234 2 1 |6502|:IMPLIED))
;       NIL)
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::NOP-EA BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN NOP-EA)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN NOP-EA)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM ORA
;     (|6502|::DEFASM |6502|::ORA
;         (:DOCS "Bitwise OR with Accumulator")
;         ((1 6 2 |6502|:INDIRECT-X) (5 3 2 |6502|:ZERO-PAGE)
;          (9 2 2 |6502|:IMMEDIATE) (13 4 3 |6502|:ABSOLUTE)
;          (17 5 2 |6502|:INDIRECT-Y) (21 4 2 |6502|:ZERO-PAGE-X)
;          (25 4 3 |6502|:ABSOLUTE-Y) (29 4 3 |6502|:ABSOLUTE-X))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ORA-1 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ORA-1)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ORA-5 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ORA-5)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ORA-9 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMMEDIATE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ORA-9)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ORA-D BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ORA-D)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ORA-11 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ORA-11)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ORA-15 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ORA-15)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ORA-19 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ORA-19)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::ORA-1D BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN ORA-1D)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM PHA
;     (|6502|::DEFASM |6502|::PHA
;         (:DOCS "Push Accumulator")
;         ((72 3 1 |6502|:IMPLIED))
;       (|6502|::STACK-PUSH (|6502|:CPU-AR |6502|:CPU) |6502|:CPU))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::PHA-48 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN PHA-48)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN PHA-48)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM PHP
;     (|6502|::DEFASM |6502|::PHP
;         (:DOCS "Push Processor Status")
;         ((8 3 1 |6502|:IMPLIED))
;       (|6502|::STACK-PUSH (LOGIOR (|6502|:CPU-SR |6502|:CPU) 16) |6502|:CPU))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::PHP-8 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN PHP-8)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN PHP-8)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM PLA
;     (|6502|::DEFASM |6502|::PLA
;         (:DOCS "Pull Accumulator from Stack")
;         ((104 4 1 |6502|:IMPLIED))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::PLA-68 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN PLA-68)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN PLA-68)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM PLP
;     (|6502|::DEFASM |6502|::PLP
;         (:DOCS "Pull Processor Status from Stack")
;         ((40 4 1 |6502|:IMPLIED))
;       (LET ((|6502|::RESULT (LOGIOR # 32)))
;         (SETF (|6502|:CPU-SR |6502|:CPU) (LOGANDC2 |6502|::RESULT 16))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::PLP-28 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN PLP-28)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN PLP-28)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM RTI
;     (|6502|::DEFASM |6502|::RTI
;         (:DOCS "Return from Interrupt")
;         ((64 6 1 |6502|:IMPLIED))
;       (SETF (|6502|:CPU-SR |6502|:CPU) (LOGIOR (|6502|::STACK-POP |6502|:CPU) 32))
;       (SETF (|6502|:CPU-PC |6502|:CPU) (|6502|::STACK-POP-WORD |6502|:CPU)))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::RTI-40 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN RTI-40)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN RTI-40)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM RTS
;     (|6502|::DEFASM |6502|::RTS
;         (:DOCS "Return from Subroutine" :TRACK-PC NIL)
;         ((96 6 1 |6502|:IMPLIED))
;       (SETF (|6502|:CPU-PC |6502|:CPU) (1+ (|6502|::STACK-POP-WORD |6502|:CPU))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::RTS-60 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN RTS-60)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN RTS-60)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM SBC
;     (|6502|::DEFASM |6502|::SBC
;         (:DOCS "Subtract from Accumulator with Carry")
;         ((225 6 2 |6502|:INDIRECT-X) (229 3 2 |6502|:ZERO-PAGE)
;          (233 2 2 |6502|:IMMEDIATE) (237 4 3 |6502|:ABSOLUTE)
;          (241 5 2 |6502|:INDIRECT-Y) (245 4 2 |6502|:ZERO-PAGE-X)
;          (249 4 3 |6502|:ABSOLUTE-Y) (253 4 3 |6502|:ABSOLUTE-X))
;       (FLET ((|6502|::FLIP-BIT (POSITION |6502|::X)
;                (LOGXOR # |6502|::X)))
;         (LET* ((|6502|::OPERAND #) (|6502|::CARRY-BIT #) (|6502|::RESULT #))
;           (|6502|::SET-FLAGS-IF :ZERO (ZEROP #) :OVERFLOW
;                                 (|6502|::OVERFLOW-P |6502|::RESULT # #) :NEGATIVE
;                                 (LOGBITP 7 |6502|::RESULT) :CARRY (NOT #))
;           (SETF # #))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::SBC-E1 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN SBC-E1)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::SBC-E5 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN SBC-E5)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::SBC-E9 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMMEDIATE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN SBC-E9)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::SBC-ED BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN SBC-ED)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::SBC-F1 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:INDIRECT-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN SBC-F1)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::SBC-F5 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ZERO-PAGE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN SBC-F5)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::SBC-F9 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-Y |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN SBC-F9)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::SBC-FD BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:ABSOLUTE-X |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN SBC-FD)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM SEC
;     (|6502|::DEFASM |6502|::SEC
;         (:DOCS "Set Carry Flag")
;         ((56 2 1 |6502|:IMPLIED))
;       (|6502|::SET-STATUS-BIT :CARRY 1))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::SEC-38 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN SEC-38)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN SEC-38)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM SED
;     (|6502|::DEFASM |6502|::SED
;         (:DOCS "Set Decimal Flag")
;         ((248 2 1 |6502|:IMPLIED))
;       (|6502|::SET-STATUS-BIT :DECIMAL 1))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::SED-F8 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN SED-F8)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN SED-F8)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM SEI
;     (|6502|::DEFASM |6502|::SEI
;         (:DOCS "Set Interrupt Flag")
;         ((120 2 1 |6502|:IMPLIED))
;       (|6502|::SET-STATUS-BIT :INTERRUPT 1))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::SEI-78 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN SEI-78)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN SEI-78)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM STA
;     (|6502|::DEFASM |6502|::STA
;         (:DOCS "Store Accumulator")
;         ((129 6 2 |6502|:INDIRECT-X) (133 3 2 |6502|:ZERO-PAGE)
;          (141 4 3 |6502|:ABSOLUTE) (145 6 2 |6502|:INDIRECT-Y)
;          (149 4 2 |6502|:ZERO-PAGE-X) (153 5 3 |6502|:ABSOLUTE-Y)
;          (157 5 3 |6502|:ABSOLUTE-X))
;       (|6502|::SETTER (|6502|:CPU-AR |6502|:CPU)))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STA-81 BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:INDIRECT-X |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STA-81)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STA-85 BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:ZERO-PAGE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STA-85)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STA-8D BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:ABSOLUTE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STA-8D)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STA-91 BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:INDIRECT-Y |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STA-91)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STA-95 BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:ZERO-PAGE-X |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STA-95)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STA-99 BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:ABSOLUTE-Y |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STA-99)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STA-9D BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:ABSOLUTE-X |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STA-9D)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM STX
;     (|6502|::DEFASM |6502|::STX
;         (:DOCS "Store X register")
;         ((134 3 2 |6502|:ZERO-PAGE) (142 4 3 |6502|:ABSOLUTE)
;          (150 4 2 |6502|:ZERO-PAGE-Y))
;       (|6502|::SETTER (|6502|:CPU-XR |6502|:CPU)))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STX-86 BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:ZERO-PAGE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STX-86)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STX-8E BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:ABSOLUTE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STX-8E)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STX-96 BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:ZERO-PAGE-Y |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STX-96)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM STY
;     (|6502|::DEFASM |6502|::STY
;         (:DOCS "Store Y register")
;         ((132 3 2 |6502|:ZERO-PAGE) (140 4 3 |6502|:ABSOLUTE)
;          (148 4 2 |6502|:ZERO-PAGE-X))
;       (|6502|::SETTER (|6502|:CPU-YR |6502|:CPU)))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STY-84 BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:ZERO-PAGE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STY-84)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STY-8C BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:ABSOLUTE |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STY-8C)

; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::STY-94 BLOCK 
; --> FLET 
; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:ZERO-PAGE-X |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN STY-94)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM TAX
;     (|6502|::DEFASM |6502|::TAX
;         (:DOCS "Transfer Accumulator to X register")
;         ((170 2 1 |6502|:IMPLIED))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::TAX-AA BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN TAX-AA)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN TAX-AA)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM TAY
;     (|6502|::DEFASM |6502|::TAY
;         (:DOCS "Transfer Accumulator to Y register")
;         ((168 2 1 |6502|:IMPLIED))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::TAY-A8 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN TAY-A8)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN TAY-A8)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM TSX
;     (|6502|::DEFASM |6502|::TSX
;         (:DOCS "Transfer Stack Pointer to X register")
;         ((186 2 1 |6502|:IMPLIED))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::TSX-BA BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN TSX-BA)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN TSX-BA)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM TXA
;     (|6502|::DEFASM |6502|::TXA
;         (:DOCS "Transfer X register to Accumulator")
;         ((138 2 1 |6502|:IMPLIED))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::TXA-8A BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN TXA-8A)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN TXA-8A)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM TXS
;     (|6502|::DEFASM |6502|::TXS
;         (:DOCS "Transfer X register to Stack Pointer")
;         ((154 2 1 |6502|:IMPLIED))
;       (SETF (|6502|:CPU-SP |6502|:CPU) (|6502|:CPU-XR |6502|:CPU)))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::TXS-9A BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN TXS-9A)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN TXS-9A)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/src/opcodes.lisp
; in: DEFASM TYA
;     (|6502|::DEFASM |6502|::TYA
;         (:DOCS "Transfer Y register to Accumulator")
;         ((152 2 1 |6502|:IMPLIED))
;       (LET ((|6502|::RESULT (SETF #)))
;         (|6502|::SET-FLAGS-IF :ZERO (ZEROP |6502|::RESULT) :NEGATIVE
;                               (LOGBITP 7 |6502|::RESULT))))
; --> PROGN SETF LET* LET* ALEXANDRIA:NAMED-LAMBDA LABELS |6502|::TYA-98 BLOCK 
; --> FLET 
; ==>
;   (|6502|::SETTER (|6502|::X) (SETF (|6502|:IMPLIED |6502|:CPU) |6502|::X))
; 
; note: deleting unused function
;   (FLET SETTER :IN TYA-98)

; ==>
;   (|6502|::GETTER NIL (|6502|:GET-BYTE (|6502|:IMPLIED |6502|:CPU)))
; 
; note: deleting unused function
;   (FLET GETTER :IN TYA-98)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-6502/f55e04108665aa220401d15ec2b08b8cf6739e35/cl-6502-20211003-git/tests/perf.lisp
; in: DEFUN PROFILE!
;     (SB-SPROF:WITH-PROFILING (:SAMPLE-INTERVAL 0.001 :ALLOC-INTERVAL 2
;                               :MAX-SAMPLES 1000 :SHOW-PROGRESS T :REPORT :GRAPH
;                               :MODE 6502-TESTS::MODE ...)
;       (LOOP 6502-TESTS::UNTIL (> (|6502|:CPU-CC |6502|:*CPU*) (* 78 (EXPT 2 20)))
;             DO (|6502|:STEP-CPU |6502|:*CPU*
;                                 (|6502|:GET-BYTE
;                                  (|6502|:IMMEDIATE |6502|:*CPU*)))))
; 
; caught WARNING:
;   ALLOC-INTERVAL is ignored
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-6502-test" "perf">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1014A0BAB3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1014A0BAB3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1014A0BAB3}>)
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 "cl-6502-test" "perf">)))
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 "cl-6502-test" "perf">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-6502-test" "perf">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:COMPILE-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-6502-test" "perf">) [fast-method]
8: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-6502-test" "perf">) [fast-method]
9: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100584CD63}>) [fast-method]
10: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
11: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100584CD63}>) [fast-method]
12: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-6502-test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
13: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-6502-test">)
14: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
15: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-6502-test">) [fast-method]
16: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-6502-test")
17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-6502-test") [fast-method]
19: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005849AFB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
21: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100580C13B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
22: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-6502-test") [fast-method]
23: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-6502" "cl-6502-test")
24: (DEPCHECK::MAGIC "cl-6502" "cl-6502-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-FDsIAW3s/depcheck-win.txt")
25: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-6502" "cl-6502-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-FDsIAW3s/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-FDsIAW3s/depcheck-fail.txt"))
26: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
27: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
28: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
29: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 WARNING condition
;   caught 12 STYLE-WARNING conditions
;   printed 156 notes