Context Navigation

Custom Query (1030 matches)

Filters

	Status	assigned closed new reopened
And		Or

Group results by descending

Show under each result: Description

Max items per page

Results (313 - 315 of 1030)

← 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 →


Ticket	Resolution	Summary	Reporter
#909	invalid	Required arguments in (CCL::TYPECHECK GRAMMAR) don't match lambda list (CCL::OBJECT CCL::TYPESPEC).	Pascal Bourguignon
Description	While compiling a file, I get the following error, which seems to come from the compiler. Admitedly, that file contains some errors (missing parameters to some function, a setf without a value). But those errors are not signaled, instead I get the following. Required arguments in (CCL::TYPECHECK GRAMMAR) don't match lambda list (CCL::OBJECT CCL::TYPESPEC). [Condition of type CCL::SIMPLE-PROGRAM-ERROR] Restarts: 0: [CONTINUE] continue compilation ignoring this form 1: [CONTINUE] continue compilation ignoring this form 2: [RETRY-LOAD] Retry loading #P"/home/pjb/src/public/rdp/rdp.lisp" 3: [SKIP-LOAD] Skip loading #P"/home/pjb/src/public/rdp/rdp.lisp" 4: [LOAD-OTHER] Load other file instead of #P"/home/pjb/src/public/rdp/rdp.lisp" 5: [ABORT] Return to SLIME's top level. --more-- Backtrace: 0: ((:INTERNAL CCL::NX1-COMPILE-LAMBDA) #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD>) 1: (SIGNAL #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD>) 2: (CCL::%ERROR #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD> NIL 17506924414789) 3: (CERROR "continue compilation ignoring this form" #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD>) 4: ((:INTERNAL CCL::NX1-COMPILE-LAMBDA) #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD>) 5: (SIGNAL #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD>) 6: (CCL::%ERROR #<CCL::SIMPLE-PROGRAM-ERROR #x302003D355BD> NIL 17506924414808) 7: (CCL::%POP-REQUIRED-ARG-PTR #<CCL::DESTRUCTURE-STATE #x7F612FF4A28D>) 8: (CCL::TYPECHECK (CCL::TYPECHECK GRAMMAR) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 9: (FUNCALL #<Compiled-function CCL::TYPECHECK Macroexpander #x3000009EAE7F> (CCL::TYPECHECK GRAMMAR) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 10: (MACROEXPAND-1 (CCL::TYPECHECK GRAMMAR) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 11: (CCL::NX-TRANSFORM (CCL::TYPECHECK GRAMMAR) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D> #<HASH-TABLE :TEST EQ size 1715/1847 #x302003BE628D>) 12: (CCL::NX1-TYPED-FORM (CCL::TYPECHECK GRAMMAR) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 13: (CCL::NX1-FORM (CCL::TYPECHECK GRAMMAR) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 14: (CCL::NX1-ARGLIST ((CCL::TYPECHECK GRAMMAR) 7 SCANNER-CLASS-NAME) NIL) 15: (CCL::NX1-CALL-FORM CCL::STRUCT-SET NIL ((CCL::TYPECHECK GRAMMAR) 7 SCANNER-CLASS-NAME) NIL #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 16: (CCL::NX1-CALL CCL::STRUCT-SET ((CCL::TYPECHECK GRAMMAR) 7 SCANNER-CLASS-NAME) NIL NIL NIL) 17: (CCL::NX1-TYPED-CALL CCL::STRUCT-SET ((CCL::TYPECHECK GRAMMAR) 7 SCANNER-CLASS-NAME) NIL) 18: (CCL::NX1-COMBINATION (CCL::STRUCT-SET (CCL::TYPECHECK GRAMMAR) 7 SCANNER-CLASS-NAME) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 19: (CCL::NX1-TRANSFORMED-FORM (CCL::STRUCT-SET (CCL::TYPECHECK GRAMMAR) 7 SCANNER-CLASS-NAME) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 20: (CCL::NX1-TYPED-FORM (SETF (GRAMMAR-SCANNER) SCANNER-CLASS-NAME) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 21: (CCL::NX1-FORM (SETF (GRAMMAR-SCANNER) SCANNER-CLASS-NAME) #<CCL::LEXICAL-ENVIRONMENT #x302003D03E8D>) 22: (CCL::NX1-FORMLIST ((SETF (GRAMMAR-SCANNER) SCANNER-CLASS-NAME) (GEN-TRACE 'SCAN-NEXT-TOKEN FORM TRACE))) 23: (CCL::NX1-PROGN-BODY ((SETF (GRAMMAR-SCANNER) SCANNER-CLASS-NAME) (GEN-TRACE 'SCAN-NEXT-TOKEN FORM TRACE))) 24: (CCL::NX1-ENV-BODY ((SETF (GRAMMAR-SCANNER) SCANNER-CLASS-NAME) (GEN-TRACE 'SCAN-NEXT-TOKEN FORM TRACE)) #<CCL::LEXICAL-ENVIRONMENT #x302003C84EBD> T) 25: (CCL::NX1-LET (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^{\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LIST* (LIST* (.. 26: (CCL::NX1-COMBINATION (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LIST* (.. 27: (CCL::NX1-TRANSFORMED-FORM (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^{\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LI.. 28: (CCL::NX1-TYPED-FORM (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LIST* (L.. 29: (CCL::NX1-FORM (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^{\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LIST* (LIST* (.. 30: (CCL::NX1-PROGN (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LIST* .. 31: (CCL::NX1-COMBINATION (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^{\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (.. 32: (CCL::NX1-TRANSFORMED-FORM (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TO.. 33: (CCL::NX1-TYPED-FORM (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^{\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (L.. 34: (CCL::NX1-FORM (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SCAN-NEXT-TOKEN (LIST* (.. 35: (CCL::NX1-IF (IF (OR (EQ #:G26160 'T)) (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^{\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* '.. 36: (CCL::NX1-COMBINATION (IF (OR (EQ #:G26160 'T)) (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD.. 37: (CCL::NX1-TRANSFORMED-FORM (IF (OR (EQ #:G26160 'T)) (PROGN (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^{\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFM.. 38: (CCL::NX1-TYPED-FORM (COND ((OR (EQ #:G26160 'T)) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIS.. 39: (CCL::NX1-FORM (COND ((OR (EQ #:G26160 'T)) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^{\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST* 'SC.. 40: (CCL::NX1-ENV-BODY ((COND ((OR (EQ #:G26160 'T)) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (LIST.. 41: (CCL::NX1-LET (LET ((#1=#:G26160 (GRAMMAR-SCANNER GRAMMAR))) (DECLARE (IGNORABLE #1#)) (COND ((OR (EQ #1# 'T)) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^{\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-C.. 42: (CCL::NX1-COMBINATION (LET ((#1=#:G26160 (GRAMMAR-SCANNER GRAMMAR))) (DECLARE (IGNORABLE #1#)) (COND ((OR (EQ #1# 'T)) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* S.. 43: (CCL::NX1-TRANSFORMED-FORM (LET ((#1=#:G26160 (GRAMMAR-SCANNER GRAMMAR))) (DECLARE (IGNORABLE #1#)) (COND ((OR (EQ #1# 'T)) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^{\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LI.. 44: (CCL::NX1-TYPED-FORM (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMET.. 45: (CCL::NX1-FORM (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^{\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETHOD (L.. 46: (CCL::NX1-ENV-BODY ((CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})" (MAPCAR #'REGEXP-QUOTE-EXTENDED NAN-TERMINALS))) (FORM (LIST* 'PROGN (LIST* (LIST* 'SETF (LIST* (LIST* 'GRAMMAR-SCANNER (LIST (GRAMMAR-NAME GRAMMAR))) (LIST (LIST* 'QUOTE (LIST SCANNER-CLASS-NAME))))) (LIST* (LIST* 'DEFCLASS (LIST* SCANNER-CLASS-NAME '((RDP-SCANNER) NIL))) (LIST (LIST* 'DEFMETH.. 47: (CCL::NX1-FLET (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REG.. 48: (CCL::NX1-COMBINATION (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMIN.. 49: (CCL::NX1-TRANSFORMED-FORM (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-T.. 50: (CCL::NX1-TYPED-FORM (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINA.. 51: (CCL::NX1-FORM (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS))) (LIT-NAN-TERMINALS-REG.. 52: (CCL::NX1-BLOCK (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS).. 53: (CCL::NX1-COMBINATION (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERM.. 54: (CCL::NX1-TRANSFORMED-FORM (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN.. 55: (CCL::NX1-TYPED-FORM (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMI.. 56: (CCL::NX1-FORM (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMINALS)).. 57: (CCL::NX1-ENV-BODY ((BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "^(~{~A~\|~})([^{A-Za-z0-9]\|$)" (MAPCAR #'REGEXP-QUOTE-EXTENDED AN-TERMIN.. 58: (CCL::NX1-LAMBDA (TARGET GRAMMAR &KEY (TRACE NIL)) ((BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2=#:NEXT-METHOD-CONTEXT #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMAR))) (LIT-AN-TERMINALS-REGEXP (FORMAT NIL "}(~{~A~^\|~})([A-Za-z0-9]\|$)" (MAPCAR #.. 59: (CCL::NX1-COMPILE-LAMBDA (GENERATE-SCANNER ((EQL :LISP) T)) (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TE.. 60: (CCL::NX1-REF-INNER-FUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMMA.. 61: (CCL::NX1-NFUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS .. 62: (CCL::NX1-COMBINATION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINAL.. 63: (CCL::NX1-TRANSFORMED-FORM (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TER.. 64: (CCL::NX1-TYPED-FORM (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS.. 65: (CCL::NX1-FORM (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT TARGET GRAMMAR &KEY (TRACE NIL)) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERMINALS GRAMM.. 66: (CCL::NX1-ARGLIST ((CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NL-TERMINALS (REMOVE-IF #'STRINGP (GRAMMAR-TERM.. 67: (CCL::NX1-CALL-FORM CCL::ENSURE-METHOD NIL ('GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINAL.. 68: (CCL::NX1-CALL CCL::ENSURE-METHOD ('GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR.. 69: (CCL::NX1-TYPED-CALL CCL::ENSURE-METHOD ('GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS G.. 70: (CCL::NX1-COMBINATION (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS .. 71: (CCL::NX1-TRANSFORMED-FORM (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMI.. 72: (CCL::NX1-TYPED-FORM (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS G.. 73: (CCL::NX1-TYPED-VAR-INITFORM #S(CCL::PENDING-DECLARATIONS :VDECLS NIL :FDECLS NIL :MDECLS NIL) #:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRIN.. 74: (CCL::NX1-LET* (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-A.. 75: (CCL::NX1-COMBINATION (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GR.. 76: (CCL::NX1-TRANSFORMED-FORM (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM))))).. 77: (CCL::NX1-TYPED-FORM (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRA.. 78: (CCL::NX1-FORM (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-A.. 79: (CCL::NX1-CATCH-BODY ((LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (ITEM) (OR (NOT (STRINGP ITEM)) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GR.. 80: (CCL::NX1-COMPILER-LET (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LA.. 81: (CCL::NX1-COMBINATION (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAM.. 82: (CCL::NX1-TRANSFORMED-FORM (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF.. 83: (CCL::NX1-TYPED-FORM (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMB.. 84: (CCL::NX1-FORM (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAMBDA (IT.. 85: (CCL::NX1-PROGN (PROGN (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LA.. 86: (CCL::NX1-COMBINATION (PROGN (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-.. 87: (CCL::NX1-TRANSFORMED-FORM (PROGN (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (RE.. 88: (CCL::NX1-TYPED-FORM (PROGN (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-I.. 89: (CCL::NX1-FORM (PROGN (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF (LAM.. 90: (CCL::NX1-ENV-BODY ((PROGN (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-IF.. 91: (CCL::NX1-LAMBDA NIL ((PROGN (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMOVE-.. 92: (CCL::NX1-COMPILE-LAMBDA NIL (LAMBDA NIL (PROGN (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMI.. 93: (CCL::COMPILE-NAMED-FUNCTION (LAMBDA NIL (PROGN (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMI.. 94: (CCL::CHEAP-EVAL-FUNCTION NIL (LAMBDA NIL (PROGN (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERM.. 95: (CCL::CHEAP-EVAL-IN-ENVIRONMENT (CCL:COMPILER-LET ((CCL::NX-METHOD-WARNING-NAME '(GENERATE-SCANNER ((EQL :LISP) T)))) (LET* ((#4=#:G26158 (CCL::ENSURE-METHOD 'GENERATE-SCANNER (LIST (LIST 'EQL :LISP) T) :FUNCTION (CCL:NFUNCTION GENERATE-SCANNER (LAMBDA (CCL::&METHOD #2=#:NEXT-METHOD-CONTEXT . #3=(TARGET GRAMMAR &KEY (TRACE NIL))) (DECLARE (IGNORABLE TARGET)) (BLOCK GENERATE-SCANNER (FLET ((CALL-NEXT-METHOD (&REST #1=#:G26159) (DECLARE (DYNAMIC-EXTENT #1#)) (IF #1# (APPLY #'CCL::%CALL-NEXT-METHOD-WITH-ARGS #2# #1#) (CCL::%CALL-NEXT-METHOD #2#))) (NEXT-METHOD-P NIL (CCL::%NEXT-METHOD-P #2#))) (DECLARE (INLINE CALL-NEXT-METHOD NEXT-METHOD-P)) (DECLARE (FTYPE #'(&REST T) GENERATE-SCANNER)) (CASE (GRAMMAR-SCANNER GRAMMAR) ((T) (LET* ((SCANNER-CLASS-NAME (GEN-SCANNER-CLASS-NAME TARGET GRAMMAR)) (AN-TERMINALS (SORT (REMOVE-IF-NOT (LAMBDA (ITEM) (AND (STRINGP ITEM) (ALPHANUMERICP (AREF ITEM (1- (LENGTH ITEM)))))) (GRAMMAR-ALL-TERMINALS GRAMMAR)) #'> :KEY #'LENGTH)) (NAN-TERMINALS (SORT (REMO.. 96: ((:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM)) 97: (CCL::CALL-WITH-COMPILATION-UNIT #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::WITH-COMPILATION-UNIT-BODY CCL::LOAD-FROM-STREAM) #x7F612FF4B18F> :OVERRIDE NIL) 98: (CCL::LOAD-FROM-STREAM #<BASIC-FILE-CHARACTER-INPUT-STREAM ("/home/pjb/src/git/public/rdp/rdp.lisp"/4 ISO-8859-1) #x302003BE6CFD> NIL) 99: (CCL::%LOAD #P"/home/pjb/src/git/public/rdp/rdp.lisp" NIL NIL :ERROR :DEFAULT) 100: (LOAD #P"/home/pjb/src/public/rdp/rdp.lisp" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST :ERROR :EXTERNAL-FORMAT :DEFAULT) 101: (SWANK:LOAD-FILE "/home/pjb/src/public/rdp/rdp.lisp") 102: (CCL::CALL-CHECK-REGS SWANK:LOAD-FILE "/home/pjb/src/public/rdp/rdp.lisp") 103: (CCL::CHEAP-EVAL (SWANK:LOAD-FILE "/home/pjb/src/public/rdp/rdp.lisp")) 104: (SWANK:EVAL-FOR-EMACS (SWANK:LOAD-FILE "/home/pjb/src/public/rdp/rdp.lisp") "\"COM.INFORMATIMAGO.RDP\"" 188) 105: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD)) 106: (SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020014B07CF> #<Compiled-function (:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non-Global) #x30200147ECCF>) 107: (SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020014B07CF> #<Compiled-function (:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non-Global) #x30200147ECCF>) 108: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD)) 109: (SWANK::CALL-WITH-BINDINGS ((STANDARD-OUTPUT . #1= . #<SWANK-BACKEND::SLIME-OUTPUT-STREAM #x302002C491BD>) (STANDARD-INPUT . #2= . #<SWANK-BACKEND::SLIME-INPUT-STREAM #x302002C492DD>) (TRACE-OUTPUT . #1#) (ERROR-OUTPUT . #1#) (DEBUG-IO . #3= . #<TWO-WAY-STREAM input #2#, output #1# #x302002C413DD>) (QUERY-IO . #3#) (TERMINAL-IO . #3#)) #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-WORKER-THREAD) #x302003BE750F>) 110: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD)) 111: (SWANK::CALL-WITH-BINDINGS NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-WORKER-THREAD) #x302003BE759F>) 112: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD)) 113: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS worker(366) [Active] #x302003BDCACD> (#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x302003BDC86F>)) 114: ((:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS))) #<PROCESS worker(366) [Active] #x302003BDCACD> (#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x302003BDC86F>)) 115: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
#914	invalid	run-program on MS-Windows does not collect output in a stream.	Pascal Bourguignon
Description	On linux: (with-output-to-string (out) (ccl:run-program "/bin/sh" '("-c" "echo hello") :input nil :output out :wait t)) "hello " which is the expected result. On MS-Windows: (with-output-to-string (out) (ccl:run-program "C:/cygwin/bin/sh" '("-c" "echo hello") :input nil :output out :wait t)) " " which is not expected. Notice that run-program runs successfully: (ccl:run-program "C:/cygwin/bin/sh" '("-c" "echo hello") :input nil :output (make-string-output-stream) :wait t) #<external-process (C:/cygwin/bin/sh -c echo hello)[nil] (exited : 0) #x2108DC3B8D> but the output is not collected. (list (lisp-implementation-type) (lisp-implementation-version) (machine-type) (machine-version)) ("Clozure Common Lisp" "Version 1.7-r14925M (Windowsx8664)" "x64" nil)
#948	fixed	encoding names	Pascal Bourguignon
Description	There are inconsistencies in the documentation of the character sets http://ccl.clozure.com/ccl-documentation.html#Supported-Character-Encodings :latin,3 instead of :latin-3 :cp68,7 instead of :cp68-8 on one hand, and on the other, inconsistencies in the naming of some character set, namely, why :latin-2 when the others are :latin1 :latin3 and :latin4 ? cl-user> (dolist (cs '(:latin1 :latin2 :latin3 :latin4 :latin-1 :latin-2 :latin-3 :latin-4 :latin 3 :cp63-7 :cp63 7)) (handler-case (progn (close (open "/tmp/a.txt" :direction :probe :external-format cs)) (format t "~S~%" cs)) (error (err) (format t "~S --> ~A~%" cs err)))) :latin1 :latin2 --> Invalid external-format: :latin2 :latin3 :latin4 :latin-1 --> Invalid external-format: :latin-1 :latin-2 :latin-3 --> Invalid external-format: :latin-3 :latin-4 --> Invalid external-format: :latin-4 :latin --> Invalid external-format: :latin 3 --> Invalid external-format: 3 :cp63-7 --> Invalid external-format: :cp63-7 :cp63 --> Invalid external-format: :cp63 7 --> Invalid external-format: 7 nil cl-user> Another point, which is probably related, is that there's no introspection function to get the list of character sets and their aliases. Yes, there's a describe-character-encodings function but it gives a human readable string, that's in no way guaranteed to be parseable. I'd suggest a function returning a lisp a-list of name and aliases, so that programs can learn what encodings are supported by the current version of ccl. The documentation could then automatically be generated from this function, and no inconsistency would be to be expected.

← 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 →

Note: See TracQuery for help on using queries.

Context Navigation

Custom Query (1030 matches)

Results (313 - 315 of 1030)

Download in other formats: