Opened 8 years ago

Closed 8 years ago

#909 closed defect (invalid)

Required arguments in (CCL::TYPECHECK GRAMMAR) don't match lambda list (CCL::OBJECT CCL::TYPESPEC).

Reported by: pjb@… Owned by:
Priority: normal Milestone:
Component: Compiler Version: trunk
Keywords: Cc:

Description

While compiling a file, I get the following error, which seems to come from the compiler. Admitedly, that file contains some errors (missing parameters to some function, a setf without a value). But those errors are not signaled, instead I get the following.

Required arguments in (CCL::TYPECHECK GRAMMAR) don't match lambda list (CCL::OBJECT

CCL::TYPESPEC).

[Condition of type CCL::SIMPLE-PROGRAM-ERROR]

Restarts:

0: [CONTINUE] continue compilation ignoring this form 1: [CONTINUE] continue compilation ignoring this form 2: [RETRY-LOAD] Retry loading #P"/home/pjb/src/public/rdp/rdp.lisp" 3: [SKIP-LOAD] Skip loading #P"/home/pjb/src/public/rdp/rdp.lisp" 4: [LOAD-OTHER] Load other file instead of #P"/home/pjb/src/public/rdp/rdp.lisp" 5: [*ABORT] Return to SLIME's top level. --more--

Backtrace:

0: ((:INTERNAL CCL::NX1-COMPILE-LAMBDA) #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD>) 1: (SIGNAL #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD>) 2: (CCL::%ERROR #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD> NIL 17506924414789) 3: (CERROR "continue compilation ignoring this form" #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD>) 4: ((:INTERNAL CCL::NX1-COMPILE-LAMBDA) #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD>) 5: (SIGNAL #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD>) 6: (CCL::%ERROR #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD> NIL 17506924414808) 7: (CCL::%POP-REQUIRED-ARG-PTR #<CCL::DESTRUCTURE-STATE #x7F612FF4A28D>) 8: (CCL::TYPECHECK (CCL::TYPECHECK GRAMMAR) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 9: (FUNCALL #<Compiled-function CCL::TYPECHECK Macroexpander #x3000009EAE7F> (CCL::TYPECHECK GRAMMAR) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>)

10: (MACROEXPAND-1 (CCL::TYPECHECK GRAMMAR) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 11: (CCL::NX-TRANSFORM (CCL::TYPECHECK GRAMMAR) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D> #<HASH-TABLE :TEST EQ size 1715/1847 #x302003BE628D>) 12: (CCL::NX1-TYPED-FORM (CCL::TYPECHECK GRAMMAR) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 13: (CCL::NX1-FORM (CCL::TYPECHECK GRAMMAR) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 14: (CCL::NX1-ARGLIST ((CCL::TYPECHECK GRAMMAR) 7 SCANNER-CLASS-NAME) NIL) 15: (CCL::NX1-CALL-FORM CCL::STRUCT-SET NIL ((CCL::TYPECHECK GRAMMAR) 7 SCANNER-CLASS-NAME) NIL #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 16: (CCL::NX1-CALL CCL::STRUCT-SET ((CCL::TYPECHECK GRAMMAR) 7 SCANNER-CLASS-NAME) NIL NIL NIL) 17: (CCL::NX1-TYPED-CALL CCL::STRUCT-SET ((CCL::TYPECHECK GRAMMAR) 7 SCANNER-CLASS-NAME) NIL) 18: (CCL::NX1-COMBINATION (CCL::STRUCT-SET (CCL::TYPECHECK GRAMMAR) 7 SCANNER-CLASS-NAME) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 19: (CCL::NX1-TRANSFORMED-FORM (CCL::STRUCT-SET (CCL::TYPECHECK GRAMMAR) 7 SCANNER-CLASS-NAME) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 20: (CCL::NX1-TYPED-FORM (SETF (GRAMMAR-SCANNER) SCANNER-CLASS-NAME) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 21: (CCL::NX1-FORM (SETF (GRAMMAR-SCANNER) SCANNER-CLASS-NAME) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 22: (CCL::NX1-FORMLIST ((SETF (GRAMMAR-SCANNER) SCANNER-CLASS-NAME) (GEN-TRACE 'SCAN-NEXT-TOKEN FORM TRACE))) 23: (CCL::NX1-PROGN-BODY ((SETF (GRAMMAR-SCANNER) SCANNER-CLASS-NAME) (GEN-TRACE 'SCAN-NEXT-TOKEN FORM TRACE))) 24: (CCL::NX1-ENV-BODY ((SETF (GRAMMAR-SCANNER) SCANNER-CLASS-NAME) (GEN-TRACE 'SCAN-NEXT-TOKEN FORM TRACE)) #<CCL::LEXICAL-ENVIRONMENT #x302003C84EBD> T) 25: (CCL::NX1-LET* (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LIST* (LIST* (.. 26: (CCL::NX1-COMBINATION (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LIST* (.. 27: (CCL::NX1-TRANSFORMED-FORM (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LI.. 28: (CCL::NX1-TYPED-FORM (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LIST* (L.. 29: (CCL::NX1-FORM (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LIST* (LIST* (.. 30: (CCL::NX1-PROGN (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LIST* .. 31: (CCL::NX1-COMBINATION (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (.. 32: (CCL::NX1-TRANSFORMED-FORM (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TO.. 33: (CCL::NX1-TYPED-FORM (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (L.. 34: (CCL::NX1-FORM (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LIST* (.. 35: (CCL::NX1-IF (IF (OR (EQ #:G26160 'T)) (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* '.. 36: (CCL::NX1-COMBINATION (IF (OR (EQ #:G26160 'T)) (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD.. 37: (CCL::NX1-TRANSFORMED-FORM (IF (OR (EQ #:G26160 'T)) (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFM.. 38: (CCL::NX1-TYPED-FORM (COND ((OR (EQ #:G26160 'T)) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIS.. 39: (CCL::NX1-FORM (COND ((OR (EQ #:G26160 'T)) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SC.. 40: (CCL::NX1-ENV-BODY ((COND ((OR (EQ #:G26160 'T)) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST.. 41: (CCL::NX1-LET (LET ((#1=#:G26160 (GRAMMAR-SCANNER GRAMMAR))) (DECLARE (IGNORABLE #1#)) (COND ((OR (EQ #1# 'T)) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-C.. 42: (CCL::NX1-COMBINATION (LET ((#1=#:G26160 (GRAMMAR-SCANNER GRAMMAR))) (DECLARE (IGNORABLE #1#)) (COND ((OR (EQ #1# 'T)) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* S.. 43: (CCL::NX1-TRANSFORMED-FORM (LET ((#1=#:G26160 (GRAMMAR-SCANNER GRAMMAR))) (DECLARE (IGNORABLE #1#)) (COND ((OR (EQ #1# 'T)) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LI.. 44: (CCL::NX1-TYPED-FORM (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMET.. 45: (CCL::NX1-FORM (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (L.. 46: (CCL::NX1-ENV-BODY ((CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETH.. 47: (CCL::NX1-FLET (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REG.. 48: (CCL::NX1-COMBINATION (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMIN.. 49: (CCL::NX1-TRANSFORMED-FORM (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-T.. 50: (CCL::NX1-TYPED-FORM (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINA.. 51: (CCL::NX1-FORM (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REG.. 52: (CCL::NX1-BLOCK (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS).. 53: (CCL::NX1-COMBINATION (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERM.. 54: (CCL::NX1-TRANSFORMED-FORM (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN.. 55: (CCL::NX1-TYPED-FORM (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMI.. 56: (CCL::NX1-FORM (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS)).. 57: (CCL::NX1-ENV-BODY ((BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMIN.. 58: (CCL::NX1-LAMBDA (TARGET GRAMMAR &KEY (TRACE NIL)) ((BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "(~{~A~|~})([A-Za-z0-9]|$)" (MAPCAR #.. 59: (CCL::NX1-COMPILE-LAMBDA (GENERATE-SCANNER ((EQL :LISP) T)) (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TE.. 60: (CCL::NX1-REF-INNER-FUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMA.. 61: (CCL::NX1-NFUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS .. 62: (CCL::NX1-COMBINATION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINAL.. 63: (CCL::NX1-TRANSFORMED-FORM (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TER.. 64: (CCL::NX1-TYPED-FORM (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS.. 65: (CCL::NX1-FORM (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMM.. 66: (CCL::NX1-ARGLIST ((CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERM.. 67: (CCL::NX1-CALL-FORM CCL::ENSURE-METHOD NIL ('GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINAL.. 68: (CCL::NX1-CALL CCL::ENSURE-METHOD ('GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR.. 69: (CCL::NX1-TYPED-CALL CCL::ENSURE-METHOD ('GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS G.. 70: (CCL::NX1-COMBINATION (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS .. 71: (CCL::NX1-TRANSFORMED-FORM (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMI.. 72: (CCL::NX1-TYPED-FORM (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS G.. 73: (CCL::NX1-TYPED-VAR-INITFORM #S(CCL::PENDING-DECLARATIONS :VDECLS NIL :FDECLS NIL :MDECLS NIL) #:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRIN.. 74: (CCL::NX1-LET* (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-A.. 75: (CCL::NX1-COMBINATION (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GR.. 76: (CCL::NX1-TRANSFORMED-FORM (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM))))).. 77: (CCL::NX1-TYPED-FORM (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRA.. 78: (CCL::NX1-FORM (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-A.. 79: (CCL::NX1-CATCH-BODY ((LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GR.. 80: (CCL::NX1-COMPILER-LET (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LA.. 81: (CCL::NX1-COMBINATION (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAM.. 82: (CCL::NX1-TRANSFORMED-FORM (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF.. 83: (CCL::NX1-TYPED-FORM (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMB.. 84: (CCL::NX1-FORM (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (IT.. 85: (CCL::NX1-PROGN (PROGN (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LA.. 86: (CCL::NX1-COMBINATION (PROGN (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-.. 87: (CCL::NX1-TRANSFORMED-FORM (PROGN (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (RE.. 88: (CCL::NX1-TYPED-FORM (PROGN (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-I.. 89: (CCL::NX1-FORM (PROGN (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAM.. 90: (CCL::NX1-ENV-BODY ((PROGN (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF.. 91: (CCL::NX1-LAMBDA NIL ((PROGN (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-.. 92: (CCL::NX1-COMPILE-LAMBDA NIL (LAMBDA NIL (PROGN (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMI.. 93: (CCL::COMPILE-NAMED-FUNCTION (LAMBDA NIL (PROGN (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMI.. 94: (CCL::CHEAP-EVAL-FUNCTION NIL (LAMBDA NIL (PROGN (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERM.. 95: (CCL::CHEAP-EVAL-IN-ENVIRONMENT (CCL:COMPILER-LET ((CCL::*NX-METHOD-WARNING-NAME* '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMO.. 96: ((:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM)) 97: (CCL::CALL-WITH-COMPILATION-UNIT #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x7F612FF4B18F> :OVERRIDE NIL) 98: (CCL::LOAD-FROM-STREAM #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/pjb/src/git/public/rdp/rdp.lisp"/4 ISO-8859-1) #x302003BE6CFD> NIL) 99: (CCL::%LOAD #P"/home/pjb/src/git/public/rdp/rdp.lisp" NIL NIL :ERROR :DEFAULT) 100: (LOAD #P"/home/pjb/src/public/rdp/rdp.lisp" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT) 101: (SWANK:LOAD-FILE "/home/pjb/src/public/rdp/rdp.lisp") 102: (CCL::CALL-CHECK-REGS SWANK:LOAD-FILE "/home/pjb/src/public/rdp/rdp.lisp") 103: (CCL::CHEAP-EVAL (SWANK:LOAD-FILE "/home/pjb/src/public/rdp/rdp.lisp")) 104: (SWANK:EVAL-FOR-EMACS (SWANK:LOAD-FILE "/home/pjb/src/public/rdp/rdp.lisp") "\"COM.INFORMATIMAGO.RDP\"" 188) 105: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD)) 106: (SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020014B07CF> #<Compiled-function (:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non-Global) #x30200147ECCF>) 107: (SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020014B07CF> #<Compiled-function (:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non-Global) #x30200147ECCF>) 108: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD)) 109: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-OUTPUT* . #1= . #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x302002C491BD>) (*STANDARD-INPUT* . #2= . #<SWANK-BACKEND::SLIME-INPUT-STREAM #x302002C492DD>) (*TRACE-OUTPUT* . #1#) (*ERROR-OUTPUT* . #1#) (*DEBUG-IO* . #3= . #<TWO-WAY-STREAM input #2#, output #1# #x302002C413DD>) (*QUERY-IO* . #3#) (*TERMINAL-IO* . #3#)) #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-WORKER-THREAD) #x302003BE750F>) 110: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD)) 111: (SWANK::CALL-WITH-BINDINGS NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-WORKER-THREAD) #x302003BE759F>) 112: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD)) 113: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS worker(366) [Active] #x302003BDCACD> (#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x302003BDC86F>)) 114: ((:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS))) #<PROCESS worker(366) [Active] #x302003BDCACD> (#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x302003BDC86F>)) 115: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))

Change History (1)

comment:1 Changed 8 years ago by pjb@…

  • Resolution set to invalid
  • Status changed from new to closed
Note: See TracTickets for help on using tickets.