; SLIME 2.24; compiling file "/tmp/parser.lisp" (written 16 MAY 2020 05:14:12 PM):
; in: LAMBDA (#:EXPR #:ENV)
;     (SB-INT:NAMED-DS-BIND (:MACRO COM.INFORMATIMAGO.COMMON-LISP.LATEX::WHEN-STATE
;                            . MACROLET)
;         (COM.INFORMATIMAGO.COMMON-LISP.LATEX::STATE &BODY
;          COM.INFORMATIMAGO.COMMON-LISP.LATEX::BODY)
;         (CDR #:EXPR)
;       (BLOCK COM.INFORMATIMAGO.COMMON-LISP.LATEX::WHEN-STATE
;         `(WHEN (EQ ,'#:|state0| COM.INFORMATIMAGO.COMMON-LISP.LATEX::STATE)
;            ,@COM.INFORMATIMAGO.COMMON-LISP.LATEX::BODY)))
; --> SB-INT:BINDING* 
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST (CDR #:EXPR) 1 1
;                                      '(#
;                                        COM.INFORMATIMAGO.COMMON-LISP.LATEX::STATE
;                                        &BODY
;                                        COM.INFORMATIMAGO.COMMON-LISP.LATEX::BODY)))
;          (COM.INFORMATIMAGO.COMMON-LISP.LATEX::STATE (POP #:G0))
;          (COM.INFORMATIMAGO.COMMON-LISP.LATEX::BODY #:G0))
;     (BLOCK COM.INFORMATIMAGO.COMMON-LISP.LATEX::WHEN-STATE
;       `(WHEN (EQ ,'#:|state0| COM.INFORMATIMAGO.COMMON-LISP.LATEX::STATE)
;          ,@COM.INFORMATIMAGO.COMMON-LISP.LATEX::BODY)))
; 
; caught STYLE-WARNING:
;   The variable STATE is defined but never used.

; file: /tmp/parser.lisp
; in: DEFUN SCAN
;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::OPT "tabular" "array")
; 
; caught WARNING:
;   The function OPT is called with two arguments, but wants exactly one.

;     (ERROR "Unknown saved-math-state ~S"
;            COM.INFORMATIMAGO.COMMON-LISP.LATEX::SAVED-MATH-STATE)
; 
; note: deleting unreachable code

;     (IF (OR (PLUSP COM.INFORMATIMAGO.COMMON-LISP.LATEX::TABLE-COUNT)
;             (PLUSP COM.INFORMATIMAGO.COMMON-LISP.LATEX::ARRAY-COUNT))
;         (PROGN
;          (COM.INFORMATIMAGO.COMMON-LISP.LATEX::CLOSE-LIST)
;          (COM.INFORMATIMAGO.COMMON-LISP.LATEX::CLOSE-LIST)
;          (COM.INFORMATIMAGO.COMMON-LISP.LATEX::OPEN-LIST)
;          (COM.INFORMATIMAGO.COMMON-LISP.LATEX::OPEN-LIST)))
; 
; note: deleting unreachable code

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::CLOSE-LIST)
; 
; note: deleting unreachable code

;     (IF (OR (PLUSP COM.INFORMATIMAGO.COMMON-LISP.LATEX::TABLE-COUNT)
;             (PLUSP COM.INFORMATIMAGO.COMMON-LISP.LATEX::ARRAY-COUNT))
;         (PROGN
;          (COM.INFORMATIMAGO.COMMON-LISP.LATEX::CLOSE-LIST)
;          (COM.INFORMATIMAGO.COMMON-LISP.LATEX::OPEN-LIST))
;         (COM.INFORMATIMAGO.COMMON-LISP.LATEX::ADD-SEXP
;          '(COM.INFORMATIMAGO.COMMON-LISP.LATEX::FIELD-SEPARATOR)))
; 
; note: deleting unreachable code

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::CLOSE-LIST)
; 
; note: deleting unreachable code

;     (ERROR "Unknown saved-math-state ~S"
;            COM.INFORMATIMAGO.COMMON-LISP.LATEX::SAVED-MATH-STATE)
; ==>
;   "Unknown saved-math-state ~S"
; 
; note: deleting unreachable code

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::GOTO :MATH)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::GOTO NIL)
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (ERROR
;      "Display math started inside inline math? Probably an inline math was closed and immediately opened. Check the latex file.")
; ==>
;   "Display math started inside inline math? Probably an inline math was closed and immediately opened. Check the latex file."
; 
; note: deleting unreachable code

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::CLOSE-LIST)
; 
; note: deleting unreachable code

;     (LET ((COM.INFORMATIMAGO.COMMON-LISP.LATEX::TOKEN-TEXT "")
;           (COM.INFORMATIMAGO.COMMON-LISP.LATEX::INCLUDE-STACK 'NIL)
;           (COM.INFORMATIMAGO.COMMON-LISP.LATEX::CHAPTER-FLAG NIL)
;           (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SECTION-FLAG NIL)
;           (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SUBSECTION-FLAG NIL)
;           (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SUBSUBSECTION-FLAG NIL)
;           (COM.INFORMATIMAGO.COMMON-LISP.LATEX::APARAGRAPH-FLAG NIL)
;           (COM.INFORMATIMAGO.COMMON-LISP.LATEX::INLINE-QUOTE-FLAG NIL)
;           (COM.INFORMATIMAGO.COMMON-LISP.LATEX::INLINE-MATH-FLAG NIL)
;           (COM.INFORMATIMAGO.COMMON-LISP.LATEX::DISPLAY-MATH-FLAG NIL)
;           (COM.INFORMATIMAGO.COMMON-LISP.LATEX::TABLE-COUNT 0)
;           (COM.INFORMATIMAGO.COMMON-LISP.LATEX::ARRAY-COUNT 0)
;           ...)
;       (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SCAN-RULES (COM.INFORMATIMAGO.COMMON-LISP.LATEX::TOKEN-TEXT
;                                                         STREAM)
;         (LABELS ((COM.INFORMATIMAGO.COMMON-LISP.LATEX::GET-TEX-FILENAME-WITHOUT-BRACES
;                      #
;                    "Return the tex file path designated by the token-text \"filename\".
;                  Use variable READ-TEX-DIR."
;                    #)
;                  (COM.INFORMATIMAGO.COMMON-LISP.LATEX::GET-TEX-FILENAME #
;                    "Return the tex file path designated by the token-text \"{filename}\".
;                  Use variable READ-TEX-DIR."
;                    #)
;                  (COM.INFORMATIMAGO.COMMON-LISP.LATEX::OPEN-LIST #
;                    #
;                    #)
;                  (COM.INFORMATIMAGO.COMMON-LISP.LATEX::CLOSE-LIST #
;                    #)
;                  (COM.INFORMATIMAGO.COMMON-LISP.LATEX::ADD-AS-STRING #
;                    #)
;                  (COM.INFORMATIMAGO.COMMON-LISP.LATEX::ADD-SEXP #
;                    #)
;                  (COM.INFORMATIMAGO.COMMON-LISP.LATEX::CLEAN-UP-QUOTES #
;                    #)
;                  (COM.INFORMATIMAGO.COMMON-LISP.LATEX::LIST-ENV-P #
;                    #)
;                  (COM.INFORMATIMAGO.COMMON-LISP.LATEX::PUSH-INCLUDE #
;                    #)
;                  (COM.INFORMATIMAGO.COMMON-LISP.LATEX::POP-INCLUDE #
;                    #)
;                  (COM.INFORMATIMAGO.COMMON-LISP.LATEX::TERMINATE-INCLUDES #
;                    #)
;                  (COM.INFORMATIMAGO.COMMON-LISP.LATEX::APARAGRAPH-CLOSER #
;                    #)
;                  ...)
;           (UNWIND-PROTECT (PROGN # # # # # # # # # # # ...)
;             (COM.INFORMATIMAGO.COMMON-LISP.LATEX::TERMINATE-INCLUDES)))))
; 
; caught STYLE-WARNING:
;   The variable TOKEN-TEXT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable STATES is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ACCENT-ACUTE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ACCENT-GRAV is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ACCENT-UMLAUT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ACCENT-CIRCUMFLEX is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ACCENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable NUMBER is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable NEWLINE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable OPT-TAB-ARG is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable BEGIN-DISPLAY-MATH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable END-DISPLAY-MATH is defined but never used.

;     (DECF COM.INFORMATIMAGO.COMMON-LISP.LATEX::BRACE-COUNT)
; --> SETQ THE SB-IMPL::XSUBTRACT BLOCK 
; ==>
;   (- SB-IMPL::B SB-IMPL::A)
; 
; caught WARNING:
;   Derived type of SB-IMPL::B is
;     (VALUES NULL &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

;     (INCF COM.INFORMATIMAGO.COMMON-LISP.LATEX::BRACE-COUNT)
; --> SETQ THE 
; ==>
;   (+ 1 COM.INFORMATIMAGO.COMMON-LISP.LATEX::BRACE-COUNT)
; 
; caught WARNING:
;   Derived type of BRACE-COUNT is
;     (VALUES NULL &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; caught WARNING:
;   Derived type of BRACE-COUNT is
;     (VALUES NULL &OPTIONAL),
;   conflicting with its asserted type
;     NUMBER.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /tmp/parser.lisp
; in: DEFUN SCAN
;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SET
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::A-Z)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::A-Z

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::ALT
;      (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SET
;       COM.INFORMATIMAGO.COMMON-LISP.LATEX::A-Z)
;      #\- COM.INFORMATIMAGO.COMMON-LISP.LATEX::ACCENT)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::ACCENT

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::ALT
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::ACCENT-CIRCUMFLEX
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::ACCENT-GRAV
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::ACCENT-ACUTE
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::ACCENT-UMLAUT)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::ACCENT-ACUTE
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::ACCENT-CIRCUMFLEX
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::ACCENT-GRAV
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::ACCENT-UMLAUT

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::ANY)
; 
; caught STYLE-WARNING:
;   undefined function: COM.INFORMATIMAGO.COMMON-LISP.LATEX::ANY

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SEQ
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::BACKSLASH "begin"
;      (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP*
;       COM.INFORMATIMAGO.COMMON-LISP.LATEX::H-SPACE)
;      "{")
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::BACKSLASH

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP+
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::BLANK-LINE)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::BLANK-LINE

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP+
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::DIGIT)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::DIGIT

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::ESCAPE-QUOTE
;      (SUBSEQ COM.INFORMATIMAGO.COMMON-LISP.LATEX::TOKEN-TEXT 1))
; 
; caught STYLE-WARNING:
;   undefined function: COM.INFORMATIMAGO.COMMON-LISP.LATEX::ESCAPE-QUOTE

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP*
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::H-SPACE)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::H-SPACE

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP*
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::H_SPACE)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::H_SPACE

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP*
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::LETTER)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::LETTER

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SEQ
;      (COM.INFORMATIMAGO.COMMON-LISP.LATEX::OPT ",")
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::MATH-NUMBER)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::MATH-NUMBER

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SEQ
;      (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP*
;       COM.INFORMATIMAGO.COMMON-LISP.LATEX::H-SPACE)
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::NEWLINE)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::NEWLINE

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SEQ
;      (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP*
;       COM.INFORMATIMAGO.COMMON-LISP.LATEX::DIGIT)
;      (COM.INFORMATIMAGO.COMMON-LISP.LATEX::OPT ".") NUMBER)
; 
; caught WARNING:
;   undefined variable: COMMON-LISP:NUMBER

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::OPT
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::OPT_TAB_ARG)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::OPT_TAB_ARG

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REJECT)
; 
; caught STYLE-WARNING:
;   undefined function: COM.INFORMATIMAGO.COMMON-LISP.LATEX::REJECT

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::RULE
;      (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SEQ "\\end "
;       (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP*
;        COM.INFORMATIMAGO.COMMON-LISP.LATEX::H-SPACE))
;      (ERROR "space after \\end can cause problems"))
; --> WHEN IF SETF SETQ THE 
; ==>
;   (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SCAN-MATCH-REGEXP STREAM
;    (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SEQ "\\end "
;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP*
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::H-SPACE)))
; 
; caught STYLE-WARNING:
;   undefined function: COM.INFORMATIMAGO.COMMON-LISP.LATEX::SCAN-MATCH-REGEXP

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SETD
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::DISPLAY-MATH-FLAG T)
; 
; caught STYLE-WARNING:
;   undefined function: COM.INFORMATIMAGO.COMMON-LISP.LATEX::SETD

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::WHEN-STATE :INCLUDE
;      (COM.INFORMATIMAGO.COMMON-LISP.LATEX::RULE
;       (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP*
;        COM.INFORMATIMAGO.COMMON-LISP.LATEX::H-SPACE))
;      (COM.INFORMATIMAGO.COMMON-LISP.LATEX::RULE
;       (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SEQ "{"
;        (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP+
;         (COM.INFORMATIMAGO.COMMON-LISP.LATEX::SET-NOT #))
;        "}")
;       (LET ((COM.INFORMATIMAGO.COMMON-LISP.LATEX::FILENAME #))
;         (COM.INFORMATIMAGO.COMMON-LISP.LATEX::PUSH-INCLUDE
;          COM.INFORMATIMAGO.COMMON-LISP.LATEX::FILENAME)))
;      (COM.INFORMATIMAGO.COMMON-LISP.LATEX::RULE
;       (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP+
;        COM.INFORMATIMAGO.COMMON-LISP.LATEX::FILENAME-CHAR)
;       (LET ((COM.INFORMATIMAGO.COMMON-LISP.LATEX::FILENAME #))
;         (COM.INFORMATIMAGO.COMMON-LISP.LATEX::PUSH-INCLUDE
;          COM.INFORMATIMAGO.COMMON-LISP.LATEX::FILENAME))))
; --> WHEN IF 
; ==>
;   (EQ #:|state0| COM.INFORMATIMAGO.COMMON-LISP.LATEX::STATE)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::STATE

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::TERMINATE)
; 
; caught STYLE-WARNING:
;   undefined function: COM.INFORMATIMAGO.COMMON-LISP.LATEX::TERMINATE

;     (COM.INFORMATIMAGO.COMMON-LISP.LATEX::REP*
;      COM.INFORMATIMAGO.COMMON-LISP.LATEX::WHITESPACE)
; 
; caught WARNING:
;   undefined variable: COM.INFORMATIMAGO.COMMON-LISP.LATEX::WHITESPACE
; 
; compilation unit finished
;   Undefined functions:
;     ANY ESCAPE-QUOTE REJECT SCAN-MATCH-REGEXP SETD TERMINATE
;   Undefined variables:
;     A-Z ACCENT ACCENT-ACUTE ACCENT-CIRCUMFLEX ACCENT-GRAV ACCENT-UMLAUT BACKSLASH BLANK-LINE DIGIT H-SPACE H_SPACE LETTER MATH-NUMBER NEWLINE NUMBER OPT_TAB_ARG STATE WHITESPACE
;   caught 22 WARNING conditions
;   caught 19 STYLE-WARNING conditions
;   printed 12 notes


; wrote /tmp/parser.fasl
; compilation finished in 0:00:00.842

CL-USER>