Opened 8 years ago

Last modified 8 years ago

#910 new defect

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: 1.7
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 (2)

comment:1 Changed 8 years ago by pjb@…

I forgot:

(lisp-implementation-version)
"Version 1.7-dev-r14788M-trunk  (LinuxX8664)"

comment:2 Changed 8 years ago by pjb@…

  • Version changed from trunk to 1.7
Note: See TracTickets for help on using tickets.