Custom Query (1030 matches)

There have been reports that the editor hangs when trying to open CR-terminated text files in the editor.

One theory - that it may be an endianness issue - doesn't seem to be correct; I've been able to open CR-terminated files under both PPC and X8664, and haven't yet been able to reproduce this.

Now that we are using Trac, it would be fun to have access to Graphviz for incorporating diagrams into Trac wikipages.

Link: ​http://trac-hacks.org/wiki/GraphvizPlugin

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