Custom Query (1030 matches)

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))

Using cl-dispatch, I perform the elementary operation of adding a callback function to the asynchronous dispatch queue. See code below. Thread crash results when testing by repeated execution, typically after tens of executions. The error details are slightly different each time, and occasionally I am thrown into the kernel debugger. I have attached the OS X (10.7) crash report for one crash.

(load "lisp:quicklisp;setup")
(ql:quickload "dispatch")

(defcallback foo (:address x) (declare (ignore x)) )

(defun test (v)
  (let ((q (#_dispatch_get_global_queue 0 0))) 
    (dotimes (i v)
        (print i) 
       (#_dispatch_async_f q (%null-ptr) foo))))

(test 100)   ; this never completes without an error.

Using &WHOLE in the lambda list for the :ARGUMENTS section of the long form of DEFINE-METHOD-COMBINATION results in an UNBOUND-VARIABLE condition. Here's a simple test case:

CL-USER> (define-method-combination test ()
             ((primary () :required t))
           (:arguments &whole whole)
           (format t "this is it: ~A" whole)
           `(call-method ,(first primary) ,(rest primary)))
;Compiler warnings :
;   In an anonymous lambda form: Undeclared free variable #:ARGS
TEST
CL-USER> (defgeneric foo (x)
           (:method-combination test)
           (:method (x) x))
#<STANDARD-GENERIC-FUNCTION FOO #x30200127BC6F>
CL-USER> (foo 3)

You can see the warning when the method combination is defined, then the call results in:

Unbound variable: #:ARGS
   [Condition of type UNBOUND-VARIABLE]

This is on CCL Version 1.8-dev-r15225M-trunk (DarwinX8664)