; file: /home/josh/quicklisp/dists/quicklisp/software/serapeum-20180711-git/range.lisp
; in: DEFUN RANGE
;     (SERAPEUM:DISPATCH-CASE ((SERAPEUM::START SERAPEUM::REAL*)
;                              (SERAPEUM::STOP SERAPEUM::REAL*)
;                              (STEP SERAPEUM::REAL*))
;       ((ALEXANDRIA.0.DEV:ARRAY-INDEX ALEXANDRIA.0.DEV:ARRAY-INDEX
;         ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER)
;        (IF (<= SERAPEUM::START SERAPEUM::STOP)
;            (SERAPEUM::COUNT-RANGE/3 SERAPEUM::START SERAPEUM::STOP STEP)
;            (SERAPEUM::INTEGER-RANGE SERAPEUM::START SERAPEUM::STOP STEP)))
;       ((ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER
;         ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER
;         ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER)
;        (SERAPEUM::INTEGER-RANGE SERAPEUM::START SERAPEUM::STOP STEP))
;       ((INTEGER INTEGER INTEGER)
;        (SERAPEUM::INTEGER-RANGE SERAPEUM::START SERAPEUM::STOP STEP))
;       ((RATIO RATIONAL RATIONAL)
;        (SERAPEUM::REAL-RANGE SERAPEUM::START SERAPEUM::STOP STEP))
;       ((RATIONAL RATIO RATIONAL)
;        (SERAPEUM::REAL-RANGE SERAPEUM::START SERAPEUM::STOP STEP))
;       ((RATIONAL RATIONAL RATIO)
;        (SERAPEUM::REAL-RANGE SERAPEUM::START SERAPEUM::STOP STEP))
;       ((SINGLE-FLOAT SINGLE-FLOAT SINGLE-FLOAT)
;        (SERAPEUM::SINGLE-FLOAT-RANGE SERAPEUM::START SERAPEUM::STOP STEP))
;       ((DOUBLE-FLOAT DOUBLE-FLOAT DOUBLE-FLOAT)
;        (SERAPEUM::DOUBLE-FLOAT-RANGE SERAPEUM::START SERAPEUM::STOP STEP))
;       ((SHORT-FLOAT SHORT-FLOAT SHORT-FLOAT)
;        (SERAPEUM::SHORT-FLOAT-RANGE SERAPEUM::START SERAPEUM::STOP STEP))
;       ((LONG-FLOAT LONG-FLOAT LONG-FLOAT)
;        (SERAPEUM::LONG-FLOAT-RANGE SERAPEUM::START SERAPEUM::STOP STEP))
;       ...)
; --> SERAPEUM:DISPATCH-CASE-LET LET SERAPEUM:WITH-READ-ONLY-VARS LET
; --> SYMBOL-MACROLET BLOCK TAGBODY
; ==>
;   (SERAPEUM/DISPATCH-CASE::DISPATCH-CASE/NOBINDINGS ((#:ARG0 SERAPEUM::REAL*)
;                                                      (#:ARG1 SERAPEUM::REAL*)
;                                                      (#:ARG2 SERAPEUM::REAL*))
;     ((ALEXANDRIA.0.DEV:ARRAY-INDEX ALEXANDRIA.0.DEV:ARRAY-INDEX
;       ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER)
;      (GO #:TAG2))
;     ((ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER
;       ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER
;       ALEXANDRIA.0.DEV:NON-NEGATIVE-INTEGER)
;      (GO #:TAG3))
;     ((INTEGER INTEGER INTEGER) (GO #:TAG4))
;     ((RATIO RATIONAL RATIONAL) (GO #:TAG5))
;     ((RATIONAL RATIO RATIONAL) (GO #:TAG6))
;     ((RATIONAL RATIONAL RATIO) (GO #:TAG7))
;     ((SINGLE-FLOAT SINGLE-FLOAT SINGLE-FLOAT) (GO #:TAG8))
;     ((DOUBLE-FLOAT DOUBLE-FLOAT DOUBLE-FLOAT) (GO #:TAG9))
;     ((SHORT-FLOAT SHORT-FLOAT SHORT-FLOAT) (GO #:TAG10))
;     ((LONG-FLOAT LONG-FLOAT LONG-FLOAT) (GO #:TAG11))
;     ...)
;
; caught ERROR:
;   during macroexpansion of
;   (SERAPEUM/DISPATCH-CASE::DISPATCH-CASE/NOBINDINGS (# # #)
;     (# #)
;     ...).
;   Use *BREAK-ON-SIGNALS* to intercept.
;
;    The function SERAPEUM::KEY is undefined.
;
; compilation unit aborted
;   caught 2 fatal ERROR conditions
;   caught 1 ERROR condition
....
;
; caught ERROR:
;   during macroexpansion of
;   (SERAPEUM/DISPATCH-CASE::DISPATCH-CASE/NOBINDINGS (# # #)
;     (# #)
;     ...).
;   Use *BREAK-ON-SIGNALS* to intercept.
;
;    The function SERAPEUM::KEY is undefined.
;
; compilation unit aborted
;   caught 2 fatal ERROR conditions
;   caught 1 ERROR condition

CL-USER> slim