| Kind | Covered | All | % |
| expression | 0 | 17750 | 0.0 |
| branch | 0 | 1264 | 0.0 |
1 2 (IN-PACKAGE "ORG.DATAGRAPH.SPOCQ.SPARQL-1-0-3") 3 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PathRangeStart|)) 4 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PathRangeEnd|)) 5 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PathRangeCount|)) 6 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteral|)) 7 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralUnsigned|)) 8 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralPositive|)) 9 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralNegative|)) 10 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-String|)) 11 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PrefixedName|)) 12 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-Distinctness|)) 13 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-Wild|)) 14 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-OrderDirection|)) 15 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-Undef|)) 16 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PathCardinality|)) 17 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PathInvertOp|)) 18 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-RelationalOperator|)) 19 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-AdditiveOperator|)) 20 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-MultiplicativeOperator|)) 21 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-UnaryOperator|)) 22 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NullOperator|)) 23 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NullOrUnaryOperator|)) 24 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinUnaryOperator|)) 25 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinBinaryOperator|)) 26 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinListOperator|)) 27 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BooleanLiteral|)) 28 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-ArithmeticAggregateOperator|)) 29 (DECLAIM (FTYPE (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES T T T)) |Query-Parser|)) 30 (DEFUN |IS-PathRangeStart| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM)))))31 (DEFUN |IS-PathRangeEnd| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM)))))32 (DEFUN |IS-PathRangeCount| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM)))))33 (DEFUN |IS-NumericLiteral| (ATN-PARSER::ITEM)34 (%ATN-TRACE-FORM35 (AND ATN-PARSER::ITEM36 (OR (|IS-NumericLiteralUnsigned| ATN-PARSER::ITEM)37 (|IS-NumericLiteralPositive| ATN-PARSER::ITEM)38 (|IS-NumericLiteralNegative| ATN-PARSER::ITEM)))))39 (DEFUN |IS-NumericLiteralUnsigned| (ATN-PARSER::ITEM)40 (%ATN-TRACE-FORM41 (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM) (IS-DECIMAL ATN-PARSER::ITEM) (IS-DOUBLE ATN-PARSER::ITEM)))))42 (DEFUN |IS-NumericLiteralPositive| (ATN-PARSER::ITEM)43 (%ATN-TRACE-FORM44 (AND ATN-PARSER::ITEM45 (OR (IS-INTEGER_POSITIVE ATN-PARSER::ITEM) (IS-DECIMAL_POSITIVE ATN-PARSER::ITEM) (IS-DOUBLE_POSITIVE ATN-PARSER::ITEM)))))46 (DEFUN |IS-NumericLiteralNegative| (ATN-PARSER::ITEM)47 (%ATN-TRACE-FORM48 (AND ATN-PARSER::ITEM49 (OR (IS-INTEGER_NEGATIVE ATN-PARSER::ITEM) (IS-DECIMAL_NEGATIVE ATN-PARSER::ITEM) (IS-DOUBLE_NEGATIVE ATN-PARSER::ITEM)))))50 (DEFUN |IS-String| (ATN-PARSER::ITEM)51 (%ATN-TRACE-FORM52 (AND ATN-PARSER::ITEM53 (OR (IS-STRING_LITERAL1 ATN-PARSER::ITEM)54 (IS-STRING_LITERAL2 ATN-PARSER::ITEM)55 (IS-STRING_LITERAL_LONG1 ATN-PARSER::ITEM)56 (IS-STRING_LITERAL_LONG2 ATN-PARSER::ITEM)))))57 (DEFUN |IS-PrefixedName| (ATN-PARSER::ITEM)58 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-PNAME_LN ATN-PARSER::ITEM) (IS-PNAME_NS ATN-PARSER::ITEM)))))59 (DEFUN |IS-Distinctness| (ATN-PARSER::ITEM)60 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:DISTINCT) (EQ ATN-PARSER::ITEM 'SPOCQ.S:REDUCED)))))61 (DEFUN |IS-Wild| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:*)))))62 (DEFUN |IS-OrderDirection| (ATN-PARSER::ITEM)63 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:ASC) (EQ ATN-PARSER::ITEM 'SPOCQ.S:DESC)))))64 (DEFUN |IS-Undef| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:UNDEF)))))65 (DEFUN |IS-PathCardinality| (ATN-PARSER::ITEM)66 (%ATN-TRACE-FORM67 (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:*) (EQ ATN-PARSER::ITEM 'SPOCQ.S:?) (EQ ATN-PARSER::ITEM 'SPOCQ.S:+)))))68 (DEFUN |IS-PathInvertOp| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S::^)))))69 (DEFUN |IS-RelationalOperator| (ATN-PARSER::ITEM)70 (%ATN-TRACE-FORM71 (AND ATN-PARSER::ITEM72 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:=)73 (EQ ATN-PARSER::ITEM 'SPOCQ.S:!=)74 (EQ ATN-PARSER::ITEM 'SPOCQ.S:<)75 (EQ ATN-PARSER::ITEM 'SPOCQ.S:>)76 (EQ ATN-PARSER::ITEM 'SPOCQ.S:<=)77 (EQ ATN-PARSER::ITEM 'SPOCQ.S:>=)))))78 (DEFUN |IS-AdditiveOperator| (ATN-PARSER::ITEM)79 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:+) (EQ ATN-PARSER::ITEM 'SPOCQ.S:-)))))80 (DEFUN |IS-MultiplicativeOperator| (ATN-PARSER::ITEM)81 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:*) (EQ ATN-PARSER::ITEM 'SPOCQ.S:/)))))82 (DEFUN |IS-UnaryOperator| (ATN-PARSER::ITEM)83 (%ATN-TRACE-FORM84 (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:!) (EQ ATN-PARSER::ITEM 'SPOCQ.S:+) (EQ ATN-PARSER::ITEM 'SPOCQ.S:-)))))85 (DEFUN |IS-NullOperator| (ATN-PARSER::ITEM)86 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S::RAND) (EQ ATN-PARSER::ITEM 'SPOCQ.S::NOW)))))87 (DEFUN |IS-NullOrUnaryOperator| (ATN-PARSER::ITEM)88 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S::BNODE)))))89 (DEFUN |IS-BuiltinUnaryOperator| (ATN-PARSER::ITEM)90 (%ATN-TRACE-FORM91 (AND ATN-PARSER::ITEM92 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:STR)93 (EQ ATN-PARSER::ITEM 'SPOCQ.S:LANG)94 (EQ ATN-PARSER::ITEM 'SPOCQ.S:DATATYPE)95 (EQ ATN-PARSER::ITEM 'SPOCQ.S:BOUND)96 (EQ ATN-PARSER::ITEM 'SPOCQ.S:IRI)97 (EQ ATN-PARSER::ITEM 'SPOCQ.S:URI)98 (EQ ATN-PARSER::ITEM 'SPOCQ.S:ABS)99 (EQ ATN-PARSER::ITEM 'SPOCQ.S:CEIL)100 (EQ ATN-PARSER::ITEM 'SPOCQ.S:FLOOR)101 (EQ ATN-PARSER::ITEM 'SPOCQ.S:ROUND)102 (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRLEN)103 (EQ ATN-PARSER::ITEM 'SPOCQ.S:UCASE)104 (EQ ATN-PARSER::ITEM 'SPOCQ.S:LCASE)105 (EQ ATN-PARSER::ITEM 'SPOCQ.S:ENCODE_FOR_URI)106 (EQ ATN-PARSER::ITEM 'SPOCQ.S:YEAR)107 (EQ ATN-PARSER::ITEM 'SPOCQ.S:MONTH)108 (EQ ATN-PARSER::ITEM 'SPOCQ.S:DAY)109 (EQ ATN-PARSER::ITEM 'SPOCQ.S:HOURS)110 (EQ ATN-PARSER::ITEM 'SPOCQ.S:MINUTES)111 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SECONDS)112 (EQ ATN-PARSER::ITEM 'SPOCQ.S:TIMEZONE)113 (EQ ATN-PARSER::ITEM 'SPOCQ.S:TZ)114 (EQ ATN-PARSER::ITEM 'SPOCQ.S:MD5)115 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA1)116 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA224)117 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA256)118 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA384)119 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA512)120 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isIRI|)121 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isURI|)122 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isBlank|)123 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isLiteral|)124 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isNumeric|)))))125 (DEFUN |IS-BuiltinBinaryOperator| (ATN-PARSER::ITEM)126 (%ATN-TRACE-FORM127 (AND ATN-PARSER::ITEM128 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:LANGMATCHES)129 (EQ ATN-PARSER::ITEM 'SPOCQ.S:CONTAINS)130 (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRSTARTS)131 (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRENDS)132 (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRLANG)133 (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRDT)134 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|sameTerm|)))))135 (DEFUN |IS-BuiltinListOperator| (ATN-PARSER::ITEM)136 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:CONCAT) (EQ ATN-PARSER::ITEM 'SPOCQ.S:COALESCE)))))137 (DEFUN |IS-BooleanLiteral| (ATN-PARSER::ITEM)138 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:|true|) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|false|)))))139 (DEFUN |IS-ArithmeticAggregateOperator| (ATN-PARSER::ITEM)140 (%ATN-TRACE-FORM141 (AND ATN-PARSER::ITEM142 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:MIN)143 (EQ ATN-PARSER::ITEM 'SPOCQ.S:MAX)144 (EQ ATN-PARSER::ITEM 'SPOCQ.S:AVG)145 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SAMPLE)146 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SUM)))))147 (PROGN (DEFVAR |Query-INDEX|)148 (DEFUN |Query| (ATN-PARSER::INDEX &AUX (|AskQuery| NIL) (|BindingsClause| NIL) (|ConstructQuery| NIL) (|DescribeQuery| NIL)149 (|Prologue| NIL) (|SelectQuery| NIL))150 "{1 } Query ::= Prologue ((SelectQuery | ConstructQuery | DescribeQuery | AskQuery)) BindingsClause?151 (|AskQuery| |BindingsClause| |ConstructQuery| |DescribeQuery| |Prologue| |SelectQuery|)"152 (DECLARE (SPECIAL |Query-INDEX|))153 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Query-INDEX| *ATN-LEVEL))154 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))155 (IF (< |Query-INDEX| ATN-PARSER::INDEX)156 (LET ((|Query-INDEX| ATN-PARSER::INDEX)157 (*ATN-LEVEL (1+ *ATN-LEVEL))158 (*ATN-STACK (CONS '|Query| *ATN-STACK))159 (ATN-PARSER::ATN-STRUCTURE NIL))160 (DECLARE (SPECIAL |Query-INDEX|))161 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))162 (DECLARE (TYPE CONS *ATN-STACK))163 (SYMBOL-MACROLET164 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))165 (%ATN-BLOCK |Query|166 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)167 (SETF *ATN-TERM* '|Query|)168 (WHEN (INPUT-EOF? ATN-PARSER::INDEX)169 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE)))170 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)171 (|Query.2| (ATN-PARSER::INDEX)172 (%ATN-NODE-BLOCK173 |Query.2|174 (%ATN-EDGE-BLOCK175 (POP |Query|)176 (WHEN T177 (SETF *ATN-TERM* '|Query|)178 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"179 '|Query|180 ATN-PARSER::INDEX181 (LIST '|AskQuery|182 |AskQuery|183 '|BindingsClause|184 |BindingsClause|185 '|ConstructQuery|186 |ConstructQuery|187 '|DescribeQuery|188 |DescribeQuery|189 '|Prologue|190 |Prologue|191 '|SelectQuery|192 |SelectQuery|))193 (LET ((ATN-PARSER::RESULT-STRUCTURE194 (IF (EQ *ATN-REDUCE* T)195 (|Query-Constructor|196 |AskQuery|197 |BindingsClause|198 |ConstructQuery|199 |DescribeQuery|200 |Prologue|201 |SelectQuery|)202 (IF (EQ *ATN-REDUCE* 'CONS)203 (CONS '|Query|204 (DELETE NIL205 (LIST |AskQuery|206 |BindingsClause|207 |ConstructQuery|208 |DescribeQuery|209 |Prologue|210 |SelectQuery|)))211 '|Query|))))212 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))213 (|Query/fail.3| (ATN-PARSER::INDEX)214 (%ATN-NODE-BLOCK |Query/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))215 (|Query/Query.2.4| (ATN-PARSER::INDEX)216 (%ATN-NODE-BLOCK217 |Query/Query.2.4|218 (%ATN-EDGE-BLOCK219 OR220 (PROGN (%ATN-EDGE-BLOCK221 (PUSH |SelectQuery|)222 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)223 (ATN-PARSE-SUBSTRUCTURE* '|SelectQuery| ATN-PARSER::INDEX)224 (COND (ATN-PARSER::SUCCESS225 (SETF *ATN-TERM* '|SelectQuery|)226 (LET ((|SelectQuery1721| |SelectQuery|))227 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)228 (DESTRUCTURING-BIND229 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)230 ATN-PARSER::RESULT-AND-INDEX231 (WHEN ATN-PARSER::RESULT232 (SETF |SelectQuery| ATN-PARSER::RESULT))233 (|Query/Query.2.5| ATN-PARSER::RESULT-INDEX))234 (SETF |SelectQuery| |SelectQuery1721|))))235 (T (SETF *ATN-TERM?* '|SelectQuery|) NIL))))236 (%ATN-EDGE-BLOCK237 (PUSH |ConstructQuery|)238 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)239 (ATN-PARSE-SUBSTRUCTURE* '|ConstructQuery| ATN-PARSER::INDEX)240 (COND (ATN-PARSER::SUCCESS241 (SETF *ATN-TERM* '|ConstructQuery|)242 (LET ((|ConstructQuery1721| |ConstructQuery|))243 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)244 (DESTRUCTURING-BIND245 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)246 ATN-PARSER::RESULT-AND-INDEX247 (WHEN ATN-PARSER::RESULT248 (SETF |ConstructQuery| ATN-PARSER::RESULT))249 (|Query/Query.2.5| ATN-PARSER::RESULT-INDEX))250 (SETF |ConstructQuery| |ConstructQuery1721|))))251 (T (SETF *ATN-TERM?* '|ConstructQuery|) NIL))))252 (%ATN-EDGE-BLOCK253 (PUSH |DescribeQuery|)254 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)255 (ATN-PARSE-SUBSTRUCTURE* '|DescribeQuery| ATN-PARSER::INDEX)256 (COND (ATN-PARSER::SUCCESS257 (SETF *ATN-TERM* '|DescribeQuery|)258 (LET ((|DescribeQuery1721| |DescribeQuery|))259 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)260 (DESTRUCTURING-BIND261 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)262 ATN-PARSER::RESULT-AND-INDEX263 (WHEN ATN-PARSER::RESULT264 (SETF |DescribeQuery| ATN-PARSER::RESULT))265 (|Query/Query.2.5| ATN-PARSER::RESULT-INDEX))266 (SETF |DescribeQuery| |DescribeQuery1721|))))267 (T (SETF *ATN-TERM?* '|DescribeQuery|) NIL))))268 (%ATN-EDGE-BLOCK269 (PUSH |AskQuery|)270 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)271 (ATN-PARSE-SUBSTRUCTURE* '|AskQuery| ATN-PARSER::INDEX)272 (COND (ATN-PARSER::SUCCESS273 (SETF *ATN-TERM* '|AskQuery|)274 (LET ((|AskQuery1721| |AskQuery|))275 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)276 (DESTRUCTURING-BIND277 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)278 ATN-PARSER::RESULT-AND-INDEX279 (WHEN ATN-PARSER::RESULT (SETF |AskQuery| ATN-PARSER::RESULT))280 (|Query/Query.2.5| ATN-PARSER::RESULT-INDEX))281 (SETF |AskQuery| |AskQuery1721|))))282 (T (SETF *ATN-TERM?* '|AskQuery|) NIL))))283 (|Query/fail.3| ATN-PARSER::INDEX)))))284 (|Query/Query.2.5| (ATN-PARSER::INDEX)285 (%ATN-NODE-BLOCK286 |Query/Query.2.5|287 (%ATN-EDGE-BLOCK288 (PUSH |BindingsClause|)289 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)290 (ATN-PARSE-SUBSTRUCTURE* '|BindingsClause| ATN-PARSER::INDEX)291 (COND (ATN-PARSER::SUCCESS292 (SETF *ATN-TERM* '|BindingsClause|)293 (LET ((|BindingsClause1721| |BindingsClause|))294 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)295 (DESTRUCTURING-BIND296 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)297 ATN-PARSER::RESULT-AND-INDEX298 (WHEN ATN-PARSER::RESULT (SETF |BindingsClause| ATN-PARSER::RESULT))299 (|Query.2| ATN-PARSER::RESULT-INDEX))300 (SETF |BindingsClause| |BindingsClause1721|))))301 (T (SETF *ATN-TERM?* '|BindingsClause|) (|Query.2| ATN-PARSER::INDEX)))))))302 (|Query/start.1| (ATN-PARSER::INDEX)303 (%ATN-NODE-BLOCK304 |Query/start.1|305 (%ATN-EDGE-BLOCK306 (PUSH |Prologue|)307 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)308 (ATN-PARSE-SUBSTRUCTURE* '|Prologue| ATN-PARSER::INDEX)309 (COND (ATN-PARSER::SUCCESS310 (SETF *ATN-TERM* '|Prologue|)311 (LET ((|Prologue1721| |Prologue|))312 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)313 (DESTRUCTURING-BIND314 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)315 ATN-PARSER::RESULT-AND-INDEX316 (WHEN ATN-PARSER::RESULT (SETF |Prologue| ATN-PARSER::RESULT))317 (|Query/Query.2.4| ATN-PARSER::RESULT-INDEX))318 (SETF |Prologue| |Prologue1721|))))319 (T (SETF *ATN-TERM?* '|Prologue|) (|Query/fail.3| ATN-PARSER::INDEX))))))))320 (|Query/start.1| ATN-PARSER::INDEX)321 (SETF *ATN-NODE NIL)322 NIL323 (IF ATN-PARSER::ATN-STRUCTURE324 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)325 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))326 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Query| ATN-PARSER::INDEX *ATN-STACK))))327 (PROGN (DEFVAR |Prologue-INDEX|)328 (DEFUN |Prologue| (ATN-PARSER::INDEX &AUX (|BaseDecl| NIL) (|PrefixDecl| NIL))329 "{2 } Prologue ::= BaseDecl? PrefixDecl*330 (|BaseDecl| |PrefixDecl|)"331 (DECLARE (SPECIAL |Prologue-INDEX|))332 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Prologue-INDEX| *ATN-LEVEL))333 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))334 (IF (< |Prologue-INDEX| ATN-PARSER::INDEX)335 (LET ((|Prologue-INDEX| ATN-PARSER::INDEX)336 (*ATN-LEVEL (1+ *ATN-LEVEL))337 (*ATN-STACK (CONS '|Prologue| *ATN-STACK))338 (ATN-PARSER::ATN-STRUCTURE NIL))339 (DECLARE (SPECIAL |Prologue-INDEX|))340 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))341 (DECLARE (TYPE CONS *ATN-STACK))342 (SYMBOL-MACROLET343 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))344 (%ATN-BLOCK |Prologue|345 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)346 (SETF *ATN-TERM* '|Prologue|)347 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))348 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)349 (|Prologue.2| (ATN-PARSER::INDEX)350 (%ATN-NODE-BLOCK351 |Prologue.2|352 (%ATN-EDGE-BLOCK353 (POP |Prologue|)354 (WHEN T355 (SETF *ATN-TERM* '|Prologue|)356 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"357 '|Prologue|358 ATN-PARSER::INDEX359 (LIST '|BaseDecl| |BaseDecl| '|PrefixDecl| |PrefixDecl|))360 (LET ((ATN-PARSER::RESULT-STRUCTURE361 (IF (EQ *ATN-REDUCE* T)362 (|Prologue-Constructor| |BaseDecl| |PrefixDecl|)363 (IF (EQ *ATN-REDUCE* 'CONS)364 (CONS '|Prologue| (DELETE NIL (LIST |BaseDecl| |PrefixDecl|)))365 '|Prologue|))))366 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))367 (|Prologue.5| (ATN-PARSER::INDEX)368 (%ATN-NODE-BLOCK369 |Prologue.5|370 (%ATN-EDGE-BLOCK371 (PUSH |PrefixDecl|)372 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)373 (ATN-PARSE-SUBSTRUCTURE* '|PrefixDecl| ATN-PARSER::INDEX)374 (COND (ATN-PARSER::SUCCESS375 (SETF *ATN-TERM* '|PrefixDecl|)376 (LET ((|PrefixDecl1722| |PrefixDecl|))377 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)378 (DESTRUCTURING-BIND379 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)380 ATN-PARSER::RESULT-AND-INDEX381 (WHEN ATN-PARSER::RESULT382 (SETF |PrefixDecl| (CONS ATN-PARSER::RESULT |PrefixDecl|)))383 (|Prologue.5| ATN-PARSER::RESULT-INDEX))384 (SETF |PrefixDecl| |PrefixDecl1722|))))385 (T (SETF *ATN-TERM?* '|PrefixDecl|) (|Prologue.2| ATN-PARSER::INDEX)))))))386 (|Prologue/fail.3| (ATN-PARSER::INDEX)387 (%ATN-NODE-BLOCK |Prologue/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))388 (|Prologue/Prologue.2.4| (ATN-PARSER::INDEX)389 (%ATN-NODE-BLOCK390 |Prologue/Prologue.2.4|391 (%ATN-EDGE-BLOCK392 (PUSH |PrefixDecl|)393 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)394 (ATN-PARSE-SUBSTRUCTURE* '|PrefixDecl| ATN-PARSER::INDEX)395 (COND (ATN-PARSER::SUCCESS396 (SETF *ATN-TERM* '|PrefixDecl|)397 (LET ((|PrefixDecl1721| |PrefixDecl|))398 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)399 (DESTRUCTURING-BIND400 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)401 ATN-PARSER::RESULT-AND-INDEX402 (WHEN ATN-PARSER::RESULT403 (SETF |PrefixDecl| (CONS ATN-PARSER::RESULT |PrefixDecl|)))404 (|Prologue.5| ATN-PARSER::RESULT-INDEX))405 (SETF |PrefixDecl| |PrefixDecl1721|))))406 (T (SETF *ATN-TERM?* '|PrefixDecl|) (|Prologue.2| ATN-PARSER::INDEX)))))))407 (|Prologue/start.1| (ATN-PARSER::INDEX)408 (%ATN-NODE-BLOCK409 |Prologue/start.1|410 (%ATN-EDGE-BLOCK411 (PUSH |BaseDecl|)412 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)413 (ATN-PARSE-SUBSTRUCTURE* '|BaseDecl| ATN-PARSER::INDEX)414 (COND (ATN-PARSER::SUCCESS415 (SETF *ATN-TERM* '|BaseDecl|)416 (LET ((|BaseDecl1722| |BaseDecl|))417 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)418 (DESTRUCTURING-BIND419 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)420 ATN-PARSER::RESULT-AND-INDEX421 (WHEN ATN-PARSER::RESULT (SETF |BaseDecl| ATN-PARSER::RESULT))422 (|Prologue/Prologue.2.4| ATN-PARSER::RESULT-INDEX))423 (SETF |BaseDecl| |BaseDecl1722|))))424 (T425 (SETF *ATN-TERM?* '|BaseDecl|)426 (|Prologue/Prologue.2.4| ATN-PARSER::INDEX))))))))427 (|Prologue/start.1| ATN-PARSER::INDEX)428 (SETF *ATN-NODE NIL)429 NIL430 (IF ATN-PARSER::ATN-STRUCTURE431 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)432 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))433 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Prologue| ATN-PARSER::INDEX *ATN-STACK))))434 (PROGN (DEFVAR |BaseDecl-INDEX|)435 (DEFUN |BaseDecl| (ATN-PARSER::INDEX &AUX (IRI_REF NIL))436 "{3 } BaseDecl ::= 'BASE' IRI_REF437 (IRI_REF)"438 (DECLARE (SPECIAL |BaseDecl-INDEX|))439 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BaseDecl-INDEX| *ATN-LEVEL))440 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))441 (IF (< |BaseDecl-INDEX| ATN-PARSER::INDEX)442 (LET ((|BaseDecl-INDEX| ATN-PARSER::INDEX)443 (*ATN-LEVEL (1+ *ATN-LEVEL))444 (*ATN-STACK (CONS '|BaseDecl| *ATN-STACK))445 (ATN-PARSER::ATN-STRUCTURE NIL))446 (DECLARE (SPECIAL |BaseDecl-INDEX|))447 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))448 (DECLARE (TYPE CONS *ATN-STACK))449 (SYMBOL-MACROLET450 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))451 (%ATN-BLOCK |BaseDecl|452 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)453 (SETF *ATN-TERM* '|BaseDecl|)454 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))455 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)456 (|BaseDecl.2| (ATN-PARSER::INDEX)457 (%ATN-NODE-BLOCK458 |BaseDecl.2|459 (%ATN-EDGE-BLOCK460 (POP |BaseDecl|)461 (WHEN T462 (SETF *ATN-TERM* '|BaseDecl|)463 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"464 '|BaseDecl|465 ATN-PARSER::INDEX466 (LIST 'IRI_REF IRI_REF))467 (LET ((ATN-PARSER::RESULT-STRUCTURE468 (IF (EQ *ATN-REDUCE* T)469 (|BaseDecl-Constructor| IRI_REF)470 (IF (EQ *ATN-REDUCE* 'CONS)471 (CONS '|BaseDecl| (DELETE NIL (LIST IRI_REF)))472 '|BaseDecl|))))473 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))474 (|BaseDecl/BaseDecl.2.4| (ATN-PARSER::INDEX)475 (%ATN-NODE-BLOCK476 |BaseDecl/BaseDecl.2.4|477 (%ATN-EDGE-BLOCK478 (PUSH IRI_REF)479 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)480 (ATN-PARSE-SUBSTRUCTURE* 'IRI_REF ATN-PARSER::INDEX)481 (COND (ATN-PARSER::SUCCESS482 (SETF *ATN-TERM* 'IRI_REF)483 (LET ((IRI_REF1722 IRI_REF))484 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)485 (DESTRUCTURING-BIND486 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)487 ATN-PARSER::RESULT-AND-INDEX488 (WHEN ATN-PARSER::RESULT (SETF IRI_REF ATN-PARSER::RESULT))489 (|BaseDecl.2| ATN-PARSER::RESULT-INDEX))490 (SETF IRI_REF IRI_REF1722))))491 (T (SETF *ATN-TERM?* 'IRI_REF) (|BaseDecl/fail.3| ATN-PARSER::INDEX)))))))492 (|BaseDecl/fail.3| (ATN-PARSER::INDEX)493 (%ATN-NODE-BLOCK |BaseDecl/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))494 (|BaseDecl/start.1| (ATN-PARSER::INDEX)495 (%ATN-NODE-BLOCK496 |BaseDecl/start.1|497 (%ATN-EDGE-BLOCK498 (ATN-PARSER::WORD SPOCQ.S:BASE)499 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BASE)500 (SETF *ATN-TERM* 'SPOCQ.S:BASE)501 (|BaseDecl/BaseDecl.2.4| (1+ ATN-PARSER::INDEX)))502 (T (SETF *ATN-TERM?* 'SPOCQ.S:BASE) (|BaseDecl/fail.3| ATN-PARSER::INDEX)))))))503 (|BaseDecl/start.1| ATN-PARSER::INDEX)504 (SETF *ATN-NODE NIL)505 NIL506 (IF ATN-PARSER::ATN-STRUCTURE507 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)508 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))509 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BaseDecl| ATN-PARSER::INDEX *ATN-STACK))))510 (PROGN (DEFVAR |PrefixDecl-INDEX|)511 (DEFUN |PrefixDecl| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL) (PNAME_NS NIL))512 "{4 } PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF513 (NAMESPACE_REF PNAME_NS)"514 (DECLARE (SPECIAL |PrefixDecl-INDEX|))515 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PrefixDecl-INDEX| *ATN-LEVEL))516 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))517 (IF (< |PrefixDecl-INDEX| ATN-PARSER::INDEX)518 (LET ((|PrefixDecl-INDEX| ATN-PARSER::INDEX)519 (*ATN-LEVEL (1+ *ATN-LEVEL))520 (*ATN-STACK (CONS '|PrefixDecl| *ATN-STACK))521 (ATN-PARSER::ATN-STRUCTURE NIL))522 (DECLARE (SPECIAL |PrefixDecl-INDEX|))523 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))524 (DECLARE (TYPE CONS *ATN-STACK))525 (SYMBOL-MACROLET526 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))527 (%ATN-BLOCK |PrefixDecl|528 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)529 (SETF *ATN-TERM* '|PrefixDecl|)530 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))531 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)532 (|PrefixDecl.2| (ATN-PARSER::INDEX)533 (%ATN-NODE-BLOCK534 |PrefixDecl.2|535 (%ATN-EDGE-BLOCK536 (POP |PrefixDecl|)537 (WHEN T538 (SETF *ATN-TERM* '|PrefixDecl|)539 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"540 '|PrefixDecl|541 ATN-PARSER::INDEX542 (LIST 'NAMESPACE_REF NAMESPACE_REF 'PNAME_NS PNAME_NS))543 (LET ((ATN-PARSER::RESULT-STRUCTURE544 (IF (EQ *ATN-REDUCE* T)545 (|PrefixDecl-Constructor| NAMESPACE_REF PNAME_NS)546 (IF (EQ *ATN-REDUCE* 'CONS)547 (CONS '|PrefixDecl| (DELETE NIL (LIST NAMESPACE_REF PNAME_NS)))548 '|PrefixDecl|))))549 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))550 (|PrefixDecl/fail.3| (ATN-PARSER::INDEX)551 (%ATN-NODE-BLOCK |PrefixDecl/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))552 (|PrefixDecl/PrefixDecl.2.4| (ATN-PARSER::INDEX)553 (%ATN-NODE-BLOCK554 |PrefixDecl/PrefixDecl.2.4|555 (%ATN-EDGE-BLOCK556 (TEST PNAME_NS)557 (COND ((IS-PNAME_NS ATN-PARSER::|item|)558 (SETF *ATN-TERM* 'PNAME_NS)559 (SETF PNAME_NS560 (IF (EQ *ATN-REDUCE* T)561 (ATN-REDUCE-ITEM #'|PNAME_NS-Constructor| ATN-PARSER::|item|)562 (IF (EQ *ATN-REDUCE* 'CONS)563 (LIST 'PNAME_NS ATN-PARSER::|item|)564 'PNAME_NS)))565 (|PrefixDecl/PrefixDecl.2.5| (1+ ATN-PARSER::INDEX)))566 (T (SETF *ATN-TERM?* 'PNAME_NS) (|PrefixDecl/fail.3| ATN-PARSER::INDEX))))))567 (|PrefixDecl/PrefixDecl.2.5| (ATN-PARSER::INDEX)568 (%ATN-NODE-BLOCK569 |PrefixDecl/PrefixDecl.2.5|570 (%ATN-EDGE-BLOCK571 (PUSH NAMESPACE_REF)572 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)573 (ATN-PARSE-SUBSTRUCTURE* 'NAMESPACE_REF ATN-PARSER::INDEX)574 (COND (ATN-PARSER::SUCCESS575 (SETF *ATN-TERM* 'NAMESPACE_REF)576 (LET ((NAMESPACE_REF1722 NAMESPACE_REF))577 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)578 (DESTRUCTURING-BIND579 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)580 ATN-PARSER::RESULT-AND-INDEX581 (WHEN ATN-PARSER::RESULT (SETF NAMESPACE_REF ATN-PARSER::RESULT))582 (|PrefixDecl.2| ATN-PARSER::RESULT-INDEX))583 (SETF NAMESPACE_REF NAMESPACE_REF1722))))584 (T585 (SETF *ATN-TERM?* 'NAMESPACE_REF)586 (|PrefixDecl/fail.3| ATN-PARSER::INDEX)))))))587 (|PrefixDecl/start.1| (ATN-PARSER::INDEX)588 (%ATN-NODE-BLOCK589 |PrefixDecl/start.1|590 (%ATN-EDGE-BLOCK591 (ATN-PARSER::WORD SPOCQ.S:PREFIX)592 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:PREFIX)593 (SETF *ATN-TERM* 'SPOCQ.S:PREFIX)594 (|PrefixDecl/PrefixDecl.2.4| (1+ ATN-PARSER::INDEX)))595 (T596 (SETF *ATN-TERM?* 'SPOCQ.S:PREFIX)597 (|PrefixDecl/fail.3| ATN-PARSER::INDEX)))))))598 (|PrefixDecl/start.1| ATN-PARSER::INDEX)599 (SETF *ATN-NODE NIL)600 NIL601 (IF ATN-PARSER::ATN-STRUCTURE602 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)603 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))604 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PrefixDecl| ATN-PARSER::INDEX *ATN-STACK))))605 (PROGN (DEFVAR |SelectQuery-INDEX|)606 (DEFUN |SelectQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|SelectClause| NIL) (|SolutionModifier| NIL)607 (|WhereClause| NIL))608 "{5 } SelectQuery ::= SelectClause DatasetClause* WhereClause SolutionModifier609 (|DatasetClause| |SelectClause| |SolutionModifier| |WhereClause|)"610 (DECLARE (SPECIAL |SelectQuery-INDEX|))611 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SelectQuery-INDEX| *ATN-LEVEL))612 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))613 (IF (< |SelectQuery-INDEX| ATN-PARSER::INDEX)614 (LET ((|SelectQuery-INDEX| ATN-PARSER::INDEX)615 (*ATN-LEVEL (1+ *ATN-LEVEL))616 (*ATN-STACK (CONS '|SelectQuery| *ATN-STACK))617 (ATN-PARSER::ATN-STRUCTURE NIL))618 (DECLARE (SPECIAL |SelectQuery-INDEX|))619 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))620 (DECLARE (TYPE CONS *ATN-STACK))621 (SYMBOL-MACROLET622 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))623 (%ATN-BLOCK |SelectQuery|624 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)625 (SETF *ATN-TERM* '|SelectQuery|)626 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))627 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)628 (|SelectQuery.2| (ATN-PARSER::INDEX)629 (%ATN-NODE-BLOCK630 |SelectQuery.2|631 (%ATN-EDGE-BLOCK632 (POP |SelectQuery|)633 (WHEN T634 (SETF *ATN-TERM* '|SelectQuery|)635 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"636 '|SelectQuery|637 ATN-PARSER::INDEX638 (LIST '|DatasetClause|639 |DatasetClause|640 '|SelectClause|641 |SelectClause|642 '|SolutionModifier|643 |SolutionModifier|644 '|WhereClause|645 |WhereClause|))646 (LET ((ATN-PARSER::RESULT-STRUCTURE647 (IF (EQ *ATN-REDUCE* T)648 (|SelectQuery-Constructor|649 |DatasetClause|650 |SelectClause|651 |SolutionModifier|652 |WhereClause|)653 (IF (EQ *ATN-REDUCE* 'CONS)654 (CONS '|SelectQuery|655 (DELETE NIL656 (LIST |DatasetClause|657 |SelectClause|658 |SolutionModifier|659 |WhereClause|)))660 '|SelectQuery|))))661 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))662 (|SelectQuery.7| (ATN-PARSER::INDEX)663 (%ATN-NODE-BLOCK664 |SelectQuery.7|665 (%ATN-EDGE-BLOCK666 (PUSH |DatasetClause|)667 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)668 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)669 (COND (ATN-PARSER::SUCCESS670 (SETF *ATN-TERM* '|DatasetClause|)671 (LET ((|DatasetClause1723| |DatasetClause|))672 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)673 (DESTRUCTURING-BIND674 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)675 ATN-PARSER::RESULT-AND-INDEX676 (WHEN ATN-PARSER::RESULT677 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))678 (|SelectQuery.7| ATN-PARSER::RESULT-INDEX))679 (SETF |DatasetClause| |DatasetClause1723|))))680 (T681 (SETF *ATN-TERM?* '|DatasetClause|)682 (|SelectQuery/SelectQuery.2.5| ATN-PARSER::INDEX)))))))683 (|SelectQuery/fail.3| (ATN-PARSER::INDEX)684 (%ATN-NODE-BLOCK |SelectQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))685 (|SelectQuery/SelectQuery.2.4| (ATN-PARSER::INDEX)686 (%ATN-NODE-BLOCK687 |SelectQuery/SelectQuery.2.4|688 (%ATN-EDGE-BLOCK689 (PUSH |DatasetClause|)690 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)691 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)692 (COND (ATN-PARSER::SUCCESS693 (SETF *ATN-TERM* '|DatasetClause|)694 (LET ((|DatasetClause1722| |DatasetClause|))695 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)696 (DESTRUCTURING-BIND697 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)698 ATN-PARSER::RESULT-AND-INDEX699 (WHEN ATN-PARSER::RESULT700 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))701 (|SelectQuery.7| ATN-PARSER::RESULT-INDEX))702 (SETF |DatasetClause| |DatasetClause1722|))))703 (T704 (SETF *ATN-TERM?* '|DatasetClause|)705 (|SelectQuery/SelectQuery.2.5| ATN-PARSER::INDEX)))))))706 (|SelectQuery/SelectQuery.2.5| (ATN-PARSER::INDEX)707 (%ATN-NODE-BLOCK708 |SelectQuery/SelectQuery.2.5|709 (%ATN-EDGE-BLOCK710 (PUSH |WhereClause|)711 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)712 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)713 (COND (ATN-PARSER::SUCCESS714 (SETF *ATN-TERM* '|WhereClause|)715 (LET ((|WhereClause1722| |WhereClause|))716 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)717 (DESTRUCTURING-BIND718 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)719 ATN-PARSER::RESULT-AND-INDEX720 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))721 (|SelectQuery/SelectQuery.2.6| ATN-PARSER::RESULT-INDEX))722 (SETF |WhereClause| |WhereClause1722|))))723 (T724 (SETF *ATN-TERM?* '|WhereClause|)725 (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))))726 (|SelectQuery/SelectQuery.2.6| (ATN-PARSER::INDEX)727 (%ATN-NODE-BLOCK728 |SelectQuery/SelectQuery.2.6|729 (%ATN-EDGE-BLOCK730 (PUSH |SolutionModifier|)731 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)732 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)733 (COND (ATN-PARSER::SUCCESS734 (SETF *ATN-TERM* '|SolutionModifier|)735 (LET ((|SolutionModifier1722| |SolutionModifier|))736 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)737 (DESTRUCTURING-BIND738 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)739 ATN-PARSER::RESULT-AND-INDEX740 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))741 (|SelectQuery.2| ATN-PARSER::RESULT-INDEX))742 (SETF |SolutionModifier| |SolutionModifier1722|))))743 (T744 (SETF *ATN-TERM?* '|SolutionModifier|)745 (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))))746 (|SelectQuery/start.1| (ATN-PARSER::INDEX)747 (%ATN-NODE-BLOCK748 |SelectQuery/start.1|749 (%ATN-EDGE-BLOCK750 (PUSH |SelectClause|)751 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)752 (ATN-PARSE-SUBSTRUCTURE* '|SelectClause| ATN-PARSER::INDEX)753 (COND (ATN-PARSER::SUCCESS754 (SETF *ATN-TERM* '|SelectClause|)755 (LET ((|SelectClause1723| |SelectClause|))756 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)757 (DESTRUCTURING-BIND758 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)759 ATN-PARSER::RESULT-AND-INDEX760 (WHEN ATN-PARSER::RESULT (SETF |SelectClause| ATN-PARSER::RESULT))761 (|SelectQuery/SelectQuery.2.4| ATN-PARSER::RESULT-INDEX))762 (SETF |SelectClause| |SelectClause1723|))))763 (T764 (SETF *ATN-TERM?* '|SelectClause|)765 (|SelectQuery/fail.3| ATN-PARSER::INDEX))))))))766 (|SelectQuery/start.1| ATN-PARSER::INDEX)767 (SETF *ATN-NODE NIL)768 NIL769 (IF ATN-PARSER::ATN-STRUCTURE770 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)771 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))772 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SelectQuery| ATN-PARSER::INDEX *ATN-STACK))))773 (PROGN (DEFVAR |SelectClause-INDEX|)774 (DEFUN |SelectClause| (ATN-PARSER::INDEX &AUX (|Distinctness| NIL) (|VariableOrBinding| NIL) (|Wild| NIL))775 "SelectClause ::= 'SELECT' Distinctness? (((VariableOrBinding)+ | Wild))776 (|Distinctness| |VariableOrBinding| |Wild|)"777 (DECLARE (SPECIAL |SelectClause-INDEX|))778 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SelectClause-INDEX| *ATN-LEVEL))779 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))780 (IF (< |SelectClause-INDEX| ATN-PARSER::INDEX)781 (LET ((|SelectClause-INDEX| ATN-PARSER::INDEX)782 (*ATN-LEVEL (1+ *ATN-LEVEL))783 (*ATN-STACK (CONS '|SelectClause| *ATN-STACK))784 (ATN-PARSER::ATN-STRUCTURE NIL))785 (DECLARE (SPECIAL |SelectClause-INDEX|))786 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))787 (DECLARE (TYPE CONS *ATN-STACK))788 (SYMBOL-MACROLET789 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))790 (%ATN-BLOCK |SelectClause|791 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)792 (SETF *ATN-TERM* '|SelectClause|)793 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))794 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)795 (|SelectClause.2| (ATN-PARSER::INDEX)796 (%ATN-NODE-BLOCK797 |SelectClause.2|798 (%ATN-EDGE-BLOCK799 (POP |SelectClause|)800 (WHEN T801 (SETF *ATN-TERM* '|SelectClause|)802 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"803 '|SelectClause|804 ATN-PARSER::INDEX805 (LIST '|Distinctness|806 |Distinctness|807 '|VariableOrBinding|808 |VariableOrBinding|809 '|Wild|810 |Wild|))811 (LET ((ATN-PARSER::RESULT-STRUCTURE812 (IF (EQ *ATN-REDUCE* T)813 (|SelectClause-Constructor| |Distinctness| |VariableOrBinding| |Wild|)814 (IF (EQ *ATN-REDUCE* 'CONS)815 (CONS '|SelectClause|816 (DELETE NIL (LIST |Distinctness| |VariableOrBinding| |Wild|)))817 '|SelectClause|))))818 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))819 (|SelectClause.6| (ATN-PARSER::INDEX)820 (%ATN-NODE-BLOCK821 |SelectClause.6|822 (%ATN-EDGE-BLOCK823 (PUSH |VariableOrBinding|)824 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)825 (ATN-PARSE-SUBSTRUCTURE* '|VariableOrBinding| ATN-PARSER::INDEX)826 (COND (ATN-PARSER::SUCCESS827 (SETF *ATN-TERM* '|VariableOrBinding|)828 (LET ((|VariableOrBinding1724| |VariableOrBinding|))829 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)830 (DESTRUCTURING-BIND831 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)832 ATN-PARSER::RESULT-AND-INDEX833 (WHEN ATN-PARSER::RESULT834 (SETF |VariableOrBinding|835 (CONS ATN-PARSER::RESULT |VariableOrBinding|)))836 (|SelectClause.6| ATN-PARSER::RESULT-INDEX))837 (SETF |VariableOrBinding| |VariableOrBinding1724|))))838 (T839 (SETF *ATN-TERM?* '|VariableOrBinding|)840 (|SelectClause.2| ATN-PARSER::INDEX)))))))841 (|SelectClause/fail.3| (ATN-PARSER::INDEX)842 (%ATN-NODE-BLOCK |SelectClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))843 (|SelectClause/SelectClause.2.4| (ATN-PARSER::INDEX)844 (%ATN-NODE-BLOCK845 |SelectClause/SelectClause.2.4|846 (%ATN-EDGE-BLOCK847 (ATN-PARSER::CAT |Distinctness|)848 (COND ((|IS-Distinctness| ATN-PARSER::|item|)849 (SETF *ATN-TERM* '|Distinctness|)850 (SETF |Distinctness|851 (IF (EQ *ATN-REDUCE* T)852 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)853 (IF (EQ *ATN-REDUCE* 'CONS)854 (LIST '|Distinctness| ATN-PARSER::|item|)855 '|Distinctness|)))856 (|SelectClause/SelectClause.2.5| (1+ ATN-PARSER::INDEX)))857 (T858 (SETF *ATN-TERM* '|Distinctness|)859 (|SelectClause/SelectClause.2.5| ATN-PARSER::INDEX))))))860 (|SelectClause/SelectClause.2.5| (ATN-PARSER::INDEX)861 (%ATN-NODE-BLOCK862 |SelectClause/SelectClause.2.5|863 (%ATN-EDGE-BLOCK864 OR865 (PROGN (%ATN-EDGE-BLOCK866 (PUSH |VariableOrBinding|)867 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)868 (ATN-PARSE-SUBSTRUCTURE* '|VariableOrBinding| ATN-PARSER::INDEX)869 (COND (ATN-PARSER::SUCCESS870 (SETF *ATN-TERM* '|VariableOrBinding|)871 (LET ((|VariableOrBinding1723| |VariableOrBinding|))872 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)873 (DESTRUCTURING-BIND874 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)875 ATN-PARSER::RESULT-AND-INDEX876 (WHEN ATN-PARSER::RESULT877 (SETF |VariableOrBinding|878 (CONS ATN-PARSER::RESULT |VariableOrBinding|)))879 (|SelectClause.6| ATN-PARSER::RESULT-INDEX))880 (SETF |VariableOrBinding| |VariableOrBinding1723|))))881 (T (SETF *ATN-TERM?* '|VariableOrBinding|) NIL))))882 (%ATN-EDGE-BLOCK883 (ATN-PARSER::CAT |Wild|)884 (COND ((|IS-Wild| ATN-PARSER::|item|)885 (SETF *ATN-TERM* '|Wild|)886 (SETF |Wild|887 (IF (EQ *ATN-REDUCE* T)888 (ATN-REDUCE-ITEM #'|Wild-Constructor| ATN-PARSER::|item|)889 (IF (EQ *ATN-REDUCE* 'CONS)890 (LIST '|Wild| ATN-PARSER::|item|)891 '|Wild|)))892 (|SelectClause.2| (1+ ATN-PARSER::INDEX)))893 (T (SETF *ATN-TERM* '|Wild|) NIL)))894 (|SelectClause/fail.3| ATN-PARSER::INDEX)))))895 (|SelectClause/start.1| (ATN-PARSER::INDEX)896 (%ATN-NODE-BLOCK897 |SelectClause/start.1|898 (%ATN-EDGE-BLOCK899 (ATN-PARSER::WORD SPOCQ.S:SELECT)900 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:SELECT)901 (SETF *ATN-TERM* 'SPOCQ.S:SELECT)902 (|SelectClause/SelectClause.2.4| (1+ ATN-PARSER::INDEX)))903 (T904 (SETF *ATN-TERM?* 'SPOCQ.S:SELECT)905 (|SelectClause/fail.3| ATN-PARSER::INDEX)))))))906 (|SelectClause/start.1| ATN-PARSER::INDEX)907 (SETF *ATN-NODE NIL)908 NIL909 (IF ATN-PARSER::ATN-STRUCTURE910 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)911 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))912 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SelectClause| ATN-PARSER::INDEX *ATN-STACK))))913 (PROGN (DEFVAR |VariableOrBinding-INDEX|)914 (DEFUN |VariableOrBinding| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|Var| NIL))915 "{5 } VariableOrBinding ::= (Var | ('(' Expression 'AS' Var ')'))916 (|Expression| |Var|)"917 (DECLARE (SPECIAL |VariableOrBinding-INDEX|))918 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VariableOrBinding-INDEX| *ATN-LEVEL))919 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))920 (IF (< |VariableOrBinding-INDEX| ATN-PARSER::INDEX)921 (LET ((|VariableOrBinding-INDEX| ATN-PARSER::INDEX)922 (*ATN-LEVEL (1+ *ATN-LEVEL))923 (*ATN-STACK (CONS '|VariableOrBinding| *ATN-STACK))924 (ATN-PARSER::ATN-STRUCTURE NIL))925 (DECLARE (SPECIAL |VariableOrBinding-INDEX|))926 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))927 (DECLARE (TYPE CONS *ATN-STACK))928 (SYMBOL-MACROLET929 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))930 (%ATN-BLOCK |VariableOrBinding|931 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)932 (SETF *ATN-TERM* '|VariableOrBinding|)933 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))934 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)935 (|VariableOrBinding.2| (ATN-PARSER::INDEX)936 (%ATN-NODE-BLOCK937 |VariableOrBinding.2|938 (%ATN-EDGE-BLOCK939 (POP |VariableOrBinding|)940 (WHEN T941 (SETF *ATN-TERM* '|VariableOrBinding|)942 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"943 '|VariableOrBinding|944 ATN-PARSER::INDEX945 (LIST '|Expression| |Expression| '|Var| |Var|))946 (LET ((ATN-PARSER::RESULT-STRUCTURE947 (IF (EQ *ATN-REDUCE* T)948 (|VariableOrBinding-Constructor| |Expression| |Var|)949 (IF (EQ *ATN-REDUCE* 'CONS)950 (CONS '|VariableOrBinding| (DELETE NIL (LIST |Expression| |Var|)))951 '|VariableOrBinding|))))952 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))953 (|VariableOrBinding/fail.3| (ATN-PARSER::INDEX)954 (%ATN-NODE-BLOCK |VariableOrBinding/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))955 (|VariableOrBinding/start.1| (ATN-PARSER::INDEX)956 (%ATN-NODE-BLOCK957 |VariableOrBinding/start.1|958 (%ATN-EDGE-BLOCK959 OR960 (PROGN (%ATN-EDGE-BLOCK961 (TEST |Var|)962 (COND ((|IS-Var| ATN-PARSER::|item|)963 (SETF *ATN-TERM* '|Var|)964 (SETF |Var|965 (IF (EQ *ATN-REDUCE* T)966 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)967 (IF (EQ *ATN-REDUCE* 'CONS)968 (LIST '|Var| ATN-PARSER::|item|)969 '|Var|)))970 (|VariableOrBinding.2| (1+ ATN-PARSER::INDEX)))971 (T (SETF *ATN-TERM?* '|Var|) NIL)))972 (%ATN-EDGE-BLOCK973 (ATN-PARSER::JUMP |VariableOrBinding/VariableOrBinding.2.4|)974 (|VariableOrBinding/VariableOrBinding.2.4| ATN-PARSER::INDEX))975 (|VariableOrBinding/fail.3| ATN-PARSER::INDEX)))))976 (|VariableOrBinding/VariableOrBinding.2.4| (ATN-PARSER::INDEX)977 (%ATN-NODE-BLOCK978 |VariableOrBinding/VariableOrBinding.2.4|979 (%ATN-EDGE-BLOCK980 (ATN-PARSER::WORD SPOCQ.S:\()981 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()982 (SETF *ATN-TERM* 'SPOCQ.S:\()983 (|VariableOrBinding/VariableOrBinding.2.5| (1+ ATN-PARSER::INDEX)))984 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))985 (|VariableOrBinding/VariableOrBinding.2.5| (ATN-PARSER::INDEX)986 (%ATN-NODE-BLOCK987 |VariableOrBinding/VariableOrBinding.2.5|988 (%ATN-EDGE-BLOCK989 (PUSH |Expression|)990 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)991 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)992 (COND (ATN-PARSER::SUCCESS993 (SETF *ATN-TERM* '|Expression|)994 (LET ((|Expression1724| |Expression|))995 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)996 (DESTRUCTURING-BIND997 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)998 ATN-PARSER::RESULT-AND-INDEX999 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))1000 (|VariableOrBinding/VariableOrBinding.2.6| ATN-PARSER::RESULT-INDEX))1001 (SETF |Expression| |Expression1724|))))1002 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))1003 (|VariableOrBinding/VariableOrBinding.2.6| (ATN-PARSER::INDEX)1004 (%ATN-NODE-BLOCK1005 |VariableOrBinding/VariableOrBinding.2.6|1006 (%ATN-EDGE-BLOCK1007 (ATN-PARSER::WORD SPOCQ.S:AS)1008 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS)1009 (SETF *ATN-TERM* 'SPOCQ.S:AS)1010 (|VariableOrBinding/VariableOrBinding.2.7| (1+ ATN-PARSER::INDEX)))1011 (T (SETF *ATN-TERM?* 'SPOCQ.S:AS) NIL)))))1012 (|VariableOrBinding/VariableOrBinding.2.7| (ATN-PARSER::INDEX)1013 (%ATN-NODE-BLOCK1014 |VariableOrBinding/VariableOrBinding.2.7|1015 (%ATN-EDGE-BLOCK1016 (TEST |Var|)1017 (COND ((|IS-Var| ATN-PARSER::|item|)1018 (SETF *ATN-TERM* '|Var|)1019 (SETF |Var|1020 (IF (EQ *ATN-REDUCE* T)1021 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)1022 (IF (EQ *ATN-REDUCE* 'CONS) (LIST '|Var| ATN-PARSER::|item|) '|Var|)))1023 (|VariableOrBinding/VariableOrBinding.2.8| (1+ ATN-PARSER::INDEX)))1024 (T (SETF *ATN-TERM?* '|Var|) NIL)))))1025 (|VariableOrBinding/VariableOrBinding.2.8| (ATN-PARSER::INDEX)1026 (%ATN-NODE-BLOCK1027 |VariableOrBinding/VariableOrBinding.2.8|1028 (%ATN-EDGE-BLOCK1029 (ATN-PARSER::WORD SPOCQ.S:\))1030 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))1031 (SETF *ATN-TERM* 'SPOCQ.S:\))1032 (|VariableOrBinding.2| (1+ ATN-PARSER::INDEX)))1033 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL))))))1034 (|VariableOrBinding/start.1| ATN-PARSER::INDEX)1035 (SETF *ATN-NODE NIL)1036 NIL1037 (IF ATN-PARSER::ATN-STRUCTURE1038 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1039 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1040 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VariableOrBinding| ATN-PARSER::INDEX *ATN-STACK))))1041 (PROGN (DEFVAR |ConstructQuery-INDEX|)1042 (DEFUN |ConstructQuery| (ATN-PARSER::INDEX &AUX (|ConstructTemplate| NIL) (|DatasetClause| NIL) (|SolutionModifier| NIL)1043 (|Var| NIL) (|WhereClause| NIL) (|Wild| NIL))1044 "{6 } ConstructQuery ::= 'CONSTRUCT' ((ConstructTemplate | Wild | Var+)) DatasetClause* WhereClause SolutionModifier1045 (|ConstructTemplate| |DatasetClause| |SolutionModifier| |Var| |WhereClause| |Wild|)"1046 (DECLARE (SPECIAL |ConstructQuery-INDEX|))1047 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructQuery-INDEX| *ATN-LEVEL))1048 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1049 (IF (< |ConstructQuery-INDEX| ATN-PARSER::INDEX)1050 (LET ((|ConstructQuery-INDEX| ATN-PARSER::INDEX)1051 (*ATN-LEVEL (1+ *ATN-LEVEL))1052 (*ATN-STACK (CONS '|ConstructQuery| *ATN-STACK))1053 (ATN-PARSER::ATN-STRUCTURE NIL))1054 (DECLARE (SPECIAL |ConstructQuery-INDEX|))1055 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1056 (DECLARE (TYPE CONS *ATN-STACK))1057 (SYMBOL-MACROLET1058 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1059 (%ATN-BLOCK |ConstructQuery|1060 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1061 (SETF *ATN-TERM* '|ConstructQuery|)1062 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1063 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1064 (|ConstructQuery.2| (ATN-PARSER::INDEX)1065 (%ATN-NODE-BLOCK1066 |ConstructQuery.2|1067 (%ATN-EDGE-BLOCK1068 (POP |ConstructQuery|)1069 (WHEN T1070 (SETF *ATN-TERM* '|ConstructQuery|)1071 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1072 '|ConstructQuery|1073 ATN-PARSER::INDEX1074 (LIST '|ConstructTemplate|1075 |ConstructTemplate|1076 '|DatasetClause|1077 |DatasetClause|1078 '|SolutionModifier|1079 |SolutionModifier|1080 '|Var|1081 |Var|1082 '|WhereClause|1083 |WhereClause|1084 '|Wild|1085 |Wild|))1086 (LET ((ATN-PARSER::RESULT-STRUCTURE1087 (IF (EQ *ATN-REDUCE* T)1088 (|ConstructQuery-Constructor|1089 |ConstructTemplate|1090 |DatasetClause|1091 |SolutionModifier|1092 |Var|1093 |WhereClause|1094 |Wild|)1095 (IF (EQ *ATN-REDUCE* 'CONS)1096 (CONS '|ConstructQuery|1097 (DELETE NIL1098 (LIST |ConstructTemplate|1099 |DatasetClause|1100 |SolutionModifier|1101 |Var|1102 |WhereClause|1103 |Wild|)))1104 '|ConstructQuery|))))1105 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1106 (|ConstructQuery.8| (ATN-PARSER::INDEX)1107 (%ATN-NODE-BLOCK1108 |ConstructQuery.8|1109 (%ATN-EDGE-BLOCK1110 (TEST |Var|)1111 (COND ((|IS-Var| ATN-PARSER::|item|)1112 (SETF *ATN-TERM* '|Var|)1113 (SETF |Var|1114 (CONS (IF (EQ *ATN-REDUCE* T)1115 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)1116 (IF (EQ *ATN-REDUCE* 'CONS)1117 (LIST '|Var| ATN-PARSER::|item|)1118 '|Var|))1119 |Var|))1120 (|ConstructQuery.8| (1+ ATN-PARSER::INDEX)))1121 (T1122 (SETF *ATN-TERM?* '|Var|)1123 (|ConstructQuery/ConstructQuery.2.5| ATN-PARSER::INDEX))))))1124 (|ConstructQuery.9| (ATN-PARSER::INDEX)1125 (%ATN-NODE-BLOCK1126 |ConstructQuery.9|1127 (%ATN-EDGE-BLOCK1128 (PUSH |DatasetClause|)1129 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1130 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1131 (COND (ATN-PARSER::SUCCESS1132 (SETF *ATN-TERM* '|DatasetClause|)1133 (LET ((|DatasetClause1725| |DatasetClause|))1134 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1135 (DESTRUCTURING-BIND1136 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1137 ATN-PARSER::RESULT-AND-INDEX1138 (WHEN ATN-PARSER::RESULT1139 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1140 (|ConstructQuery.9| ATN-PARSER::RESULT-INDEX))1141 (SETF |DatasetClause| |DatasetClause1725|))))1142 (T1143 (SETF *ATN-TERM?* '|DatasetClause|)1144 (|ConstructQuery/ConstructQuery.2.6| ATN-PARSER::INDEX)))))))1145 (|ConstructQuery/ConstructQuery.2.4| (ATN-PARSER::INDEX)1146 (%ATN-NODE-BLOCK1147 |ConstructQuery/ConstructQuery.2.4|1148 (%ATN-EDGE-BLOCK1149 OR1150 (PROGN (%ATN-EDGE-BLOCK1151 (PUSH |ConstructTemplate|)1152 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1153 (ATN-PARSE-SUBSTRUCTURE* '|ConstructTemplate| ATN-PARSER::INDEX)1154 (COND (ATN-PARSER::SUCCESS1155 (SETF *ATN-TERM* '|ConstructTemplate|)1156 (LET ((|ConstructTemplate1725| |ConstructTemplate|))1157 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1158 (DESTRUCTURING-BIND1159 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1160 ATN-PARSER::RESULT-AND-INDEX1161 (WHEN ATN-PARSER::RESULT1162 (SETF |ConstructTemplate| ATN-PARSER::RESULT))1163 (|ConstructQuery/ConstructQuery.2.5| ATN-PARSER::RESULT-INDEX))1164 (SETF |ConstructTemplate| |ConstructTemplate1725|))))1165 (T (SETF *ATN-TERM?* '|ConstructTemplate|) NIL))))1166 (%ATN-EDGE-BLOCK1167 (ATN-PARSER::CAT |Wild|)1168 (COND ((|IS-Wild| ATN-PARSER::|item|)1169 (SETF *ATN-TERM* '|Wild|)1170 (SETF |Wild|1171 (IF (EQ *ATN-REDUCE* T)1172 (ATN-REDUCE-ITEM #'|Wild-Constructor| ATN-PARSER::|item|)1173 (IF (EQ *ATN-REDUCE* 'CONS)1174 (LIST '|Wild| ATN-PARSER::|item|)1175 '|Wild|)))1176 (|ConstructQuery/ConstructQuery.2.5| (1+ ATN-PARSER::INDEX)))1177 (T (SETF *ATN-TERM* '|Wild|) NIL)))1178 (%ATN-EDGE-BLOCK1179 (TEST |Var|)1180 (COND ((|IS-Var| ATN-PARSER::|item|)1181 (SETF *ATN-TERM* '|Var|)1182 (SETF |Var|1183 (CONS (IF (EQ *ATN-REDUCE* T)1184 (ATN-REDUCE-ITEM1185 #'|Var-Constructor|1186 ATN-PARSER::|item|)1187 (IF (EQ *ATN-REDUCE* 'CONS)1188 (LIST '|Var| ATN-PARSER::|item|)1189 '|Var|))1190 |Var|))1191 (|ConstructQuery.8| (1+ ATN-PARSER::INDEX)))1192 (T (SETF *ATN-TERM?* '|Var|) NIL)))1193 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))1194 (|ConstructQuery/ConstructQuery.2.5| (ATN-PARSER::INDEX)1195 (%ATN-NODE-BLOCK1196 |ConstructQuery/ConstructQuery.2.5|1197 (%ATN-EDGE-BLOCK1198 (PUSH |DatasetClause|)1199 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1200 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1201 (COND (ATN-PARSER::SUCCESS1202 (SETF *ATN-TERM* '|DatasetClause|)1203 (LET ((|DatasetClause1724| |DatasetClause|))1204 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1205 (DESTRUCTURING-BIND1206 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1207 ATN-PARSER::RESULT-AND-INDEX1208 (WHEN ATN-PARSER::RESULT1209 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1210 (|ConstructQuery.9| ATN-PARSER::RESULT-INDEX))1211 (SETF |DatasetClause| |DatasetClause1724|))))1212 (T1213 (SETF *ATN-TERM?* '|DatasetClause|)1214 (|ConstructQuery/ConstructQuery.2.6| ATN-PARSER::INDEX)))))))1215 (|ConstructQuery/ConstructQuery.2.6| (ATN-PARSER::INDEX)1216 (%ATN-NODE-BLOCK1217 |ConstructQuery/ConstructQuery.2.6|1218 (%ATN-EDGE-BLOCK1219 (PUSH |WhereClause|)1220 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1221 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)1222 (COND (ATN-PARSER::SUCCESS1223 (SETF *ATN-TERM* '|WhereClause|)1224 (LET ((|WhereClause1724| |WhereClause|))1225 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1226 (DESTRUCTURING-BIND1227 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1228 ATN-PARSER::RESULT-AND-INDEX1229 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))1230 (|ConstructQuery/ConstructQuery.2.7| ATN-PARSER::RESULT-INDEX))1231 (SETF |WhereClause| |WhereClause1724|))))1232 (T1233 (SETF *ATN-TERM?* '|WhereClause|)1234 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))1235 (|ConstructQuery/ConstructQuery.2.7| (ATN-PARSER::INDEX)1236 (%ATN-NODE-BLOCK1237 |ConstructQuery/ConstructQuery.2.7|1238 (%ATN-EDGE-BLOCK1239 (PUSH |SolutionModifier|)1240 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1241 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)1242 (COND (ATN-PARSER::SUCCESS1243 (SETF *ATN-TERM* '|SolutionModifier|)1244 (LET ((|SolutionModifier1724| |SolutionModifier|))1245 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1246 (DESTRUCTURING-BIND1247 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1248 ATN-PARSER::RESULT-AND-INDEX1249 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))1250 (|ConstructQuery.2| ATN-PARSER::RESULT-INDEX))1251 (SETF |SolutionModifier| |SolutionModifier1724|))))1252 (T1253 (SETF *ATN-TERM?* '|SolutionModifier|)1254 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))1255 (|ConstructQuery/fail.3| (ATN-PARSER::INDEX)1256 (%ATN-NODE-BLOCK |ConstructQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1257 (|ConstructQuery/start.1| (ATN-PARSER::INDEX)1258 (%ATN-NODE-BLOCK1259 |ConstructQuery/start.1|1260 (%ATN-EDGE-BLOCK1261 (ATN-PARSER::WORD SPOCQ.S:CONSTRUCT)1262 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:CONSTRUCT)1263 (SETF *ATN-TERM* 'SPOCQ.S:CONSTRUCT)1264 (|ConstructQuery/ConstructQuery.2.4| (1+ ATN-PARSER::INDEX)))1265 (T1266 (SETF *ATN-TERM?* 'SPOCQ.S:CONSTRUCT)1267 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))1268 (|ConstructQuery/start.1| ATN-PARSER::INDEX)1269 (SETF *ATN-NODE NIL)1270 NIL1271 (IF ATN-PARSER::ATN-STRUCTURE1272 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1273 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1274 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructQuery| ATN-PARSER::INDEX *ATN-STACK))))1275 (PROGN (DEFVAR |DescribeQuery-INDEX|)1276 (DEFUN |DescribeQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|SolutionModifier| NIL) (|VarOrIRIref| NIL)1277 (|WhereClause| NIL))1278 "{7 } DescribeQuery ::= 'DESCRIBE' ((VarOrIRIref+ | '*')) DatasetClause* WhereClause? SolutionModifier1279 (|DatasetClause| |SolutionModifier| |VarOrIRIref| |WhereClause|)"1280 (DECLARE (SPECIAL |DescribeQuery-INDEX|))1281 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DescribeQuery-INDEX| *ATN-LEVEL))1282 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1283 (IF (< |DescribeQuery-INDEX| ATN-PARSER::INDEX)1284 (LET ((|DescribeQuery-INDEX| ATN-PARSER::INDEX)1285 (*ATN-LEVEL (1+ *ATN-LEVEL))1286 (*ATN-STACK (CONS '|DescribeQuery| *ATN-STACK))1287 (ATN-PARSER::ATN-STRUCTURE NIL))1288 (DECLARE (SPECIAL |DescribeQuery-INDEX|))1289 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1290 (DECLARE (TYPE CONS *ATN-STACK))1291 (SYMBOL-MACROLET1292 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1293 (%ATN-BLOCK |DescribeQuery|1294 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1295 (SETF *ATN-TERM* '|DescribeQuery|)1296 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1297 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1298 (|DescribeQuery.2| (ATN-PARSER::INDEX)1299 (%ATN-NODE-BLOCK1300 |DescribeQuery.2|1301 (%ATN-EDGE-BLOCK1302 (POP |DescribeQuery|)1303 (WHEN T1304 (SETF *ATN-TERM* '|DescribeQuery|)1305 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1306 '|DescribeQuery|1307 ATN-PARSER::INDEX1308 (LIST '|DatasetClause|1309 |DatasetClause|1310 '|SolutionModifier|1311 |SolutionModifier|1312 '|VarOrIRIref|1313 |VarOrIRIref|1314 '|WhereClause|1315 |WhereClause|))1316 (LET ((ATN-PARSER::RESULT-STRUCTURE1317 (IF (EQ *ATN-REDUCE* T)1318 (|DescribeQuery-Constructor|1319 |DatasetClause|1320 |SolutionModifier|1321 |VarOrIRIref|1322 |WhereClause|)1323 (IF (EQ *ATN-REDUCE* 'CONS)1324 (CONS '|DescribeQuery|1325 (DELETE NIL1326 (LIST |DatasetClause|1327 |SolutionModifier|1328 |VarOrIRIref|1329 |WhereClause|)))1330 '|DescribeQuery|))))1331 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1332 (|DescribeQuery.8| (ATN-PARSER::INDEX)1333 (%ATN-NODE-BLOCK1334 |DescribeQuery.8|1335 (%ATN-EDGE-BLOCK1336 (PUSH |VarOrIRIref|)1337 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1338 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)1339 (COND (ATN-PARSER::SUCCESS1340 (SETF *ATN-TERM* '|VarOrIRIref|)1341 (LET ((|VarOrIRIref1728| |VarOrIRIref|))1342 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1343 (DESTRUCTURING-BIND1344 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1345 ATN-PARSER::RESULT-AND-INDEX1346 (WHEN ATN-PARSER::RESULT1347 (SETF |VarOrIRIref| (CONS ATN-PARSER::RESULT |VarOrIRIref|)))1348 (|DescribeQuery.8| ATN-PARSER::RESULT-INDEX))1349 (SETF |VarOrIRIref| |VarOrIRIref1728|))))1350 (T1351 (SETF *ATN-TERM?* '|VarOrIRIref|)1352 (|DescribeQuery/DescribeQuery.2.5| ATN-PARSER::INDEX)))))))1353 (|DescribeQuery.9| (ATN-PARSER::INDEX)1354 (%ATN-NODE-BLOCK1355 |DescribeQuery.9|1356 (%ATN-EDGE-BLOCK1357 (PUSH |DatasetClause|)1358 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1359 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1360 (COND (ATN-PARSER::SUCCESS1361 (SETF *ATN-TERM* '|DatasetClause|)1362 (LET ((|DatasetClause1727| |DatasetClause|))1363 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1364 (DESTRUCTURING-BIND1365 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1366 ATN-PARSER::RESULT-AND-INDEX1367 (WHEN ATN-PARSER::RESULT1368 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1369 (|DescribeQuery.9| ATN-PARSER::RESULT-INDEX))1370 (SETF |DatasetClause| |DatasetClause1727|))))1371 (T1372 (SETF *ATN-TERM?* '|DatasetClause|)1373 (|DescribeQuery/DescribeQuery.2.6| ATN-PARSER::INDEX)))))))1374 (|DescribeQuery/DescribeQuery.2.4| (ATN-PARSER::INDEX)1375 (%ATN-NODE-BLOCK1376 |DescribeQuery/DescribeQuery.2.4|1377 (%ATN-EDGE-BLOCK1378 OR1379 (PROGN (%ATN-EDGE-BLOCK1380 (PUSH |VarOrIRIref|)1381 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1382 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)1383 (COND (ATN-PARSER::SUCCESS1384 (SETF *ATN-TERM* '|VarOrIRIref|)1385 (LET ((|VarOrIRIref1727| |VarOrIRIref|))1386 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1387 (DESTRUCTURING-BIND1388 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1389 ATN-PARSER::RESULT-AND-INDEX1390 (WHEN ATN-PARSER::RESULT1391 (SETF |VarOrIRIref| (CONS ATN-PARSER::RESULT |VarOrIRIref|)))1392 (|DescribeQuery.8| ATN-PARSER::RESULT-INDEX))1393 (SETF |VarOrIRIref| |VarOrIRIref1727|))))1394 (T (SETF *ATN-TERM?* '|VarOrIRIref|) NIL))))1395 (%ATN-EDGE-BLOCK1396 (ATN-PARSER::WORD SPOCQ.S:*)1397 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:*)1398 (SETF *ATN-TERM* 'SPOCQ.S:*)1399 (|DescribeQuery/DescribeQuery.2.5| (1+ ATN-PARSER::INDEX)))1400 (T (SETF *ATN-TERM?* 'SPOCQ.S:*) NIL)))1401 (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))1402 (|DescribeQuery/DescribeQuery.2.5| (ATN-PARSER::INDEX)1403 (%ATN-NODE-BLOCK1404 |DescribeQuery/DescribeQuery.2.5|1405 (%ATN-EDGE-BLOCK1406 (PUSH |DatasetClause|)1407 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1408 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1409 (COND (ATN-PARSER::SUCCESS1410 (SETF *ATN-TERM* '|DatasetClause|)1411 (LET ((|DatasetClause1726| |DatasetClause|))1412 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1413 (DESTRUCTURING-BIND1414 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1415 ATN-PARSER::RESULT-AND-INDEX1416 (WHEN ATN-PARSER::RESULT1417 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1418 (|DescribeQuery.9| ATN-PARSER::RESULT-INDEX))1419 (SETF |DatasetClause| |DatasetClause1726|))))1420 (T1421 (SETF *ATN-TERM?* '|DatasetClause|)1422 (|DescribeQuery/DescribeQuery.2.6| ATN-PARSER::INDEX)))))))1423 (|DescribeQuery/DescribeQuery.2.6| (ATN-PARSER::INDEX)1424 (%ATN-NODE-BLOCK1425 |DescribeQuery/DescribeQuery.2.6|1426 (%ATN-EDGE-BLOCK1427 (PUSH |WhereClause|)1428 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1429 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)1430 (COND (ATN-PARSER::SUCCESS1431 (SETF *ATN-TERM* '|WhereClause|)1432 (LET ((|WhereClause1725| |WhereClause|))1433 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1434 (DESTRUCTURING-BIND1435 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1436 ATN-PARSER::RESULT-AND-INDEX1437 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))1438 (|DescribeQuery/DescribeQuery.2.7| ATN-PARSER::RESULT-INDEX))1439 (SETF |WhereClause| |WhereClause1725|))))1440 (T1441 (SETF *ATN-TERM?* '|WhereClause|)1442 (|DescribeQuery/DescribeQuery.2.7| ATN-PARSER::INDEX)))))))1443 (|DescribeQuery/DescribeQuery.2.7| (ATN-PARSER::INDEX)1444 (%ATN-NODE-BLOCK1445 |DescribeQuery/DescribeQuery.2.7|1446 (%ATN-EDGE-BLOCK1447 (PUSH |SolutionModifier|)1448 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1449 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)1450 (COND (ATN-PARSER::SUCCESS1451 (SETF *ATN-TERM* '|SolutionModifier|)1452 (LET ((|SolutionModifier1725| |SolutionModifier|))1453 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1454 (DESTRUCTURING-BIND1455 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1456 ATN-PARSER::RESULT-AND-INDEX1457 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))1458 (|DescribeQuery.2| ATN-PARSER::RESULT-INDEX))1459 (SETF |SolutionModifier| |SolutionModifier1725|))))1460 (T1461 (SETF *ATN-TERM?* '|SolutionModifier|)1462 (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))))1463 (|DescribeQuery/fail.3| (ATN-PARSER::INDEX)1464 (%ATN-NODE-BLOCK |DescribeQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1465 (|DescribeQuery/start.1| (ATN-PARSER::INDEX)1466 (%ATN-NODE-BLOCK1467 |DescribeQuery/start.1|1468 (%ATN-EDGE-BLOCK1469 (ATN-PARSER::WORD SPOCQ.S:DESCRIBE)1470 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:DESCRIBE)1471 (SETF *ATN-TERM* 'SPOCQ.S:DESCRIBE)1472 (|DescribeQuery/DescribeQuery.2.4| (1+ ATN-PARSER::INDEX)))1473 (T1474 (SETF *ATN-TERM?* 'SPOCQ.S:DESCRIBE)1475 (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))))1476 (|DescribeQuery/start.1| ATN-PARSER::INDEX)1477 (SETF *ATN-NODE NIL)1478 NIL1479 (IF ATN-PARSER::ATN-STRUCTURE1480 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1481 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1482 (WARN "recursive grammar: ~s @ position ~s: ~s" '|DescribeQuery| ATN-PARSER::INDEX *ATN-STACK))))1483 (PROGN (DEFVAR |AskQuery-INDEX|)1484 (DEFUN |AskQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|WhereClause| NIL))1485 "{8 } AskQuery ::= 'ASK' DatasetClause* WhereClause1486 (|DatasetClause| |WhereClause|)"1487 (DECLARE (SPECIAL |AskQuery-INDEX|))1488 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AskQuery-INDEX| *ATN-LEVEL))1489 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1490 (IF (< |AskQuery-INDEX| ATN-PARSER::INDEX)1491 (LET ((|AskQuery-INDEX| ATN-PARSER::INDEX)1492 (*ATN-LEVEL (1+ *ATN-LEVEL))1493 (*ATN-STACK (CONS '|AskQuery| *ATN-STACK))1494 (ATN-PARSER::ATN-STRUCTURE NIL))1495 (DECLARE (SPECIAL |AskQuery-INDEX|))1496 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1497 (DECLARE (TYPE CONS *ATN-STACK))1498 (SYMBOL-MACROLET1499 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1500 (%ATN-BLOCK |AskQuery|1501 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1502 (SETF *ATN-TERM* '|AskQuery|)1503 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1504 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1505 (|AskQuery.2| (ATN-PARSER::INDEX)1506 (%ATN-NODE-BLOCK1507 |AskQuery.2|1508 (%ATN-EDGE-BLOCK1509 (POP |AskQuery|)1510 (WHEN T1511 (SETF *ATN-TERM* '|AskQuery|)1512 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1513 '|AskQuery|1514 ATN-PARSER::INDEX1515 (LIST '|DatasetClause| |DatasetClause| '|WhereClause| |WhereClause|))1516 (LET ((ATN-PARSER::RESULT-STRUCTURE1517 (IF (EQ *ATN-REDUCE* T)1518 (|AskQuery-Constructor| |DatasetClause| |WhereClause|)1519 (IF (EQ *ATN-REDUCE* 'CONS)1520 (CONS '|AskQuery| (DELETE NIL (LIST |DatasetClause| |WhereClause|)))1521 '|AskQuery|))))1522 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1523 (|AskQuery.6| (ATN-PARSER::INDEX)1524 (%ATN-NODE-BLOCK1525 |AskQuery.6|1526 (%ATN-EDGE-BLOCK1527 (PUSH |DatasetClause|)1528 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1529 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1530 (COND (ATN-PARSER::SUCCESS1531 (SETF *ATN-TERM* '|DatasetClause|)1532 (LET ((|DatasetClause1729| |DatasetClause|))1533 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1534 (DESTRUCTURING-BIND1535 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1536 ATN-PARSER::RESULT-AND-INDEX1537 (WHEN ATN-PARSER::RESULT1538 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1539 (|AskQuery.6| ATN-PARSER::RESULT-INDEX))1540 (SETF |DatasetClause| |DatasetClause1729|))))1541 (T1542 (SETF *ATN-TERM?* '|DatasetClause|)1543 (|AskQuery/AskQuery.2.5| ATN-PARSER::INDEX)))))))1544 (|AskQuery/AskQuery.2.4| (ATN-PARSER::INDEX)1545 (%ATN-NODE-BLOCK1546 |AskQuery/AskQuery.2.4|1547 (%ATN-EDGE-BLOCK1548 (PUSH |DatasetClause|)1549 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1550 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1551 (COND (ATN-PARSER::SUCCESS1552 (SETF *ATN-TERM* '|DatasetClause|)1553 (LET ((|DatasetClause1728| |DatasetClause|))1554 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1555 (DESTRUCTURING-BIND1556 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1557 ATN-PARSER::RESULT-AND-INDEX1558 (WHEN ATN-PARSER::RESULT1559 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1560 (|AskQuery.6| ATN-PARSER::RESULT-INDEX))1561 (SETF |DatasetClause| |DatasetClause1728|))))1562 (T1563 (SETF *ATN-TERM?* '|DatasetClause|)1564 (|AskQuery/AskQuery.2.5| ATN-PARSER::INDEX)))))))1565 (|AskQuery/AskQuery.2.5| (ATN-PARSER::INDEX)1566 (%ATN-NODE-BLOCK1567 |AskQuery/AskQuery.2.5|1568 (%ATN-EDGE-BLOCK1569 (PUSH |WhereClause|)1570 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1571 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)1572 (COND (ATN-PARSER::SUCCESS1573 (SETF *ATN-TERM* '|WhereClause|)1574 (LET ((|WhereClause1728| |WhereClause|))1575 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1576 (DESTRUCTURING-BIND1577 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1578 ATN-PARSER::RESULT-AND-INDEX1579 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))1580 (|AskQuery.2| ATN-PARSER::RESULT-INDEX))1581 (SETF |WhereClause| |WhereClause1728|))))1582 (T1583 (SETF *ATN-TERM?* '|WhereClause|)1584 (|AskQuery/fail.3| ATN-PARSER::INDEX)))))))1585 (|AskQuery/fail.3| (ATN-PARSER::INDEX)1586 (%ATN-NODE-BLOCK |AskQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1587 (|AskQuery/start.1| (ATN-PARSER::INDEX)1588 (%ATN-NODE-BLOCK1589 |AskQuery/start.1|1590 (%ATN-EDGE-BLOCK1591 (ATN-PARSER::WORD SPOCQ.S:ASK)1592 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:ASK)1593 (SETF *ATN-TERM* 'SPOCQ.S:ASK)1594 (|AskQuery/AskQuery.2.4| (1+ ATN-PARSER::INDEX)))1595 (T (SETF *ATN-TERM?* 'SPOCQ.S:ASK) (|AskQuery/fail.3| ATN-PARSER::INDEX)))))))1596 (|AskQuery/start.1| ATN-PARSER::INDEX)1597 (SETF *ATN-NODE NIL)1598 NIL1599 (IF ATN-PARSER::ATN-STRUCTURE1600 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1601 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1602 (WARN "recursive grammar: ~s @ position ~s: ~s" '|AskQuery| ATN-PARSER::INDEX *ATN-STACK))))1603 (PROGN (DEFVAR |DatasetClause-INDEX|)1604 (DEFUN |DatasetClause| (ATN-PARSER::INDEX &AUX (|DefaultGraphClause| NIL) (|NamedGraphClause| NIL))1605 "{9 } DatasetClause ::= 'FROM' ((DefaultGraphClause | NamedGraphClause))1606 (|DefaultGraphClause| |NamedGraphClause|)"1607 (DECLARE (SPECIAL |DatasetClause-INDEX|))1608 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DatasetClause-INDEX| *ATN-LEVEL))1609 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1610 (IF (< |DatasetClause-INDEX| ATN-PARSER::INDEX)1611 (LET ((|DatasetClause-INDEX| ATN-PARSER::INDEX)1612 (*ATN-LEVEL (1+ *ATN-LEVEL))1613 (*ATN-STACK (CONS '|DatasetClause| *ATN-STACK))1614 (ATN-PARSER::ATN-STRUCTURE NIL))1615 (DECLARE (SPECIAL |DatasetClause-INDEX|))1616 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1617 (DECLARE (TYPE CONS *ATN-STACK))1618 (SYMBOL-MACROLET1619 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1620 (%ATN-BLOCK |DatasetClause|1621 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1622 (SETF *ATN-TERM* '|DatasetClause|)1623 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1624 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1625 (|DatasetClause.2| (ATN-PARSER::INDEX)1626 (%ATN-NODE-BLOCK1627 |DatasetClause.2|1628 (%ATN-EDGE-BLOCK1629 (POP |DatasetClause|)1630 (WHEN T1631 (SETF *ATN-TERM* '|DatasetClause|)1632 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1633 '|DatasetClause|1634 ATN-PARSER::INDEX1635 (LIST '|DefaultGraphClause|1636 |DefaultGraphClause|1637 '|NamedGraphClause|1638 |NamedGraphClause|))1639 (LET ((ATN-PARSER::RESULT-STRUCTURE1640 (IF (EQ *ATN-REDUCE* T)1641 (|DatasetClause-Constructor| |DefaultGraphClause| |NamedGraphClause|)1642 (IF (EQ *ATN-REDUCE* 'CONS)1643 (CONS '|DatasetClause|1644 (DELETE NIL (LIST |DefaultGraphClause| |NamedGraphClause|)))1645 '|DatasetClause|))))1646 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1647 (|DatasetClause/DatasetClause.2.4| (ATN-PARSER::INDEX)1648 (%ATN-NODE-BLOCK1649 |DatasetClause/DatasetClause.2.4|1650 (%ATN-EDGE-BLOCK1651 OR1652 (PROGN (%ATN-EDGE-BLOCK1653 (PUSH |DefaultGraphClause|)1654 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1655 (ATN-PARSE-SUBSTRUCTURE* '|DefaultGraphClause| ATN-PARSER::INDEX)1656 (COND (ATN-PARSER::SUCCESS1657 (SETF *ATN-TERM* '|DefaultGraphClause|)1658 (LET ((|DefaultGraphClause1729| |DefaultGraphClause|))1659 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1660 (DESTRUCTURING-BIND1661 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1662 ATN-PARSER::RESULT-AND-INDEX1663 (WHEN ATN-PARSER::RESULT1664 (SETF |DefaultGraphClause| ATN-PARSER::RESULT))1665 (|DatasetClause.2| ATN-PARSER::RESULT-INDEX))1666 (SETF |DefaultGraphClause| |DefaultGraphClause1729|))))1667 (T (SETF *ATN-TERM?* '|DefaultGraphClause|) NIL))))1668 (%ATN-EDGE-BLOCK1669 (PUSH |NamedGraphClause|)1670 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1671 (ATN-PARSE-SUBSTRUCTURE* '|NamedGraphClause| ATN-PARSER::INDEX)1672 (COND (ATN-PARSER::SUCCESS1673 (SETF *ATN-TERM* '|NamedGraphClause|)1674 (LET ((|NamedGraphClause1729| |NamedGraphClause|))1675 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1676 (DESTRUCTURING-BIND1677 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1678 ATN-PARSER::RESULT-AND-INDEX1679 (WHEN ATN-PARSER::RESULT1680 (SETF |NamedGraphClause| ATN-PARSER::RESULT))1681 (|DatasetClause.2| ATN-PARSER::RESULT-INDEX))1682 (SETF |NamedGraphClause| |NamedGraphClause1729|))))1683 (T (SETF *ATN-TERM?* '|NamedGraphClause|) NIL))))1684 (|DatasetClause/fail.3| ATN-PARSER::INDEX)))))1685 (|DatasetClause/fail.3| (ATN-PARSER::INDEX)1686 (%ATN-NODE-BLOCK |DatasetClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1687 (|DatasetClause/start.1| (ATN-PARSER::INDEX)1688 (%ATN-NODE-BLOCK1689 |DatasetClause/start.1|1690 (%ATN-EDGE-BLOCK1691 (ATN-PARSER::WORD SPOCQ.S:FROM)1692 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:FROM)1693 (SETF *ATN-TERM* 'SPOCQ.S:FROM)1694 (|DatasetClause/DatasetClause.2.4| (1+ ATN-PARSER::INDEX)))1695 (T1696 (SETF *ATN-TERM?* 'SPOCQ.S:FROM)1697 (|DatasetClause/fail.3| ATN-PARSER::INDEX)))))))1698 (|DatasetClause/start.1| ATN-PARSER::INDEX)1699 (SETF *ATN-NODE NIL)1700 NIL1701 (IF ATN-PARSER::ATN-STRUCTURE1702 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1703 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1704 (WARN "recursive grammar: ~s @ position ~s: ~s" '|DatasetClause| ATN-PARSER::INDEX *ATN-STACK))))1705 (PROGN (DEFVAR |DefaultGraphClause-INDEX|)1706 (DEFUN |DefaultGraphClause| (ATN-PARSER::INDEX &AUX (|SourceSelector| NIL))1707 "{10} DefaultGraphClause ::= SourceSelector1708 (|SourceSelector|)"1709 (DECLARE (SPECIAL |DefaultGraphClause-INDEX|))1710 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DefaultGraphClause-INDEX| *ATN-LEVEL))1711 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1712 (IF (< |DefaultGraphClause-INDEX| ATN-PARSER::INDEX)1713 (LET ((|DefaultGraphClause-INDEX| ATN-PARSER::INDEX)1714 (*ATN-LEVEL (1+ *ATN-LEVEL))1715 (*ATN-STACK (CONS '|DefaultGraphClause| *ATN-STACK))1716 (ATN-PARSER::ATN-STRUCTURE NIL))1717 (DECLARE (SPECIAL |DefaultGraphClause-INDEX|))1718 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1719 (DECLARE (TYPE CONS *ATN-STACK))1720 (SYMBOL-MACROLET1721 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1722 (%ATN-BLOCK |DefaultGraphClause|1723 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1724 (SETF *ATN-TERM* '|DefaultGraphClause|)1725 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1726 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1727 (|DefaultGraphClause.2| (ATN-PARSER::INDEX)1728 (%ATN-NODE-BLOCK1729 |DefaultGraphClause.2|1730 (%ATN-EDGE-BLOCK1731 (POP |DefaultGraphClause|)1732 (WHEN T1733 (SETF *ATN-TERM* '|DefaultGraphClause|)1734 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1735 '|DefaultGraphClause|1736 ATN-PARSER::INDEX1737 (LIST '|SourceSelector| |SourceSelector|))1738 (LET ((ATN-PARSER::RESULT-STRUCTURE1739 (IF (EQ *ATN-REDUCE* T)1740 (|DefaultGraphClause-Constructor| |SourceSelector|)1741 (IF (EQ *ATN-REDUCE* 'CONS)1742 (CONS '|DefaultGraphClause| (DELETE NIL (LIST |SourceSelector|)))1743 '|DefaultGraphClause|))))1744 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1745 (|DefaultGraphClause/fail.3| (ATN-PARSER::INDEX)1746 (%ATN-NODE-BLOCK |DefaultGraphClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1747 (|DefaultGraphClause/start.1| (ATN-PARSER::INDEX)1748 (%ATN-NODE-BLOCK1749 |DefaultGraphClause/start.1|1750 (%ATN-EDGE-BLOCK1751 (PUSH |SourceSelector|)1752 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1753 (ATN-PARSE-SUBSTRUCTURE* '|SourceSelector| ATN-PARSER::INDEX)1754 (COND (ATN-PARSER::SUCCESS1755 (SETF *ATN-TERM* '|SourceSelector|)1756 (LET ((|SourceSelector1729| |SourceSelector|))1757 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1758 (DESTRUCTURING-BIND1759 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1760 ATN-PARSER::RESULT-AND-INDEX1761 (WHEN ATN-PARSER::RESULT (SETF |SourceSelector| ATN-PARSER::RESULT))1762 (|DefaultGraphClause.2| ATN-PARSER::RESULT-INDEX))1763 (SETF |SourceSelector| |SourceSelector1729|))))1764 (T1765 (SETF *ATN-TERM?* '|SourceSelector|)1766 (|DefaultGraphClause/fail.3| ATN-PARSER::INDEX))))))))1767 (|DefaultGraphClause/start.1| ATN-PARSER::INDEX)1768 (SETF *ATN-NODE NIL)1769 NIL1770 (IF ATN-PARSER::ATN-STRUCTURE1771 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1772 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1773 (WARN "recursive grammar: ~s @ position ~s: ~s" '|DefaultGraphClause| ATN-PARSER::INDEX *ATN-STACK))))1774 (PROGN (DEFVAR |NamedGraphClause-INDEX|)1775 (DEFUN |NamedGraphClause| (ATN-PARSER::INDEX &AUX (|SourceSelector| NIL))1776 "{11} NamedGraphClause ::= 'NAMED' SourceSelector1777 (|SourceSelector|)"1778 (DECLARE (SPECIAL |NamedGraphClause-INDEX|))1779 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NamedGraphClause-INDEX| *ATN-LEVEL))1780 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1781 (IF (< |NamedGraphClause-INDEX| ATN-PARSER::INDEX)1782 (LET ((|NamedGraphClause-INDEX| ATN-PARSER::INDEX)1783 (*ATN-LEVEL (1+ *ATN-LEVEL))1784 (*ATN-STACK (CONS '|NamedGraphClause| *ATN-STACK))1785 (ATN-PARSER::ATN-STRUCTURE NIL))1786 (DECLARE (SPECIAL |NamedGraphClause-INDEX|))1787 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1788 (DECLARE (TYPE CONS *ATN-STACK))1789 (SYMBOL-MACROLET1790 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1791 (%ATN-BLOCK |NamedGraphClause|1792 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1793 (SETF *ATN-TERM* '|NamedGraphClause|)1794 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1795 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1796 (|NamedGraphClause.2| (ATN-PARSER::INDEX)1797 (%ATN-NODE-BLOCK1798 |NamedGraphClause.2|1799 (%ATN-EDGE-BLOCK1800 (POP |NamedGraphClause|)1801 (WHEN T1802 (SETF *ATN-TERM* '|NamedGraphClause|)1803 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1804 '|NamedGraphClause|1805 ATN-PARSER::INDEX1806 (LIST '|SourceSelector| |SourceSelector|))1807 (LET ((ATN-PARSER::RESULT-STRUCTURE1808 (IF (EQ *ATN-REDUCE* T)1809 (|NamedGraphClause-Constructor| |SourceSelector|)1810 (IF (EQ *ATN-REDUCE* 'CONS)1811 (CONS '|NamedGraphClause| (DELETE NIL (LIST |SourceSelector|)))1812 '|NamedGraphClause|))))1813 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1814 (|NamedGraphClause/fail.3| (ATN-PARSER::INDEX)1815 (%ATN-NODE-BLOCK |NamedGraphClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1816 (|NamedGraphClause/NamedGraphClause.2.4| (ATN-PARSER::INDEX)1817 (%ATN-NODE-BLOCK1818 |NamedGraphClause/NamedGraphClause.2.4|1819 (%ATN-EDGE-BLOCK1820 (PUSH |SourceSelector|)1821 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1822 (ATN-PARSE-SUBSTRUCTURE* '|SourceSelector| ATN-PARSER::INDEX)1823 (COND (ATN-PARSER::SUCCESS1824 (SETF *ATN-TERM* '|SourceSelector|)1825 (LET ((|SourceSelector1730| |SourceSelector|))1826 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1827 (DESTRUCTURING-BIND1828 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1829 ATN-PARSER::RESULT-AND-INDEX1830 (WHEN ATN-PARSER::RESULT (SETF |SourceSelector| ATN-PARSER::RESULT))1831 (|NamedGraphClause.2| ATN-PARSER::RESULT-INDEX))1832 (SETF |SourceSelector| |SourceSelector1730|))))1833 (T1834 (SETF *ATN-TERM?* '|SourceSelector|)1835 (|NamedGraphClause/fail.3| ATN-PARSER::INDEX)))))))1836 (|NamedGraphClause/start.1| (ATN-PARSER::INDEX)1837 (%ATN-NODE-BLOCK1838 |NamedGraphClause/start.1|1839 (%ATN-EDGE-BLOCK1840 (ATN-PARSER::WORD SPOCQ.S:NAMED)1841 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:NAMED)1842 (SETF *ATN-TERM* 'SPOCQ.S:NAMED)1843 (|NamedGraphClause/NamedGraphClause.2.4| (1+ ATN-PARSER::INDEX)))1844 (T1845 (SETF *ATN-TERM?* 'SPOCQ.S:NAMED)1846 (|NamedGraphClause/fail.3| ATN-PARSER::INDEX)))))))1847 (|NamedGraphClause/start.1| ATN-PARSER::INDEX)1848 (SETF *ATN-NODE NIL)1849 NIL1850 (IF ATN-PARSER::ATN-STRUCTURE1851 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1852 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1853 (WARN "recursive grammar: ~s @ position ~s: ~s" '|NamedGraphClause| ATN-PARSER::INDEX *ATN-STACK))))1854 (PROGN (DEFVAR |SourceSelector-INDEX|)1855 (DEFUN |SourceSelector| (ATN-PARSER::INDEX &AUX (|IRIref| NIL))1856 "{12} SourceSelector ::= IRIref1857 (|IRIref|)"1858 (DECLARE (SPECIAL |SourceSelector-INDEX|))1859 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SourceSelector-INDEX| *ATN-LEVEL))1860 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1861 (IF (< |SourceSelector-INDEX| ATN-PARSER::INDEX)1862 (LET ((|SourceSelector-INDEX| ATN-PARSER::INDEX)1863 (*ATN-LEVEL (1+ *ATN-LEVEL))1864 (*ATN-STACK (CONS '|SourceSelector| *ATN-STACK))1865 (ATN-PARSER::ATN-STRUCTURE NIL))1866 (DECLARE (SPECIAL |SourceSelector-INDEX|))1867 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1868 (DECLARE (TYPE CONS *ATN-STACK))1869 (SYMBOL-MACROLET1870 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1871 (%ATN-BLOCK |SourceSelector|1872 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1873 (SETF *ATN-TERM* '|SourceSelector|)1874 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1875 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1876 (|SourceSelector.2| (ATN-PARSER::INDEX)1877 (%ATN-NODE-BLOCK1878 |SourceSelector.2|1879 (%ATN-EDGE-BLOCK1880 (POP |SourceSelector|)1881 (WHEN T1882 (SETF *ATN-TERM* '|SourceSelector|)1883 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1884 '|SourceSelector|1885 ATN-PARSER::INDEX1886 (LIST '|IRIref| |IRIref|))1887 (LET ((ATN-PARSER::RESULT-STRUCTURE1888 (IF (EQ *ATN-REDUCE* T)1889 (|SourceSelector-Constructor| |IRIref|)1890 (IF (EQ *ATN-REDUCE* 'CONS)1891 (CONS '|SourceSelector| (DELETE NIL (LIST |IRIref|)))1892 '|SourceSelector|))))1893 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1894 (|SourceSelector/fail.3| (ATN-PARSER::INDEX)1895 (%ATN-NODE-BLOCK |SourceSelector/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1896 (|SourceSelector/start.1| (ATN-PARSER::INDEX)1897 (%ATN-NODE-BLOCK1898 |SourceSelector/start.1|1899 (%ATN-EDGE-BLOCK1900 (PUSH |IRIref|)1901 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1902 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)1903 (COND (ATN-PARSER::SUCCESS1904 (SETF *ATN-TERM* '|IRIref|)1905 (LET ((|IRIref1730| |IRIref|))1906 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1907 (DESTRUCTURING-BIND1908 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1909 ATN-PARSER::RESULT-AND-INDEX1910 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))1911 (|SourceSelector.2| ATN-PARSER::RESULT-INDEX))1912 (SETF |IRIref| |IRIref1730|))))1913 (T1914 (SETF *ATN-TERM?* '|IRIref|)1915 (|SourceSelector/fail.3| ATN-PARSER::INDEX))))))))1916 (|SourceSelector/start.1| ATN-PARSER::INDEX)1917 (SETF *ATN-NODE NIL)1918 NIL1919 (IF ATN-PARSER::ATN-STRUCTURE1920 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1921 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1922 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SourceSelector| ATN-PARSER::INDEX *ATN-STACK))))1923 (PROGN (DEFVAR |WhereClause-INDEX|)1924 (DEFUN |WhereClause| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))1925 "{13} WhereClause ::= 'WHERE'? GroupGraphPattern1926 (|GroupGraphPattern|)"1927 (DECLARE (SPECIAL |WhereClause-INDEX|))1928 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |WhereClause-INDEX| *ATN-LEVEL))1929 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1930 (IF (< |WhereClause-INDEX| ATN-PARSER::INDEX)1931 (LET ((|WhereClause-INDEX| ATN-PARSER::INDEX)1932 (*ATN-LEVEL (1+ *ATN-LEVEL))1933 (*ATN-STACK (CONS '|WhereClause| *ATN-STACK))1934 (ATN-PARSER::ATN-STRUCTURE NIL))1935 (DECLARE (SPECIAL |WhereClause-INDEX|))1936 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1937 (DECLARE (TYPE CONS *ATN-STACK))1938 (SYMBOL-MACROLET1939 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1940 (%ATN-BLOCK |WhereClause|1941 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1942 (SETF *ATN-TERM* '|WhereClause|)1943 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1944 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1945 (|WhereClause.2| (ATN-PARSER::INDEX)1946 (%ATN-NODE-BLOCK1947 |WhereClause.2|1948 (%ATN-EDGE-BLOCK1949 (POP |WhereClause|)1950 (WHEN T1951 (SETF *ATN-TERM* '|WhereClause|)1952 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1953 '|WhereClause|1954 ATN-PARSER::INDEX1955 (LIST '|GroupGraphPattern| |GroupGraphPattern|))1956 (LET ((ATN-PARSER::RESULT-STRUCTURE1957 (IF (EQ *ATN-REDUCE* T)1958 (|WhereClause-Constructor| |GroupGraphPattern|)1959 (IF (EQ *ATN-REDUCE* 'CONS)1960 (CONS '|WhereClause| (DELETE NIL (LIST |GroupGraphPattern|)))1961 '|WhereClause|))))1962 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1963 (|WhereClause/fail.3| (ATN-PARSER::INDEX)1964 (%ATN-NODE-BLOCK |WhereClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1965 (|WhereClause/start.1| (ATN-PARSER::INDEX)1966 (%ATN-NODE-BLOCK1967 |WhereClause/start.1|1968 (%ATN-EDGE-BLOCK1969 (ATN-PARSER::WORD SPOCQ.S:WHERE)1970 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:WHERE)1971 (SETF *ATN-TERM* 'SPOCQ.S:WHERE)1972 (|WhereClause/WhereClause.2.4| (1+ ATN-PARSER::INDEX)))1973 (T1974 (SETF *ATN-TERM?* 'SPOCQ.S:WHERE)1975 (|WhereClause/WhereClause.2.4| ATN-PARSER::INDEX))))))1976 (|WhereClause/WhereClause.2.4| (ATN-PARSER::INDEX)1977 (%ATN-NODE-BLOCK1978 |WhereClause/WhereClause.2.4|1979 (%ATN-EDGE-BLOCK1980 (PUSH |GroupGraphPattern|)1981 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1982 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)1983 (COND (ATN-PARSER::SUCCESS1984 (SETF *ATN-TERM* '|GroupGraphPattern|)1985 (LET ((|GroupGraphPattern1730| |GroupGraphPattern|))1986 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1987 (DESTRUCTURING-BIND1988 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1989 ATN-PARSER::RESULT-AND-INDEX1990 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))1991 (|WhereClause.2| ATN-PARSER::RESULT-INDEX))1992 (SETF |GroupGraphPattern| |GroupGraphPattern1730|))))1993 (T1994 (SETF *ATN-TERM?* '|GroupGraphPattern|)1995 (|WhereClause/fail.3| ATN-PARSER::INDEX))))))))1996 (|WhereClause/start.1| ATN-PARSER::INDEX)1997 (SETF *ATN-NODE NIL)1998 NIL1999 (IF ATN-PARSER::ATN-STRUCTURE2000 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2001 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2002 (WARN "recursive grammar: ~s @ position ~s: ~s" '|WhereClause| ATN-PARSER::INDEX *ATN-STACK))))2003 (PROGN (DEFVAR |SolutionModifier-INDEX|)2004 (DEFUN |SolutionModifier| (ATN-PARSER::INDEX &AUX (|GroupClause| NIL) (|HavingClause| NIL) (|LimitOffsetClauses| NIL)2005 (|OrderClause| NIL))2006 "{14} SolutionModifier ::= GroupClause? HavingClause? OrderClause? LimitOffsetClauses?2007 (|GroupClause| |HavingClause| |LimitOffsetClauses| |OrderClause|)"2008 (DECLARE (SPECIAL |SolutionModifier-INDEX|))2009 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SolutionModifier-INDEX| *ATN-LEVEL))2010 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2011 (IF (< |SolutionModifier-INDEX| ATN-PARSER::INDEX)2012 (LET ((|SolutionModifier-INDEX| ATN-PARSER::INDEX)2013 (*ATN-LEVEL (1+ *ATN-LEVEL))2014 (*ATN-STACK (CONS '|SolutionModifier| *ATN-STACK))2015 (ATN-PARSER::ATN-STRUCTURE NIL))2016 (DECLARE (SPECIAL |SolutionModifier-INDEX|))2017 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2018 (DECLARE (TYPE CONS *ATN-STACK))2019 (SYMBOL-MACROLET2020 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2021 (%ATN-BLOCK |SolutionModifier|2022 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2023 (SETF *ATN-TERM* '|SolutionModifier|)2024 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2025 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2026 (|SolutionModifier.2| (ATN-PARSER::INDEX)2027 (%ATN-NODE-BLOCK2028 |SolutionModifier.2|2029 (%ATN-EDGE-BLOCK2030 (POP |SolutionModifier|)2031 (WHEN T2032 (SETF *ATN-TERM* '|SolutionModifier|)2033 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2034 '|SolutionModifier|2035 ATN-PARSER::INDEX2036 (LIST '|GroupClause|2037 |GroupClause|2038 '|HavingClause|2039 |HavingClause|2040 '|LimitOffsetClauses|2041 |LimitOffsetClauses|2042 '|OrderClause|2043 |OrderClause|))2044 (LET ((ATN-PARSER::RESULT-STRUCTURE2045 (IF (EQ *ATN-REDUCE* T)2046 (|SolutionModifier-Constructor|2047 |GroupClause|2048 |HavingClause|2049 |LimitOffsetClauses|2050 |OrderClause|)2051 (IF (EQ *ATN-REDUCE* 'CONS)2052 (CONS '|SolutionModifier|2053 (DELETE NIL2054 (LIST |GroupClause|2055 |HavingClause|2056 |LimitOffsetClauses|2057 |OrderClause|)))2058 '|SolutionModifier|))))2059 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2060 (|SolutionModifier/fail.3| (ATN-PARSER::INDEX)2061 (%ATN-NODE-BLOCK |SolutionModifier/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2062 (|SolutionModifier/SolutionModifier.2.4| (ATN-PARSER::INDEX)2063 (%ATN-NODE-BLOCK2064 |SolutionModifier/SolutionModifier.2.4|2065 (%ATN-EDGE-BLOCK2066 (PUSH |HavingClause|)2067 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2068 (ATN-PARSE-SUBSTRUCTURE* '|HavingClause| ATN-PARSER::INDEX)2069 (COND (ATN-PARSER::SUCCESS2070 (SETF *ATN-TERM* '|HavingClause|)2071 (LET ((|HavingClause1730| |HavingClause|))2072 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2073 (DESTRUCTURING-BIND2074 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2075 ATN-PARSER::RESULT-AND-INDEX2076 (WHEN ATN-PARSER::RESULT (SETF |HavingClause| ATN-PARSER::RESULT))2077 (|SolutionModifier/SolutionModifier.2.5| ATN-PARSER::RESULT-INDEX))2078 (SETF |HavingClause| |HavingClause1730|))))2079 (T2080 (SETF *ATN-TERM?* '|HavingClause|)2081 (|SolutionModifier/SolutionModifier.2.5| ATN-PARSER::INDEX)))))))2082 (|SolutionModifier/SolutionModifier.2.5| (ATN-PARSER::INDEX)2083 (%ATN-NODE-BLOCK2084 |SolutionModifier/SolutionModifier.2.5|2085 (%ATN-EDGE-BLOCK2086 (PUSH |OrderClause|)2087 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2088 (ATN-PARSE-SUBSTRUCTURE* '|OrderClause| ATN-PARSER::INDEX)2089 (COND (ATN-PARSER::SUCCESS2090 (SETF *ATN-TERM* '|OrderClause|)2091 (LET ((|OrderClause1730| |OrderClause|))2092 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2093 (DESTRUCTURING-BIND2094 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2095 ATN-PARSER::RESULT-AND-INDEX2096 (WHEN ATN-PARSER::RESULT (SETF |OrderClause| ATN-PARSER::RESULT))2097 (|SolutionModifier/SolutionModifier.2.6| ATN-PARSER::RESULT-INDEX))2098 (SETF |OrderClause| |OrderClause1730|))))2099 (T2100 (SETF *ATN-TERM?* '|OrderClause|)2101 (|SolutionModifier/SolutionModifier.2.6| ATN-PARSER::INDEX)))))))2102 (|SolutionModifier/SolutionModifier.2.6| (ATN-PARSER::INDEX)2103 (%ATN-NODE-BLOCK2104 |SolutionModifier/SolutionModifier.2.6|2105 (%ATN-EDGE-BLOCK2106 (PUSH |LimitOffsetClauses|)2107 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2108 (ATN-PARSE-SUBSTRUCTURE* '|LimitOffsetClauses| ATN-PARSER::INDEX)2109 (COND (ATN-PARSER::SUCCESS2110 (SETF *ATN-TERM* '|LimitOffsetClauses|)2111 (LET ((|LimitOffsetClauses1730| |LimitOffsetClauses|))2112 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2113 (DESTRUCTURING-BIND2114 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2115 ATN-PARSER::RESULT-AND-INDEX2116 (WHEN ATN-PARSER::RESULT (SETF |LimitOffsetClauses| ATN-PARSER::RESULT))2117 (|SolutionModifier.2| ATN-PARSER::RESULT-INDEX))2118 (SETF |LimitOffsetClauses| |LimitOffsetClauses1730|))))2119 (T2120 (SETF *ATN-TERM?* '|LimitOffsetClauses|)2121 (|SolutionModifier.2| ATN-PARSER::INDEX)))))))2122 (|SolutionModifier/start.1| (ATN-PARSER::INDEX)2123 (%ATN-NODE-BLOCK2124 |SolutionModifier/start.1|2125 (%ATN-EDGE-BLOCK2126 (PUSH |GroupClause|)2127 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2128 (ATN-PARSE-SUBSTRUCTURE* '|GroupClause| ATN-PARSER::INDEX)2129 (COND (ATN-PARSER::SUCCESS2130 (SETF *ATN-TERM* '|GroupClause|)2131 (LET ((|GroupClause1730| |GroupClause|))2132 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2133 (DESTRUCTURING-BIND2134 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2135 ATN-PARSER::RESULT-AND-INDEX2136 (WHEN ATN-PARSER::RESULT (SETF |GroupClause| ATN-PARSER::RESULT))2137 (|SolutionModifier/SolutionModifier.2.4| ATN-PARSER::RESULT-INDEX))2138 (SETF |GroupClause| |GroupClause1730|))))2139 (T2140 (SETF *ATN-TERM?* '|GroupClause|)2141 (|SolutionModifier/SolutionModifier.2.4| ATN-PARSER::INDEX))))))))2142 (|SolutionModifier/start.1| ATN-PARSER::INDEX)2143 (SETF *ATN-NODE NIL)2144 NIL2145 (IF ATN-PARSER::ATN-STRUCTURE2146 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2147 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2148 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SolutionModifier| ATN-PARSER::INDEX *ATN-STACK))))2149 (PROGN (DEFVAR |GroupClause-INDEX|)2150 (DEFUN |GroupClause| (ATN-PARSER::INDEX &AUX (|GroupCondition| NIL))2151 "{18a} GroupClause ::= 'GROUP' 'BY' GroupCondition+2152 (|GroupCondition|)"2153 (DECLARE (SPECIAL |GroupClause-INDEX|))2154 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupClause-INDEX| *ATN-LEVEL))2155 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2156 (IF (< |GroupClause-INDEX| ATN-PARSER::INDEX)2157 (LET ((|GroupClause-INDEX| ATN-PARSER::INDEX)2158 (*ATN-LEVEL (1+ *ATN-LEVEL))2159 (*ATN-STACK (CONS '|GroupClause| *ATN-STACK))2160 (ATN-PARSER::ATN-STRUCTURE NIL))2161 (DECLARE (SPECIAL |GroupClause-INDEX|))2162 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2163 (DECLARE (TYPE CONS *ATN-STACK))2164 (SYMBOL-MACROLET2165 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2166 (%ATN-BLOCK |GroupClause|2167 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2168 (SETF *ATN-TERM* '|GroupClause|)2169 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2170 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2171 (|GroupClause.2| (ATN-PARSER::INDEX)2172 (%ATN-NODE-BLOCK2173 |GroupClause.2|2174 (%ATN-EDGE-BLOCK2175 (POP |GroupClause|)2176 (WHEN T2177 (SETF *ATN-TERM* '|GroupClause|)2178 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2179 '|GroupClause|2180 ATN-PARSER::INDEX2181 (LIST '|GroupCondition| |GroupCondition|))2182 (LET ((ATN-PARSER::RESULT-STRUCTURE2183 (IF (EQ *ATN-REDUCE* T)2184 (|GroupClause-Constructor| |GroupCondition|)2185 (IF (EQ *ATN-REDUCE* 'CONS)2186 (CONS '|GroupClause| (DELETE NIL (LIST |GroupCondition|)))2187 '|GroupClause|))))2188 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2189 (|GroupClause.6| (ATN-PARSER::INDEX)2190 (%ATN-NODE-BLOCK2191 |GroupClause.6|2192 (%ATN-EDGE-BLOCK2193 (PUSH |GroupCondition|)2194 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2195 (ATN-PARSE-SUBSTRUCTURE* '|GroupCondition| ATN-PARSER::INDEX)2196 (COND (ATN-PARSER::SUCCESS2197 (SETF *ATN-TERM* '|GroupCondition|)2198 (LET ((|GroupCondition1731| |GroupCondition|))2199 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2200 (DESTRUCTURING-BIND2201 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2202 ATN-PARSER::RESULT-AND-INDEX2203 (WHEN ATN-PARSER::RESULT2204 (SETF |GroupCondition| (CONS ATN-PARSER::RESULT |GroupCondition|)))2205 (|GroupClause.6| ATN-PARSER::RESULT-INDEX))2206 (SETF |GroupCondition| |GroupCondition1731|))))2207 (T2208 (SETF *ATN-TERM?* '|GroupCondition|)2209 (|GroupClause.2| ATN-PARSER::INDEX)))))))2210 (|GroupClause/fail.3| (ATN-PARSER::INDEX)2211 (%ATN-NODE-BLOCK |GroupClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2212 (|GroupClause/GroupClause.2.4| (ATN-PARSER::INDEX)2213 (%ATN-NODE-BLOCK2214 |GroupClause/GroupClause.2.4|2215 (%ATN-EDGE-BLOCK2216 (ATN-PARSER::WORD SPOCQ.S:BY)2217 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BY)2218 (SETF *ATN-TERM* 'SPOCQ.S:BY)2219 (|GroupClause/GroupClause.2.5| (1+ ATN-PARSER::INDEX)))2220 (T (SETF *ATN-TERM?* 'SPOCQ.S:BY) (|GroupClause/fail.3| ATN-PARSER::INDEX))))))2221 (|GroupClause/GroupClause.2.5| (ATN-PARSER::INDEX)2222 (%ATN-NODE-BLOCK2223 |GroupClause/GroupClause.2.5|2224 (%ATN-EDGE-BLOCK2225 (PUSH |GroupCondition|)2226 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2227 (ATN-PARSE-SUBSTRUCTURE* '|GroupCondition| ATN-PARSER::INDEX)2228 (COND (ATN-PARSER::SUCCESS2229 (SETF *ATN-TERM* '|GroupCondition|)2230 (LET ((|GroupCondition1730| |GroupCondition|))2231 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2232 (DESTRUCTURING-BIND2233 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2234 ATN-PARSER::RESULT-AND-INDEX2235 (WHEN ATN-PARSER::RESULT2236 (SETF |GroupCondition| (CONS ATN-PARSER::RESULT |GroupCondition|)))2237 (|GroupClause.6| ATN-PARSER::RESULT-INDEX))2238 (SETF |GroupCondition| |GroupCondition1730|))))2239 (T2240 (SETF *ATN-TERM?* '|GroupCondition|)2241 (|GroupClause/fail.3| ATN-PARSER::INDEX)))))))2242 (|GroupClause/start.1| (ATN-PARSER::INDEX)2243 (%ATN-NODE-BLOCK2244 |GroupClause/start.1|2245 (%ATN-EDGE-BLOCK2246 (ATN-PARSER::WORD SPOCQ.S:GROUP)2247 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:GROUP)2248 (SETF *ATN-TERM* 'SPOCQ.S:GROUP)2249 (|GroupClause/GroupClause.2.4| (1+ ATN-PARSER::INDEX)))2250 (T2251 (SETF *ATN-TERM?* 'SPOCQ.S:GROUP)2252 (|GroupClause/fail.3| ATN-PARSER::INDEX)))))))2253 (|GroupClause/start.1| ATN-PARSER::INDEX)2254 (SETF *ATN-NODE NIL)2255 NIL2256 (IF ATN-PARSER::ATN-STRUCTURE2257 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2258 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2259 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupClause| ATN-PARSER::INDEX *ATN-STACK))))2260 (PROGN (DEFVAR |GroupCondition-INDEX|)2261 (DEFUN |GroupCondition| (ATN-PARSER::INDEX &AUX (|BuiltInCall| NIL) (|FunctionCall| NIL)2262 (|VariableOrBindingOrExpression| NIL))2263 "{19a} GroupCondition ::= (BuiltInCall | FunctionCall | VariableOrBindingOrExpression)2264 (|BuiltInCall| |FunctionCall| |VariableOrBindingOrExpression|)"2265 (DECLARE (SPECIAL |GroupCondition-INDEX|))2266 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupCondition-INDEX| *ATN-LEVEL))2267 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2268 (IF (< |GroupCondition-INDEX| ATN-PARSER::INDEX)2269 (LET ((|GroupCondition-INDEX| ATN-PARSER::INDEX)2270 (*ATN-LEVEL (1+ *ATN-LEVEL))2271 (*ATN-STACK (CONS '|GroupCondition| *ATN-STACK))2272 (ATN-PARSER::ATN-STRUCTURE NIL))2273 (DECLARE (SPECIAL |GroupCondition-INDEX|))2274 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2275 (DECLARE (TYPE CONS *ATN-STACK))2276 (SYMBOL-MACROLET2277 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2278 (%ATN-BLOCK |GroupCondition|2279 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2280 (SETF *ATN-TERM* '|GroupCondition|)2281 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2282 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2283 (|GroupCondition.2| (ATN-PARSER::INDEX)2284 (%ATN-NODE-BLOCK2285 |GroupCondition.2|2286 (%ATN-EDGE-BLOCK2287 (POP |GroupCondition|)2288 (WHEN T2289 (SETF *ATN-TERM* '|GroupCondition|)2290 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2291 '|GroupCondition|2292 ATN-PARSER::INDEX2293 (LIST '|BuiltInCall|2294 |BuiltInCall|2295 '|FunctionCall|2296 |FunctionCall|2297 '|VariableOrBindingOrExpression|2298 |VariableOrBindingOrExpression|))2299 (LET ((ATN-PARSER::RESULT-STRUCTURE2300 (IF (EQ *ATN-REDUCE* T)2301 (|GroupCondition-Constructor|2302 |BuiltInCall|2303 |FunctionCall|2304 |VariableOrBindingOrExpression|)2305 (IF (EQ *ATN-REDUCE* 'CONS)2306 (CONS '|GroupCondition|2307 (DELETE NIL2308 (LIST |BuiltInCall|2309 |FunctionCall|2310 |VariableOrBindingOrExpression|)))2311 '|GroupCondition|))))2312 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2313 (|GroupCondition/fail.3| (ATN-PARSER::INDEX)2314 (%ATN-NODE-BLOCK |GroupCondition/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2315 (|GroupCondition/start.1| (ATN-PARSER::INDEX)2316 (%ATN-NODE-BLOCK2317 |GroupCondition/start.1|2318 (%ATN-EDGE-BLOCK2319 OR2320 (PROGN (%ATN-EDGE-BLOCK2321 (PUSH |BuiltInCall|)2322 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2323 (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall| ATN-PARSER::INDEX)2324 (COND (ATN-PARSER::SUCCESS2325 (SETF *ATN-TERM* '|BuiltInCall|)2326 (LET ((|BuiltInCall1731| |BuiltInCall|))2327 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2328 (DESTRUCTURING-BIND2329 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2330 ATN-PARSER::RESULT-AND-INDEX2331 (WHEN ATN-PARSER::RESULT2332 (SETF |BuiltInCall| ATN-PARSER::RESULT))2333 (|GroupCondition.2| ATN-PARSER::RESULT-INDEX))2334 (SETF |BuiltInCall| |BuiltInCall1731|))))2335 (T (SETF *ATN-TERM?* '|BuiltInCall|) NIL))))2336 (%ATN-EDGE-BLOCK2337 (PUSH |FunctionCall|)2338 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2339 (ATN-PARSE-SUBSTRUCTURE* '|FunctionCall| ATN-PARSER::INDEX)2340 (COND (ATN-PARSER::SUCCESS2341 (SETF *ATN-TERM* '|FunctionCall|)2342 (LET ((|FunctionCall1731| |FunctionCall|))2343 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2344 (DESTRUCTURING-BIND2345 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2346 ATN-PARSER::RESULT-AND-INDEX2347 (WHEN ATN-PARSER::RESULT2348 (SETF |FunctionCall| ATN-PARSER::RESULT))2349 (|GroupCondition.2| ATN-PARSER::RESULT-INDEX))2350 (SETF |FunctionCall| |FunctionCall1731|))))2351 (T (SETF *ATN-TERM?* '|FunctionCall|) NIL))))2352 (%ATN-EDGE-BLOCK2353 (PUSH |VariableOrBindingOrExpression|)2354 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2355 (ATN-PARSE-SUBSTRUCTURE*2356 '|VariableOrBindingOrExpression|2357 ATN-PARSER::INDEX)2358 (COND (ATN-PARSER::SUCCESS2359 (SETF *ATN-TERM* '|VariableOrBindingOrExpression|)2360 (LET ((|VariableOrBindingOrExpression1731|2361 |VariableOrBindingOrExpression|))2362 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2363 (DESTRUCTURING-BIND2364 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2365 ATN-PARSER::RESULT-AND-INDEX2366 (WHEN ATN-PARSER::RESULT2367 (SETF |VariableOrBindingOrExpression| ATN-PARSER::RESULT))2368 (|GroupCondition.2| ATN-PARSER::RESULT-INDEX))2369 (SETF |VariableOrBindingOrExpression|2370 |VariableOrBindingOrExpression1731|))))2371 (T (SETF *ATN-TERM?* '|VariableOrBindingOrExpression|) NIL))))2372 (|GroupCondition/fail.3| ATN-PARSER::INDEX))))))2373 (|GroupCondition/start.1| ATN-PARSER::INDEX)2374 (SETF *ATN-NODE NIL)2375 NIL2376 (IF ATN-PARSER::ATN-STRUCTURE2377 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2378 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2379 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupCondition| ATN-PARSER::INDEX *ATN-STACK))))2380 (PROGN (DEFVAR |VariableOrBindingOrExpression-INDEX|)2381 (DEFUN |VariableOrBindingOrExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|Var| NIL))2382 "{19a} VariableOrBindingOrExpression ::= (('(' Expression ('AS' Var)? ')') | Var)2383 (|Expression| |Var|)"2384 (DECLARE (SPECIAL |VariableOrBindingOrExpression-INDEX|))2385 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VariableOrBindingOrExpression-INDEX| *ATN-LEVEL))2386 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2387 (IF (< |VariableOrBindingOrExpression-INDEX| ATN-PARSER::INDEX)2388 (LET ((|VariableOrBindingOrExpression-INDEX| ATN-PARSER::INDEX)2389 (*ATN-LEVEL (1+ *ATN-LEVEL))2390 (*ATN-STACK (CONS '|VariableOrBindingOrExpression| *ATN-STACK))2391 (ATN-PARSER::ATN-STRUCTURE NIL))2392 (DECLARE (SPECIAL |VariableOrBindingOrExpression-INDEX|))2393 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2394 (DECLARE (TYPE CONS *ATN-STACK))2395 (SYMBOL-MACROLET2396 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2397 (%ATN-BLOCK |VariableOrBindingOrExpression|2398 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2399 (SETF *ATN-TERM* '|VariableOrBindingOrExpression|)2400 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2401 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2402 (|VariableOrBindingOrExpression.2| (ATN-PARSER::INDEX)2403 (%ATN-NODE-BLOCK2404 |VariableOrBindingOrExpression.2|2405 (%ATN-EDGE-BLOCK2406 (POP |VariableOrBindingOrExpression|)2407 (WHEN T2408 (SETF *ATN-TERM* '|VariableOrBindingOrExpression|)2409 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2410 '|VariableOrBindingOrExpression|2411 ATN-PARSER::INDEX2412 (LIST '|Expression| |Expression| '|Var| |Var|))2413 (LET ((ATN-PARSER::RESULT-STRUCTURE2414 (IF (EQ *ATN-REDUCE* T)2415 (|VariableOrBindingOrExpression-Constructor| |Expression| |Var|)2416 (IF (EQ *ATN-REDUCE* 'CONS)2417 (CONS '|VariableOrBindingOrExpression|2418 (DELETE NIL (LIST |Expression| |Var|)))2419 '|VariableOrBindingOrExpression|))))2420 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2421 (|VariableOrBindingOrExpression/fail.3| (ATN-PARSER::INDEX)2422 (%ATN-NODE-BLOCK2423 |VariableOrBindingOrExpression/fail.3|2424 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2425 (|VariableOrBindingOrExpression/start.1| (ATN-PARSER::INDEX)2426 (%ATN-NODE-BLOCK2427 |VariableOrBindingOrExpression/start.1|2428 (%ATN-EDGE-BLOCK2429 OR2430 (PROGN (%ATN-EDGE-BLOCK2431 (ATN-PARSER::JUMP2432 |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.4|)2433 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.4|2434 ATN-PARSER::INDEX))2435 (%ATN-EDGE-BLOCK2436 (TEST |Var|)2437 (COND ((|IS-Var| ATN-PARSER::|item|)2438 (SETF *ATN-TERM* '|Var|)2439 (SETF |Var|2440 (IF (EQ *ATN-REDUCE* T)2441 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)2442 (IF (EQ *ATN-REDUCE* 'CONS)2443 (LIST '|Var| ATN-PARSER::|item|)2444 '|Var|)))2445 (|VariableOrBindingOrExpression.2| (1+ ATN-PARSER::INDEX)))2446 (T (SETF *ATN-TERM?* '|Var|) NIL)))2447 (|VariableOrBindingOrExpression/fail.3| ATN-PARSER::INDEX)))))2448 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.4| (ATN-PARSER::INDEX)2449 (%ATN-NODE-BLOCK2450 |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.4|2451 (%ATN-EDGE-BLOCK2452 (ATN-PARSER::WORD SPOCQ.S:\()2453 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()2454 (SETF *ATN-TERM* 'SPOCQ.S:\()2455 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.5|2456 (1+ ATN-PARSER::INDEX)))2457 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))2458 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.5| (ATN-PARSER::INDEX)2459 (%ATN-NODE-BLOCK2460 |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.5|2461 (%ATN-EDGE-BLOCK2462 (PUSH |Expression|)2463 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2464 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)2465 (COND (ATN-PARSER::SUCCESS2466 (SETF *ATN-TERM* '|Expression|)2467 (LET ((|Expression1731| |Expression|))2468 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2469 (DESTRUCTURING-BIND2470 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2471 ATN-PARSER::RESULT-AND-INDEX2472 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))2473 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.6|2474 ATN-PARSER::RESULT-INDEX))2475 (SETF |Expression| |Expression1731|))))2476 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))2477 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.6| (ATN-PARSER::INDEX)2478 (%ATN-NODE-BLOCK2479 |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.6|2480 (%ATN-EDGE-BLOCK2481 (ATN-PARSER::JUMP2482 |VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.8|)2483 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.8|2484 ATN-PARSER::INDEX))2485 (%ATN-EDGE-BLOCK2486 (ATN-PARSER::JUMP |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7|)2487 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7|2488 ATN-PARSER::INDEX))))2489 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7| (ATN-PARSER::INDEX)2490 (%ATN-NODE-BLOCK2491 |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7|2492 (%ATN-EDGE-BLOCK2493 (ATN-PARSER::WORD SPOCQ.S:\))2494 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))2495 (SETF *ATN-TERM* 'SPOCQ.S:\))2496 (|VariableOrBindingOrExpression.2| (1+ ATN-PARSER::INDEX)))2497 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL)))))2498 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.8| (ATN-PARSER::INDEX)2499 (%ATN-NODE-BLOCK2500 |VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.8|2501 (%ATN-EDGE-BLOCK2502 (ATN-PARSER::WORD SPOCQ.S:AS)2503 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS)2504 (SETF *ATN-TERM* 'SPOCQ.S:AS)2505 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.9|2506 (1+ ATN-PARSER::INDEX)))2507 (T (SETF *ATN-TERM?* 'SPOCQ.S:AS) NIL)))))2508 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.9| (ATN-PARSER::INDEX)2509 (%ATN-NODE-BLOCK2510 |VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.9|2511 (%ATN-EDGE-BLOCK2512 (TEST |Var|)2513 (COND ((|IS-Var| ATN-PARSER::|item|)2514 (SETF *ATN-TERM* '|Var|)2515 (SETF |Var|2516 (IF (EQ *ATN-REDUCE* T)2517 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)2518 (IF (EQ *ATN-REDUCE* 'CONS) (LIST '|Var| ATN-PARSER::|item|) '|Var|)))2519 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7|2520 (1+ ATN-PARSER::INDEX)))2521 (T (SETF *ATN-TERM?* '|Var|) NIL))))))2522 (|VariableOrBindingOrExpression/start.1| ATN-PARSER::INDEX)2523 (SETF *ATN-NODE NIL)2524 NIL2525 (IF ATN-PARSER::ATN-STRUCTURE2526 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2527 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2528 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VariableOrBindingOrExpression| ATN-PARSER::INDEX *ATN-STACK))))2529 (PROGN (DEFVAR |HavingClause-INDEX|)2530 (DEFUN |HavingClause| (ATN-PARSER::INDEX &AUX (|HavingCondition| NIL))2531 "{20a} HavingClause ::= 'HAVING' HavingCondition+2532 (|HavingCondition|)"2533 (DECLARE (SPECIAL |HavingClause-INDEX|))2534 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |HavingClause-INDEX| *ATN-LEVEL))2535 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2536 (IF (< |HavingClause-INDEX| ATN-PARSER::INDEX)2537 (LET ((|HavingClause-INDEX| ATN-PARSER::INDEX)2538 (*ATN-LEVEL (1+ *ATN-LEVEL))2539 (*ATN-STACK (CONS '|HavingClause| *ATN-STACK))2540 (ATN-PARSER::ATN-STRUCTURE NIL))2541 (DECLARE (SPECIAL |HavingClause-INDEX|))2542 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2543 (DECLARE (TYPE CONS *ATN-STACK))2544 (SYMBOL-MACROLET2545 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2546 (%ATN-BLOCK |HavingClause|2547 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2548 (SETF *ATN-TERM* '|HavingClause|)2549 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2550 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2551 (|HavingClause.2| (ATN-PARSER::INDEX)2552 (%ATN-NODE-BLOCK2553 |HavingClause.2|2554 (%ATN-EDGE-BLOCK2555 (POP |HavingClause|)2556 (WHEN T2557 (SETF *ATN-TERM* '|HavingClause|)2558 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2559 '|HavingClause|2560 ATN-PARSER::INDEX2561 (LIST '|HavingCondition| |HavingCondition|))2562 (LET ((ATN-PARSER::RESULT-STRUCTURE2563 (IF (EQ *ATN-REDUCE* T)2564 (|HavingClause-Constructor| |HavingCondition|)2565 (IF (EQ *ATN-REDUCE* 'CONS)2566 (CONS '|HavingClause| (DELETE NIL (LIST |HavingCondition|)))2567 '|HavingClause|))))2568 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2569 (|HavingClause.5| (ATN-PARSER::INDEX)2570 (%ATN-NODE-BLOCK2571 |HavingClause.5|2572 (%ATN-EDGE-BLOCK2573 (PUSH |HavingCondition|)2574 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2575 (ATN-PARSE-SUBSTRUCTURE* '|HavingCondition| ATN-PARSER::INDEX)2576 (COND (ATN-PARSER::SUCCESS2577 (SETF *ATN-TERM* '|HavingCondition|)2578 (LET ((|HavingCondition1732| |HavingCondition|))2579 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2580 (DESTRUCTURING-BIND2581 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2582 ATN-PARSER::RESULT-AND-INDEX2583 (WHEN ATN-PARSER::RESULT2584 (SETF |HavingCondition| (CONS ATN-PARSER::RESULT |HavingCondition|)))2585 (|HavingClause.5| ATN-PARSER::RESULT-INDEX))2586 (SETF |HavingCondition| |HavingCondition1732|))))2587 (T2588 (SETF *ATN-TERM?* '|HavingCondition|)2589 (|HavingClause.2| ATN-PARSER::INDEX)))))))2590 (|HavingClause/fail.3| (ATN-PARSER::INDEX)2591 (%ATN-NODE-BLOCK |HavingClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2592 (|HavingClause/HavingClause.2.4| (ATN-PARSER::INDEX)2593 (%ATN-NODE-BLOCK2594 |HavingClause/HavingClause.2.4|2595 (%ATN-EDGE-BLOCK2596 (PUSH |HavingCondition|)2597 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2598 (ATN-PARSE-SUBSTRUCTURE* '|HavingCondition| ATN-PARSER::INDEX)2599 (COND (ATN-PARSER::SUCCESS2600 (SETF *ATN-TERM* '|HavingCondition|)2601 (LET ((|HavingCondition1731| |HavingCondition|))2602 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2603 (DESTRUCTURING-BIND2604 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2605 ATN-PARSER::RESULT-AND-INDEX2606 (WHEN ATN-PARSER::RESULT2607 (SETF |HavingCondition| (CONS ATN-PARSER::RESULT |HavingCondition|)))2608 (|HavingClause.5| ATN-PARSER::RESULT-INDEX))2609 (SETF |HavingCondition| |HavingCondition1731|))))2610 (T2611 (SETF *ATN-TERM?* '|HavingCondition|)2612 (|HavingClause/fail.3| ATN-PARSER::INDEX)))))))2613 (|HavingClause/start.1| (ATN-PARSER::INDEX)2614 (%ATN-NODE-BLOCK2615 |HavingClause/start.1|2616 (%ATN-EDGE-BLOCK2617 (ATN-PARSER::WORD SPOCQ.S:HAVING)2618 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:HAVING)2619 (SETF *ATN-TERM* 'SPOCQ.S:HAVING)2620 (|HavingClause/HavingClause.2.4| (1+ ATN-PARSER::INDEX)))2621 (T2622 (SETF *ATN-TERM?* 'SPOCQ.S:HAVING)2623 (|HavingClause/fail.3| ATN-PARSER::INDEX)))))))2624 (|HavingClause/start.1| ATN-PARSER::INDEX)2625 (SETF *ATN-NODE NIL)2626 NIL2627 (IF ATN-PARSER::ATN-STRUCTURE2628 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2629 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2630 (WARN "recursive grammar: ~s @ position ~s: ~s" '|HavingClause| ATN-PARSER::INDEX *ATN-STACK))))2631 (PROGN (DEFVAR |HavingCondition-INDEX|)2632 (DEFUN |HavingCondition| (ATN-PARSER::INDEX &AUX (|Constraint| NIL))2633 "{21a} HavingCondition ::= Constraint2634 (|Constraint|)"2635 (DECLARE (SPECIAL |HavingCondition-INDEX|))2636 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |HavingCondition-INDEX| *ATN-LEVEL))2637 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2638 (IF (< |HavingCondition-INDEX| ATN-PARSER::INDEX)2639 (LET ((|HavingCondition-INDEX| ATN-PARSER::INDEX)2640 (*ATN-LEVEL (1+ *ATN-LEVEL))2641 (*ATN-STACK (CONS '|HavingCondition| *ATN-STACK))2642 (ATN-PARSER::ATN-STRUCTURE NIL))2643 (DECLARE (SPECIAL |HavingCondition-INDEX|))2644 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2645 (DECLARE (TYPE CONS *ATN-STACK))2646 (SYMBOL-MACROLET2647 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2648 (%ATN-BLOCK |HavingCondition|2649 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2650 (SETF *ATN-TERM* '|HavingCondition|)2651 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2652 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2653 (|HavingCondition.2| (ATN-PARSER::INDEX)2654 (%ATN-NODE-BLOCK2655 |HavingCondition.2|2656 (%ATN-EDGE-BLOCK2657 (POP |HavingCondition|)2658 (WHEN T2659 (SETF *ATN-TERM* '|HavingCondition|)2660 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2661 '|HavingCondition|2662 ATN-PARSER::INDEX2663 (LIST '|Constraint| |Constraint|))2664 (LET ((ATN-PARSER::RESULT-STRUCTURE2665 (IF (EQ *ATN-REDUCE* T)2666 (|HavingCondition-Constructor| |Constraint|)2667 (IF (EQ *ATN-REDUCE* 'CONS)2668 (CONS '|HavingCondition| (DELETE NIL (LIST |Constraint|)))2669 '|HavingCondition|))))2670 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2671 (|HavingCondition/fail.3| (ATN-PARSER::INDEX)2672 (%ATN-NODE-BLOCK |HavingCondition/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2673 (|HavingCondition/start.1| (ATN-PARSER::INDEX)2674 (%ATN-NODE-BLOCK2675 |HavingCondition/start.1|2676 (%ATN-EDGE-BLOCK2677 (PUSH |Constraint|)2678 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2679 (ATN-PARSE-SUBSTRUCTURE* '|Constraint| ATN-PARSER::INDEX)2680 (COND (ATN-PARSER::SUCCESS2681 (SETF *ATN-TERM* '|Constraint|)2682 (LET ((|Constraint1732| |Constraint|))2683 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2684 (DESTRUCTURING-BIND2685 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2686 ATN-PARSER::RESULT-AND-INDEX2687 (WHEN ATN-PARSER::RESULT (SETF |Constraint| ATN-PARSER::RESULT))2688 (|HavingCondition.2| ATN-PARSER::RESULT-INDEX))2689 (SETF |Constraint| |Constraint1732|))))2690 (T2691 (SETF *ATN-TERM?* '|Constraint|)2692 (|HavingCondition/fail.3| ATN-PARSER::INDEX))))))))2693 (|HavingCondition/start.1| ATN-PARSER::INDEX)2694 (SETF *ATN-NODE NIL)2695 NIL2696 (IF ATN-PARSER::ATN-STRUCTURE2697 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2698 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2699 (WARN "recursive grammar: ~s @ position ~s: ~s" '|HavingCondition| ATN-PARSER::INDEX *ATN-STACK))))2700 (PROGN (DEFVAR |LimitOffsetClauses-INDEX|)2701 (DEFUN |LimitOffsetClauses| (ATN-PARSER::INDEX &AUX (|LimitClause| NIL) (|OffsetClause| NIL))2702 "{15} LimitOffsetClauses ::= (((LimitClause OffsetClause?) | (OffsetClause2703 LimitClause?)))2704 (|LimitClause| |OffsetClause|)"2705 (DECLARE (SPECIAL |LimitOffsetClauses-INDEX|))2706 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |LimitOffsetClauses-INDEX| *ATN-LEVEL))2707 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2708 (IF (< |LimitOffsetClauses-INDEX| ATN-PARSER::INDEX)2709 (LET ((|LimitOffsetClauses-INDEX| ATN-PARSER::INDEX)2710 (*ATN-LEVEL (1+ *ATN-LEVEL))2711 (*ATN-STACK (CONS '|LimitOffsetClauses| *ATN-STACK))2712 (ATN-PARSER::ATN-STRUCTURE NIL))2713 (DECLARE (SPECIAL |LimitOffsetClauses-INDEX|))2714 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2715 (DECLARE (TYPE CONS *ATN-STACK))2716 (SYMBOL-MACROLET2717 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2718 (%ATN-BLOCK |LimitOffsetClauses|2719 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2720 (SETF *ATN-TERM* '|LimitOffsetClauses|)2721 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2722 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2723 (|LimitOffsetClauses.2| (ATN-PARSER::INDEX)2724 (%ATN-NODE-BLOCK2725 |LimitOffsetClauses.2|2726 (%ATN-EDGE-BLOCK2727 (POP |LimitOffsetClauses|)2728 (WHEN T2729 (SETF *ATN-TERM* '|LimitOffsetClauses|)2730 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2731 '|LimitOffsetClauses|2732 ATN-PARSER::INDEX2733 (LIST '|LimitClause| |LimitClause| '|OffsetClause| |OffsetClause|))2734 (LET ((ATN-PARSER::RESULT-STRUCTURE2735 (IF (EQ *ATN-REDUCE* T)2736 (|LimitOffsetClauses-Constructor| |LimitClause| |OffsetClause|)2737 (IF (EQ *ATN-REDUCE* 'CONS)2738 (CONS '|LimitOffsetClauses|2739 (DELETE NIL (LIST |LimitClause| |OffsetClause|)))2740 '|LimitOffsetClauses|))))2741 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2742 (|LimitOffsetClauses/fail.3| (ATN-PARSER::INDEX)2743 (%ATN-NODE-BLOCK |LimitOffsetClauses/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2744 (|LimitOffsetClauses/LimitOffsetClauses.2.4| (ATN-PARSER::INDEX)2745 (%ATN-NODE-BLOCK2746 |LimitOffsetClauses/LimitOffsetClauses.2.4|2747 (%ATN-EDGE-BLOCK2748 (PUSH |LimitClause|)2749 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2750 (ATN-PARSE-SUBSTRUCTURE* '|LimitClause| ATN-PARSER::INDEX)2751 (COND (ATN-PARSER::SUCCESS2752 (SETF *ATN-TERM* '|LimitClause|)2753 (LET ((|LimitClause1733| |LimitClause|))2754 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2755 (DESTRUCTURING-BIND2756 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2757 ATN-PARSER::RESULT-AND-INDEX2758 (WHEN ATN-PARSER::RESULT (SETF |LimitClause| ATN-PARSER::RESULT))2759 (|LimitOffsetClauses/LimitOffsetClauses.2.5| ATN-PARSER::RESULT-INDEX))2760 (SETF |LimitClause| |LimitClause1733|))))2761 (T (SETF *ATN-TERM?* '|LimitClause|) NIL))))))2762 (|LimitOffsetClauses/LimitOffsetClauses.2.5| (ATN-PARSER::INDEX)2763 (%ATN-NODE-BLOCK2764 |LimitOffsetClauses/LimitOffsetClauses.2.5|2765 (%ATN-EDGE-BLOCK2766 (PUSH |OffsetClause|)2767 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2768 (ATN-PARSE-SUBSTRUCTURE* '|OffsetClause| ATN-PARSER::INDEX)2769 (COND (ATN-PARSER::SUCCESS2770 (SETF *ATN-TERM* '|OffsetClause|)2771 (LET ((|OffsetClause1733| |OffsetClause|))2772 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2773 (DESTRUCTURING-BIND2774 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2775 ATN-PARSER::RESULT-AND-INDEX2776 (WHEN ATN-PARSER::RESULT (SETF |OffsetClause| ATN-PARSER::RESULT))2777 (|LimitOffsetClauses.2| ATN-PARSER::RESULT-INDEX))2778 (SETF |OffsetClause| |OffsetClause1733|))))2779 (T2780 (SETF *ATN-TERM?* '|OffsetClause|)2781 (|LimitOffsetClauses.2| ATN-PARSER::INDEX)))))))2782 (|LimitOffsetClauses/LimitOffsetClauses.2.6| (ATN-PARSER::INDEX)2783 (%ATN-NODE-BLOCK2784 |LimitOffsetClauses/LimitOffsetClauses.2.6|2785 (%ATN-EDGE-BLOCK2786 (PUSH |OffsetClause|)2787 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2788 (ATN-PARSE-SUBSTRUCTURE* '|OffsetClause| ATN-PARSER::INDEX)2789 (COND (ATN-PARSER::SUCCESS2790 (SETF *ATN-TERM* '|OffsetClause|)2791 (LET ((|OffsetClause1732| |OffsetClause|))2792 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2793 (DESTRUCTURING-BIND2794 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2795 ATN-PARSER::RESULT-AND-INDEX2796 (WHEN ATN-PARSER::RESULT (SETF |OffsetClause| ATN-PARSER::RESULT))2797 (|LimitOffsetClauses/LimitOffsetClauses.2.7| ATN-PARSER::RESULT-INDEX))2798 (SETF |OffsetClause| |OffsetClause1732|))))2799 (T (SETF *ATN-TERM?* '|OffsetClause|) NIL))))))2800 (|LimitOffsetClauses/LimitOffsetClauses.2.7| (ATN-PARSER::INDEX)2801 (%ATN-NODE-BLOCK2802 |LimitOffsetClauses/LimitOffsetClauses.2.7|2803 (%ATN-EDGE-BLOCK2804 (PUSH |LimitClause|)2805 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2806 (ATN-PARSE-SUBSTRUCTURE* '|LimitClause| ATN-PARSER::INDEX)2807 (COND (ATN-PARSER::SUCCESS2808 (SETF *ATN-TERM* '|LimitClause|)2809 (LET ((|LimitClause1732| |LimitClause|))2810 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2811 (DESTRUCTURING-BIND2812 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2813 ATN-PARSER::RESULT-AND-INDEX2814 (WHEN ATN-PARSER::RESULT (SETF |LimitClause| ATN-PARSER::RESULT))2815 (|LimitOffsetClauses.2| ATN-PARSER::RESULT-INDEX))2816 (SETF |LimitClause| |LimitClause1732|))))2817 (T2818 (SETF *ATN-TERM?* '|LimitClause|)2819 (|LimitOffsetClauses.2| ATN-PARSER::INDEX)))))))2820 (|LimitOffsetClauses/start.1| (ATN-PARSER::INDEX)2821 (%ATN-NODE-BLOCK2822 |LimitOffsetClauses/start.1|2823 (%ATN-EDGE-BLOCK2824 OR2825 (PROGN (%ATN-EDGE-BLOCK2826 (ATN-PARSER::JUMP |LimitOffsetClauses/LimitOffsetClauses.2.4|)2827 (|LimitOffsetClauses/LimitOffsetClauses.2.4| ATN-PARSER::INDEX))2828 (%ATN-EDGE-BLOCK2829 (ATN-PARSER::JUMP |LimitOffsetClauses/LimitOffsetClauses.2.6|)2830 (|LimitOffsetClauses/LimitOffsetClauses.2.6| ATN-PARSER::INDEX))2831 (|LimitOffsetClauses/fail.3| ATN-PARSER::INDEX))))))2832 (|LimitOffsetClauses/start.1| ATN-PARSER::INDEX)2833 (SETF *ATN-NODE NIL)2834 NIL2835 (IF ATN-PARSER::ATN-STRUCTURE2836 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2837 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2838 (WARN "recursive grammar: ~s @ position ~s: ~s" '|LimitOffsetClauses| ATN-PARSER::INDEX *ATN-STACK))))2839 (PROGN (DEFVAR |OrderClause-INDEX|)2840 (DEFUN |OrderClause| (ATN-PARSER::INDEX &AUX (|OrderCondition| NIL))2841 "{16} OrderClause ::= 'ORDER' 'BY' OrderCondition+2842 (|OrderCondition|)"2843 (DECLARE (SPECIAL |OrderClause-INDEX|))2844 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OrderClause-INDEX| *ATN-LEVEL))2845 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2846 (IF (< |OrderClause-INDEX| ATN-PARSER::INDEX)2847 (LET ((|OrderClause-INDEX| ATN-PARSER::INDEX)2848 (*ATN-LEVEL (1+ *ATN-LEVEL))2849 (*ATN-STACK (CONS '|OrderClause| *ATN-STACK))2850 (ATN-PARSER::ATN-STRUCTURE NIL))2851 (DECLARE (SPECIAL |OrderClause-INDEX|))2852 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2853 (DECLARE (TYPE CONS *ATN-STACK))2854 (SYMBOL-MACROLET2855 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2856 (%ATN-BLOCK |OrderClause|2857 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2858 (SETF *ATN-TERM* '|OrderClause|)2859 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2860 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2861 (|OrderClause.2| (ATN-PARSER::INDEX)2862 (%ATN-NODE-BLOCK2863 |OrderClause.2|2864 (%ATN-EDGE-BLOCK2865 (POP |OrderClause|)2866 (WHEN T2867 (SETF *ATN-TERM* '|OrderClause|)2868 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2869 '|OrderClause|2870 ATN-PARSER::INDEX2871 (LIST '|OrderCondition| |OrderCondition|))2872 (LET ((ATN-PARSER::RESULT-STRUCTURE2873 (IF (EQ *ATN-REDUCE* T)2874 (|OrderClause-Constructor| |OrderCondition|)2875 (IF (EQ *ATN-REDUCE* 'CONS)2876 (CONS '|OrderClause| (DELETE NIL (LIST |OrderCondition|)))2877 '|OrderClause|))))2878 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2879 (|OrderClause.6| (ATN-PARSER::INDEX)2880 (%ATN-NODE-BLOCK2881 |OrderClause.6|2882 (%ATN-EDGE-BLOCK2883 (PUSH |OrderCondition|)2884 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2885 (ATN-PARSE-SUBSTRUCTURE* '|OrderCondition| ATN-PARSER::INDEX)2886 (COND (ATN-PARSER::SUCCESS2887 (SETF *ATN-TERM* '|OrderCondition|)2888 (LET ((|OrderCondition1734| |OrderCondition|))2889 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2890 (DESTRUCTURING-BIND2891 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2892 ATN-PARSER::RESULT-AND-INDEX2893 (WHEN ATN-PARSER::RESULT2894 (SETF |OrderCondition| (CONS ATN-PARSER::RESULT |OrderCondition|)))2895 (|OrderClause.6| ATN-PARSER::RESULT-INDEX))2896 (SETF |OrderCondition| |OrderCondition1734|))))2897 (T2898 (SETF *ATN-TERM?* '|OrderCondition|)2899 (|OrderClause.2| ATN-PARSER::INDEX)))))))2900 (|OrderClause/fail.3| (ATN-PARSER::INDEX)2901 (%ATN-NODE-BLOCK |OrderClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2902 (|OrderClause/OrderClause.2.4| (ATN-PARSER::INDEX)2903 (%ATN-NODE-BLOCK2904 |OrderClause/OrderClause.2.4|2905 (%ATN-EDGE-BLOCK2906 (ATN-PARSER::WORD SPOCQ.S:BY)2907 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BY)2908 (SETF *ATN-TERM* 'SPOCQ.S:BY)2909 (|OrderClause/OrderClause.2.5| (1+ ATN-PARSER::INDEX)))2910 (T (SETF *ATN-TERM?* 'SPOCQ.S:BY) (|OrderClause/fail.3| ATN-PARSER::INDEX))))))2911 (|OrderClause/OrderClause.2.5| (ATN-PARSER::INDEX)2912 (%ATN-NODE-BLOCK2913 |OrderClause/OrderClause.2.5|2914 (%ATN-EDGE-BLOCK2915 (PUSH |OrderCondition|)2916 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2917 (ATN-PARSE-SUBSTRUCTURE* '|OrderCondition| ATN-PARSER::INDEX)2918 (COND (ATN-PARSER::SUCCESS2919 (SETF *ATN-TERM* '|OrderCondition|)2920 (LET ((|OrderCondition1733| |OrderCondition|))2921 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2922 (DESTRUCTURING-BIND2923 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2924 ATN-PARSER::RESULT-AND-INDEX2925 (WHEN ATN-PARSER::RESULT2926 (SETF |OrderCondition| (CONS ATN-PARSER::RESULT |OrderCondition|)))2927 (|OrderClause.6| ATN-PARSER::RESULT-INDEX))2928 (SETF |OrderCondition| |OrderCondition1733|))))2929 (T2930 (SETF *ATN-TERM?* '|OrderCondition|)2931 (|OrderClause/fail.3| ATN-PARSER::INDEX)))))))2932 (|OrderClause/start.1| (ATN-PARSER::INDEX)2933 (%ATN-NODE-BLOCK2934 |OrderClause/start.1|2935 (%ATN-EDGE-BLOCK2936 (ATN-PARSER::WORD SPOCQ.S:ORDER)2937 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:ORDER)2938 (SETF *ATN-TERM* 'SPOCQ.S:ORDER)2939 (|OrderClause/OrderClause.2.4| (1+ ATN-PARSER::INDEX)))2940 (T2941 (SETF *ATN-TERM?* 'SPOCQ.S:ORDER)2942 (|OrderClause/fail.3| ATN-PARSER::INDEX)))))))2943 (|OrderClause/start.1| ATN-PARSER::INDEX)2944 (SETF *ATN-NODE NIL)2945 NIL2946 (IF ATN-PARSER::ATN-STRUCTURE2947 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2948 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2949 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OrderClause| ATN-PARSER::INDEX *ATN-STACK))))2950 (PROGN (DEFVAR |OrderCondition-INDEX|)2951 (DEFUN |OrderCondition| (ATN-PARSER::INDEX &AUX (|BrackettedExpression| NIL) (|Constraint| NIL) (|OrderDirection| NIL)2952 (|Var| NIL))2953 "{17} OrderCondition ::= ((OrderDirection2954 BrackettedExpression) | Constraint | Var)2955 (|BrackettedExpression| |Constraint| |OrderDirection| |Var|)"2956 (DECLARE (SPECIAL |OrderCondition-INDEX|))2957 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OrderCondition-INDEX| *ATN-LEVEL))2958 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2959 (IF (< |OrderCondition-INDEX| ATN-PARSER::INDEX)2960 (LET ((|OrderCondition-INDEX| ATN-PARSER::INDEX)2961 (*ATN-LEVEL (1+ *ATN-LEVEL))2962 (*ATN-STACK (CONS '|OrderCondition| *ATN-STACK))2963 (ATN-PARSER::ATN-STRUCTURE NIL))2964 (DECLARE (SPECIAL |OrderCondition-INDEX|))2965 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2966 (DECLARE (TYPE CONS *ATN-STACK))2967 (SYMBOL-MACROLET2968 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2969 (%ATN-BLOCK |OrderCondition|2970 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2971 (SETF *ATN-TERM* '|OrderCondition|)2972 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2973 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2974 (|OrderCondition.2| (ATN-PARSER::INDEX)2975 (%ATN-NODE-BLOCK2976 |OrderCondition.2|2977 (%ATN-EDGE-BLOCK2978 (POP |OrderCondition|)2979 (WHEN T2980 (SETF *ATN-TERM* '|OrderCondition|)2981 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2982 '|OrderCondition|2983 ATN-PARSER::INDEX2984 (LIST '|BrackettedExpression|2985 |BrackettedExpression|2986 '|Constraint|2987 |Constraint|2988 '|OrderDirection|2989 |OrderDirection|2990 '|Var|2991 |Var|))2992 (LET ((ATN-PARSER::RESULT-STRUCTURE2993 (IF (EQ *ATN-REDUCE* T)2994 (|OrderCondition-Constructor|2995 |BrackettedExpression|2996 |Constraint|2997 |OrderDirection|2998 |Var|)2999 (IF (EQ *ATN-REDUCE* 'CONS)3000 (CONS '|OrderCondition|3001 (DELETE NIL3002 (LIST |BrackettedExpression|3003 |Constraint|3004 |OrderDirection|3005 |Var|)))3006 '|OrderCondition|))))3007 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3008 (|OrderCondition/fail.3| (ATN-PARSER::INDEX)3009 (%ATN-NODE-BLOCK |OrderCondition/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3010 (|OrderCondition/OrderCondition.2.4| (ATN-PARSER::INDEX)3011 (%ATN-NODE-BLOCK3012 |OrderCondition/OrderCondition.2.4|3013 (%ATN-EDGE-BLOCK3014 (ATN-PARSER::CAT |OrderDirection|)3015 (COND ((|IS-OrderDirection| ATN-PARSER::|item|)3016 (SETF *ATN-TERM* '|OrderDirection|)3017 (SETF |OrderDirection|3018 (IF (EQ *ATN-REDUCE* T)3019 (ATN-REDUCE-ITEM #'|OrderDirection-Constructor| ATN-PARSER::|item|)3020 (IF (EQ *ATN-REDUCE* 'CONS)3021 (LIST '|OrderDirection| ATN-PARSER::|item|)3022 '|OrderDirection|)))3023 (|OrderCondition/OrderCondition.2.5| (1+ ATN-PARSER::INDEX)))3024 (T (SETF *ATN-TERM* '|OrderDirection|) NIL)))))3025 (|OrderCondition/OrderCondition.2.5| (ATN-PARSER::INDEX)3026 (%ATN-NODE-BLOCK3027 |OrderCondition/OrderCondition.2.5|3028 (%ATN-EDGE-BLOCK3029 (PUSH |BrackettedExpression|)3030 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3031 (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression| ATN-PARSER::INDEX)3032 (COND (ATN-PARSER::SUCCESS3033 (SETF *ATN-TERM* '|BrackettedExpression|)3034 (LET ((|BrackettedExpression1734| |BrackettedExpression|))3035 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3036 (DESTRUCTURING-BIND3037 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3038 ATN-PARSER::RESULT-AND-INDEX3039 (WHEN ATN-PARSER::RESULT3040 (SETF |BrackettedExpression| ATN-PARSER::RESULT))3041 (|OrderCondition.2| ATN-PARSER::RESULT-INDEX))3042 (SETF |BrackettedExpression| |BrackettedExpression1734|))))3043 (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))))3044 (|OrderCondition/start.1| (ATN-PARSER::INDEX)3045 (%ATN-NODE-BLOCK3046 |OrderCondition/start.1|3047 (%ATN-EDGE-BLOCK3048 OR3049 (PROGN (%ATN-EDGE-BLOCK3050 (ATN-PARSER::JUMP |OrderCondition/OrderCondition.2.4|)3051 (|OrderCondition/OrderCondition.2.4| ATN-PARSER::INDEX))3052 (%ATN-EDGE-BLOCK3053 (PUSH |Constraint|)3054 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3055 (ATN-PARSE-SUBSTRUCTURE* '|Constraint| ATN-PARSER::INDEX)3056 (COND (ATN-PARSER::SUCCESS3057 (SETF *ATN-TERM* '|Constraint|)3058 (LET ((|Constraint1734| |Constraint|))3059 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3060 (DESTRUCTURING-BIND3061 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3062 ATN-PARSER::RESULT-AND-INDEX3063 (WHEN ATN-PARSER::RESULT3064 (SETF |Constraint| ATN-PARSER::RESULT))3065 (|OrderCondition.2| ATN-PARSER::RESULT-INDEX))3066 (SETF |Constraint| |Constraint1734|))))3067 (T (SETF *ATN-TERM?* '|Constraint|) NIL))))3068 (%ATN-EDGE-BLOCK3069 (TEST |Var|)3070 (COND ((|IS-Var| ATN-PARSER::|item|)3071 (SETF *ATN-TERM* '|Var|)3072 (SETF |Var|3073 (IF (EQ *ATN-REDUCE* T)3074 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)3075 (IF (EQ *ATN-REDUCE* 'CONS)3076 (LIST '|Var| ATN-PARSER::|item|)3077 '|Var|)))3078 (|OrderCondition.2| (1+ ATN-PARSER::INDEX)))3079 (T (SETF *ATN-TERM?* '|Var|) NIL)))3080 (|OrderCondition/fail.3| ATN-PARSER::INDEX))))))3081 (|OrderCondition/start.1| ATN-PARSER::INDEX)3082 (SETF *ATN-NODE NIL)3083 NIL3084 (IF ATN-PARSER::ATN-STRUCTURE3085 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3086 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3087 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OrderCondition| ATN-PARSER::INDEX *ATN-STACK))))3088 (PROGN (DEFVAR |LimitClause-INDEX|)3089 (DEFUN |LimitClause| (ATN-PARSER::INDEX &AUX (INTEGER NIL))3090 "{18} LimitClause ::= 'LIMIT' INTEGER3091 (INTEGER)"3092 (DECLARE (SPECIAL |LimitClause-INDEX|))3093 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |LimitClause-INDEX| *ATN-LEVEL))3094 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3095 (IF (< |LimitClause-INDEX| ATN-PARSER::INDEX)3096 (LET ((|LimitClause-INDEX| ATN-PARSER::INDEX)3097 (*ATN-LEVEL (1+ *ATN-LEVEL))3098 (*ATN-STACK (CONS '|LimitClause| *ATN-STACK))3099 (ATN-PARSER::ATN-STRUCTURE NIL))3100 (DECLARE (SPECIAL |LimitClause-INDEX|))3101 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3102 (DECLARE (TYPE CONS *ATN-STACK))3103 (SYMBOL-MACROLET3104 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3105 (%ATN-BLOCK |LimitClause|3106 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3107 (SETF *ATN-TERM* '|LimitClause|)3108 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3109 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3110 (|LimitClause.2| (ATN-PARSER::INDEX)3111 (%ATN-NODE-BLOCK3112 |LimitClause.2|3113 (%ATN-EDGE-BLOCK3114 (POP |LimitClause|)3115 (WHEN T3116 (SETF *ATN-TERM* '|LimitClause|)3117 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3118 '|LimitClause|3119 ATN-PARSER::INDEX3120 (LIST 'INTEGER INTEGER))3121 (LET ((ATN-PARSER::RESULT-STRUCTURE3122 (IF (EQ *ATN-REDUCE* T)3123 (|LimitClause-Constructor| INTEGER)3124 (IF (EQ *ATN-REDUCE* 'CONS)3125 (CONS '|LimitClause| (DELETE NIL (LIST INTEGER)))3126 '|LimitClause|))))3127 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3128 (|LimitClause/fail.3| (ATN-PARSER::INDEX)3129 (%ATN-NODE-BLOCK |LimitClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3130 (|LimitClause/LimitClause.2.4| (ATN-PARSER::INDEX)3131 (%ATN-NODE-BLOCK3132 |LimitClause/LimitClause.2.4|3133 (%ATN-EDGE-BLOCK3134 (TEST INTEGER)3135 (COND ((IS-INTEGER ATN-PARSER::|item|)3136 (SETF *ATN-TERM* 'INTEGER)3137 (SETF INTEGER3138 (IF (EQ *ATN-REDUCE* T)3139 (ATN-REDUCE-ITEM #'|INTEGER-Constructor| ATN-PARSER::|item|)3140 (IF (EQ *ATN-REDUCE* 'CONS)3141 (LIST 'INTEGER ATN-PARSER::|item|)3142 'INTEGER)))3143 (|LimitClause.2| (1+ ATN-PARSER::INDEX)))3144 (T (SETF *ATN-TERM?* 'INTEGER) (|LimitClause/fail.3| ATN-PARSER::INDEX))))))3145 (|LimitClause/start.1| (ATN-PARSER::INDEX)3146 (%ATN-NODE-BLOCK3147 |LimitClause/start.1|3148 (%ATN-EDGE-BLOCK3149 (ATN-PARSER::WORD SPOCQ.S:LIMIT)3150 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:LIMIT)3151 (SETF *ATN-TERM* 'SPOCQ.S:LIMIT)3152 (|LimitClause/LimitClause.2.4| (1+ ATN-PARSER::INDEX)))3153 (T3154 (SETF *ATN-TERM?* 'SPOCQ.S:LIMIT)3155 (|LimitClause/fail.3| ATN-PARSER::INDEX)))))))3156 (|LimitClause/start.1| ATN-PARSER::INDEX)3157 (SETF *ATN-NODE NIL)3158 NIL3159 (IF ATN-PARSER::ATN-STRUCTURE3160 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3161 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3162 (WARN "recursive grammar: ~s @ position ~s: ~s" '|LimitClause| ATN-PARSER::INDEX *ATN-STACK))))3163 (PROGN (DEFVAR |OffsetClause-INDEX|)3164 (DEFUN |OffsetClause| (ATN-PARSER::INDEX &AUX (INTEGER NIL))3165 "{19} OffsetClause ::= 'OFFSET' INTEGER3166 (INTEGER)"3167 (DECLARE (SPECIAL |OffsetClause-INDEX|))3168 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OffsetClause-INDEX| *ATN-LEVEL))3169 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3170 (IF (< |OffsetClause-INDEX| ATN-PARSER::INDEX)3171 (LET ((|OffsetClause-INDEX| ATN-PARSER::INDEX)3172 (*ATN-LEVEL (1+ *ATN-LEVEL))3173 (*ATN-STACK (CONS '|OffsetClause| *ATN-STACK))3174 (ATN-PARSER::ATN-STRUCTURE NIL))3175 (DECLARE (SPECIAL |OffsetClause-INDEX|))3176 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3177 (DECLARE (TYPE CONS *ATN-STACK))3178 (SYMBOL-MACROLET3179 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3180 (%ATN-BLOCK |OffsetClause|3181 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3182 (SETF *ATN-TERM* '|OffsetClause|)3183 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3184 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3185 (|OffsetClause.2| (ATN-PARSER::INDEX)3186 (%ATN-NODE-BLOCK3187 |OffsetClause.2|3188 (%ATN-EDGE-BLOCK3189 (POP |OffsetClause|)3190 (WHEN T3191 (SETF *ATN-TERM* '|OffsetClause|)3192 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3193 '|OffsetClause|3194 ATN-PARSER::INDEX3195 (LIST 'INTEGER INTEGER))3196 (LET ((ATN-PARSER::RESULT-STRUCTURE3197 (IF (EQ *ATN-REDUCE* T)3198 (|OffsetClause-Constructor| INTEGER)3199 (IF (EQ *ATN-REDUCE* 'CONS)3200 (CONS '|OffsetClause| (DELETE NIL (LIST INTEGER)))3201 '|OffsetClause|))))3202 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3203 (|OffsetClause/fail.3| (ATN-PARSER::INDEX)3204 (%ATN-NODE-BLOCK |OffsetClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3205 (|OffsetClause/OffsetClause.2.4| (ATN-PARSER::INDEX)3206 (%ATN-NODE-BLOCK3207 |OffsetClause/OffsetClause.2.4|3208 (%ATN-EDGE-BLOCK3209 (TEST INTEGER)3210 (COND ((IS-INTEGER ATN-PARSER::|item|)3211 (SETF *ATN-TERM* 'INTEGER)3212 (SETF INTEGER3213 (IF (EQ *ATN-REDUCE* T)3214 (ATN-REDUCE-ITEM #'|INTEGER-Constructor| ATN-PARSER::|item|)3215 (IF (EQ *ATN-REDUCE* 'CONS)3216 (LIST 'INTEGER ATN-PARSER::|item|)3217 'INTEGER)))3218 (|OffsetClause.2| (1+ ATN-PARSER::INDEX)))3219 (T (SETF *ATN-TERM?* 'INTEGER) (|OffsetClause/fail.3| ATN-PARSER::INDEX))))))3220 (|OffsetClause/start.1| (ATN-PARSER::INDEX)3221 (%ATN-NODE-BLOCK3222 |OffsetClause/start.1|3223 (%ATN-EDGE-BLOCK3224 (ATN-PARSER::WORD SPOCQ.S:OFFSET)3225 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:OFFSET)3226 (SETF *ATN-TERM* 'SPOCQ.S:OFFSET)3227 (|OffsetClause/OffsetClause.2.4| (1+ ATN-PARSER::INDEX)))3228 (T3229 (SETF *ATN-TERM?* 'SPOCQ.S:OFFSET)3230 (|OffsetClause/fail.3| ATN-PARSER::INDEX)))))))3231 (|OffsetClause/start.1| ATN-PARSER::INDEX)3232 (SETF *ATN-NODE NIL)3233 NIL3234 (IF ATN-PARSER::ATN-STRUCTURE3235 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3236 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3237 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OffsetClause| ATN-PARSER::INDEX *ATN-STACK))))3238 (PROGN (DEFVAR |BindingsClause-INDEX|)3239 (DEFUN |BindingsClause| (ATN-PARSER::INDEX &AUX (|BindingList| NIL) (|Var| NIL))3240 "BindingsClause ::= 'BINDINGS' Var* '{' BindingList* '}'3241 (|BindingList| |Var|)"3242 (DECLARE (SPECIAL |BindingsClause-INDEX|))3243 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BindingsClause-INDEX| *ATN-LEVEL))3244 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3245 (IF (< |BindingsClause-INDEX| ATN-PARSER::INDEX)3246 (LET ((|BindingsClause-INDEX| ATN-PARSER::INDEX)3247 (*ATN-LEVEL (1+ *ATN-LEVEL))3248 (*ATN-STACK (CONS '|BindingsClause| *ATN-STACK))3249 (ATN-PARSER::ATN-STRUCTURE NIL))3250 (DECLARE (SPECIAL |BindingsClause-INDEX|))3251 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3252 (DECLARE (TYPE CONS *ATN-STACK))3253 (SYMBOL-MACROLET3254 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3255 (%ATN-BLOCK |BindingsClause|3256 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3257 (SETF *ATN-TERM* '|BindingsClause|)3258 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3259 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3260 (|BindingsClause.2| (ATN-PARSER::INDEX)3261 (%ATN-NODE-BLOCK3262 |BindingsClause.2|3263 (%ATN-EDGE-BLOCK3264 (POP |BindingsClause|)3265 (WHEN T3266 (SETF *ATN-TERM* '|BindingsClause|)3267 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3268 '|BindingsClause|3269 ATN-PARSER::INDEX3270 (LIST '|BindingList| |BindingList| '|Var| |Var|))3271 (LET ((ATN-PARSER::RESULT-STRUCTURE3272 (IF (EQ *ATN-REDUCE* T)3273 (|BindingsClause-Constructor| |BindingList| |Var|)3274 (IF (EQ *ATN-REDUCE* 'CONS)3275 (CONS '|BindingsClause| (DELETE NIL (LIST |BindingList| |Var|)))3276 '|BindingsClause|))))3277 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3278 (|BindingsClause.8| (ATN-PARSER::INDEX)3279 (%ATN-NODE-BLOCK3280 |BindingsClause.8|3281 (%ATN-EDGE-BLOCK3282 (TEST |Var|)3283 (COND ((|IS-Var| ATN-PARSER::|item|)3284 (SETF *ATN-TERM* '|Var|)3285 (SETF |Var|3286 (CONS (IF (EQ *ATN-REDUCE* T)3287 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)3288 (IF (EQ *ATN-REDUCE* 'CONS)3289 (LIST '|Var| ATN-PARSER::|item|)3290 '|Var|))3291 |Var|))3292 (|BindingsClause.8| (1+ ATN-PARSER::INDEX)))3293 (T3294 (SETF *ATN-TERM?* '|Var|)3295 (|BindingsClause/BindingsClause.2.5| ATN-PARSER::INDEX))))))3296 (|BindingsClause.9| (ATN-PARSER::INDEX)3297 (%ATN-NODE-BLOCK3298 |BindingsClause.9|3299 (%ATN-EDGE-BLOCK3300 (PUSH |BindingList|)3301 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3302 (ATN-PARSE-SUBSTRUCTURE* '|BindingList| ATN-PARSER::INDEX)3303 (COND (ATN-PARSER::SUCCESS3304 (SETF *ATN-TERM* '|BindingList|)3305 (LET ((|BindingList1735| |BindingList|))3306 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3307 (DESTRUCTURING-BIND3308 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3309 ATN-PARSER::RESULT-AND-INDEX3310 (WHEN ATN-PARSER::RESULT3311 (SETF |BindingList| (CONS ATN-PARSER::RESULT |BindingList|)))3312 (|BindingsClause.9| ATN-PARSER::RESULT-INDEX))3313 (SETF |BindingList| |BindingList1735|))))3314 (T3315 (SETF *ATN-TERM?* '|BindingList|)3316 (|BindingsClause/BindingsClause.2.7| ATN-PARSER::INDEX)))))))3317 (|BindingsClause/BindingsClause.2.4| (ATN-PARSER::INDEX)3318 (%ATN-NODE-BLOCK3319 |BindingsClause/BindingsClause.2.4|3320 (%ATN-EDGE-BLOCK3321 (TEST |Var|)3322 (COND ((|IS-Var| ATN-PARSER::|item|)3323 (SETF *ATN-TERM* '|Var|)3324 (SETF |Var|3325 (CONS (IF (EQ *ATN-REDUCE* T)3326 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)3327 (IF (EQ *ATN-REDUCE* 'CONS)3328 (LIST '|Var| ATN-PARSER::|item|)3329 '|Var|))3330 |Var|))3331 (|BindingsClause.8| (1+ ATN-PARSER::INDEX)))3332 (T3333 (SETF *ATN-TERM?* '|Var|)3334 (|BindingsClause/BindingsClause.2.5| ATN-PARSER::INDEX))))))3335 (|BindingsClause/BindingsClause.2.5| (ATN-PARSER::INDEX)3336 (%ATN-NODE-BLOCK3337 |BindingsClause/BindingsClause.2.5|3338 (%ATN-EDGE-BLOCK3339 (ATN-PARSER::WORD SPOCQ.S:{)3340 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)3341 (SETF *ATN-TERM* 'SPOCQ.S:{)3342 (|BindingsClause/BindingsClause.2.6| (1+ ATN-PARSER::INDEX)))3343 (T (SETF *ATN-TERM?* 'SPOCQ.S:{) (|BindingsClause/fail.3| ATN-PARSER::INDEX))))))3344 (|BindingsClause/BindingsClause.2.6| (ATN-PARSER::INDEX)3345 (%ATN-NODE-BLOCK3346 |BindingsClause/BindingsClause.2.6|3347 (%ATN-EDGE-BLOCK3348 (PUSH |BindingList|)3349 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3350 (ATN-PARSE-SUBSTRUCTURE* '|BindingList| ATN-PARSER::INDEX)3351 (COND (ATN-PARSER::SUCCESS3352 (SETF *ATN-TERM* '|BindingList|)3353 (LET ((|BindingList1734| |BindingList|))3354 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3355 (DESTRUCTURING-BIND3356 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3357 ATN-PARSER::RESULT-AND-INDEX3358 (WHEN ATN-PARSER::RESULT3359 (SETF |BindingList| (CONS ATN-PARSER::RESULT |BindingList|)))3360 (|BindingsClause.9| ATN-PARSER::RESULT-INDEX))3361 (SETF |BindingList| |BindingList1734|))))3362 (T3363 (SETF *ATN-TERM?* '|BindingList|)3364 (|BindingsClause/BindingsClause.2.7| ATN-PARSER::INDEX)))))))3365 (|BindingsClause/BindingsClause.2.7| (ATN-PARSER::INDEX)3366 (%ATN-NODE-BLOCK3367 |BindingsClause/BindingsClause.2.7|3368 (%ATN-EDGE-BLOCK3369 (ATN-PARSER::WORD SPOCQ.S:})3370 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:})3371 (SETF *ATN-TERM* 'SPOCQ.S:})3372 (|BindingsClause.2| (1+ ATN-PARSER::INDEX)))3373 (T (SETF *ATN-TERM?* 'SPOCQ.S:}) (|BindingsClause/fail.3| ATN-PARSER::INDEX))))))3374 (|BindingsClause/fail.3| (ATN-PARSER::INDEX)3375 (%ATN-NODE-BLOCK |BindingsClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3376 (|BindingsClause/start.1| (ATN-PARSER::INDEX)3377 (%ATN-NODE-BLOCK3378 |BindingsClause/start.1|3379 (%ATN-EDGE-BLOCK3380 (ATN-PARSER::WORD SPOCQ.S:BINDINGS)3381 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BINDINGS)3382 (SETF *ATN-TERM* 'SPOCQ.S:BINDINGS)3383 (|BindingsClause/BindingsClause.2.4| (1+ ATN-PARSER::INDEX)))3384 (T3385 (SETF *ATN-TERM?* 'SPOCQ.S:BINDINGS)3386 (|BindingsClause/fail.3| ATN-PARSER::INDEX)))))))3387 (|BindingsClause/start.1| ATN-PARSER::INDEX)3388 (SETF *ATN-NODE NIL)3389 NIL3390 (IF ATN-PARSER::ATN-STRUCTURE3391 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3392 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3393 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BindingsClause| ATN-PARSER::INDEX *ATN-STACK))))3394 (PROGN (DEFVAR |BindingList-INDEX|)3395 (DEFUN |BindingList| (ATN-PARSER::INDEX &AUX (|BindingValue| NIL))3396 "BindingList ::= '(' BindingValue* ')'3397 (|BindingValue|)"3398 (DECLARE (SPECIAL |BindingList-INDEX|))3399 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BindingList-INDEX| *ATN-LEVEL))3400 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3401 (IF (< |BindingList-INDEX| ATN-PARSER::INDEX)3402 (LET ((|BindingList-INDEX| ATN-PARSER::INDEX)3403 (*ATN-LEVEL (1+ *ATN-LEVEL))3404 (*ATN-STACK (CONS '|BindingList| *ATN-STACK))3405 (ATN-PARSER::ATN-STRUCTURE NIL))3406 (DECLARE (SPECIAL |BindingList-INDEX|))3407 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3408 (DECLARE (TYPE CONS *ATN-STACK))3409 (SYMBOL-MACROLET3410 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3411 (%ATN-BLOCK |BindingList|3412 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3413 (SETF *ATN-TERM* '|BindingList|)3414 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3415 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3416 (|BindingList.2| (ATN-PARSER::INDEX)3417 (%ATN-NODE-BLOCK3418 |BindingList.2|3419 (%ATN-EDGE-BLOCK3420 (POP |BindingList|)3421 (WHEN T3422 (SETF *ATN-TERM* '|BindingList|)3423 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3424 '|BindingList|3425 ATN-PARSER::INDEX3426 (LIST '|BindingValue| |BindingValue|))3427 (LET ((ATN-PARSER::RESULT-STRUCTURE3428 (IF (EQ *ATN-REDUCE* T)3429 (|BindingList-Constructor| |BindingValue|)3430 (IF (EQ *ATN-REDUCE* 'CONS)3431 (CONS '|BindingList| (DELETE NIL (LIST |BindingValue|)))3432 '|BindingList|))))3433 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3434 (|BindingList.6| (ATN-PARSER::INDEX)3435 (%ATN-NODE-BLOCK3436 |BindingList.6|3437 (%ATN-EDGE-BLOCK3438 (PUSH |BindingValue|)3439 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3440 (ATN-PARSE-SUBSTRUCTURE* '|BindingValue| ATN-PARSER::INDEX)3441 (COND (ATN-PARSER::SUCCESS3442 (SETF *ATN-TERM* '|BindingValue|)3443 (LET ((|BindingValue1736| |BindingValue|))3444 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3445 (DESTRUCTURING-BIND3446 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3447 ATN-PARSER::RESULT-AND-INDEX3448 (WHEN ATN-PARSER::RESULT3449 (SETF |BindingValue| (CONS ATN-PARSER::RESULT |BindingValue|)))3450 (|BindingList.6| ATN-PARSER::RESULT-INDEX))3451 (SETF |BindingValue| |BindingValue1736|))))3452 (T3453 (SETF *ATN-TERM?* '|BindingValue|)3454 (|BindingList/BindingList.2.5| ATN-PARSER::INDEX)))))))3455 (|BindingList/BindingList.2.4| (ATN-PARSER::INDEX)3456 (%ATN-NODE-BLOCK3457 |BindingList/BindingList.2.4|3458 (%ATN-EDGE-BLOCK3459 (PUSH |BindingValue|)3460 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3461 (ATN-PARSE-SUBSTRUCTURE* '|BindingValue| ATN-PARSER::INDEX)3462 (COND (ATN-PARSER::SUCCESS3463 (SETF *ATN-TERM* '|BindingValue|)3464 (LET ((|BindingValue1735| |BindingValue|))3465 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3466 (DESTRUCTURING-BIND3467 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3468 ATN-PARSER::RESULT-AND-INDEX3469 (WHEN ATN-PARSER::RESULT3470 (SETF |BindingValue| (CONS ATN-PARSER::RESULT |BindingValue|)))3471 (|BindingList.6| ATN-PARSER::RESULT-INDEX))3472 (SETF |BindingValue| |BindingValue1735|))))3473 (T3474 (SETF *ATN-TERM?* '|BindingValue|)3475 (|BindingList/BindingList.2.5| ATN-PARSER::INDEX)))))))3476 (|BindingList/BindingList.2.5| (ATN-PARSER::INDEX)3477 (%ATN-NODE-BLOCK3478 |BindingList/BindingList.2.5|3479 (%ATN-EDGE-BLOCK3480 (ATN-PARSER::WORD SPOCQ.S:\))3481 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))3482 (SETF *ATN-TERM* 'SPOCQ.S:\))3483 (|BindingList.2| (1+ ATN-PARSER::INDEX)))3484 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|BindingList/fail.3| ATN-PARSER::INDEX))))))3485 (|BindingList/fail.3| (ATN-PARSER::INDEX)3486 (%ATN-NODE-BLOCK |BindingList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3487 (|BindingList/start.1| (ATN-PARSER::INDEX)3488 (%ATN-NODE-BLOCK3489 |BindingList/start.1|3490 (%ATN-EDGE-BLOCK3491 (ATN-PARSER::WORD SPOCQ.S:\()3492 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()3493 (SETF *ATN-TERM* 'SPOCQ.S:\()3494 (|BindingList/BindingList.2.4| (1+ ATN-PARSER::INDEX)))3495 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|BindingList/fail.3| ATN-PARSER::INDEX)))))))3496 (|BindingList/start.1| ATN-PARSER::INDEX)3497 (SETF *ATN-NODE NIL)3498 NIL3499 (IF ATN-PARSER::ATN-STRUCTURE3500 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3501 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3502 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BindingList| ATN-PARSER::INDEX *ATN-STACK))))3503 (PROGN (DEFVAR |BindingValue-INDEX|)3504 (DEFUN |BindingValue| (ATN-PARSER::INDEX &AUX (|BooleanLiteral| NIL) (|IRIref| NIL) (|NumericLiteral| NIL)3505 (|RDFLiteral| NIL) (|Undef| NIL))3506 "BindingValue ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | Undef)3507 (|BooleanLiteral| |IRIref| |NumericLiteral| |RDFLiteral| |Undef|)"3508 (DECLARE (SPECIAL |BindingValue-INDEX|))3509 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BindingValue-INDEX| *ATN-LEVEL))3510 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3511 (IF (< |BindingValue-INDEX| ATN-PARSER::INDEX)3512 (LET ((|BindingValue-INDEX| ATN-PARSER::INDEX)3513 (*ATN-LEVEL (1+ *ATN-LEVEL))3514 (*ATN-STACK (CONS '|BindingValue| *ATN-STACK))3515 (ATN-PARSER::ATN-STRUCTURE NIL))3516 (DECLARE (SPECIAL |BindingValue-INDEX|))3517 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3518 (DECLARE (TYPE CONS *ATN-STACK))3519 (SYMBOL-MACROLET3520 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3521 (%ATN-BLOCK |BindingValue|3522 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3523 (SETF *ATN-TERM* '|BindingValue|)3524 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3525 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3526 (|BindingValue.2| (ATN-PARSER::INDEX)3527 (%ATN-NODE-BLOCK3528 |BindingValue.2|3529 (%ATN-EDGE-BLOCK3530 (POP |BindingValue|)3531 (WHEN T3532 (SETF *ATN-TERM* '|BindingValue|)3533 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3534 '|BindingValue|3535 ATN-PARSER::INDEX3536 (LIST '|BooleanLiteral|3537 |BooleanLiteral|3538 '|IRIref|3539 |IRIref|3540 '|NumericLiteral|3541 |NumericLiteral|3542 '|RDFLiteral|3543 |RDFLiteral|3544 '|Undef|3545 |Undef|))3546 (LET ((ATN-PARSER::RESULT-STRUCTURE3547 (IF (EQ *ATN-REDUCE* T)3548 (|BindingValue-Constructor|3549 |BooleanLiteral|3550 |IRIref|3551 |NumericLiteral|3552 |RDFLiteral|3553 |Undef|)3554 (IF (EQ *ATN-REDUCE* 'CONS)3555 (CONS '|BindingValue|3556 (DELETE NIL3557 (LIST |BooleanLiteral|3558 |IRIref|3559 |NumericLiteral|3560 |RDFLiteral|3561 |Undef|)))3562 '|BindingValue|))))3563 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3564 (|BindingValue/fail.3| (ATN-PARSER::INDEX)3565 (%ATN-NODE-BLOCK |BindingValue/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3566 (|BindingValue/start.1| (ATN-PARSER::INDEX)3567 (%ATN-NODE-BLOCK3568 |BindingValue/start.1|3569 (%ATN-EDGE-BLOCK3570 OR3571 (PROGN (%ATN-EDGE-BLOCK3572 (PUSH |IRIref|)3573 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3574 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)3575 (COND (ATN-PARSER::SUCCESS3576 (SETF *ATN-TERM* '|IRIref|)3577 (LET ((|IRIref1736| |IRIref|))3578 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3579 (DESTRUCTURING-BIND3580 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3581 ATN-PARSER::RESULT-AND-INDEX3582 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))3583 (|BindingValue.2| ATN-PARSER::RESULT-INDEX))3584 (SETF |IRIref| |IRIref1736|))))3585 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))3586 (%ATN-EDGE-BLOCK3587 (PUSH |RDFLiteral|)3588 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3589 (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral| ATN-PARSER::INDEX)3590 (COND (ATN-PARSER::SUCCESS3591 (SETF *ATN-TERM* '|RDFLiteral|)3592 (LET ((|RDFLiteral1736| |RDFLiteral|))3593 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3594 (DESTRUCTURING-BIND3595 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3596 ATN-PARSER::RESULT-AND-INDEX3597 (WHEN ATN-PARSER::RESULT3598 (SETF |RDFLiteral| ATN-PARSER::RESULT))3599 (|BindingValue.2| ATN-PARSER::RESULT-INDEX))3600 (SETF |RDFLiteral| |RDFLiteral1736|))))3601 (T (SETF *ATN-TERM?* '|RDFLiteral|) NIL))))3602 (%ATN-EDGE-BLOCK3603 (ATN-PARSER::CAT |NumericLiteral|)3604 (COND ((|IS-NumericLiteral| ATN-PARSER::|item|)3605 (SETF *ATN-TERM* '|NumericLiteral|)3606 (SETF |NumericLiteral|3607 (IF (EQ *ATN-REDUCE* T)3608 (ATN-REDUCE-ITEM3609 #'|NumericLiteral-Constructor|3610 ATN-PARSER::|item|)3611 (IF (EQ *ATN-REDUCE* 'CONS)3612 (LIST '|NumericLiteral| ATN-PARSER::|item|)3613 '|NumericLiteral|)))3614 (|BindingValue.2| (1+ ATN-PARSER::INDEX)))3615 (T (SETF *ATN-TERM* '|NumericLiteral|) NIL)))3616 (%ATN-EDGE-BLOCK3617 (ATN-PARSER::CAT |BooleanLiteral|)3618 (COND ((|IS-BooleanLiteral| ATN-PARSER::|item|)3619 (SETF *ATN-TERM* '|BooleanLiteral|)3620 (SETF |BooleanLiteral|3621 (IF (EQ *ATN-REDUCE* T)3622 (ATN-REDUCE-ITEM3623 #'|BooleanLiteral-Constructor|3624 ATN-PARSER::|item|)3625 (IF (EQ *ATN-REDUCE* 'CONS)3626 (LIST '|BooleanLiteral| ATN-PARSER::|item|)3627 '|BooleanLiteral|)))3628 (|BindingValue.2| (1+ ATN-PARSER::INDEX)))3629 (T (SETF *ATN-TERM* '|BooleanLiteral|) NIL)))3630 (%ATN-EDGE-BLOCK3631 (ATN-PARSER::CAT |Undef|)3632 (COND ((|IS-Undef| ATN-PARSER::|item|)3633 (SETF *ATN-TERM* '|Undef|)3634 (SETF |Undef|3635 (IF (EQ *ATN-REDUCE* T)3636 (ATN-REDUCE-ITEM #'|Undef-Constructor| ATN-PARSER::|item|)3637 (IF (EQ *ATN-REDUCE* 'CONS)3638 (LIST '|Undef| ATN-PARSER::|item|)3639 '|Undef|)))3640 (|BindingValue.2| (1+ ATN-PARSER::INDEX)))3641 (T (SETF *ATN-TERM* '|Undef|) NIL)))3642 (|BindingValue/fail.3| ATN-PARSER::INDEX))))))3643 (|BindingValue/start.1| ATN-PARSER::INDEX)3644 (SETF *ATN-NODE NIL)3645 NIL3646 (IF ATN-PARSER::ATN-STRUCTURE3647 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3648 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3649 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BindingValue| ATN-PARSER::INDEX *ATN-STACK))))3650 (PROGN (DEFVAR |GroupGraphPattern-INDEX|)3651 (DEFUN |GroupGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPatternSub| NIL) (|SubSelect| NIL))3652 "{20} GroupGraphPattern ::= '{' ((SubSelect | GroupGraphPatternSub)) '}'3653 (|GroupGraphPatternSub| |SubSelect|)"3654 (DECLARE (SPECIAL |GroupGraphPattern-INDEX|))3655 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPattern-INDEX| *ATN-LEVEL))3656 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3657 (IF (< |GroupGraphPattern-INDEX| ATN-PARSER::INDEX)3658 (LET ((|GroupGraphPattern-INDEX| ATN-PARSER::INDEX)3659 (*ATN-LEVEL (1+ *ATN-LEVEL))3660 (*ATN-STACK (CONS '|GroupGraphPattern| *ATN-STACK))3661 (ATN-PARSER::ATN-STRUCTURE NIL))3662 (DECLARE (SPECIAL |GroupGraphPattern-INDEX|))3663 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3664 (DECLARE (TYPE CONS *ATN-STACK))3665 (SYMBOL-MACROLET3666 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3667 (%ATN-BLOCK |GroupGraphPattern|3668 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3669 (SETF *ATN-TERM* '|GroupGraphPattern|)3670 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3671 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3672 (|GroupGraphPattern.2| (ATN-PARSER::INDEX)3673 (%ATN-NODE-BLOCK3674 |GroupGraphPattern.2|3675 (%ATN-EDGE-BLOCK3676 (POP |GroupGraphPattern|)3677 (WHEN T3678 (SETF *ATN-TERM* '|GroupGraphPattern|)3679 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3680 '|GroupGraphPattern|3681 ATN-PARSER::INDEX3682 (LIST '|GroupGraphPatternSub|3683 |GroupGraphPatternSub|3684 '|SubSelect|3685 |SubSelect|))3686 (LET ((ATN-PARSER::RESULT-STRUCTURE3687 (IF (EQ *ATN-REDUCE* T)3688 (|GroupGraphPattern-Constructor| |GroupGraphPatternSub| |SubSelect|)3689 (IF (EQ *ATN-REDUCE* 'CONS)3690 (CONS '|GroupGraphPattern|3691 (DELETE NIL (LIST |GroupGraphPatternSub| |SubSelect|)))3692 '|GroupGraphPattern|))))3693 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3694 (|GroupGraphPattern/fail.3| (ATN-PARSER::INDEX)3695 (%ATN-NODE-BLOCK |GroupGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3696 (|GroupGraphPattern/GroupGraphPattern.2.4| (ATN-PARSER::INDEX)3697 (%ATN-NODE-BLOCK3698 |GroupGraphPattern/GroupGraphPattern.2.4|3699 (%ATN-EDGE-BLOCK3700 OR3701 (PROGN (%ATN-EDGE-BLOCK3702 (PUSH |SubSelect|)3703 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3704 (ATN-PARSE-SUBSTRUCTURE* '|SubSelect| ATN-PARSER::INDEX)3705 (COND (ATN-PARSER::SUCCESS3706 (SETF *ATN-TERM* '|SubSelect|)3707 (LET ((|SubSelect1736| |SubSelect|))3708 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3709 (DESTRUCTURING-BIND3710 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3711 ATN-PARSER::RESULT-AND-INDEX3712 (WHEN ATN-PARSER::RESULT (SETF |SubSelect| ATN-PARSER::RESULT))3713 (|GroupGraphPattern/GroupGraphPattern.2.5|3714 ATN-PARSER::RESULT-INDEX))3715 (SETF |SubSelect| |SubSelect1736|))))3716 (T (SETF *ATN-TERM?* '|SubSelect|) NIL))))3717 (%ATN-EDGE-BLOCK3718 (PUSH |GroupGraphPatternSub|)3719 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3720 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPatternSub| ATN-PARSER::INDEX)3721 (COND (ATN-PARSER::SUCCESS3722 (SETF *ATN-TERM* '|GroupGraphPatternSub|)3723 (LET ((|GroupGraphPatternSub1736| |GroupGraphPatternSub|))3724 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3725 (DESTRUCTURING-BIND3726 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3727 ATN-PARSER::RESULT-AND-INDEX3728 (WHEN ATN-PARSER::RESULT3729 (SETF |GroupGraphPatternSub| ATN-PARSER::RESULT))3730 (|GroupGraphPattern/GroupGraphPattern.2.5|3731 ATN-PARSER::RESULT-INDEX))3732 (SETF |GroupGraphPatternSub| |GroupGraphPatternSub1736|))))3733 (T (SETF *ATN-TERM?* '|GroupGraphPatternSub|) NIL))))3734 (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX)))))3735 (|GroupGraphPattern/GroupGraphPattern.2.5| (ATN-PARSER::INDEX)3736 (%ATN-NODE-BLOCK3737 |GroupGraphPattern/GroupGraphPattern.2.5|3738 (%ATN-EDGE-BLOCK3739 (ATN-PARSER::WORD SPOCQ.S:})3740 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:})3741 (SETF *ATN-TERM* 'SPOCQ.S:})3742 (|GroupGraphPattern.2| (1+ ATN-PARSER::INDEX)))3743 (T3744 (SETF *ATN-TERM?* 'SPOCQ.S:})3745 (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX))))))3746 (|GroupGraphPattern/start.1| (ATN-PARSER::INDEX)3747 (%ATN-NODE-BLOCK3748 |GroupGraphPattern/start.1|3749 (%ATN-EDGE-BLOCK3750 (ATN-PARSER::WORD SPOCQ.S:{)3751 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)3752 (SETF *ATN-TERM* 'SPOCQ.S:{)3753 (|GroupGraphPattern/GroupGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))3754 (T3755 (SETF *ATN-TERM?* 'SPOCQ.S:{)3756 (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX)))))))3757 (|GroupGraphPattern/start.1| ATN-PARSER::INDEX)3758 (SETF *ATN-NODE NIL)3759 NIL3760 (IF ATN-PARSER::ATN-STRUCTURE3761 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3762 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3763 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))3764 (PROGN (DEFVAR |GroupGraphPatternSub-INDEX|)3765 (DEFUN |GroupGraphPatternSub| (ATN-PARSER::INDEX &AUX (|GroupGraphPatternRest| NIL) (|TriplesBlock| NIL))3766 "GroupGraphPatternSub ::= TriplesBlock? GroupGraphPatternRest*3767 (|GroupGraphPatternRest| |TriplesBlock|)"3768 (DECLARE (SPECIAL |GroupGraphPatternSub-INDEX|))3769 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPatternSub-INDEX| *ATN-LEVEL))3770 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3771 (IF (< |GroupGraphPatternSub-INDEX| ATN-PARSER::INDEX)3772 (LET ((|GroupGraphPatternSub-INDEX| ATN-PARSER::INDEX)3773 (*ATN-LEVEL (1+ *ATN-LEVEL))3774 (*ATN-STACK (CONS '|GroupGraphPatternSub| *ATN-STACK))3775 (ATN-PARSER::ATN-STRUCTURE NIL))3776 (DECLARE (SPECIAL |GroupGraphPatternSub-INDEX|))3777 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3778 (DECLARE (TYPE CONS *ATN-STACK))3779 (SYMBOL-MACROLET3780 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3781 (%ATN-BLOCK |GroupGraphPatternSub|3782 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3783 (SETF *ATN-TERM* '|GroupGraphPatternSub|)3784 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3785 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3786 (|GroupGraphPatternSub.2| (ATN-PARSER::INDEX)3787 (%ATN-NODE-BLOCK3788 |GroupGraphPatternSub.2|3789 (%ATN-EDGE-BLOCK3790 (POP |GroupGraphPatternSub|)3791 (WHEN T3792 (SETF *ATN-TERM* '|GroupGraphPatternSub|)3793 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3794 '|GroupGraphPatternSub|3795 ATN-PARSER::INDEX3796 (LIST '|GroupGraphPatternRest|3797 |GroupGraphPatternRest|3798 '|TriplesBlock|3799 |TriplesBlock|))3800 (LET ((ATN-PARSER::RESULT-STRUCTURE3801 (IF (EQ *ATN-REDUCE* T)3802 (|GroupGraphPatternSub-Constructor|3803 |GroupGraphPatternRest|3804 |TriplesBlock|)3805 (IF (EQ *ATN-REDUCE* 'CONS)3806 (CONS '|GroupGraphPatternSub|3807 (DELETE NIL (LIST |GroupGraphPatternRest| |TriplesBlock|)))3808 '|GroupGraphPatternSub|))))3809 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3810 (|GroupGraphPatternSub.5| (ATN-PARSER::INDEX)3811 (%ATN-NODE-BLOCK3812 |GroupGraphPatternSub.5|3813 (%ATN-EDGE-BLOCK3814 (PUSH |GroupGraphPatternRest|)3815 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3816 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPatternRest| ATN-PARSER::INDEX)3817 (COND (ATN-PARSER::SUCCESS3818 (SETF *ATN-TERM* '|GroupGraphPatternRest|)3819 (LET ((|GroupGraphPatternRest1737| |GroupGraphPatternRest|))3820 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3821 (DESTRUCTURING-BIND3822 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3823 ATN-PARSER::RESULT-AND-INDEX3824 (WHEN ATN-PARSER::RESULT3825 (SETF |GroupGraphPatternRest|3826 (CONS ATN-PARSER::RESULT |GroupGraphPatternRest|)))3827 (|GroupGraphPatternSub.5| ATN-PARSER::RESULT-INDEX))3828 (SETF |GroupGraphPatternRest| |GroupGraphPatternRest1737|))))3829 (T3830 (SETF *ATN-TERM?* '|GroupGraphPatternRest|)3831 (|GroupGraphPatternSub.2| ATN-PARSER::INDEX)))))))3832 (|GroupGraphPatternSub/fail.3| (ATN-PARSER::INDEX)3833 (%ATN-NODE-BLOCK3834 |GroupGraphPatternSub/fail.3|3835 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3836 (|GroupGraphPatternSub/GroupGraphPatternSub.2.4| (ATN-PARSER::INDEX)3837 (%ATN-NODE-BLOCK3838 |GroupGraphPatternSub/GroupGraphPatternSub.2.4|3839 (%ATN-EDGE-BLOCK3840 (PUSH |GroupGraphPatternRest|)3841 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3842 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPatternRest| ATN-PARSER::INDEX)3843 (COND (ATN-PARSER::SUCCESS3844 (SETF *ATN-TERM* '|GroupGraphPatternRest|)3845 (LET ((|GroupGraphPatternRest1736| |GroupGraphPatternRest|))3846 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3847 (DESTRUCTURING-BIND3848 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3849 ATN-PARSER::RESULT-AND-INDEX3850 (WHEN ATN-PARSER::RESULT3851 (SETF |GroupGraphPatternRest|3852 (CONS ATN-PARSER::RESULT |GroupGraphPatternRest|)))3853 (|GroupGraphPatternSub.5| ATN-PARSER::RESULT-INDEX))3854 (SETF |GroupGraphPatternRest| |GroupGraphPatternRest1736|))))3855 (T3856 (SETF *ATN-TERM?* '|GroupGraphPatternRest|)3857 (|GroupGraphPatternSub.2| ATN-PARSER::INDEX)))))))3858 (|GroupGraphPatternSub/start.1| (ATN-PARSER::INDEX)3859 (%ATN-NODE-BLOCK3860 |GroupGraphPatternSub/start.1|3861 (%ATN-EDGE-BLOCK3862 (PUSH |TriplesBlock|)3863 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3864 (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)3865 (COND (ATN-PARSER::SUCCESS3866 (SETF *ATN-TERM* '|TriplesBlock|)3867 (LET ((|TriplesBlock1737| |TriplesBlock|))3868 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3869 (DESTRUCTURING-BIND3870 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3871 ATN-PARSER::RESULT-AND-INDEX3872 (WHEN ATN-PARSER::RESULT (SETF |TriplesBlock| ATN-PARSER::RESULT))3873 (|GroupGraphPatternSub/GroupGraphPatternSub.2.4|3874 ATN-PARSER::RESULT-INDEX))3875 (SETF |TriplesBlock| |TriplesBlock1737|))))3876 (T3877 (SETF *ATN-TERM?* '|TriplesBlock|)3878 (|GroupGraphPatternSub/GroupGraphPatternSub.2.4| ATN-PARSER::INDEX))))))))3879 (|GroupGraphPatternSub/start.1| ATN-PARSER::INDEX)3880 (SETF *ATN-NODE NIL)3881 NIL3882 (IF ATN-PARSER::ATN-STRUCTURE3883 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3884 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3885 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPatternSub| ATN-PARSER::INDEX *ATN-STACK))))3886 (PROGN (DEFVAR |GroupGraphPatternRest-INDEX|)3887 (DEFUN |GroupGraphPatternRest| (ATN-PARSER::INDEX &AUX (|Bind| NIL) (|Filter| NIL) (|GraphPatternNotTriples| NIL)3888 (|TriplesBlock| NIL))3889 "GroupGraphPatternRest ::= ((GraphPatternNotTriples | Filter | Bind)) '.'? TriplesBlock?3890 (|Bind| |Filter| |GraphPatternNotTriples| |TriplesBlock|)"3891 (DECLARE (SPECIAL |GroupGraphPatternRest-INDEX|))3892 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPatternRest-INDEX| *ATN-LEVEL))3893 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3894 (IF (< |GroupGraphPatternRest-INDEX| ATN-PARSER::INDEX)3895 (LET ((|GroupGraphPatternRest-INDEX| ATN-PARSER::INDEX)3896 (*ATN-LEVEL (1+ *ATN-LEVEL))3897 (*ATN-STACK (CONS '|GroupGraphPatternRest| *ATN-STACK))3898 (ATN-PARSER::ATN-STRUCTURE NIL))3899 (DECLARE (SPECIAL |GroupGraphPatternRest-INDEX|))3900 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3901 (DECLARE (TYPE CONS *ATN-STACK))3902 (SYMBOL-MACROLET3903 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3904 (%ATN-BLOCK |GroupGraphPatternRest|3905 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3906 (SETF *ATN-TERM* '|GroupGraphPatternRest|)3907 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3908 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3909 (|GroupGraphPatternRest.2| (ATN-PARSER::INDEX)3910 (%ATN-NODE-BLOCK3911 |GroupGraphPatternRest.2|3912 (%ATN-EDGE-BLOCK3913 (POP |GroupGraphPatternRest|)3914 (WHEN T3915 (SETF *ATN-TERM* '|GroupGraphPatternRest|)3916 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3917 '|GroupGraphPatternRest|3918 ATN-PARSER::INDEX3919 (LIST '|Bind|3920 |Bind|3921 '|Filter|3922 |Filter|3923 '|GraphPatternNotTriples|3924 |GraphPatternNotTriples|3925 '|TriplesBlock|3926 |TriplesBlock|))3927 (LET ((ATN-PARSER::RESULT-STRUCTURE3928 (IF (EQ *ATN-REDUCE* T)3929 (|GroupGraphPatternRest-Constructor|3930 |Bind|3931 |Filter|3932 |GraphPatternNotTriples|3933 |TriplesBlock|)3934 (IF (EQ *ATN-REDUCE* 'CONS)3935 (CONS '|GroupGraphPatternRest|3936 (DELETE NIL3937 (LIST |Bind|3938 |Filter|3939 |GraphPatternNotTriples|3940 |TriplesBlock|)))3941 '|GroupGraphPatternRest|))))3942 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3943 (|GroupGraphPatternRest/fail.3| (ATN-PARSER::INDEX)3944 (%ATN-NODE-BLOCK3945 |GroupGraphPatternRest/fail.3|3946 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3947 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4| (ATN-PARSER::INDEX)3948 (%ATN-NODE-BLOCK3949 |GroupGraphPatternRest/GroupGraphPatternRest.2.4|3950 (%ATN-EDGE-BLOCK3951 (ATN-PARSER::WORD SPOCQ.S:|.|)3952 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)3953 (SETF *ATN-TERM* 'SPOCQ.S:|.|)3954 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| (1+ ATN-PARSER::INDEX)))3955 (T3956 (SETF *ATN-TERM?* 'SPOCQ.S:|.|)3957 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| ATN-PARSER::INDEX))))))3958 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| (ATN-PARSER::INDEX)3959 (%ATN-NODE-BLOCK3960 |GroupGraphPatternRest/GroupGraphPatternRest.2.5|3961 (%ATN-EDGE-BLOCK3962 (PUSH |TriplesBlock|)3963 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3964 (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)3965 (COND (ATN-PARSER::SUCCESS3966 (SETF *ATN-TERM* '|TriplesBlock|)3967 (LET ((|TriplesBlock1738| |TriplesBlock|))3968 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3969 (DESTRUCTURING-BIND3970 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3971 ATN-PARSER::RESULT-AND-INDEX3972 (WHEN ATN-PARSER::RESULT (SETF |TriplesBlock| ATN-PARSER::RESULT))3973 (|GroupGraphPatternRest.2| ATN-PARSER::RESULT-INDEX))3974 (SETF |TriplesBlock| |TriplesBlock1738|))))3975 (T3976 (SETF *ATN-TERM?* '|TriplesBlock|)3977 (|GroupGraphPatternRest.2| ATN-PARSER::INDEX)))))))3978 (|GroupGraphPatternRest/start.1| (ATN-PARSER::INDEX)3979 (%ATN-NODE-BLOCK3980 |GroupGraphPatternRest/start.1|3981 (%ATN-EDGE-BLOCK3982 OR3983 (PROGN (%ATN-EDGE-BLOCK3984 (PUSH |GraphPatternNotTriples|)3985 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3986 (ATN-PARSE-SUBSTRUCTURE* '|GraphPatternNotTriples| ATN-PARSER::INDEX)3987 (COND (ATN-PARSER::SUCCESS3988 (SETF *ATN-TERM* '|GraphPatternNotTriples|)3989 (LET ((|GraphPatternNotTriples1738| |GraphPatternNotTriples|))3990 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3991 (DESTRUCTURING-BIND3992 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3993 ATN-PARSER::RESULT-AND-INDEX3994 (WHEN ATN-PARSER::RESULT3995 (SETF |GraphPatternNotTriples| ATN-PARSER::RESULT))3996 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|3997 ATN-PARSER::RESULT-INDEX))3998 (SETF |GraphPatternNotTriples| |GraphPatternNotTriples1738|))))3999 (T (SETF *ATN-TERM?* '|GraphPatternNotTriples|) NIL))))4000 (%ATN-EDGE-BLOCK4001 (PUSH |Filter|)4002 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4003 (ATN-PARSE-SUBSTRUCTURE* '|Filter| ATN-PARSER::INDEX)4004 (COND (ATN-PARSER::SUCCESS4005 (SETF *ATN-TERM* '|Filter|)4006 (LET ((|Filter1738| |Filter|))4007 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4008 (DESTRUCTURING-BIND4009 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4010 ATN-PARSER::RESULT-AND-INDEX4011 (WHEN ATN-PARSER::RESULT (SETF |Filter| ATN-PARSER::RESULT))4012 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|4013 ATN-PARSER::RESULT-INDEX))4014 (SETF |Filter| |Filter1738|))))4015 (T (SETF *ATN-TERM?* '|Filter|) NIL))))4016 (%ATN-EDGE-BLOCK4017 (PUSH |Bind|)4018 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4019 (ATN-PARSE-SUBSTRUCTURE* '|Bind| ATN-PARSER::INDEX)4020 (COND (ATN-PARSER::SUCCESS4021 (SETF *ATN-TERM* '|Bind|)4022 (LET ((|Bind1738| |Bind|))4023 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4024 (DESTRUCTURING-BIND4025 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4026 ATN-PARSER::RESULT-AND-INDEX4027 (WHEN ATN-PARSER::RESULT (SETF |Bind| ATN-PARSER::RESULT))4028 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|4029 ATN-PARSER::RESULT-INDEX))4030 (SETF |Bind| |Bind1738|))))4031 (T (SETF *ATN-TERM?* '|Bind|) NIL))))4032 (|GroupGraphPatternRest/fail.3| ATN-PARSER::INDEX))))))4033 (|GroupGraphPatternRest/start.1| ATN-PARSER::INDEX)4034 (SETF *ATN-NODE NIL)4035 NIL4036 (IF ATN-PARSER::ATN-STRUCTURE4037 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4038 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4039 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPatternRest| ATN-PARSER::INDEX *ATN-STACK))))4040 (PROGN (DEFVAR |SubSelect-INDEX|)4041 (DEFUN |SubSelect| (ATN-PARSER::INDEX &AUX (|SelectClause| NIL) (|SolutionModifier| NIL) (|WhereClause| NIL))4042 "SubSelect ::= SelectClause WhereClause SolutionModifier4043 (|SelectClause| |SolutionModifier| |WhereClause|)"4044 (DECLARE (SPECIAL |SubSelect-INDEX|))4045 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SubSelect-INDEX| *ATN-LEVEL))4046 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4047 (IF (< |SubSelect-INDEX| ATN-PARSER::INDEX)4048 (LET ((|SubSelect-INDEX| ATN-PARSER::INDEX)4049 (*ATN-LEVEL (1+ *ATN-LEVEL))4050 (*ATN-STACK (CONS '|SubSelect| *ATN-STACK))4051 (ATN-PARSER::ATN-STRUCTURE NIL))4052 (DECLARE (SPECIAL |SubSelect-INDEX|))4053 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4054 (DECLARE (TYPE CONS *ATN-STACK))4055 (SYMBOL-MACROLET4056 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4057 (%ATN-BLOCK |SubSelect|4058 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4059 (SETF *ATN-TERM* '|SubSelect|)4060 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4061 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4062 (|SubSelect.2| (ATN-PARSER::INDEX)4063 (%ATN-NODE-BLOCK4064 |SubSelect.2|4065 (%ATN-EDGE-BLOCK4066 (POP |SubSelect|)4067 (WHEN T4068 (SETF *ATN-TERM* '|SubSelect|)4069 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4070 '|SubSelect|4071 ATN-PARSER::INDEX4072 (LIST '|SelectClause|4073 |SelectClause|4074 '|SolutionModifier|4075 |SolutionModifier|4076 '|WhereClause|4077 |WhereClause|))4078 (LET ((ATN-PARSER::RESULT-STRUCTURE4079 (IF (EQ *ATN-REDUCE* T)4080 (|SubSelect-Constructor| |SelectClause| |SolutionModifier| |WhereClause|)4081 (IF (EQ *ATN-REDUCE* 'CONS)4082 (CONS '|SubSelect|4083 (DELETE NIL4084 (LIST |SelectClause| |SolutionModifier| |WhereClause|)))4085 '|SubSelect|))))4086 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4087 (|SubSelect/fail.3| (ATN-PARSER::INDEX)4088 (%ATN-NODE-BLOCK |SubSelect/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4089 (|SubSelect/start.1| (ATN-PARSER::INDEX)4090 (%ATN-NODE-BLOCK4091 |SubSelect/start.1|4092 (%ATN-EDGE-BLOCK4093 (PUSH |SelectClause|)4094 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4095 (ATN-PARSE-SUBSTRUCTURE* '|SelectClause| ATN-PARSER::INDEX)4096 (COND (ATN-PARSER::SUCCESS4097 (SETF *ATN-TERM* '|SelectClause|)4098 (LET ((|SelectClause1738| |SelectClause|))4099 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4100 (DESTRUCTURING-BIND4101 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4102 ATN-PARSER::RESULT-AND-INDEX4103 (WHEN ATN-PARSER::RESULT (SETF |SelectClause| ATN-PARSER::RESULT))4104 (|SubSelect/SubSelect.2.4| ATN-PARSER::RESULT-INDEX))4105 (SETF |SelectClause| |SelectClause1738|))))4106 (T4107 (SETF *ATN-TERM?* '|SelectClause|)4108 (|SubSelect/fail.3| ATN-PARSER::INDEX)))))))4109 (|SubSelect/SubSelect.2.4| (ATN-PARSER::INDEX)4110 (%ATN-NODE-BLOCK4111 |SubSelect/SubSelect.2.4|4112 (%ATN-EDGE-BLOCK4113 (PUSH |WhereClause|)4114 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4115 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)4116 (COND (ATN-PARSER::SUCCESS4117 (SETF *ATN-TERM* '|WhereClause|)4118 (LET ((|WhereClause1738| |WhereClause|))4119 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4120 (DESTRUCTURING-BIND4121 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4122 ATN-PARSER::RESULT-AND-INDEX4123 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))4124 (|SubSelect/SubSelect.2.5| ATN-PARSER::RESULT-INDEX))4125 (SETF |WhereClause| |WhereClause1738|))))4126 (T4127 (SETF *ATN-TERM?* '|WhereClause|)4128 (|SubSelect/fail.3| ATN-PARSER::INDEX)))))))4129 (|SubSelect/SubSelect.2.5| (ATN-PARSER::INDEX)4130 (%ATN-NODE-BLOCK4131 |SubSelect/SubSelect.2.5|4132 (%ATN-EDGE-BLOCK4133 (PUSH |SolutionModifier|)4134 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4135 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)4136 (COND (ATN-PARSER::SUCCESS4137 (SETF *ATN-TERM* '|SolutionModifier|)4138 (LET ((|SolutionModifier1738| |SolutionModifier|))4139 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4140 (DESTRUCTURING-BIND4141 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4142 ATN-PARSER::RESULT-AND-INDEX4143 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))4144 (|SubSelect.2| ATN-PARSER::RESULT-INDEX))4145 (SETF |SolutionModifier| |SolutionModifier1738|))))4146 (T4147 (SETF *ATN-TERM?* '|SolutionModifier|)4148 (|SubSelect/fail.3| ATN-PARSER::INDEX))))))))4149 (|SubSelect/start.1| ATN-PARSER::INDEX)4150 (SETF *ATN-NODE NIL)4151 NIL4152 (IF ATN-PARSER::ATN-STRUCTURE4153 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4154 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4155 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SubSelect| ATN-PARSER::INDEX *ATN-STACK))))4156 (PROGN (DEFVAR |Bind-INDEX|)4157 (DEFUN |Bind| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|Var| NIL))4158 "Bind ::= 'BIND' '(' Expression 'AS' Var ')'4159 (|Expression| |Var|)"4160 (DECLARE (SPECIAL |Bind-INDEX|))4161 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Bind-INDEX| *ATN-LEVEL))4162 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4163 (IF (< |Bind-INDEX| ATN-PARSER::INDEX)4164 (LET ((|Bind-INDEX| ATN-PARSER::INDEX)4165 (*ATN-LEVEL (1+ *ATN-LEVEL))4166 (*ATN-STACK (CONS '|Bind| *ATN-STACK))4167 (ATN-PARSER::ATN-STRUCTURE NIL))4168 (DECLARE (SPECIAL |Bind-INDEX|))4169 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4170 (DECLARE (TYPE CONS *ATN-STACK))4171 (SYMBOL-MACROLET4172 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4173 (%ATN-BLOCK |Bind|4174 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4175 (SETF *ATN-TERM* '|Bind|)4176 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4177 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4178 (|Bind.2| (ATN-PARSER::INDEX)4179 (%ATN-NODE-BLOCK4180 |Bind.2|4181 (%ATN-EDGE-BLOCK4182 (POP |Bind|)4183 (WHEN T4184 (SETF *ATN-TERM* '|Bind|)4185 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4186 '|Bind|4187 ATN-PARSER::INDEX4188 (LIST '|Expression| |Expression| '|Var| |Var|))4189 (LET ((ATN-PARSER::RESULT-STRUCTURE4190 (IF (EQ *ATN-REDUCE* T)4191 (|Bind-Constructor| |Expression| |Var|)4192 (IF (EQ *ATN-REDUCE* 'CONS)4193 (CONS '|Bind| (DELETE NIL (LIST |Expression| |Var|)))4194 '|Bind|))))4195 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4196 (|Bind/Bind.2.4| (ATN-PARSER::INDEX)4197 (%ATN-NODE-BLOCK4198 |Bind/Bind.2.4|4199 (%ATN-EDGE-BLOCK4200 (ATN-PARSER::WORD SPOCQ.S:\()4201 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()4202 (SETF *ATN-TERM* 'SPOCQ.S:\()4203 (|Bind/Bind.2.5| (1+ ATN-PARSER::INDEX)))4204 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|Bind/fail.3| ATN-PARSER::INDEX))))))4205 (|Bind/Bind.2.5| (ATN-PARSER::INDEX)4206 (%ATN-NODE-BLOCK4207 |Bind/Bind.2.5|4208 (%ATN-EDGE-BLOCK4209 (PUSH |Expression|)4210 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4211 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)4212 (COND (ATN-PARSER::SUCCESS4213 (SETF *ATN-TERM* '|Expression|)4214 (LET ((|Expression1738| |Expression|))4215 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4216 (DESTRUCTURING-BIND4217 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4218 ATN-PARSER::RESULT-AND-INDEX4219 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))4220 (|Bind/Bind.2.6| ATN-PARSER::RESULT-INDEX))4221 (SETF |Expression| |Expression1738|))))4222 (T (SETF *ATN-TERM?* '|Expression|) (|Bind/fail.3| ATN-PARSER::INDEX)))))))4223 (|Bind/Bind.2.6| (ATN-PARSER::INDEX)4224 (%ATN-NODE-BLOCK4225 |Bind/Bind.2.6|4226 (%ATN-EDGE-BLOCK4227 (ATN-PARSER::WORD SPOCQ.S:AS)4228 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS)4229 (SETF *ATN-TERM* 'SPOCQ.S:AS)4230 (|Bind/Bind.2.7| (1+ ATN-PARSER::INDEX)))4231 (T (SETF *ATN-TERM?* 'SPOCQ.S:AS) (|Bind/fail.3| ATN-PARSER::INDEX))))))4232 (|Bind/Bind.2.7| (ATN-PARSER::INDEX)4233 (%ATN-NODE-BLOCK4234 |Bind/Bind.2.7|4235 (%ATN-EDGE-BLOCK4236 (TEST |Var|)4237 (COND ((|IS-Var| ATN-PARSER::|item|)4238 (SETF *ATN-TERM* '|Var|)4239 (SETF |Var|4240 (IF (EQ *ATN-REDUCE* T)4241 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)4242 (IF (EQ *ATN-REDUCE* 'CONS) (LIST '|Var| ATN-PARSER::|item|) '|Var|)))4243 (|Bind/Bind.2.8| (1+ ATN-PARSER::INDEX)))4244 (T (SETF *ATN-TERM?* '|Var|) (|Bind/fail.3| ATN-PARSER::INDEX))))))4245 (|Bind/Bind.2.8| (ATN-PARSER::INDEX)4246 (%ATN-NODE-BLOCK4247 |Bind/Bind.2.8|4248 (%ATN-EDGE-BLOCK4249 (ATN-PARSER::WORD SPOCQ.S:\))4250 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))4251 (SETF *ATN-TERM* 'SPOCQ.S:\))4252 (|Bind.2| (1+ ATN-PARSER::INDEX)))4253 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|Bind/fail.3| ATN-PARSER::INDEX))))))4254 (|Bind/fail.3| (ATN-PARSER::INDEX)4255 (%ATN-NODE-BLOCK |Bind/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4256 (|Bind/start.1| (ATN-PARSER::INDEX)4257 (%ATN-NODE-BLOCK4258 |Bind/start.1|4259 (%ATN-EDGE-BLOCK4260 (ATN-PARSER::WORD SPOCQ.S:BIND)4261 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BIND)4262 (SETF *ATN-TERM* 'SPOCQ.S:BIND)4263 (|Bind/Bind.2.4| (1+ ATN-PARSER::INDEX)))4264 (T (SETF *ATN-TERM?* 'SPOCQ.S:BIND) (|Bind/fail.3| ATN-PARSER::INDEX)))))))4265 (|Bind/start.1| ATN-PARSER::INDEX)4266 (SETF *ATN-NODE NIL)4267 NIL4268 (IF ATN-PARSER::ATN-STRUCTURE4269 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4270 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4271 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Bind| ATN-PARSER::INDEX *ATN-STACK))))4272 (PROGN (DEFVAR |TriplesBlock-INDEX|)4273 (DEFUN |TriplesBlock| (ATN-PARSER::INDEX &AUX (|TriplesBlock| NIL) (|TriplesSameSubject| NIL))4274 "{21} TriplesBlock ::= TriplesSameSubject ('.' TriplesBlock?)?4275 (|TriplesBlock| |TriplesSameSubject|)"4276 (DECLARE (SPECIAL |TriplesBlock-INDEX|))4277 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesBlock-INDEX| *ATN-LEVEL))4278 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4279 (IF (< |TriplesBlock-INDEX| ATN-PARSER::INDEX)4280 (LET ((|TriplesBlock-INDEX| ATN-PARSER::INDEX)4281 (*ATN-LEVEL (1+ *ATN-LEVEL))4282 (*ATN-STACK (CONS '|TriplesBlock| *ATN-STACK))4283 (ATN-PARSER::ATN-STRUCTURE NIL))4284 (DECLARE (SPECIAL |TriplesBlock-INDEX|))4285 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4286 (DECLARE (TYPE CONS *ATN-STACK))4287 (SYMBOL-MACROLET4288 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4289 (%ATN-BLOCK |TriplesBlock|4290 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4291 (SETF *ATN-TERM* '|TriplesBlock|)4292 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4293 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4294 (|TriplesBlock.2| (ATN-PARSER::INDEX)4295 (%ATN-NODE-BLOCK4296 |TriplesBlock.2|4297 (%ATN-EDGE-BLOCK4298 (POP |TriplesBlock|)4299 (WHEN T4300 (SETF *ATN-TERM* '|TriplesBlock|)4301 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4302 '|TriplesBlock|4303 ATN-PARSER::INDEX4304 (LIST '|TriplesBlock|4305 |TriplesBlock|4306 '|TriplesSameSubject|4307 |TriplesSameSubject|))4308 (LET ((ATN-PARSER::RESULT-STRUCTURE4309 (IF (EQ *ATN-REDUCE* T)4310 (|TriplesBlock-Constructor| |TriplesBlock| |TriplesSameSubject|)4311 (IF (EQ *ATN-REDUCE* 'CONS)4312 (CONS '|TriplesBlock|4313 (DELETE NIL (LIST |TriplesBlock| |TriplesSameSubject|)))4314 '|TriplesBlock|))))4315 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4316 (|TriplesBlock/fail.3| (ATN-PARSER::INDEX)4317 (%ATN-NODE-BLOCK |TriplesBlock/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4318 (|TriplesBlock/start.1| (ATN-PARSER::INDEX)4319 (%ATN-NODE-BLOCK4320 |TriplesBlock/start.1|4321 (%ATN-EDGE-BLOCK4322 (PUSH |TriplesSameSubject|)4323 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4324 (ATN-PARSE-SUBSTRUCTURE* '|TriplesSameSubject| ATN-PARSER::INDEX)4325 (COND (ATN-PARSER::SUCCESS4326 (SETF *ATN-TERM* '|TriplesSameSubject|)4327 (LET ((|TriplesSameSubject1739| |TriplesSameSubject|))4328 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4329 (DESTRUCTURING-BIND4330 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4331 ATN-PARSER::RESULT-AND-INDEX4332 (WHEN ATN-PARSER::RESULT (SETF |TriplesSameSubject| ATN-PARSER::RESULT))4333 (|TriplesBlock/TriplesBlock.2.4| ATN-PARSER::RESULT-INDEX))4334 (SETF |TriplesSameSubject| |TriplesSameSubject1739|))))4335 (T4336 (SETF *ATN-TERM?* '|TriplesSameSubject|)4337 (|TriplesBlock/fail.3| ATN-PARSER::INDEX)))))))4338 (|TriplesBlock/TriplesBlock.2.4| (ATN-PARSER::INDEX)4339 (%ATN-NODE-BLOCK4340 |TriplesBlock/TriplesBlock.2.4|4341 (%ATN-EDGE-BLOCK4342 (ATN-PARSER::JUMP |TriplesBlock/TriplesBlock.2.5|)4343 (|TriplesBlock/TriplesBlock.2.5| ATN-PARSER::INDEX))4344 (%ATN-EDGE-BLOCK4345 (ATN-PARSER::JUMP |TriplesBlock.2|)4346 (|TriplesBlock.2| ATN-PARSER::INDEX))))4347 (|TriplesBlock/TriplesBlock.2.5| (ATN-PARSER::INDEX)4348 (%ATN-NODE-BLOCK4349 |TriplesBlock/TriplesBlock.2.5|4350 (%ATN-EDGE-BLOCK4351 (ATN-PARSER::WORD SPOCQ.S:|.|)4352 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)4353 (SETF *ATN-TERM* 'SPOCQ.S:|.|)4354 (|TriplesBlock/TriplesBlock.2.6| (1+ ATN-PARSER::INDEX)))4355 (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|) NIL)))))4356 (|TriplesBlock/TriplesBlock.2.6| (ATN-PARSER::INDEX)4357 (%ATN-NODE-BLOCK4358 |TriplesBlock/TriplesBlock.2.6|4359 (%ATN-EDGE-BLOCK4360 (PUSH |TriplesBlock|)4361 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4362 (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)4363 (COND (ATN-PARSER::SUCCESS4364 (SETF *ATN-TERM* '|TriplesBlock|)4365 (LET ((|TriplesBlock1739| |TriplesBlock|))4366 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4367 (DESTRUCTURING-BIND4368 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4369 ATN-PARSER::RESULT-AND-INDEX4370 (WHEN ATN-PARSER::RESULT (SETF |TriplesBlock| ATN-PARSER::RESULT))4371 (|TriplesBlock.2| ATN-PARSER::RESULT-INDEX))4372 (SETF |TriplesBlock| |TriplesBlock1739|))))4373 (T4374 (SETF *ATN-TERM?* '|TriplesBlock|)4375 (|TriplesBlock.2| ATN-PARSER::INDEX))))))))4376 (|TriplesBlock/start.1| ATN-PARSER::INDEX)4377 (SETF *ATN-NODE NIL)4378 NIL4379 (IF ATN-PARSER::ATN-STRUCTURE4380 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4381 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4382 (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesBlock| ATN-PARSER::INDEX *ATN-STACK))))4383 (PROGN (DEFVAR |GraphPatternNotTriples-INDEX|)4384 (DEFUN |GraphPatternNotTriples| (ATN-PARSER::INDEX &AUX (|GraphGraphPattern| NIL) (|GroupOrUnionGraphPattern| NIL)4385 (|MinusGraphPattern| NIL) (|OptionalGraphPattern| NIL))4386 "{22} GraphPatternNotTriples ::= (OptionalGraphPattern | GroupOrUnionGraphPattern | MinusGraphPattern | GraphGraphPattern)4387 (|GraphGraphPattern| |GroupOrUnionGraphPattern| |MinusGraphPattern| |OptionalGraphPattern|)"4388 (DECLARE (SPECIAL |GraphPatternNotTriples-INDEX|))4389 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphPatternNotTriples-INDEX| *ATN-LEVEL))4390 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4391 (IF (< |GraphPatternNotTriples-INDEX| ATN-PARSER::INDEX)4392 (LET ((|GraphPatternNotTriples-INDEX| ATN-PARSER::INDEX)4393 (*ATN-LEVEL (1+ *ATN-LEVEL))4394 (*ATN-STACK (CONS '|GraphPatternNotTriples| *ATN-STACK))4395 (ATN-PARSER::ATN-STRUCTURE NIL))4396 (DECLARE (SPECIAL |GraphPatternNotTriples-INDEX|))4397 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4398 (DECLARE (TYPE CONS *ATN-STACK))4399 (SYMBOL-MACROLET4400 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4401 (%ATN-BLOCK |GraphPatternNotTriples|4402 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4403 (SETF *ATN-TERM* '|GraphPatternNotTriples|)4404 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4405 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4406 (|GraphPatternNotTriples.2| (ATN-PARSER::INDEX)4407 (%ATN-NODE-BLOCK4408 |GraphPatternNotTriples.2|4409 (%ATN-EDGE-BLOCK4410 (POP |GraphPatternNotTriples|)4411 (WHEN T4412 (SETF *ATN-TERM* '|GraphPatternNotTriples|)4413 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4414 '|GraphPatternNotTriples|4415 ATN-PARSER::INDEX4416 (LIST '|GraphGraphPattern|4417 |GraphGraphPattern|4418 '|GroupOrUnionGraphPattern|4419 |GroupOrUnionGraphPattern|4420 '|MinusGraphPattern|4421 |MinusGraphPattern|4422 '|OptionalGraphPattern|4423 |OptionalGraphPattern|))4424 (LET ((ATN-PARSER::RESULT-STRUCTURE4425 (IF (EQ *ATN-REDUCE* T)4426 (|GraphPatternNotTriples-Constructor|4427 |GraphGraphPattern|4428 |GroupOrUnionGraphPattern|4429 |MinusGraphPattern|4430 |OptionalGraphPattern|)4431 (IF (EQ *ATN-REDUCE* 'CONS)4432 (CONS '|GraphPatternNotTriples|4433 (DELETE NIL4434 (LIST |GraphGraphPattern|4435 |GroupOrUnionGraphPattern|4436 |MinusGraphPattern|4437 |OptionalGraphPattern|)))4438 '|GraphPatternNotTriples|))))4439 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4440 (|GraphPatternNotTriples/fail.3| (ATN-PARSER::INDEX)4441 (%ATN-NODE-BLOCK4442 |GraphPatternNotTriples/fail.3|4443 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4444 (|GraphPatternNotTriples/start.1| (ATN-PARSER::INDEX)4445 (%ATN-NODE-BLOCK4446 |GraphPatternNotTriples/start.1|4447 (%ATN-EDGE-BLOCK4448 OR4449 (PROGN (%ATN-EDGE-BLOCK4450 (PUSH |OptionalGraphPattern|)4451 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4452 (ATN-PARSE-SUBSTRUCTURE* '|OptionalGraphPattern| ATN-PARSER::INDEX)4453 (COND (ATN-PARSER::SUCCESS4454 (SETF *ATN-TERM* '|OptionalGraphPattern|)4455 (LET ((|OptionalGraphPattern1739| |OptionalGraphPattern|))4456 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4457 (DESTRUCTURING-BIND4458 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4459 ATN-PARSER::RESULT-AND-INDEX4460 (WHEN ATN-PARSER::RESULT4461 (SETF |OptionalGraphPattern| ATN-PARSER::RESULT))4462 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))4463 (SETF |OptionalGraphPattern| |OptionalGraphPattern1739|))))4464 (T (SETF *ATN-TERM?* '|OptionalGraphPattern|) NIL))))4465 (%ATN-EDGE-BLOCK4466 (PUSH |GroupOrUnionGraphPattern|)4467 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4468 (ATN-PARSE-SUBSTRUCTURE* '|GroupOrUnionGraphPattern| ATN-PARSER::INDEX)4469 (COND (ATN-PARSER::SUCCESS4470 (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)4471 (LET ((|GroupOrUnionGraphPattern1739| |GroupOrUnionGraphPattern|))4472 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4473 (DESTRUCTURING-BIND4474 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4475 ATN-PARSER::RESULT-AND-INDEX4476 (WHEN ATN-PARSER::RESULT4477 (SETF |GroupOrUnionGraphPattern| ATN-PARSER::RESULT))4478 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))4479 (SETF |GroupOrUnionGraphPattern|4480 |GroupOrUnionGraphPattern1739|))))4481 (T (SETF *ATN-TERM?* '|GroupOrUnionGraphPattern|) NIL))))4482 (%ATN-EDGE-BLOCK4483 (PUSH |MinusGraphPattern|)4484 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4485 (ATN-PARSE-SUBSTRUCTURE* '|MinusGraphPattern| ATN-PARSER::INDEX)4486 (COND (ATN-PARSER::SUCCESS4487 (SETF *ATN-TERM* '|MinusGraphPattern|)4488 (LET ((|MinusGraphPattern1739| |MinusGraphPattern|))4489 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4490 (DESTRUCTURING-BIND4491 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4492 ATN-PARSER::RESULT-AND-INDEX4493 (WHEN ATN-PARSER::RESULT4494 (SETF |MinusGraphPattern| ATN-PARSER::RESULT))4495 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))4496 (SETF |MinusGraphPattern| |MinusGraphPattern1739|))))4497 (T (SETF *ATN-TERM?* '|MinusGraphPattern|) NIL))))4498 (%ATN-EDGE-BLOCK4499 (PUSH |GraphGraphPattern|)4500 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4501 (ATN-PARSE-SUBSTRUCTURE* '|GraphGraphPattern| ATN-PARSER::INDEX)4502 (COND (ATN-PARSER::SUCCESS4503 (SETF *ATN-TERM* '|GraphGraphPattern|)4504 (LET ((|GraphGraphPattern1739| |GraphGraphPattern|))4505 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4506 (DESTRUCTURING-BIND4507 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4508 ATN-PARSER::RESULT-AND-INDEX4509 (WHEN ATN-PARSER::RESULT4510 (SETF |GraphGraphPattern| ATN-PARSER::RESULT))4511 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))4512 (SETF |GraphGraphPattern| |GraphGraphPattern1739|))))4513 (T (SETF *ATN-TERM?* '|GraphGraphPattern|) NIL))))4514 (|GraphPatternNotTriples/fail.3| ATN-PARSER::INDEX))))))4515 (|GraphPatternNotTriples/start.1| ATN-PARSER::INDEX)4516 (SETF *ATN-NODE NIL)4517 NIL4518 (IF ATN-PARSER::ATN-STRUCTURE4519 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4520 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4521 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphPatternNotTriples| ATN-PARSER::INDEX *ATN-STACK))))4522 (PROGN (DEFVAR |OptionalGraphPattern-INDEX|)4523 (DEFUN |OptionalGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))4524 "{23} OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern4525 (|GroupGraphPattern|)"4526 (DECLARE (SPECIAL |OptionalGraphPattern-INDEX|))4527 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OptionalGraphPattern-INDEX| *ATN-LEVEL))4528 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4529 (IF (< |OptionalGraphPattern-INDEX| ATN-PARSER::INDEX)4530 (LET ((|OptionalGraphPattern-INDEX| ATN-PARSER::INDEX)4531 (*ATN-LEVEL (1+ *ATN-LEVEL))4532 (*ATN-STACK (CONS '|OptionalGraphPattern| *ATN-STACK))4533 (ATN-PARSER::ATN-STRUCTURE NIL))4534 (DECLARE (SPECIAL |OptionalGraphPattern-INDEX|))4535 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4536 (DECLARE (TYPE CONS *ATN-STACK))4537 (SYMBOL-MACROLET4538 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4539 (%ATN-BLOCK |OptionalGraphPattern|4540 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4541 (SETF *ATN-TERM* '|OptionalGraphPattern|)4542 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4543 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4544 (|OptionalGraphPattern.2| (ATN-PARSER::INDEX)4545 (%ATN-NODE-BLOCK4546 |OptionalGraphPattern.2|4547 (%ATN-EDGE-BLOCK4548 (POP |OptionalGraphPattern|)4549 (WHEN T4550 (SETF *ATN-TERM* '|OptionalGraphPattern|)4551 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4552 '|OptionalGraphPattern|4553 ATN-PARSER::INDEX4554 (LIST '|GroupGraphPattern| |GroupGraphPattern|))4555 (LET ((ATN-PARSER::RESULT-STRUCTURE4556 (IF (EQ *ATN-REDUCE* T)4557 (|OptionalGraphPattern-Constructor| |GroupGraphPattern|)4558 (IF (EQ *ATN-REDUCE* 'CONS)4559 (CONS '|OptionalGraphPattern| (DELETE NIL (LIST |GroupGraphPattern|)))4560 '|OptionalGraphPattern|))))4561 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4562 (|OptionalGraphPattern/fail.3| (ATN-PARSER::INDEX)4563 (%ATN-NODE-BLOCK4564 |OptionalGraphPattern/fail.3|4565 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4566 (|OptionalGraphPattern/OptionalGraphPattern.2.4| (ATN-PARSER::INDEX)4567 (%ATN-NODE-BLOCK4568 |OptionalGraphPattern/OptionalGraphPattern.2.4|4569 (%ATN-EDGE-BLOCK4570 (PUSH |GroupGraphPattern|)4571 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4572 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)4573 (COND (ATN-PARSER::SUCCESS4574 (SETF *ATN-TERM* '|GroupGraphPattern|)4575 (LET ((|GroupGraphPattern1739| |GroupGraphPattern|))4576 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4577 (DESTRUCTURING-BIND4578 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4579 ATN-PARSER::RESULT-AND-INDEX4580 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))4581 (|OptionalGraphPattern.2| ATN-PARSER::RESULT-INDEX))4582 (SETF |GroupGraphPattern| |GroupGraphPattern1739|))))4583 (T4584 (SETF *ATN-TERM?* '|GroupGraphPattern|)4585 (|OptionalGraphPattern/fail.3| ATN-PARSER::INDEX)))))))4586 (|OptionalGraphPattern/start.1| (ATN-PARSER::INDEX)4587 (%ATN-NODE-BLOCK4588 |OptionalGraphPattern/start.1|4589 (%ATN-EDGE-BLOCK4590 (ATN-PARSER::WORD SPOCQ.S:OPTIONAL)4591 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:OPTIONAL)4592 (SETF *ATN-TERM* 'SPOCQ.S:OPTIONAL)4593 (|OptionalGraphPattern/OptionalGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))4594 (T4595 (SETF *ATN-TERM?* 'SPOCQ.S:OPTIONAL)4596 (|OptionalGraphPattern/fail.3| ATN-PARSER::INDEX)))))))4597 (|OptionalGraphPattern/start.1| ATN-PARSER::INDEX)4598 (SETF *ATN-NODE NIL)4599 NIL4600 (IF ATN-PARSER::ATN-STRUCTURE4601 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4602 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4603 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OptionalGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))4604 (PROGN (DEFVAR |GraphGraphPattern-INDEX|)4605 (DEFUN |GraphGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL) (|VarOrIRIref| NIL))4606 "{24} GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern4607 (|GroupGraphPattern| |VarOrIRIref|)"4608 (DECLARE (SPECIAL |GraphGraphPattern-INDEX|))4609 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphGraphPattern-INDEX| *ATN-LEVEL))4610 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4611 (IF (< |GraphGraphPattern-INDEX| ATN-PARSER::INDEX)4612 (LET ((|GraphGraphPattern-INDEX| ATN-PARSER::INDEX)4613 (*ATN-LEVEL (1+ *ATN-LEVEL))4614 (*ATN-STACK (CONS '|GraphGraphPattern| *ATN-STACK))4615 (ATN-PARSER::ATN-STRUCTURE NIL))4616 (DECLARE (SPECIAL |GraphGraphPattern-INDEX|))4617 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4618 (DECLARE (TYPE CONS *ATN-STACK))4619 (SYMBOL-MACROLET4620 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4621 (%ATN-BLOCK |GraphGraphPattern|4622 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4623 (SETF *ATN-TERM* '|GraphGraphPattern|)4624 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4625 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4626 (|GraphGraphPattern.2| (ATN-PARSER::INDEX)4627 (%ATN-NODE-BLOCK4628 |GraphGraphPattern.2|4629 (%ATN-EDGE-BLOCK4630 (POP |GraphGraphPattern|)4631 (WHEN T4632 (SETF *ATN-TERM* '|GraphGraphPattern|)4633 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4634 '|GraphGraphPattern|4635 ATN-PARSER::INDEX4636 (LIST '|GroupGraphPattern|4637 |GroupGraphPattern|4638 '|VarOrIRIref|4639 |VarOrIRIref|))4640 (LET ((ATN-PARSER::RESULT-STRUCTURE4641 (IF (EQ *ATN-REDUCE* T)4642 (|GraphGraphPattern-Constructor| |GroupGraphPattern| |VarOrIRIref|)4643 (IF (EQ *ATN-REDUCE* 'CONS)4644 (CONS '|GraphGraphPattern|4645 (DELETE NIL (LIST |GroupGraphPattern| |VarOrIRIref|)))4646 '|GraphGraphPattern|))))4647 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4648 (|GraphGraphPattern/fail.3| (ATN-PARSER::INDEX)4649 (%ATN-NODE-BLOCK |GraphGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4650 (|GraphGraphPattern/GraphGraphPattern.2.4| (ATN-PARSER::INDEX)4651 (%ATN-NODE-BLOCK4652 |GraphGraphPattern/GraphGraphPattern.2.4|4653 (%ATN-EDGE-BLOCK4654 (PUSH |VarOrIRIref|)4655 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4656 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)4657 (COND (ATN-PARSER::SUCCESS4658 (SETF *ATN-TERM* '|VarOrIRIref|)4659 (LET ((|VarOrIRIref1740| |VarOrIRIref|))4660 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4661 (DESTRUCTURING-BIND4662 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4663 ATN-PARSER::RESULT-AND-INDEX4664 (WHEN ATN-PARSER::RESULT (SETF |VarOrIRIref| ATN-PARSER::RESULT))4665 (|GraphGraphPattern/GraphGraphPattern.2.5| ATN-PARSER::RESULT-INDEX))4666 (SETF |VarOrIRIref| |VarOrIRIref1740|))))4667 (T4668 (SETF *ATN-TERM?* '|VarOrIRIref|)4669 (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))4670 (|GraphGraphPattern/GraphGraphPattern.2.5| (ATN-PARSER::INDEX)4671 (%ATN-NODE-BLOCK4672 |GraphGraphPattern/GraphGraphPattern.2.5|4673 (%ATN-EDGE-BLOCK4674 (PUSH |GroupGraphPattern|)4675 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4676 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)4677 (COND (ATN-PARSER::SUCCESS4678 (SETF *ATN-TERM* '|GroupGraphPattern|)4679 (LET ((|GroupGraphPattern1740| |GroupGraphPattern|))4680 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4681 (DESTRUCTURING-BIND4682 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4683 ATN-PARSER::RESULT-AND-INDEX4684 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))4685 (|GraphGraphPattern.2| ATN-PARSER::RESULT-INDEX))4686 (SETF |GroupGraphPattern| |GroupGraphPattern1740|))))4687 (T4688 (SETF *ATN-TERM?* '|GroupGraphPattern|)4689 (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))4690 (|GraphGraphPattern/start.1| (ATN-PARSER::INDEX)4691 (%ATN-NODE-BLOCK4692 |GraphGraphPattern/start.1|4693 (%ATN-EDGE-BLOCK4694 (ATN-PARSER::WORD SPOCQ.S:GRAPH)4695 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:GRAPH)4696 (SETF *ATN-TERM* 'SPOCQ.S:GRAPH)4697 (|GraphGraphPattern/GraphGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))4698 (T4699 (SETF *ATN-TERM?* 'SPOCQ.S:GRAPH)4700 (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))4701 (|GraphGraphPattern/start.1| ATN-PARSER::INDEX)4702 (SETF *ATN-NODE NIL)4703 NIL4704 (IF ATN-PARSER::ATN-STRUCTURE4705 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4706 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4707 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))4708 (PROGN (DEFVAR |GroupOrUnionGraphPattern-INDEX|)4709 (DEFUN |GroupOrUnionGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))4710 "{25} GroupOrUnionGraphPattern ::= GroupGraphPattern ('UNION' GroupGraphPattern)*4711 (|GroupGraphPattern|)"4712 (DECLARE (SPECIAL |GroupOrUnionGraphPattern-INDEX|))4713 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupOrUnionGraphPattern-INDEX| *ATN-LEVEL))4714 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4715 (IF (< |GroupOrUnionGraphPattern-INDEX| ATN-PARSER::INDEX)4716 (LET ((|GroupOrUnionGraphPattern-INDEX| ATN-PARSER::INDEX)4717 (*ATN-LEVEL (1+ *ATN-LEVEL))4718 (*ATN-STACK (CONS '|GroupOrUnionGraphPattern| *ATN-STACK))4719 (ATN-PARSER::ATN-STRUCTURE NIL))4720 (DECLARE (SPECIAL |GroupOrUnionGraphPattern-INDEX|))4721 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4722 (DECLARE (TYPE CONS *ATN-STACK))4723 (SYMBOL-MACROLET4724 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4725 (%ATN-BLOCK |GroupOrUnionGraphPattern|4726 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4727 (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)4728 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4729 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4730 (|GroupOrUnionGraphPattern.2| (ATN-PARSER::INDEX)4731 (%ATN-NODE-BLOCK4732 |GroupOrUnionGraphPattern.2|4733 (%ATN-EDGE-BLOCK4734 (POP |GroupOrUnionGraphPattern|)4735 (WHEN T4736 (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)4737 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4738 '|GroupOrUnionGraphPattern|4739 ATN-PARSER::INDEX4740 (LIST '|GroupGraphPattern| |GroupGraphPattern|))4741 (LET ((ATN-PARSER::RESULT-STRUCTURE4742 (IF (EQ *ATN-REDUCE* T)4743 (|GroupOrUnionGraphPattern-Constructor| |GroupGraphPattern|)4744 (IF (EQ *ATN-REDUCE* 'CONS)4745 (CONS '|GroupOrUnionGraphPattern|4746 (DELETE NIL (LIST |GroupGraphPattern|)))4747 '|GroupOrUnionGraphPattern|))))4748 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4749 (|GroupOrUnionGraphPattern.5| (ATN-PARSER::INDEX)4750 (%ATN-NODE-BLOCK4751 |GroupOrUnionGraphPattern.5|4752 (%ATN-EDGE-BLOCK4753 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|)4754 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| ATN-PARSER::INDEX))4755 (%ATN-EDGE-BLOCK4756 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern.2|)4757 (|GroupOrUnionGraphPattern.2| ATN-PARSER::INDEX))))4758 (|GroupOrUnionGraphPattern/fail.3| (ATN-PARSER::INDEX)4759 (%ATN-NODE-BLOCK4760 |GroupOrUnionGraphPattern/fail.3|4761 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4762 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4| (ATN-PARSER::INDEX)4763 (%ATN-NODE-BLOCK4764 |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4|4765 (%ATN-EDGE-BLOCK4766 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|)4767 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| ATN-PARSER::INDEX))4768 (%ATN-EDGE-BLOCK4769 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern.2|)4770 (|GroupOrUnionGraphPattern.2| ATN-PARSER::INDEX))))4771 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| (ATN-PARSER::INDEX)4772 (%ATN-NODE-BLOCK4773 |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|4774 (%ATN-EDGE-BLOCK4775 (ATN-PARSER::WORD SPOCQ.S:UNION)4776 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:UNION)4777 (SETF *ATN-TERM* 'SPOCQ.S:UNION)4778 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7|4779 (1+ ATN-PARSER::INDEX)))4780 (T (SETF *ATN-TERM?* 'SPOCQ.S:UNION) NIL)))))4781 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7| (ATN-PARSER::INDEX)4782 (%ATN-NODE-BLOCK4783 |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7|4784 (%ATN-EDGE-BLOCK4785 (PUSH |GroupGraphPattern|)4786 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4787 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)4788 (COND (ATN-PARSER::SUCCESS4789 (SETF *ATN-TERM* '|GroupGraphPattern|)4790 (LET ((|GroupGraphPattern1741| |GroupGraphPattern|))4791 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4792 (DESTRUCTURING-BIND4793 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4794 ATN-PARSER::RESULT-AND-INDEX4795 (WHEN ATN-PARSER::RESULT4796 (SETF |GroupGraphPattern|4797 (CONS ATN-PARSER::RESULT |GroupGraphPattern|)))4798 (|GroupOrUnionGraphPattern.5| ATN-PARSER::RESULT-INDEX))4799 (SETF |GroupGraphPattern| |GroupGraphPattern1741|))))4800 (T (SETF *ATN-TERM?* '|GroupGraphPattern|) NIL))))))4801 (|GroupOrUnionGraphPattern/start.1| (ATN-PARSER::INDEX)4802 (%ATN-NODE-BLOCK4803 |GroupOrUnionGraphPattern/start.1|4804 (%ATN-EDGE-BLOCK4805 (PUSH |GroupGraphPattern|)4806 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4807 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)4808 (COND (ATN-PARSER::SUCCESS4809 (SETF *ATN-TERM* '|GroupGraphPattern|)4810 (LET ((|GroupGraphPattern1742| |GroupGraphPattern|))4811 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4812 (DESTRUCTURING-BIND4813 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4814 ATN-PARSER::RESULT-AND-INDEX4815 (WHEN ATN-PARSER::RESULT4816 (SETF |GroupGraphPattern|4817 (CONS ATN-PARSER::RESULT |GroupGraphPattern|)))4818 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4|4819 ATN-PARSER::RESULT-INDEX))4820 (SETF |GroupGraphPattern| |GroupGraphPattern1742|))))4821 (T4822 (SETF *ATN-TERM?* '|GroupGraphPattern|)4823 (|GroupOrUnionGraphPattern/fail.3| ATN-PARSER::INDEX))))))))4824 (|GroupOrUnionGraphPattern/start.1| ATN-PARSER::INDEX)4825 (SETF *ATN-NODE NIL)4826 NIL4827 (IF ATN-PARSER::ATN-STRUCTURE4828 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4829 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4830 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupOrUnionGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))4831 (PROGN (DEFVAR |MinusGraphPattern-INDEX|)4832 (DEFUN |MinusGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))4833 "{57} MinusGraphPattern ::= 'MINUS' GroupGraphPattern4834 (|GroupGraphPattern|)"4835 (DECLARE (SPECIAL |MinusGraphPattern-INDEX|))4836 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MinusGraphPattern-INDEX| *ATN-LEVEL))4837 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4838 (IF (< |MinusGraphPattern-INDEX| ATN-PARSER::INDEX)4839 (LET ((|MinusGraphPattern-INDEX| ATN-PARSER::INDEX)4840 (*ATN-LEVEL (1+ *ATN-LEVEL))4841 (*ATN-STACK (CONS '|MinusGraphPattern| *ATN-STACK))4842 (ATN-PARSER::ATN-STRUCTURE NIL))4843 (DECLARE (SPECIAL |MinusGraphPattern-INDEX|))4844 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4845 (DECLARE (TYPE CONS *ATN-STACK))4846 (SYMBOL-MACROLET4847 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4848 (%ATN-BLOCK |MinusGraphPattern|4849 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4850 (SETF *ATN-TERM* '|MinusGraphPattern|)4851 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4852 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4853 (|MinusGraphPattern.2| (ATN-PARSER::INDEX)4854 (%ATN-NODE-BLOCK4855 |MinusGraphPattern.2|4856 (%ATN-EDGE-BLOCK4857 (POP |MinusGraphPattern|)4858 (WHEN T4859 (SETF *ATN-TERM* '|MinusGraphPattern|)4860 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4861 '|MinusGraphPattern|4862 ATN-PARSER::INDEX4863 (LIST '|GroupGraphPattern| |GroupGraphPattern|))4864 (LET ((ATN-PARSER::RESULT-STRUCTURE4865 (IF (EQ *ATN-REDUCE* T)4866 (|MinusGraphPattern-Constructor| |GroupGraphPattern|)4867 (IF (EQ *ATN-REDUCE* 'CONS)4868 (CONS '|MinusGraphPattern| (DELETE NIL (LIST |GroupGraphPattern|)))4869 '|MinusGraphPattern|))))4870 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4871 (|MinusGraphPattern/fail.3| (ATN-PARSER::INDEX)4872 (%ATN-NODE-BLOCK |MinusGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4873 (|MinusGraphPattern/MinusGraphPattern.2.4| (ATN-PARSER::INDEX)4874 (%ATN-NODE-BLOCK4875 |MinusGraphPattern/MinusGraphPattern.2.4|4876 (%ATN-EDGE-BLOCK4877 (PUSH |GroupGraphPattern|)4878 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4879 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)4880 (COND (ATN-PARSER::SUCCESS4881 (SETF *ATN-TERM* '|GroupGraphPattern|)4882 (LET ((|GroupGraphPattern1743| |GroupGraphPattern|))4883 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4884 (DESTRUCTURING-BIND4885 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4886 ATN-PARSER::RESULT-AND-INDEX4887 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))4888 (|MinusGraphPattern.2| ATN-PARSER::RESULT-INDEX))4889 (SETF |GroupGraphPattern| |GroupGraphPattern1743|))))4890 (T4891 (SETF *ATN-TERM?* '|GroupGraphPattern|)4892 (|MinusGraphPattern/fail.3| ATN-PARSER::INDEX)))))))4893 (|MinusGraphPattern/start.1| (ATN-PARSER::INDEX)4894 (%ATN-NODE-BLOCK4895 |MinusGraphPattern/start.1|4896 (%ATN-EDGE-BLOCK4897 (ATN-PARSER::WORD SPOCQ.S::MINUS)4898 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S::MINUS)4899 (SETF *ATN-TERM* 'SPOCQ.S::MINUS)4900 (|MinusGraphPattern/MinusGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))4901 (T4902 (SETF *ATN-TERM?* 'SPOCQ.S::MINUS)4903 (|MinusGraphPattern/fail.3| ATN-PARSER::INDEX)))))))4904 (|MinusGraphPattern/start.1| ATN-PARSER::INDEX)4905 (SETF *ATN-NODE NIL)4906 NIL4907 (IF ATN-PARSER::ATN-STRUCTURE4908 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4909 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4910 (WARN "recursive grammar: ~s @ position ~s: ~s" '|MinusGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))4911 (PROGN (DEFVAR |Filter-INDEX|)4912 (DEFUN |Filter| (ATN-PARSER::INDEX &AUX (|Constraint| NIL))4913 "{26} Filter ::= 'FILTER' Constraint4914 (|Constraint|)"4915 (DECLARE (SPECIAL |Filter-INDEX|))4916 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Filter-INDEX| *ATN-LEVEL))4917 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4918 (IF (< |Filter-INDEX| ATN-PARSER::INDEX)4919 (LET ((|Filter-INDEX| ATN-PARSER::INDEX)4920 (*ATN-LEVEL (1+ *ATN-LEVEL))4921 (*ATN-STACK (CONS '|Filter| *ATN-STACK))4922 (ATN-PARSER::ATN-STRUCTURE NIL))4923 (DECLARE (SPECIAL |Filter-INDEX|))4924 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4925 (DECLARE (TYPE CONS *ATN-STACK))4926 (SYMBOL-MACROLET4927 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4928 (%ATN-BLOCK |Filter|4929 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4930 (SETF *ATN-TERM* '|Filter|)4931 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4932 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4933 (|Filter.2| (ATN-PARSER::INDEX)4934 (%ATN-NODE-BLOCK4935 |Filter.2|4936 (%ATN-EDGE-BLOCK4937 (POP |Filter|)4938 (WHEN T4939 (SETF *ATN-TERM* '|Filter|)4940 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4941 '|Filter|4942 ATN-PARSER::INDEX4943 (LIST '|Constraint| |Constraint|))4944 (LET ((ATN-PARSER::RESULT-STRUCTURE4945 (IF (EQ *ATN-REDUCE* T)4946 (|Filter-Constructor| |Constraint|)4947 (IF (EQ *ATN-REDUCE* 'CONS)4948 (CONS '|Filter| (DELETE NIL (LIST |Constraint|)))4949 '|Filter|))))4950 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4951 (|Filter/fail.3| (ATN-PARSER::INDEX)4952 (%ATN-NODE-BLOCK |Filter/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4953 (|Filter/Filter.2.4| (ATN-PARSER::INDEX)4954 (%ATN-NODE-BLOCK4955 |Filter/Filter.2.4|4956 (%ATN-EDGE-BLOCK4957 (PUSH |Constraint|)4958 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4959 (ATN-PARSE-SUBSTRUCTURE* '|Constraint| ATN-PARSER::INDEX)4960 (COND (ATN-PARSER::SUCCESS4961 (SETF *ATN-TERM* '|Constraint|)4962 (LET ((|Constraint1743| |Constraint|))4963 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4964 (DESTRUCTURING-BIND4965 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4966 ATN-PARSER::RESULT-AND-INDEX4967 (WHEN ATN-PARSER::RESULT (SETF |Constraint| ATN-PARSER::RESULT))4968 (|Filter.2| ATN-PARSER::RESULT-INDEX))4969 (SETF |Constraint| |Constraint1743|))))4970 (T (SETF *ATN-TERM?* '|Constraint|) (|Filter/fail.3| ATN-PARSER::INDEX)))))))4971 (|Filter/start.1| (ATN-PARSER::INDEX)4972 (%ATN-NODE-BLOCK4973 |Filter/start.1|4974 (%ATN-EDGE-BLOCK4975 (ATN-PARSER::WORD SPOCQ.S:FILTER)4976 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:FILTER)4977 (SETF *ATN-TERM* 'SPOCQ.S:FILTER)4978 (|Filter/Filter.2.4| (1+ ATN-PARSER::INDEX)))4979 (T (SETF *ATN-TERM?* 'SPOCQ.S:FILTER) (|Filter/fail.3| ATN-PARSER::INDEX)))))))4980 (|Filter/start.1| ATN-PARSER::INDEX)4981 (SETF *ATN-NODE NIL)4982 NIL4983 (IF ATN-PARSER::ATN-STRUCTURE4984 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4985 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4986 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Filter| ATN-PARSER::INDEX *ATN-STACK))))4987 (PROGN (DEFVAR |Constraint-INDEX|)4988 (DEFUN |Constraint| (ATN-PARSER::INDEX &AUX (|BrackettedExpression| NIL) (|BuiltInCall| NIL) (|FunctionCall| NIL))4989 "{27} Constraint ::= (BrackettedExpression | BuiltInCall | FunctionCall)4990 (|BrackettedExpression| |BuiltInCall| |FunctionCall|)"4991 (DECLARE (SPECIAL |Constraint-INDEX|))4992 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Constraint-INDEX| *ATN-LEVEL))4993 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4994 (IF (< |Constraint-INDEX| ATN-PARSER::INDEX)4995 (LET ((|Constraint-INDEX| ATN-PARSER::INDEX)4996 (*ATN-LEVEL (1+ *ATN-LEVEL))4997 (*ATN-STACK (CONS '|Constraint| *ATN-STACK))4998 (ATN-PARSER::ATN-STRUCTURE NIL))4999 (DECLARE (SPECIAL |Constraint-INDEX|))5000 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5001 (DECLARE (TYPE CONS *ATN-STACK))5002 (SYMBOL-MACROLET5003 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5004 (%ATN-BLOCK |Constraint|5005 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5006 (SETF *ATN-TERM* '|Constraint|)5007 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5008 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5009 (|Constraint.2| (ATN-PARSER::INDEX)5010 (%ATN-NODE-BLOCK5011 |Constraint.2|5012 (%ATN-EDGE-BLOCK5013 (POP |Constraint|)5014 (WHEN T5015 (SETF *ATN-TERM* '|Constraint|)5016 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5017 '|Constraint|5018 ATN-PARSER::INDEX5019 (LIST '|BrackettedExpression|5020 |BrackettedExpression|5021 '|BuiltInCall|5022 |BuiltInCall|5023 '|FunctionCall|5024 |FunctionCall|))5025 (LET ((ATN-PARSER::RESULT-STRUCTURE5026 (IF (EQ *ATN-REDUCE* T)5027 (|Constraint-Constructor|5028 |BrackettedExpression|5029 |BuiltInCall|5030 |FunctionCall|)5031 (IF (EQ *ATN-REDUCE* 'CONS)5032 (CONS '|Constraint|5033 (DELETE NIL5034 (LIST |BrackettedExpression|5035 |BuiltInCall|5036 |FunctionCall|)))5037 '|Constraint|))))5038 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5039 (|Constraint/fail.3| (ATN-PARSER::INDEX)5040 (%ATN-NODE-BLOCK |Constraint/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5041 (|Constraint/start.1| (ATN-PARSER::INDEX)5042 (%ATN-NODE-BLOCK5043 |Constraint/start.1|5044 (%ATN-EDGE-BLOCK5045 OR5046 (PROGN (%ATN-EDGE-BLOCK5047 (PUSH |BrackettedExpression|)5048 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5049 (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression| ATN-PARSER::INDEX)5050 (COND (ATN-PARSER::SUCCESS5051 (SETF *ATN-TERM* '|BrackettedExpression|)5052 (LET ((|BrackettedExpression1743| |BrackettedExpression|))5053 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5054 (DESTRUCTURING-BIND5055 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5056 ATN-PARSER::RESULT-AND-INDEX5057 (WHEN ATN-PARSER::RESULT5058 (SETF |BrackettedExpression| ATN-PARSER::RESULT))5059 (|Constraint.2| ATN-PARSER::RESULT-INDEX))5060 (SETF |BrackettedExpression| |BrackettedExpression1743|))))5061 (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))5062 (%ATN-EDGE-BLOCK5063 (PUSH |BuiltInCall|)5064 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5065 (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall| ATN-PARSER::INDEX)5066 (COND (ATN-PARSER::SUCCESS5067 (SETF *ATN-TERM* '|BuiltInCall|)5068 (LET ((|BuiltInCall1743| |BuiltInCall|))5069 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5070 (DESTRUCTURING-BIND5071 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5072 ATN-PARSER::RESULT-AND-INDEX5073 (WHEN ATN-PARSER::RESULT5074 (SETF |BuiltInCall| ATN-PARSER::RESULT))5075 (|Constraint.2| ATN-PARSER::RESULT-INDEX))5076 (SETF |BuiltInCall| |BuiltInCall1743|))))5077 (T (SETF *ATN-TERM?* '|BuiltInCall|) NIL))))5078 (%ATN-EDGE-BLOCK5079 (PUSH |FunctionCall|)5080 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5081 (ATN-PARSE-SUBSTRUCTURE* '|FunctionCall| ATN-PARSER::INDEX)5082 (COND (ATN-PARSER::SUCCESS5083 (SETF *ATN-TERM* '|FunctionCall|)5084 (LET ((|FunctionCall1743| |FunctionCall|))5085 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5086 (DESTRUCTURING-BIND5087 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5088 ATN-PARSER::RESULT-AND-INDEX5089 (WHEN ATN-PARSER::RESULT5090 (SETF |FunctionCall| ATN-PARSER::RESULT))5091 (|Constraint.2| ATN-PARSER::RESULT-INDEX))5092 (SETF |FunctionCall| |FunctionCall1743|))))5093 (T (SETF *ATN-TERM?* '|FunctionCall|) NIL))))5094 (|Constraint/fail.3| ATN-PARSER::INDEX))))))5095 (|Constraint/start.1| ATN-PARSER::INDEX)5096 (SETF *ATN-NODE NIL)5097 NIL5098 (IF ATN-PARSER::ATN-STRUCTURE5099 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5100 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5101 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Constraint| ATN-PARSER::INDEX *ATN-STACK))))5102 (PROGN (DEFVAR |FunctionCall-INDEX|)5103 (DEFUN |FunctionCall| (ATN-PARSER::INDEX &AUX (|ArgList| NIL) (|IRIref| NIL))5104 "{28} FunctionCall ::= IRIref ArgList5105 (|ArgList| |IRIref|)"5106 (DECLARE (SPECIAL |FunctionCall-INDEX|))5107 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |FunctionCall-INDEX| *ATN-LEVEL))5108 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5109 (IF (< |FunctionCall-INDEX| ATN-PARSER::INDEX)5110 (LET ((|FunctionCall-INDEX| ATN-PARSER::INDEX)5111 (*ATN-LEVEL (1+ *ATN-LEVEL))5112 (*ATN-STACK (CONS '|FunctionCall| *ATN-STACK))5113 (ATN-PARSER::ATN-STRUCTURE NIL))5114 (DECLARE (SPECIAL |FunctionCall-INDEX|))5115 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5116 (DECLARE (TYPE CONS *ATN-STACK))5117 (SYMBOL-MACROLET5118 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5119 (%ATN-BLOCK |FunctionCall|5120 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5121 (SETF *ATN-TERM* '|FunctionCall|)5122 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5123 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5124 (|FunctionCall.2| (ATN-PARSER::INDEX)5125 (%ATN-NODE-BLOCK5126 |FunctionCall.2|5127 (%ATN-EDGE-BLOCK5128 (POP |FunctionCall|)5129 (WHEN T5130 (SETF *ATN-TERM* '|FunctionCall|)5131 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5132 '|FunctionCall|5133 ATN-PARSER::INDEX5134 (LIST '|ArgList| |ArgList| '|IRIref| |IRIref|))5135 (LET ((ATN-PARSER::RESULT-STRUCTURE5136 (IF (EQ *ATN-REDUCE* T)5137 (|FunctionCall-Constructor| |ArgList| |IRIref|)5138 (IF (EQ *ATN-REDUCE* 'CONS)5139 (CONS '|FunctionCall| (DELETE NIL (LIST |ArgList| |IRIref|)))5140 '|FunctionCall|))))5141 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5142 (|FunctionCall/fail.3| (ATN-PARSER::INDEX)5143 (%ATN-NODE-BLOCK |FunctionCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5144 (|FunctionCall/FunctionCall.2.4| (ATN-PARSER::INDEX)5145 (%ATN-NODE-BLOCK5146 |FunctionCall/FunctionCall.2.4|5147 (%ATN-EDGE-BLOCK5148 (PUSH |ArgList|)5149 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5150 (ATN-PARSE-SUBSTRUCTURE* '|ArgList| ATN-PARSER::INDEX)5151 (COND (ATN-PARSER::SUCCESS5152 (SETF *ATN-TERM* '|ArgList|)5153 (LET ((|ArgList1743| |ArgList|))5154 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5155 (DESTRUCTURING-BIND5156 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5157 ATN-PARSER::RESULT-AND-INDEX5158 (WHEN ATN-PARSER::RESULT (SETF |ArgList| ATN-PARSER::RESULT))5159 (|FunctionCall.2| ATN-PARSER::RESULT-INDEX))5160 (SETF |ArgList| |ArgList1743|))))5161 (T5162 (SETF *ATN-TERM?* '|ArgList|)5163 (|FunctionCall/fail.3| ATN-PARSER::INDEX)))))))5164 (|FunctionCall/start.1| (ATN-PARSER::INDEX)5165 (%ATN-NODE-BLOCK5166 |FunctionCall/start.1|5167 (%ATN-EDGE-BLOCK5168 (PUSH |IRIref|)5169 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5170 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)5171 (COND (ATN-PARSER::SUCCESS5172 (SETF *ATN-TERM* '|IRIref|)5173 (LET ((|IRIref1743| |IRIref|))5174 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5175 (DESTRUCTURING-BIND5176 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5177 ATN-PARSER::RESULT-AND-INDEX5178 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))5179 (|FunctionCall/FunctionCall.2.4| ATN-PARSER::RESULT-INDEX))5180 (SETF |IRIref| |IRIref1743|))))5181 (T5182 (SETF *ATN-TERM?* '|IRIref|)5183 (|FunctionCall/fail.3| ATN-PARSER::INDEX))))))))5184 (|FunctionCall/start.1| ATN-PARSER::INDEX)5185 (SETF *ATN-NODE NIL)5186 NIL5187 (IF ATN-PARSER::ATN-STRUCTURE5188 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5189 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5190 (WARN "recursive grammar: ~s @ position ~s: ~s" '|FunctionCall| ATN-PARSER::INDEX *ATN-STACK))))5191 (PROGN (DEFVAR |ArgList-INDEX|)5192 (DEFUN |ArgList| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (NILLIST NIL))5193 "{29} ArgList ::= (NILLIST | ('(' Expression (',' Expression)* ')'))5194 (|Expression| NILLIST)"5195 (DECLARE (SPECIAL |ArgList-INDEX|))5196 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ArgList-INDEX| *ATN-LEVEL))5197 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5198 (IF (< |ArgList-INDEX| ATN-PARSER::INDEX)5199 (LET ((|ArgList-INDEX| ATN-PARSER::INDEX)5200 (*ATN-LEVEL (1+ *ATN-LEVEL))5201 (*ATN-STACK (CONS '|ArgList| *ATN-STACK))5202 (ATN-PARSER::ATN-STRUCTURE NIL))5203 (DECLARE (SPECIAL |ArgList-INDEX|))5204 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5205 (DECLARE (TYPE CONS *ATN-STACK))5206 (SYMBOL-MACROLET5207 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5208 (%ATN-BLOCK |ArgList|5209 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5210 (SETF *ATN-TERM* '|ArgList|)5211 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5212 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5213 (|ArgList.2| (ATN-PARSER::INDEX)5214 (%ATN-NODE-BLOCK5215 |ArgList.2|5216 (%ATN-EDGE-BLOCK5217 (POP |ArgList|)5218 (WHEN T5219 (SETF *ATN-TERM* '|ArgList|)5220 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5221 '|ArgList|5222 ATN-PARSER::INDEX5223 (LIST '|Expression| |Expression| 'NILLIST NILLIST))5224 (LET ((ATN-PARSER::RESULT-STRUCTURE5225 (IF (EQ *ATN-REDUCE* T)5226 (|ArgList-Constructor| |Expression| NILLIST)5227 (IF (EQ *ATN-REDUCE* 'CONS)5228 (CONS '|ArgList| (DELETE NIL (LIST |Expression| NILLIST)))5229 '|ArgList|))))5230 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5231 (|ArgList.8| (ATN-PARSER::INDEX)5232 (%ATN-NODE-BLOCK5233 |ArgList.8|5234 (%ATN-EDGE-BLOCK5235 (ATN-PARSER::JUMP |ArgList/ArgList.8.9|)5236 (|ArgList/ArgList.8.9| ATN-PARSER::INDEX))5237 (%ATN-EDGE-BLOCK5238 (ATN-PARSER::JUMP |ArgList/ArgList.2.7|)5239 (|ArgList/ArgList.2.7| ATN-PARSER::INDEX))))5240 (|ArgList/ArgList.2.4| (ATN-PARSER::INDEX)5241 (%ATN-NODE-BLOCK5242 |ArgList/ArgList.2.4|5243 (%ATN-EDGE-BLOCK5244 (ATN-PARSER::WORD SPOCQ.S:\()5245 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()5246 (SETF *ATN-TERM* 'SPOCQ.S:\()5247 (|ArgList/ArgList.2.5| (1+ ATN-PARSER::INDEX)))5248 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))5249 (|ArgList/ArgList.2.5| (ATN-PARSER::INDEX)5250 (%ATN-NODE-BLOCK5251 |ArgList/ArgList.2.5|5252 (%ATN-EDGE-BLOCK5253 (PUSH |Expression|)5254 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5255 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)5256 (COND (ATN-PARSER::SUCCESS5257 (SETF *ATN-TERM* '|Expression|)5258 (LET ((|Expression1744| |Expression|))5259 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5260 (DESTRUCTURING-BIND5261 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5262 ATN-PARSER::RESULT-AND-INDEX5263 (WHEN ATN-PARSER::RESULT5264 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))5265 (|ArgList/ArgList.2.6| ATN-PARSER::RESULT-INDEX))5266 (SETF |Expression| |Expression1744|))))5267 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))5268 (|ArgList/ArgList.2.6| (ATN-PARSER::INDEX)5269 (%ATN-NODE-BLOCK5270 |ArgList/ArgList.2.6|5271 (%ATN-EDGE-BLOCK5272 (ATN-PARSER::JUMP |ArgList/ArgList.8.9|)5273 (|ArgList/ArgList.8.9| ATN-PARSER::INDEX))5274 (%ATN-EDGE-BLOCK5275 (ATN-PARSER::JUMP |ArgList/ArgList.2.7|)5276 (|ArgList/ArgList.2.7| ATN-PARSER::INDEX))))5277 (|ArgList/ArgList.2.7| (ATN-PARSER::INDEX)5278 (%ATN-NODE-BLOCK5279 |ArgList/ArgList.2.7|5280 (%ATN-EDGE-BLOCK5281 (ATN-PARSER::WORD SPOCQ.S:\))5282 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))5283 (SETF *ATN-TERM* 'SPOCQ.S:\))5284 (|ArgList.2| (1+ ATN-PARSER::INDEX)))5285 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL)))))5286 (|ArgList/ArgList.8.10| (ATN-PARSER::INDEX)5287 (%ATN-NODE-BLOCK5288 |ArgList/ArgList.8.10|5289 (%ATN-EDGE-BLOCK5290 (PUSH |Expression|)5291 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5292 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)5293 (COND (ATN-PARSER::SUCCESS5294 (SETF *ATN-TERM* '|Expression|)5295 (LET ((|Expression1743| |Expression|))5296 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5297 (DESTRUCTURING-BIND5298 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5299 ATN-PARSER::RESULT-AND-INDEX5300 (WHEN ATN-PARSER::RESULT5301 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))5302 (|ArgList.8| ATN-PARSER::RESULT-INDEX))5303 (SETF |Expression| |Expression1743|))))5304 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))5305 (|ArgList/ArgList.8.9| (ATN-PARSER::INDEX)5306 (%ATN-NODE-BLOCK5307 |ArgList/ArgList.8.9|5308 (%ATN-EDGE-BLOCK5309 (ATN-PARSER::WORD SPOCQ.S:\,)5310 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)5311 (SETF *ATN-TERM* 'SPOCQ.S:\,)5312 (|ArgList/ArgList.8.10| (1+ ATN-PARSER::INDEX)))5313 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))5314 (|ArgList/fail.3| (ATN-PARSER::INDEX)5315 (%ATN-NODE-BLOCK |ArgList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5316 (|ArgList/start.1| (ATN-PARSER::INDEX)5317 (%ATN-NODE-BLOCK5318 |ArgList/start.1|5319 (%ATN-EDGE-BLOCK5320 OR5321 (PROGN (%ATN-EDGE-BLOCK5322 (PUSH NILLIST)5323 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5324 (ATN-PARSE-SUBSTRUCTURE* 'NILLIST ATN-PARSER::INDEX)5325 (COND (ATN-PARSER::SUCCESS5326 (SETF *ATN-TERM* 'NILLIST)5327 (LET ((NILLIST1743 NILLIST))5328 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5329 (DESTRUCTURING-BIND5330 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5331 ATN-PARSER::RESULT-AND-INDEX5332 (WHEN ATN-PARSER::RESULT (SETF NILLIST ATN-PARSER::RESULT))5333 (|ArgList.2| ATN-PARSER::RESULT-INDEX))5334 (SETF NILLIST NILLIST1743))))5335 (T (SETF *ATN-TERM?* 'NILLIST) NIL))))5336 (%ATN-EDGE-BLOCK5337 (ATN-PARSER::JUMP |ArgList/ArgList.2.4|)5338 (|ArgList/ArgList.2.4| ATN-PARSER::INDEX))5339 (|ArgList/fail.3| ATN-PARSER::INDEX))))))5340 (|ArgList/start.1| ATN-PARSER::INDEX)5341 (SETF *ATN-NODE NIL)5342 NIL5343 (IF ATN-PARSER::ATN-STRUCTURE5344 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5345 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5346 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ArgList| ATN-PARSER::INDEX *ATN-STACK))))5347 (PROGN (DEFVAR |ExpressionList-INDEX|)5348 (DEFUN |ExpressionList| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (NILLIST NIL))5349 "ExpressionList ::= (NILLIST | ('(' Expression (',' Expression)* ')'))5350 (|Expression| NILLIST)"5351 (DECLARE (SPECIAL |ExpressionList-INDEX|))5352 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ExpressionList-INDEX| *ATN-LEVEL))5353 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5354 (IF (< |ExpressionList-INDEX| ATN-PARSER::INDEX)5355 (LET ((|ExpressionList-INDEX| ATN-PARSER::INDEX)5356 (*ATN-LEVEL (1+ *ATN-LEVEL))5357 (*ATN-STACK (CONS '|ExpressionList| *ATN-STACK))5358 (ATN-PARSER::ATN-STRUCTURE NIL))5359 (DECLARE (SPECIAL |ExpressionList-INDEX|))5360 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5361 (DECLARE (TYPE CONS *ATN-STACK))5362 (SYMBOL-MACROLET5363 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5364 (%ATN-BLOCK |ExpressionList|5365 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5366 (SETF *ATN-TERM* '|ExpressionList|)5367 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5368 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5369 (|ExpressionList.2| (ATN-PARSER::INDEX)5370 (%ATN-NODE-BLOCK5371 |ExpressionList.2|5372 (%ATN-EDGE-BLOCK5373 (POP |ExpressionList|)5374 (WHEN T5375 (SETF *ATN-TERM* '|ExpressionList|)5376 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5377 '|ExpressionList|5378 ATN-PARSER::INDEX5379 (LIST '|Expression| |Expression| 'NILLIST NILLIST))5380 (LET ((ATN-PARSER::RESULT-STRUCTURE5381 (IF (EQ *ATN-REDUCE* T)5382 (|ExpressionList-Constructor| |Expression| NILLIST)5383 (IF (EQ *ATN-REDUCE* 'CONS)5384 (CONS '|ExpressionList| (DELETE NIL (LIST |Expression| NILLIST)))5385 '|ExpressionList|))))5386 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5387 (|ExpressionList.8| (ATN-PARSER::INDEX)5388 (%ATN-NODE-BLOCK5389 |ExpressionList.8|5390 (%ATN-EDGE-BLOCK5391 (ATN-PARSER::JUMP |ExpressionList/ExpressionList.8.9|)5392 (|ExpressionList/ExpressionList.8.9| ATN-PARSER::INDEX))5393 (%ATN-EDGE-BLOCK5394 (ATN-PARSER::JUMP |ExpressionList/ExpressionList.2.7|)5395 (|ExpressionList/ExpressionList.2.7| ATN-PARSER::INDEX))))5396 (|ExpressionList/ExpressionList.2.4| (ATN-PARSER::INDEX)5397 (%ATN-NODE-BLOCK5398 |ExpressionList/ExpressionList.2.4|5399 (%ATN-EDGE-BLOCK5400 (ATN-PARSER::WORD SPOCQ.S:\()5401 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()5402 (SETF *ATN-TERM* 'SPOCQ.S:\()5403 (|ExpressionList/ExpressionList.2.5| (1+ ATN-PARSER::INDEX)))5404 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))5405 (|ExpressionList/ExpressionList.2.5| (ATN-PARSER::INDEX)5406 (%ATN-NODE-BLOCK5407 |ExpressionList/ExpressionList.2.5|5408 (%ATN-EDGE-BLOCK5409 (PUSH |Expression|)5410 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5411 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)5412 (COND (ATN-PARSER::SUCCESS5413 (SETF *ATN-TERM* '|Expression|)5414 (LET ((|Expression1746| |Expression|))5415 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5416 (DESTRUCTURING-BIND5417 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5418 ATN-PARSER::RESULT-AND-INDEX5419 (WHEN ATN-PARSER::RESULT5420 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))5421 (|ExpressionList/ExpressionList.2.6| ATN-PARSER::RESULT-INDEX))5422 (SETF |Expression| |Expression1746|))))5423 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))5424 (|ExpressionList/ExpressionList.2.6| (ATN-PARSER::INDEX)5425 (%ATN-NODE-BLOCK5426 |ExpressionList/ExpressionList.2.6|5427 (%ATN-EDGE-BLOCK5428 (ATN-PARSER::JUMP |ExpressionList/ExpressionList.8.9|)5429 (|ExpressionList/ExpressionList.8.9| ATN-PARSER::INDEX))5430 (%ATN-EDGE-BLOCK5431 (ATN-PARSER::JUMP |ExpressionList/ExpressionList.2.7|)5432 (|ExpressionList/ExpressionList.2.7| ATN-PARSER::INDEX))))5433 (|ExpressionList/ExpressionList.2.7| (ATN-PARSER::INDEX)5434 (%ATN-NODE-BLOCK5435 |ExpressionList/ExpressionList.2.7|5436 (%ATN-EDGE-BLOCK5437 (ATN-PARSER::WORD SPOCQ.S:\))5438 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))5439 (SETF *ATN-TERM* 'SPOCQ.S:\))5440 (|ExpressionList.2| (1+ ATN-PARSER::INDEX)))5441 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL)))))5442 (|ExpressionList/ExpressionList.8.10| (ATN-PARSER::INDEX)5443 (%ATN-NODE-BLOCK5444 |ExpressionList/ExpressionList.8.10|5445 (%ATN-EDGE-BLOCK5446 (PUSH |Expression|)5447 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5448 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)5449 (COND (ATN-PARSER::SUCCESS5450 (SETF *ATN-TERM* '|Expression|)5451 (LET ((|Expression1745| |Expression|))5452 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5453 (DESTRUCTURING-BIND5454 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5455 ATN-PARSER::RESULT-AND-INDEX5456 (WHEN ATN-PARSER::RESULT5457 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))5458 (|ExpressionList.8| ATN-PARSER::RESULT-INDEX))5459 (SETF |Expression| |Expression1745|))))5460 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))5461 (|ExpressionList/ExpressionList.8.9| (ATN-PARSER::INDEX)5462 (%ATN-NODE-BLOCK5463 |ExpressionList/ExpressionList.8.9|5464 (%ATN-EDGE-BLOCK5465 (ATN-PARSER::WORD SPOCQ.S:\,)5466 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)5467 (SETF *ATN-TERM* 'SPOCQ.S:\,)5468 (|ExpressionList/ExpressionList.8.10| (1+ ATN-PARSER::INDEX)))5469 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))5470 (|ExpressionList/fail.3| (ATN-PARSER::INDEX)5471 (%ATN-NODE-BLOCK |ExpressionList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5472 (|ExpressionList/start.1| (ATN-PARSER::INDEX)5473 (%ATN-NODE-BLOCK5474 |ExpressionList/start.1|5475 (%ATN-EDGE-BLOCK5476 OR5477 (PROGN (%ATN-EDGE-BLOCK5478 (PUSH NILLIST)5479 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5480 (ATN-PARSE-SUBSTRUCTURE* 'NILLIST ATN-PARSER::INDEX)5481 (COND (ATN-PARSER::SUCCESS5482 (SETF *ATN-TERM* 'NILLIST)5483 (LET ((NILLIST1744 NILLIST))5484 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5485 (DESTRUCTURING-BIND5486 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5487 ATN-PARSER::RESULT-AND-INDEX5488 (WHEN ATN-PARSER::RESULT (SETF NILLIST ATN-PARSER::RESULT))5489 (|ExpressionList.2| ATN-PARSER::RESULT-INDEX))5490 (SETF NILLIST NILLIST1744))))5491 (T (SETF *ATN-TERM?* 'NILLIST) NIL))))5492 (%ATN-EDGE-BLOCK5493 (ATN-PARSER::JUMP |ExpressionList/ExpressionList.2.4|)5494 (|ExpressionList/ExpressionList.2.4| ATN-PARSER::INDEX))5495 (|ExpressionList/fail.3| ATN-PARSER::INDEX))))))5496 (|ExpressionList/start.1| ATN-PARSER::INDEX)5497 (SETF *ATN-NODE NIL)5498 NIL5499 (IF ATN-PARSER::ATN-STRUCTURE5500 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5501 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5502 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ExpressionList| ATN-PARSER::INDEX *ATN-STACK))))5503 (PROGN (DEFVAR |ConstructTemplate-INDEX|)5504 (DEFUN |ConstructTemplate| (ATN-PARSER::INDEX &AUX (|ConstructTriples| NIL))5505 "{30} ConstructTemplate ::= '{' ConstructTriples? '}'5506 (|ConstructTriples|)"5507 (DECLARE (SPECIAL |ConstructTemplate-INDEX|))5508 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructTemplate-INDEX| *ATN-LEVEL))5509 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5510 (IF (< |ConstructTemplate-INDEX| ATN-PARSER::INDEX)5511 (LET ((|ConstructTemplate-INDEX| ATN-PARSER::INDEX)5512 (*ATN-LEVEL (1+ *ATN-LEVEL))5513 (*ATN-STACK (CONS '|ConstructTemplate| *ATN-STACK))5514 (ATN-PARSER::ATN-STRUCTURE NIL))5515 (DECLARE (SPECIAL |ConstructTemplate-INDEX|))5516 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5517 (DECLARE (TYPE CONS *ATN-STACK))5518 (SYMBOL-MACROLET5519 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5520 (%ATN-BLOCK |ConstructTemplate|5521 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5522 (SETF *ATN-TERM* '|ConstructTemplate|)5523 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5524 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5525 (|ConstructTemplate.2| (ATN-PARSER::INDEX)5526 (%ATN-NODE-BLOCK5527 |ConstructTemplate.2|5528 (%ATN-EDGE-BLOCK5529 (POP |ConstructTemplate|)5530 (WHEN T5531 (SETF *ATN-TERM* '|ConstructTemplate|)5532 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5533 '|ConstructTemplate|5534 ATN-PARSER::INDEX5535 (LIST '|ConstructTriples| |ConstructTriples|))5536 (LET ((ATN-PARSER::RESULT-STRUCTURE5537 (IF (EQ *ATN-REDUCE* T)5538 (|ConstructTemplate-Constructor| |ConstructTriples|)5539 (IF (EQ *ATN-REDUCE* 'CONS)5540 (CONS '|ConstructTemplate| (DELETE NIL (LIST |ConstructTriples|)))5541 '|ConstructTemplate|))))5542 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5543 (|ConstructTemplate/ConstructTemplate.2.4| (ATN-PARSER::INDEX)5544 (%ATN-NODE-BLOCK5545 |ConstructTemplate/ConstructTemplate.2.4|5546 (%ATN-EDGE-BLOCK5547 (PUSH |ConstructTriples|)5548 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5549 (ATN-PARSE-SUBSTRUCTURE* '|ConstructTriples| ATN-PARSER::INDEX)5550 (COND (ATN-PARSER::SUCCESS5551 (SETF *ATN-TERM* '|ConstructTriples|)5552 (LET ((|ConstructTriples1746| |ConstructTriples|))5553 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5554 (DESTRUCTURING-BIND5555 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5556 ATN-PARSER::RESULT-AND-INDEX5557 (WHEN ATN-PARSER::RESULT (SETF |ConstructTriples| ATN-PARSER::RESULT))5558 (|ConstructTemplate/ConstructTemplate.2.5| ATN-PARSER::RESULT-INDEX))5559 (SETF |ConstructTriples| |ConstructTriples1746|))))5560 (T5561 (SETF *ATN-TERM?* '|ConstructTriples|)5562 (|ConstructTemplate/ConstructTemplate.2.5| ATN-PARSER::INDEX)))))))5563 (|ConstructTemplate/ConstructTemplate.2.5| (ATN-PARSER::INDEX)5564 (%ATN-NODE-BLOCK5565 |ConstructTemplate/ConstructTemplate.2.5|5566 (%ATN-EDGE-BLOCK5567 (ATN-PARSER::WORD SPOCQ.S:})5568 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:})5569 (SETF *ATN-TERM* 'SPOCQ.S:})5570 (|ConstructTemplate.2| (1+ ATN-PARSER::INDEX)))5571 (T5572 (SETF *ATN-TERM?* 'SPOCQ.S:})5573 (|ConstructTemplate/fail.3| ATN-PARSER::INDEX))))))5574 (|ConstructTemplate/fail.3| (ATN-PARSER::INDEX)5575 (%ATN-NODE-BLOCK |ConstructTemplate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5576 (|ConstructTemplate/start.1| (ATN-PARSER::INDEX)5577 (%ATN-NODE-BLOCK5578 |ConstructTemplate/start.1|5579 (%ATN-EDGE-BLOCK5580 (ATN-PARSER::WORD SPOCQ.S:{)5581 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)5582 (SETF *ATN-TERM* 'SPOCQ.S:{)5583 (|ConstructTemplate/ConstructTemplate.2.4| (1+ ATN-PARSER::INDEX)))5584 (T5585 (SETF *ATN-TERM?* 'SPOCQ.S:{)5586 (|ConstructTemplate/fail.3| ATN-PARSER::INDEX)))))))5587 (|ConstructTemplate/start.1| ATN-PARSER::INDEX)5588 (SETF *ATN-NODE NIL)5589 NIL5590 (IF ATN-PARSER::ATN-STRUCTURE5591 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5592 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5593 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructTemplate| ATN-PARSER::INDEX *ATN-STACK))))5594 (PROGN (DEFVAR |ConstructTriples-INDEX|)5595 (DEFUN |ConstructTriples| (ATN-PARSER::INDEX &AUX (|ConstructTriples| NIL) (|TriplesSameSubject| NIL))5596 "{31} ConstructTriples ::= TriplesSameSubject ('.' ConstructTriples?)?5597 (|ConstructTriples| |TriplesSameSubject|)"5598 (DECLARE (SPECIAL |ConstructTriples-INDEX|))5599 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructTriples-INDEX| *ATN-LEVEL))5600 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5601 (IF (< |ConstructTriples-INDEX| ATN-PARSER::INDEX)5602 (LET ((|ConstructTriples-INDEX| ATN-PARSER::INDEX)5603 (*ATN-LEVEL (1+ *ATN-LEVEL))5604 (*ATN-STACK (CONS '|ConstructTriples| *ATN-STACK))5605 (ATN-PARSER::ATN-STRUCTURE NIL))5606 (DECLARE (SPECIAL |ConstructTriples-INDEX|))5607 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5608 (DECLARE (TYPE CONS *ATN-STACK))5609 (SYMBOL-MACROLET5610 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5611 (%ATN-BLOCK |ConstructTriples|5612 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5613 (SETF *ATN-TERM* '|ConstructTriples|)5614 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5615 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5616 (|ConstructTriples.2| (ATN-PARSER::INDEX)5617 (%ATN-NODE-BLOCK5618 |ConstructTriples.2|5619 (%ATN-EDGE-BLOCK5620 (POP |ConstructTriples|)5621 (WHEN T5622 (SETF *ATN-TERM* '|ConstructTriples|)5623 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5624 '|ConstructTriples|5625 ATN-PARSER::INDEX5626 (LIST '|ConstructTriples|5627 |ConstructTriples|5628 '|TriplesSameSubject|5629 |TriplesSameSubject|))5630 (LET ((ATN-PARSER::RESULT-STRUCTURE5631 (IF (EQ *ATN-REDUCE* T)5632 (|ConstructTriples-Constructor| |ConstructTriples| |TriplesSameSubject|)5633 (IF (EQ *ATN-REDUCE* 'CONS)5634 (CONS '|ConstructTriples|5635 (DELETE NIL (LIST |ConstructTriples| |TriplesSameSubject|)))5636 '|ConstructTriples|))))5637 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5638 (|ConstructTriples/ConstructTriples.2.4| (ATN-PARSER::INDEX)5639 (%ATN-NODE-BLOCK5640 |ConstructTriples/ConstructTriples.2.4|5641 (%ATN-EDGE-BLOCK5642 (ATN-PARSER::JUMP |ConstructTriples/ConstructTriples.2.5|)5643 (|ConstructTriples/ConstructTriples.2.5| ATN-PARSER::INDEX))5644 (%ATN-EDGE-BLOCK5645 (ATN-PARSER::JUMP |ConstructTriples.2|)5646 (|ConstructTriples.2| ATN-PARSER::INDEX))))5647 (|ConstructTriples/ConstructTriples.2.5| (ATN-PARSER::INDEX)5648 (%ATN-NODE-BLOCK5649 |ConstructTriples/ConstructTriples.2.5|5650 (%ATN-EDGE-BLOCK5651 (ATN-PARSER::WORD SPOCQ.S:|.|)5652 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)5653 (SETF *ATN-TERM* 'SPOCQ.S:|.|)5654 (|ConstructTriples/ConstructTriples.2.6| (1+ ATN-PARSER::INDEX)))5655 (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|) NIL)))))5656 (|ConstructTriples/ConstructTriples.2.6| (ATN-PARSER::INDEX)5657 (%ATN-NODE-BLOCK5658 |ConstructTriples/ConstructTriples.2.6|5659 (%ATN-EDGE-BLOCK5660 (PUSH |ConstructTriples|)5661 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5662 (ATN-PARSE-SUBSTRUCTURE* '|ConstructTriples| ATN-PARSER::INDEX)5663 (COND (ATN-PARSER::SUCCESS5664 (SETF *ATN-TERM* '|ConstructTriples|)5665 (LET ((|ConstructTriples1747| |ConstructTriples|))5666 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5667 (DESTRUCTURING-BIND5668 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5669 ATN-PARSER::RESULT-AND-INDEX5670 (WHEN ATN-PARSER::RESULT (SETF |ConstructTriples| ATN-PARSER::RESULT))5671 (|ConstructTriples.2| ATN-PARSER::RESULT-INDEX))5672 (SETF |ConstructTriples| |ConstructTriples1747|))))5673 (T5674 (SETF *ATN-TERM?* '|ConstructTriples|)5675 (|ConstructTriples.2| ATN-PARSER::INDEX)))))))5676 (|ConstructTriples/fail.3| (ATN-PARSER::INDEX)5677 (%ATN-NODE-BLOCK |ConstructTriples/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5678 (|ConstructTriples/start.1| (ATN-PARSER::INDEX)5679 (%ATN-NODE-BLOCK5680 |ConstructTriples/start.1|5681 (%ATN-EDGE-BLOCK5682 (PUSH |TriplesSameSubject|)5683 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5684 (ATN-PARSE-SUBSTRUCTURE* '|TriplesSameSubject| ATN-PARSER::INDEX)5685 (COND (ATN-PARSER::SUCCESS5686 (SETF *ATN-TERM* '|TriplesSameSubject|)5687 (LET ((|TriplesSameSubject1747| |TriplesSameSubject|))5688 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5689 (DESTRUCTURING-BIND5690 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5691 ATN-PARSER::RESULT-AND-INDEX5692 (WHEN ATN-PARSER::RESULT (SETF |TriplesSameSubject| ATN-PARSER::RESULT))5693 (|ConstructTriples/ConstructTriples.2.4| ATN-PARSER::RESULT-INDEX))5694 (SETF |TriplesSameSubject| |TriplesSameSubject1747|))))5695 (T5696 (SETF *ATN-TERM?* '|TriplesSameSubject|)5697 (|ConstructTriples/fail.3| ATN-PARSER::INDEX))))))))5698 (|ConstructTriples/start.1| ATN-PARSER::INDEX)5699 (SETF *ATN-NODE NIL)5700 NIL5701 (IF ATN-PARSER::ATN-STRUCTURE5702 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5703 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5704 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructTriples| ATN-PARSER::INDEX *ATN-STACK))))5705 (PROGN (DEFVAR |TriplesSameSubject-INDEX|)5706 (DEFUN |TriplesSameSubject| (ATN-PARSER::INDEX &AUX (|PropertyList| NIL) (|PropertyListNotEmpty| NIL) (|TriplesNode| NIL)5707 (|VarOrTerm| NIL))5708 "{32} TriplesSameSubject ::= ((VarOrTerm PropertyListNotEmpty) | (TriplesNode5709 PropertyList))5710 (|PropertyList| |PropertyListNotEmpty| |TriplesNode| |VarOrTerm|)"5711 (DECLARE (SPECIAL |TriplesSameSubject-INDEX|))5712 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesSameSubject-INDEX| *ATN-LEVEL))5713 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5714 (IF (< |TriplesSameSubject-INDEX| ATN-PARSER::INDEX)5715 (LET ((|TriplesSameSubject-INDEX| ATN-PARSER::INDEX)5716 (*ATN-LEVEL (1+ *ATN-LEVEL))5717 (*ATN-STACK (CONS '|TriplesSameSubject| *ATN-STACK))5718 (ATN-PARSER::ATN-STRUCTURE NIL))5719 (DECLARE (SPECIAL |TriplesSameSubject-INDEX|))5720 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5721 (DECLARE (TYPE CONS *ATN-STACK))5722 (SYMBOL-MACROLET5723 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5724 (%ATN-BLOCK |TriplesSameSubject|5725 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5726 (SETF *ATN-TERM* '|TriplesSameSubject|)5727 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5728 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5729 (|TriplesSameSubject.2| (ATN-PARSER::INDEX)5730 (%ATN-NODE-BLOCK5731 |TriplesSameSubject.2|5732 (%ATN-EDGE-BLOCK5733 (POP |TriplesSameSubject|)5734 (WHEN T5735 (SETF *ATN-TERM* '|TriplesSameSubject|)5736 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5737 '|TriplesSameSubject|5738 ATN-PARSER::INDEX5739 (LIST '|PropertyList|5740 |PropertyList|5741 '|PropertyListNotEmpty|5742 |PropertyListNotEmpty|5743 '|TriplesNode|5744 |TriplesNode|5745 '|VarOrTerm|5746 |VarOrTerm|))5747 (LET ((ATN-PARSER::RESULT-STRUCTURE5748 (IF (EQ *ATN-REDUCE* T)5749 (|TriplesSameSubject-Constructor|5750 |PropertyList|5751 |PropertyListNotEmpty|5752 |TriplesNode|5753 |VarOrTerm|)5754 (IF (EQ *ATN-REDUCE* 'CONS)5755 (CONS '|TriplesSameSubject|5756 (DELETE NIL5757 (LIST |PropertyList|5758 |PropertyListNotEmpty|5759 |TriplesNode|5760 |VarOrTerm|)))5761 '|TriplesSameSubject|))))5762 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5763 (|TriplesSameSubject/fail.3| (ATN-PARSER::INDEX)5764 (%ATN-NODE-BLOCK |TriplesSameSubject/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5765 (|TriplesSameSubject/start.1| (ATN-PARSER::INDEX)5766 (%ATN-NODE-BLOCK5767 |TriplesSameSubject/start.1|5768 (%ATN-EDGE-BLOCK5769 OR5770 (PROGN (%ATN-EDGE-BLOCK5771 (ATN-PARSER::JUMP |TriplesSameSubject/TriplesSameSubject.2.4|)5772 (|TriplesSameSubject/TriplesSameSubject.2.4| ATN-PARSER::INDEX))5773 (%ATN-EDGE-BLOCK5774 (ATN-PARSER::JUMP |TriplesSameSubject/TriplesSameSubject.2.6|)5775 (|TriplesSameSubject/TriplesSameSubject.2.6| ATN-PARSER::INDEX))5776 (|TriplesSameSubject/fail.3| ATN-PARSER::INDEX)))))5777 (|TriplesSameSubject/TriplesSameSubject.2.4| (ATN-PARSER::INDEX)5778 (%ATN-NODE-BLOCK5779 |TriplesSameSubject/TriplesSameSubject.2.4|5780 (%ATN-EDGE-BLOCK5781 (PUSH |VarOrTerm|)5782 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5783 (ATN-PARSE-SUBSTRUCTURE* '|VarOrTerm| ATN-PARSER::INDEX)5784 (COND (ATN-PARSER::SUCCESS5785 (SETF *ATN-TERM* '|VarOrTerm|)5786 (LET ((|VarOrTerm1747| |VarOrTerm|))5787 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5788 (DESTRUCTURING-BIND5789 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5790 ATN-PARSER::RESULT-AND-INDEX5791 (WHEN ATN-PARSER::RESULT (SETF |VarOrTerm| ATN-PARSER::RESULT))5792 (|TriplesSameSubject/TriplesSameSubject.2.5| ATN-PARSER::RESULT-INDEX))5793 (SETF |VarOrTerm| |VarOrTerm1747|))))5794 (T (SETF *ATN-TERM?* '|VarOrTerm|) NIL))))))5795 (|TriplesSameSubject/TriplesSameSubject.2.5| (ATN-PARSER::INDEX)5796 (%ATN-NODE-BLOCK5797 |TriplesSameSubject/TriplesSameSubject.2.5|5798 (%ATN-EDGE-BLOCK5799 (PUSH |PropertyListNotEmpty|)5800 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5801 (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty| ATN-PARSER::INDEX)5802 (COND (ATN-PARSER::SUCCESS5803 (SETF *ATN-TERM* '|PropertyListNotEmpty|)5804 (LET ((|PropertyListNotEmpty1747| |PropertyListNotEmpty|))5805 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5806 (DESTRUCTURING-BIND5807 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5808 ATN-PARSER::RESULT-AND-INDEX5809 (WHEN ATN-PARSER::RESULT5810 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))5811 (|TriplesSameSubject.2| ATN-PARSER::RESULT-INDEX))5812 (SETF |PropertyListNotEmpty| |PropertyListNotEmpty1747|))))5813 (T (SETF *ATN-TERM?* '|PropertyListNotEmpty|) NIL))))))5814 (|TriplesSameSubject/TriplesSameSubject.2.6| (ATN-PARSER::INDEX)5815 (%ATN-NODE-BLOCK5816 |TriplesSameSubject/TriplesSameSubject.2.6|5817 (%ATN-EDGE-BLOCK5818 (PUSH |TriplesNode|)5819 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5820 (ATN-PARSE-SUBSTRUCTURE* '|TriplesNode| ATN-PARSER::INDEX)5821 (COND (ATN-PARSER::SUCCESS5822 (SETF *ATN-TERM* '|TriplesNode|)5823 (LET ((|TriplesNode1747| |TriplesNode|))5824 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5825 (DESTRUCTURING-BIND5826 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5827 ATN-PARSER::RESULT-AND-INDEX5828 (WHEN ATN-PARSER::RESULT (SETF |TriplesNode| ATN-PARSER::RESULT))5829 (|TriplesSameSubject/TriplesSameSubject.2.7| ATN-PARSER::RESULT-INDEX))5830 (SETF |TriplesNode| |TriplesNode1747|))))5831 (T (SETF *ATN-TERM?* '|TriplesNode|) NIL))))))5832 (|TriplesSameSubject/TriplesSameSubject.2.7| (ATN-PARSER::INDEX)5833 (%ATN-NODE-BLOCK5834 |TriplesSameSubject/TriplesSameSubject.2.7|5835 (%ATN-EDGE-BLOCK5836 (PUSH |PropertyList|)5837 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5838 (ATN-PARSE-SUBSTRUCTURE* '|PropertyList| ATN-PARSER::INDEX)5839 (COND (ATN-PARSER::SUCCESS5840 (SETF *ATN-TERM* '|PropertyList|)5841 (LET ((|PropertyList1747| |PropertyList|))5842 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5843 (DESTRUCTURING-BIND5844 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5845 ATN-PARSER::RESULT-AND-INDEX5846 (WHEN ATN-PARSER::RESULT (SETF |PropertyList| ATN-PARSER::RESULT))5847 (|TriplesSameSubject.2| ATN-PARSER::RESULT-INDEX))5848 (SETF |PropertyList| |PropertyList1747|))))5849 (T (SETF *ATN-TERM?* '|PropertyList|) NIL)))))))5850 (|TriplesSameSubject/start.1| ATN-PARSER::INDEX)5851 (SETF *ATN-NODE NIL)5852 NIL5853 (IF ATN-PARSER::ATN-STRUCTURE5854 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5855 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5856 (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesSameSubject| ATN-PARSER::INDEX *ATN-STACK))))5857 (PROGN (DEFVAR |PropertyListNotEmpty-INDEX|)5858 (DEFUN |PropertyListNotEmpty| (ATN-PARSER::INDEX &AUX (|VerbObjectList| NIL))5859 "{33} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*5860 (|VerbObjectList|)"5861 (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))5862 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PropertyListNotEmpty-INDEX| *ATN-LEVEL))5863 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5864 (IF (< |PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)5865 (LET ((|PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)5866 (*ATN-LEVEL (1+ *ATN-LEVEL))5867 (*ATN-STACK (CONS '|PropertyListNotEmpty| *ATN-STACK))5868 (ATN-PARSER::ATN-STRUCTURE NIL))5869 (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))5870 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5871 (DECLARE (TYPE CONS *ATN-STACK))5872 (SYMBOL-MACROLET5873 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5874 (%ATN-BLOCK |PropertyListNotEmpty|5875 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5876 (SETF *ATN-TERM* '|PropertyListNotEmpty|)5877 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5878 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5879 (|PropertyListNotEmpty.2| (ATN-PARSER::INDEX)5880 (%ATN-NODE-BLOCK5881 |PropertyListNotEmpty.2|5882 (%ATN-EDGE-BLOCK5883 (POP |PropertyListNotEmpty|)5884 (WHEN T5885 (SETF *ATN-TERM* '|PropertyListNotEmpty|)5886 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5887 '|PropertyListNotEmpty|5888 ATN-PARSER::INDEX5889 (LIST '|VerbObjectList| |VerbObjectList|))5890 (LET ((ATN-PARSER::RESULT-STRUCTURE5891 (IF (EQ *ATN-REDUCE* T)5892 (|PropertyListNotEmpty-Constructor| |VerbObjectList|)5893 (IF (EQ *ATN-REDUCE* 'CONS)5894 (CONS '|PropertyListNotEmpty| (DELETE NIL (LIST |VerbObjectList|)))5895 '|PropertyListNotEmpty|))))5896 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5897 (|PropertyListNotEmpty.5| (ATN-PARSER::INDEX)5898 (%ATN-NODE-BLOCK5899 |PropertyListNotEmpty.5|5900 (%ATN-EDGE-BLOCK5901 (ATN-PARSER::JUMP |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)5902 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| ATN-PARSER::INDEX))5903 (%ATN-EDGE-BLOCK5904 (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)5905 (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))5906 (|PropertyListNotEmpty/fail.3| (ATN-PARSER::INDEX)5907 (%ATN-NODE-BLOCK5908 |PropertyListNotEmpty/fail.3|5909 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5910 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4| (ATN-PARSER::INDEX)5911 (%ATN-NODE-BLOCK5912 |PropertyListNotEmpty/PropertyListNotEmpty.2.4|5913 (%ATN-EDGE-BLOCK5914 (ATN-PARSER::JUMP |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)5915 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| ATN-PARSER::INDEX))5916 (%ATN-EDGE-BLOCK5917 (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)5918 (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))5919 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| (ATN-PARSER::INDEX)5920 (%ATN-NODE-BLOCK5921 |PropertyListNotEmpty/PropertyListNotEmpty.5.6|5922 (%ATN-EDGE-BLOCK5923 (ATN-PARSER::WORD SPOCQ.S:\;)5924 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\;)5925 (SETF *ATN-TERM* 'SPOCQ.S:\;)5926 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7| (1+ ATN-PARSER::INDEX)))5927 (T (SETF *ATN-TERM?* 'SPOCQ.S:\;) NIL)))))5928 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7| (ATN-PARSER::INDEX)5929 (%ATN-NODE-BLOCK5930 |PropertyListNotEmpty/PropertyListNotEmpty.5.7|5931 (%ATN-EDGE-BLOCK5932 (PUSH |VerbObjectList|)5933 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5934 (ATN-PARSE-SUBSTRUCTURE* '|VerbObjectList| ATN-PARSER::INDEX)5935 (COND (ATN-PARSER::SUCCESS5936 (SETF *ATN-TERM* '|VerbObjectList|)5937 (LET ((|VerbObjectList1747| |VerbObjectList|))5938 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5939 (DESTRUCTURING-BIND5940 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5941 ATN-PARSER::RESULT-AND-INDEX5942 (WHEN ATN-PARSER::RESULT5943 (SETF |VerbObjectList| (CONS ATN-PARSER::RESULT |VerbObjectList|)))5944 (|PropertyListNotEmpty.5| ATN-PARSER::RESULT-INDEX))5945 (SETF |VerbObjectList| |VerbObjectList1747|))))5946 (T5947 (SETF *ATN-TERM?* '|VerbObjectList|)5948 (|PropertyListNotEmpty.5| ATN-PARSER::INDEX)))))))5949 (|PropertyListNotEmpty/start.1| (ATN-PARSER::INDEX)5950 (%ATN-NODE-BLOCK5951 |PropertyListNotEmpty/start.1|5952 (%ATN-EDGE-BLOCK5953 (PUSH |VerbObjectList|)5954 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5955 (ATN-PARSE-SUBSTRUCTURE* '|VerbObjectList| ATN-PARSER::INDEX)5956 (COND (ATN-PARSER::SUCCESS5957 (SETF *ATN-TERM* '|VerbObjectList|)5958 (LET ((|VerbObjectList1748| |VerbObjectList|))5959 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5960 (DESTRUCTURING-BIND5961 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5962 ATN-PARSER::RESULT-AND-INDEX5963 (WHEN ATN-PARSER::RESULT5964 (SETF |VerbObjectList| (CONS ATN-PARSER::RESULT |VerbObjectList|)))5965 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4|5966 ATN-PARSER::RESULT-INDEX))5967 (SETF |VerbObjectList| |VerbObjectList1748|))))5968 (T5969 (SETF *ATN-TERM?* '|VerbObjectList|)5970 (|PropertyListNotEmpty/fail.3| ATN-PARSER::INDEX))))))))5971 (|PropertyListNotEmpty/start.1| ATN-PARSER::INDEX)5972 (SETF *ATN-NODE NIL)5973 NIL5974 (IF ATN-PARSER::ATN-STRUCTURE5975 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5976 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5977 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PropertyListNotEmpty| ATN-PARSER::INDEX *ATN-STACK))))5978 (PROGN (DEFVAR |VerbObjectList-INDEX|)5979 (DEFUN |VerbObjectList| (ATN-PARSER::INDEX &AUX (|ObjectList| NIL) (|Verb| NIL))5980 "VerbObjectList ::= Verb ObjectList5981 (|ObjectList| |Verb|)"5982 (DECLARE (SPECIAL |VerbObjectList-INDEX|))5983 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VerbObjectList-INDEX| *ATN-LEVEL))5984 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5985 (IF (< |VerbObjectList-INDEX| ATN-PARSER::INDEX)5986 (LET ((|VerbObjectList-INDEX| ATN-PARSER::INDEX)5987 (*ATN-LEVEL (1+ *ATN-LEVEL))5988 (*ATN-STACK (CONS '|VerbObjectList| *ATN-STACK))5989 (ATN-PARSER::ATN-STRUCTURE NIL))5990 (DECLARE (SPECIAL |VerbObjectList-INDEX|))5991 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5992 (DECLARE (TYPE CONS *ATN-STACK))5993 (SYMBOL-MACROLET5994 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5995 (%ATN-BLOCK |VerbObjectList|5996 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5997 (SETF *ATN-TERM* '|VerbObjectList|)5998 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5999 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6000 (|VerbObjectList.2| (ATN-PARSER::INDEX)6001 (%ATN-NODE-BLOCK6002 |VerbObjectList.2|6003 (%ATN-EDGE-BLOCK6004 (POP |VerbObjectList|)6005 (WHEN T6006 (SETF *ATN-TERM* '|VerbObjectList|)6007 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6008 '|VerbObjectList|6009 ATN-PARSER::INDEX6010 (LIST '|ObjectList| |ObjectList| '|Verb| |Verb|))6011 (LET ((ATN-PARSER::RESULT-STRUCTURE6012 (IF (EQ *ATN-REDUCE* T)6013 (|VerbObjectList-Constructor| |ObjectList| |Verb|)6014 (IF (EQ *ATN-REDUCE* 'CONS)6015 (CONS '|VerbObjectList| (DELETE NIL (LIST |ObjectList| |Verb|)))6016 '|VerbObjectList|))))6017 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6018 (|VerbObjectList/fail.3| (ATN-PARSER::INDEX)6019 (%ATN-NODE-BLOCK |VerbObjectList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6020 (|VerbObjectList/start.1| (ATN-PARSER::INDEX)6021 (%ATN-NODE-BLOCK6022 |VerbObjectList/start.1|6023 (%ATN-EDGE-BLOCK6024 (PUSH |Verb|)6025 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6026 (ATN-PARSE-SUBSTRUCTURE* '|Verb| ATN-PARSER::INDEX)6027 (COND (ATN-PARSER::SUCCESS6028 (SETF *ATN-TERM* '|Verb|)6029 (LET ((|Verb1748| |Verb|))6030 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6031 (DESTRUCTURING-BIND6032 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6033 ATN-PARSER::RESULT-AND-INDEX6034 (WHEN ATN-PARSER::RESULT (SETF |Verb| ATN-PARSER::RESULT))6035 (|VerbObjectList/VerbObjectList.2.4| ATN-PARSER::RESULT-INDEX))6036 (SETF |Verb| |Verb1748|))))6037 (T (SETF *ATN-TERM?* '|Verb|) (|VerbObjectList/fail.3| ATN-PARSER::INDEX)))))))6038 (|VerbObjectList/VerbObjectList.2.4| (ATN-PARSER::INDEX)6039 (%ATN-NODE-BLOCK6040 |VerbObjectList/VerbObjectList.2.4|6041 (%ATN-EDGE-BLOCK6042 (PUSH |ObjectList|)6043 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6044 (ATN-PARSE-SUBSTRUCTURE* '|ObjectList| ATN-PARSER::INDEX)6045 (COND (ATN-PARSER::SUCCESS6046 (SETF *ATN-TERM* '|ObjectList|)6047 (LET ((|ObjectList1748| |ObjectList|))6048 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6049 (DESTRUCTURING-BIND6050 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6051 ATN-PARSER::RESULT-AND-INDEX6052 (WHEN ATN-PARSER::RESULT (SETF |ObjectList| ATN-PARSER::RESULT))6053 (|VerbObjectList.2| ATN-PARSER::RESULT-INDEX))6054 (SETF |ObjectList| |ObjectList1748|))))6055 (T6056 (SETF *ATN-TERM?* '|ObjectList|)6057 (|VerbObjectList/fail.3| ATN-PARSER::INDEX))))))))6058 (|VerbObjectList/start.1| ATN-PARSER::INDEX)6059 (SETF *ATN-NODE NIL)6060 NIL6061 (IF ATN-PARSER::ATN-STRUCTURE6062 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6063 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6064 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VerbObjectList| ATN-PARSER::INDEX *ATN-STACK))))6065 (PROGN (DEFVAR |PropertyList-INDEX|)6066 (DEFUN |PropertyList| (ATN-PARSER::INDEX &AUX (|PropertyListNotEmpty| NIL))6067 "{34} PropertyList ::= PropertyListNotEmpty?6068 (|PropertyListNotEmpty|)"6069 (DECLARE (SPECIAL |PropertyList-INDEX|))6070 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PropertyList-INDEX| *ATN-LEVEL))6071 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6072 (IF (< |PropertyList-INDEX| ATN-PARSER::INDEX)6073 (LET ((|PropertyList-INDEX| ATN-PARSER::INDEX)6074 (*ATN-LEVEL (1+ *ATN-LEVEL))6075 (*ATN-STACK (CONS '|PropertyList| *ATN-STACK))6076 (ATN-PARSER::ATN-STRUCTURE NIL))6077 (DECLARE (SPECIAL |PropertyList-INDEX|))6078 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6079 (DECLARE (TYPE CONS *ATN-STACK))6080 (SYMBOL-MACROLET6081 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6082 (%ATN-BLOCK |PropertyList|6083 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6084 (SETF *ATN-TERM* '|PropertyList|)6085 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6086 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6087 (|PropertyList.2| (ATN-PARSER::INDEX)6088 (%ATN-NODE-BLOCK6089 |PropertyList.2|6090 (%ATN-EDGE-BLOCK6091 (POP |PropertyList|)6092 (WHEN T6093 (SETF *ATN-TERM* '|PropertyList|)6094 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6095 '|PropertyList|6096 ATN-PARSER::INDEX6097 (LIST '|PropertyListNotEmpty| |PropertyListNotEmpty|))6098 (LET ((ATN-PARSER::RESULT-STRUCTURE6099 (IF (EQ *ATN-REDUCE* T)6100 (|PropertyList-Constructor| |PropertyListNotEmpty|)6101 (IF (EQ *ATN-REDUCE* 'CONS)6102 (CONS '|PropertyList| (DELETE NIL (LIST |PropertyListNotEmpty|)))6103 '|PropertyList|))))6104 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6105 (|PropertyList/fail.3| (ATN-PARSER::INDEX)6106 (%ATN-NODE-BLOCK |PropertyList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6107 (|PropertyList/start.1| (ATN-PARSER::INDEX)6108 (%ATN-NODE-BLOCK6109 |PropertyList/start.1|6110 (%ATN-EDGE-BLOCK6111 (PUSH |PropertyListNotEmpty|)6112 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6113 (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty| ATN-PARSER::INDEX)6114 (COND (ATN-PARSER::SUCCESS6115 (SETF *ATN-TERM* '|PropertyListNotEmpty|)6116 (LET ((|PropertyListNotEmpty1748| |PropertyListNotEmpty|))6117 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6118 (DESTRUCTURING-BIND6119 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6120 ATN-PARSER::RESULT-AND-INDEX6121 (WHEN ATN-PARSER::RESULT6122 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))6123 (|PropertyList.2| ATN-PARSER::RESULT-INDEX))6124 (SETF |PropertyListNotEmpty| |PropertyListNotEmpty1748|))))6125 (T6126 (SETF *ATN-TERM?* '|PropertyListNotEmpty|)6127 (|PropertyList.2| ATN-PARSER::INDEX))))))))6128 (|PropertyList/start.1| ATN-PARSER::INDEX)6129 (SETF *ATN-NODE NIL)6130 NIL6131 (IF ATN-PARSER::ATN-STRUCTURE6132 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6133 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6134 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PropertyList| ATN-PARSER::INDEX *ATN-STACK))))6135 (PROGN (DEFVAR |ObjectList-INDEX|)6136 (DEFUN |ObjectList| (ATN-PARSER::INDEX &AUX (|Object| NIL))6137 "{35} ObjectList ::= Object (',' Object)*6138 (|Object|)"6139 (DECLARE (SPECIAL |ObjectList-INDEX|))6140 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ObjectList-INDEX| *ATN-LEVEL))6141 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6142 (IF (< |ObjectList-INDEX| ATN-PARSER::INDEX)6143 (LET ((|ObjectList-INDEX| ATN-PARSER::INDEX)6144 (*ATN-LEVEL (1+ *ATN-LEVEL))6145 (*ATN-STACK (CONS '|ObjectList| *ATN-STACK))6146 (ATN-PARSER::ATN-STRUCTURE NIL))6147 (DECLARE (SPECIAL |ObjectList-INDEX|))6148 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6149 (DECLARE (TYPE CONS *ATN-STACK))6150 (SYMBOL-MACROLET6151 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6152 (%ATN-BLOCK |ObjectList|6153 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6154 (SETF *ATN-TERM* '|ObjectList|)6155 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6156 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6157 (|ObjectList.2| (ATN-PARSER::INDEX)6158 (%ATN-NODE-BLOCK6159 |ObjectList.2|6160 (%ATN-EDGE-BLOCK6161 (POP |ObjectList|)6162 (WHEN T6163 (SETF *ATN-TERM* '|ObjectList|)6164 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6165 '|ObjectList|6166 ATN-PARSER::INDEX6167 (LIST '|Object| |Object|))6168 (LET ((ATN-PARSER::RESULT-STRUCTURE6169 (IF (EQ *ATN-REDUCE* T)6170 (|ObjectList-Constructor| |Object|)6171 (IF (EQ *ATN-REDUCE* 'CONS)6172 (CONS '|ObjectList| (DELETE NIL (LIST |Object|)))6173 '|ObjectList|))))6174 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6175 (|ObjectList.5| (ATN-PARSER::INDEX)6176 (%ATN-NODE-BLOCK6177 |ObjectList.5|6178 (%ATN-EDGE-BLOCK6179 (ATN-PARSER::JUMP |ObjectList/ObjectList.5.6|)6180 (|ObjectList/ObjectList.5.6| ATN-PARSER::INDEX))6181 (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ObjectList.2|) (|ObjectList.2| ATN-PARSER::INDEX))))6182 (|ObjectList/fail.3| (ATN-PARSER::INDEX)6183 (%ATN-NODE-BLOCK |ObjectList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6184 (|ObjectList/ObjectList.2.4| (ATN-PARSER::INDEX)6185 (%ATN-NODE-BLOCK6186 |ObjectList/ObjectList.2.4|6187 (%ATN-EDGE-BLOCK6188 (ATN-PARSER::JUMP |ObjectList/ObjectList.5.6|)6189 (|ObjectList/ObjectList.5.6| ATN-PARSER::INDEX))6190 (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ObjectList.2|) (|ObjectList.2| ATN-PARSER::INDEX))))6191 (|ObjectList/ObjectList.5.6| (ATN-PARSER::INDEX)6192 (%ATN-NODE-BLOCK6193 |ObjectList/ObjectList.5.6|6194 (%ATN-EDGE-BLOCK6195 (ATN-PARSER::WORD SPOCQ.S:\,)6196 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)6197 (SETF *ATN-TERM* 'SPOCQ.S:\,)6198 (|ObjectList/ObjectList.5.7| (1+ ATN-PARSER::INDEX)))6199 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))6200 (|ObjectList/ObjectList.5.7| (ATN-PARSER::INDEX)6201 (%ATN-NODE-BLOCK6202 |ObjectList/ObjectList.5.7|6203 (%ATN-EDGE-BLOCK6204 (PUSH |Object|)6205 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6206 (ATN-PARSE-SUBSTRUCTURE* '|Object| ATN-PARSER::INDEX)6207 (COND (ATN-PARSER::SUCCESS6208 (SETF *ATN-TERM* '|Object|)6209 (LET ((|Object1748| |Object|))6210 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6211 (DESTRUCTURING-BIND6212 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6213 ATN-PARSER::RESULT-AND-INDEX6214 (WHEN ATN-PARSER::RESULT6215 (SETF |Object| (CONS ATN-PARSER::RESULT |Object|)))6216 (|ObjectList.5| ATN-PARSER::RESULT-INDEX))6217 (SETF |Object| |Object1748|))))6218 (T (SETF *ATN-TERM?* '|Object|) NIL))))))6219 (|ObjectList/start.1| (ATN-PARSER::INDEX)6220 (%ATN-NODE-BLOCK6221 |ObjectList/start.1|6222 (%ATN-EDGE-BLOCK6223 (PUSH |Object|)6224 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6225 (ATN-PARSE-SUBSTRUCTURE* '|Object| ATN-PARSER::INDEX)6226 (COND (ATN-PARSER::SUCCESS6227 (SETF *ATN-TERM* '|Object|)6228 (LET ((|Object1749| |Object|))6229 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6230 (DESTRUCTURING-BIND6231 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6232 ATN-PARSER::RESULT-AND-INDEX6233 (WHEN ATN-PARSER::RESULT6234 (SETF |Object| (CONS ATN-PARSER::RESULT |Object|)))6235 (|ObjectList/ObjectList.2.4| ATN-PARSER::RESULT-INDEX))6236 (SETF |Object| |Object1749|))))6237 (T (SETF *ATN-TERM?* '|Object|) (|ObjectList/fail.3| ATN-PARSER::INDEX))))))))6238 (|ObjectList/start.1| ATN-PARSER::INDEX)6239 (SETF *ATN-NODE NIL)6240 NIL6241 (IF ATN-PARSER::ATN-STRUCTURE6242 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6243 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6244 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ObjectList| ATN-PARSER::INDEX *ATN-STACK))))6245 (PROGN (DEFVAR |Object-INDEX|)6246 (DEFUN |Object| (ATN-PARSER::INDEX &AUX (|GraphNode| NIL))6247 "{36} Object ::= GraphNode6248 (|GraphNode|)"6249 (DECLARE (SPECIAL |Object-INDEX|))6250 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Object-INDEX| *ATN-LEVEL))6251 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6252 (IF (< |Object-INDEX| ATN-PARSER::INDEX)6253 (LET ((|Object-INDEX| ATN-PARSER::INDEX)6254 (*ATN-LEVEL (1+ *ATN-LEVEL))6255 (*ATN-STACK (CONS '|Object| *ATN-STACK))6256 (ATN-PARSER::ATN-STRUCTURE NIL))6257 (DECLARE (SPECIAL |Object-INDEX|))6258 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6259 (DECLARE (TYPE CONS *ATN-STACK))6260 (SYMBOL-MACROLET6261 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6262 (%ATN-BLOCK |Object|6263 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6264 (SETF *ATN-TERM* '|Object|)6265 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6266 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6267 (|Object.2| (ATN-PARSER::INDEX)6268 (%ATN-NODE-BLOCK6269 |Object.2|6270 (%ATN-EDGE-BLOCK6271 (POP |Object|)6272 (WHEN T6273 (SETF *ATN-TERM* '|Object|)6274 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6275 '|Object|6276 ATN-PARSER::INDEX6277 (LIST '|GraphNode| |GraphNode|))6278 (LET ((ATN-PARSER::RESULT-STRUCTURE6279 (IF (EQ *ATN-REDUCE* T)6280 (|Object-Constructor| |GraphNode|)6281 (IF (EQ *ATN-REDUCE* 'CONS)6282 (CONS '|Object| (DELETE NIL (LIST |GraphNode|)))6283 '|Object|))))6284 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6285 (|Object/fail.3| (ATN-PARSER::INDEX)6286 (%ATN-NODE-BLOCK |Object/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6287 (|Object/start.1| (ATN-PARSER::INDEX)6288 (%ATN-NODE-BLOCK6289 |Object/start.1|6290 (%ATN-EDGE-BLOCK6291 (PUSH |GraphNode|)6292 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6293 (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)6294 (COND (ATN-PARSER::SUCCESS6295 (SETF *ATN-TERM* '|GraphNode|)6296 (LET ((|GraphNode1749| |GraphNode|))6297 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6298 (DESTRUCTURING-BIND6299 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6300 ATN-PARSER::RESULT-AND-INDEX6301 (WHEN ATN-PARSER::RESULT (SETF |GraphNode| ATN-PARSER::RESULT))6302 (|Object.2| ATN-PARSER::RESULT-INDEX))6303 (SETF |GraphNode| |GraphNode1749|))))6304 (T (SETF *ATN-TERM?* '|GraphNode|) (|Object/fail.3| ATN-PARSER::INDEX))))))))6305 (|Object/start.1| ATN-PARSER::INDEX)6306 (SETF *ATN-NODE NIL)6307 NIL6308 (IF ATN-PARSER::ATN-STRUCTURE6309 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6310 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6311 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Object| ATN-PARSER::INDEX *ATN-STACK))))6312 (PROGN (DEFVAR |Verb-INDEX|)6313 (DEFUN |Verb| (ATN-PARSER::INDEX &AUX (|Path| NIL) (|VarOrIRIref| NIL))6314 "Verb ::= (Path | VarOrIRIref | 'a')6315 (|Path| |VarOrIRIref|)"6316 (DECLARE (SPECIAL |Verb-INDEX|))6317 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Verb-INDEX| *ATN-LEVEL))6318 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6319 (IF (< |Verb-INDEX| ATN-PARSER::INDEX)6320 (LET ((|Verb-INDEX| ATN-PARSER::INDEX)6321 (*ATN-LEVEL (1+ *ATN-LEVEL))6322 (*ATN-STACK (CONS '|Verb| *ATN-STACK))6323 (ATN-PARSER::ATN-STRUCTURE NIL))6324 (DECLARE (SPECIAL |Verb-INDEX|))6325 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6326 (DECLARE (TYPE CONS *ATN-STACK))6327 (SYMBOL-MACROLET6328 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6329 (%ATN-BLOCK |Verb|6330 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6331 (SETF *ATN-TERM* '|Verb|)6332 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6333 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6334 (|Verb.2| (ATN-PARSER::INDEX)6335 (%ATN-NODE-BLOCK6336 |Verb.2|6337 (%ATN-EDGE-BLOCK6338 (POP |Verb|)6339 (WHEN T6340 (SETF *ATN-TERM* '|Verb|)6341 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6342 '|Verb|6343 ATN-PARSER::INDEX6344 (LIST '|Path| |Path| '|VarOrIRIref| |VarOrIRIref|))6345 (LET ((ATN-PARSER::RESULT-STRUCTURE6346 (IF (EQ *ATN-REDUCE* T)6347 (|Verb-Constructor| |Path| |VarOrIRIref|)6348 (IF (EQ *ATN-REDUCE* 'CONS)6349 (CONS '|Verb| (DELETE NIL (LIST |Path| |VarOrIRIref|)))6350 '|Verb|))))6351 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6352 (|Verb/fail.3| (ATN-PARSER::INDEX)6353 (%ATN-NODE-BLOCK |Verb/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6354 (|Verb/start.1| (ATN-PARSER::INDEX)6355 (%ATN-NODE-BLOCK6356 |Verb/start.1|6357 (%ATN-EDGE-BLOCK6358 OR6359 (PROGN (%ATN-EDGE-BLOCK6360 (PUSH |Path|)6361 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6362 (ATN-PARSE-SUBSTRUCTURE* '|Path| ATN-PARSER::INDEX)6363 (COND (ATN-PARSER::SUCCESS6364 (SETF *ATN-TERM* '|Path|)6365 (LET ((|Path1749| |Path|))6366 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6367 (DESTRUCTURING-BIND6368 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6369 ATN-PARSER::RESULT-AND-INDEX6370 (WHEN ATN-PARSER::RESULT (SETF |Path| ATN-PARSER::RESULT))6371 (|Verb.2| ATN-PARSER::RESULT-INDEX))6372 (SETF |Path| |Path1749|))))6373 (T (SETF *ATN-TERM?* '|Path|) NIL))))6374 (%ATN-EDGE-BLOCK6375 (PUSH |VarOrIRIref|)6376 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6377 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)6378 (COND (ATN-PARSER::SUCCESS6379 (SETF *ATN-TERM* '|VarOrIRIref|)6380 (LET ((|VarOrIRIref1749| |VarOrIRIref|))6381 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6382 (DESTRUCTURING-BIND6383 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6384 ATN-PARSER::RESULT-AND-INDEX6385 (WHEN ATN-PARSER::RESULT6386 (SETF |VarOrIRIref| ATN-PARSER::RESULT))6387 (|Verb.2| ATN-PARSER::RESULT-INDEX))6388 (SETF |VarOrIRIref| |VarOrIRIref1749|))))6389 (T (SETF *ATN-TERM?* '|VarOrIRIref|) NIL))))6390 (%ATN-EDGE-BLOCK6391 (ATN-PARSER::WORD SPOCQ.S:\a)6392 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\a)6393 (SETF *ATN-TERM* 'SPOCQ.S:\a)6394 (|Verb.2| (1+ ATN-PARSER::INDEX)))6395 (T (SETF *ATN-TERM?* 'SPOCQ.S:\a) NIL)))6396 (|Verb/fail.3| ATN-PARSER::INDEX))))))6397 (|Verb/start.1| ATN-PARSER::INDEX)6398 (SETF *ATN-NODE NIL)6399 NIL6400 (IF ATN-PARSER::ATN-STRUCTURE6401 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6402 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6403 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Verb| ATN-PARSER::INDEX *ATN-STACK))))6404 (PROGN (DEFVAR |Path-INDEX|)6405 (DEFUN |Path| (ATN-PARSER::INDEX &AUX (|PathAlternative| NIL))6406 "{82} Path ::= PathAlternative6407 (|PathAlternative|)"6408 (DECLARE (SPECIAL |Path-INDEX|))6409 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Path-INDEX| *ATN-LEVEL))6410 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6411 (IF (< |Path-INDEX| ATN-PARSER::INDEX)6412 (LET ((|Path-INDEX| ATN-PARSER::INDEX)6413 (*ATN-LEVEL (1+ *ATN-LEVEL))6414 (*ATN-STACK (CONS '|Path| *ATN-STACK))6415 (ATN-PARSER::ATN-STRUCTURE NIL))6416 (DECLARE (SPECIAL |Path-INDEX|))6417 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6418 (DECLARE (TYPE CONS *ATN-STACK))6419 (SYMBOL-MACROLET6420 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6421 (%ATN-BLOCK |Path|6422 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6423 (SETF *ATN-TERM* '|Path|)6424 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6425 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6426 (|Path.2| (ATN-PARSER::INDEX)6427 (%ATN-NODE-BLOCK6428 |Path.2|6429 (%ATN-EDGE-BLOCK6430 (POP |Path|)6431 (WHEN T6432 (SETF *ATN-TERM* '|Path|)6433 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6434 '|Path|6435 ATN-PARSER::INDEX6436 (LIST '|PathAlternative| |PathAlternative|))6437 (LET ((ATN-PARSER::RESULT-STRUCTURE6438 (IF (EQ *ATN-REDUCE* T)6439 (|Path-Constructor| |PathAlternative|)6440 (IF (EQ *ATN-REDUCE* 'CONS)6441 (CONS '|Path| (DELETE NIL (LIST |PathAlternative|)))6442 '|Path|))))6443 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6444 (|Path/fail.3| (ATN-PARSER::INDEX)6445 (%ATN-NODE-BLOCK |Path/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6446 (|Path/start.1| (ATN-PARSER::INDEX)6447 (%ATN-NODE-BLOCK6448 |Path/start.1|6449 (%ATN-EDGE-BLOCK6450 (PUSH |PathAlternative|)6451 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6452 (ATN-PARSE-SUBSTRUCTURE* '|PathAlternative| ATN-PARSER::INDEX)6453 (COND (ATN-PARSER::SUCCESS6454 (SETF *ATN-TERM* '|PathAlternative|)6455 (LET ((|PathAlternative1749| |PathAlternative|))6456 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6457 (DESTRUCTURING-BIND6458 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6459 ATN-PARSER::RESULT-AND-INDEX6460 (WHEN ATN-PARSER::RESULT (SETF |PathAlternative| ATN-PARSER::RESULT))6461 (|Path.2| ATN-PARSER::RESULT-INDEX))6462 (SETF |PathAlternative| |PathAlternative1749|))))6463 (T6464 (SETF *ATN-TERM?* '|PathAlternative|)6465 (|Path/fail.3| ATN-PARSER::INDEX))))))))6466 (|Path/start.1| ATN-PARSER::INDEX)6467 (SETF *ATN-NODE NIL)6468 NIL6469 (IF ATN-PARSER::ATN-STRUCTURE6470 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6471 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6472 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Path| ATN-PARSER::INDEX *ATN-STACK))))6473 (PROGN (DEFVAR |PathAlternative-INDEX|)6474 (DEFUN |PathAlternative| (ATN-PARSER::INDEX &AUX (|PathSequence| NIL))6475 "{83} PathAlternative ::= PathSequence ('|' PathSequence)*6476 (|PathSequence|)"6477 (DECLARE (SPECIAL |PathAlternative-INDEX|))6478 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathAlternative-INDEX| *ATN-LEVEL))6479 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6480 (IF (< |PathAlternative-INDEX| ATN-PARSER::INDEX)6481 (LET ((|PathAlternative-INDEX| ATN-PARSER::INDEX)6482 (*ATN-LEVEL (1+ *ATN-LEVEL))6483 (*ATN-STACK (CONS '|PathAlternative| *ATN-STACK))6484 (ATN-PARSER::ATN-STRUCTURE NIL))6485 (DECLARE (SPECIAL |PathAlternative-INDEX|))6486 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6487 (DECLARE (TYPE CONS *ATN-STACK))6488 (SYMBOL-MACROLET6489 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6490 (%ATN-BLOCK |PathAlternative|6491 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6492 (SETF *ATN-TERM* '|PathAlternative|)6493 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6494 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6495 (|PathAlternative.2| (ATN-PARSER::INDEX)6496 (%ATN-NODE-BLOCK6497 |PathAlternative.2|6498 (%ATN-EDGE-BLOCK6499 (POP |PathAlternative|)6500 (WHEN T6501 (SETF *ATN-TERM* '|PathAlternative|)6502 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6503 '|PathAlternative|6504 ATN-PARSER::INDEX6505 (LIST '|PathSequence| |PathSequence|))6506 (LET ((ATN-PARSER::RESULT-STRUCTURE6507 (IF (EQ *ATN-REDUCE* T)6508 (|PathAlternative-Constructor| |PathSequence|)6509 (IF (EQ *ATN-REDUCE* 'CONS)6510 (CONS '|PathAlternative| (DELETE NIL (LIST |PathSequence|)))6511 '|PathAlternative|))))6512 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6513 (|PathAlternative.5| (ATN-PARSER::INDEX)6514 (%ATN-NODE-BLOCK6515 |PathAlternative.5|6516 (%ATN-EDGE-BLOCK6517 (ATN-PARSER::JUMP |PathAlternative/PathAlternative.5.6|)6518 (|PathAlternative/PathAlternative.5.6| ATN-PARSER::INDEX))6519 (%ATN-EDGE-BLOCK6520 (ATN-PARSER::JUMP |PathAlternative.2|)6521 (|PathAlternative.2| ATN-PARSER::INDEX))))6522 (|PathAlternative/fail.3| (ATN-PARSER::INDEX)6523 (%ATN-NODE-BLOCK |PathAlternative/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6524 (|PathAlternative/PathAlternative.2.4| (ATN-PARSER::INDEX)6525 (%ATN-NODE-BLOCK6526 |PathAlternative/PathAlternative.2.4|6527 (%ATN-EDGE-BLOCK6528 (ATN-PARSER::JUMP |PathAlternative/PathAlternative.5.6|)6529 (|PathAlternative/PathAlternative.5.6| ATN-PARSER::INDEX))6530 (%ATN-EDGE-BLOCK6531 (ATN-PARSER::JUMP |PathAlternative.2|)6532 (|PathAlternative.2| ATN-PARSER::INDEX))))6533 (|PathAlternative/PathAlternative.5.6| (ATN-PARSER::INDEX)6534 (%ATN-NODE-BLOCK6535 |PathAlternative/PathAlternative.5.6|6536 (%ATN-EDGE-BLOCK6537 (ATN-PARSER::WORD SPOCQ.S:\|)6538 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\|)6539 (SETF *ATN-TERM* 'SPOCQ.S:\|)6540 (|PathAlternative/PathAlternative.5.7| (1+ ATN-PARSER::INDEX)))6541 (T (SETF *ATN-TERM?* 'SPOCQ.S:\|) NIL)))))6542 (|PathAlternative/PathAlternative.5.7| (ATN-PARSER::INDEX)6543 (%ATN-NODE-BLOCK6544 |PathAlternative/PathAlternative.5.7|6545 (%ATN-EDGE-BLOCK6546 (PUSH |PathSequence|)6547 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6548 (ATN-PARSE-SUBSTRUCTURE* '|PathSequence| ATN-PARSER::INDEX)6549 (COND (ATN-PARSER::SUCCESS6550 (SETF *ATN-TERM* '|PathSequence|)6551 (LET ((|PathSequence1749| |PathSequence|))6552 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6553 (DESTRUCTURING-BIND6554 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6555 ATN-PARSER::RESULT-AND-INDEX6556 (WHEN ATN-PARSER::RESULT6557 (SETF |PathSequence| (CONS ATN-PARSER::RESULT |PathSequence|)))6558 (|PathAlternative.5| ATN-PARSER::RESULT-INDEX))6559 (SETF |PathSequence| |PathSequence1749|))))6560 (T (SETF *ATN-TERM?* '|PathSequence|) NIL))))))6561 (|PathAlternative/start.1| (ATN-PARSER::INDEX)6562 (%ATN-NODE-BLOCK6563 |PathAlternative/start.1|6564 (%ATN-EDGE-BLOCK6565 (PUSH |PathSequence|)6566 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6567 (ATN-PARSE-SUBSTRUCTURE* '|PathSequence| ATN-PARSER::INDEX)6568 (COND (ATN-PARSER::SUCCESS6569 (SETF *ATN-TERM* '|PathSequence|)6570 (LET ((|PathSequence1750| |PathSequence|))6571 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6572 (DESTRUCTURING-BIND6573 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6574 ATN-PARSER::RESULT-AND-INDEX6575 (WHEN ATN-PARSER::RESULT6576 (SETF |PathSequence| (CONS ATN-PARSER::RESULT |PathSequence|)))6577 (|PathAlternative/PathAlternative.2.4| ATN-PARSER::RESULT-INDEX))6578 (SETF |PathSequence| |PathSequence1750|))))6579 (T6580 (SETF *ATN-TERM?* '|PathSequence|)6581 (|PathAlternative/fail.3| ATN-PARSER::INDEX))))))))6582 (|PathAlternative/start.1| ATN-PARSER::INDEX)6583 (SETF *ATN-NODE NIL)6584 NIL6585 (IF ATN-PARSER::ATN-STRUCTURE6586 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6587 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6588 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathAlternative| ATN-PARSER::INDEX *ATN-STACK))))6589 (PROGN (DEFVAR |PathSequence-INDEX|)6590 (DEFUN |PathSequence| (ATN-PARSER::INDEX &AUX (|PathEltOrInverse| NIL))6591 "{84} PathSequence ::= PathEltOrInverse ('/' PathEltOrInverse)*6592 (|PathEltOrInverse|)"6593 (DECLARE (SPECIAL |PathSequence-INDEX|))6594 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathSequence-INDEX| *ATN-LEVEL))6595 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6596 (IF (< |PathSequence-INDEX| ATN-PARSER::INDEX)6597 (LET ((|PathSequence-INDEX| ATN-PARSER::INDEX)6598 (*ATN-LEVEL (1+ *ATN-LEVEL))6599 (*ATN-STACK (CONS '|PathSequence| *ATN-STACK))6600 (ATN-PARSER::ATN-STRUCTURE NIL))6601 (DECLARE (SPECIAL |PathSequence-INDEX|))6602 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6603 (DECLARE (TYPE CONS *ATN-STACK))6604 (SYMBOL-MACROLET6605 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6606 (%ATN-BLOCK |PathSequence|6607 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6608 (SETF *ATN-TERM* '|PathSequence|)6609 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6610 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6611 (|PathSequence.2| (ATN-PARSER::INDEX)6612 (%ATN-NODE-BLOCK6613 |PathSequence.2|6614 (%ATN-EDGE-BLOCK6615 (POP |PathSequence|)6616 (WHEN T6617 (SETF *ATN-TERM* '|PathSequence|)6618 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6619 '|PathSequence|6620 ATN-PARSER::INDEX6621 (LIST '|PathEltOrInverse| |PathEltOrInverse|))6622 (LET ((ATN-PARSER::RESULT-STRUCTURE6623 (IF (EQ *ATN-REDUCE* T)6624 (|PathSequence-Constructor| |PathEltOrInverse|)6625 (IF (EQ *ATN-REDUCE* 'CONS)6626 (CONS '|PathSequence| (DELETE NIL (LIST |PathEltOrInverse|)))6627 '|PathSequence|))))6628 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6629 (|PathSequence.5| (ATN-PARSER::INDEX)6630 (%ATN-NODE-BLOCK6631 |PathSequence.5|6632 (%ATN-EDGE-BLOCK6633 (ATN-PARSER::JUMP |PathSequence/PathSequence.5.6|)6634 (|PathSequence/PathSequence.5.6| ATN-PARSER::INDEX))6635 (%ATN-EDGE-BLOCK6636 (ATN-PARSER::JUMP |PathSequence.2|)6637 (|PathSequence.2| ATN-PARSER::INDEX))))6638 (|PathSequence/fail.3| (ATN-PARSER::INDEX)6639 (%ATN-NODE-BLOCK |PathSequence/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6640 (|PathSequence/PathSequence.2.4| (ATN-PARSER::INDEX)6641 (%ATN-NODE-BLOCK6642 |PathSequence/PathSequence.2.4|6643 (%ATN-EDGE-BLOCK6644 (ATN-PARSER::JUMP |PathSequence/PathSequence.5.6|)6645 (|PathSequence/PathSequence.5.6| ATN-PARSER::INDEX))6646 (%ATN-EDGE-BLOCK6647 (ATN-PARSER::JUMP |PathSequence.2|)6648 (|PathSequence.2| ATN-PARSER::INDEX))))6649 (|PathSequence/PathSequence.5.6| (ATN-PARSER::INDEX)6650 (%ATN-NODE-BLOCK6651 |PathSequence/PathSequence.5.6|6652 (%ATN-EDGE-BLOCK6653 (ATN-PARSER::WORD SPOCQ.S:/)6654 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:/)6655 (SETF *ATN-TERM* 'SPOCQ.S:/)6656 (|PathSequence/PathSequence.5.7| (1+ ATN-PARSER::INDEX)))6657 (T (SETF *ATN-TERM?* 'SPOCQ.S:/) NIL)))))6658 (|PathSequence/PathSequence.5.7| (ATN-PARSER::INDEX)6659 (%ATN-NODE-BLOCK6660 |PathSequence/PathSequence.5.7|6661 (%ATN-EDGE-BLOCK6662 (PUSH |PathEltOrInverse|)6663 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6664 (ATN-PARSE-SUBSTRUCTURE* '|PathEltOrInverse| ATN-PARSER::INDEX)6665 (COND (ATN-PARSER::SUCCESS6666 (SETF *ATN-TERM* '|PathEltOrInverse|)6667 (LET ((|PathEltOrInverse1750| |PathEltOrInverse|))6668 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6669 (DESTRUCTURING-BIND6670 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6671 ATN-PARSER::RESULT-AND-INDEX6672 (WHEN ATN-PARSER::RESULT6673 (SETF |PathEltOrInverse|6674 (CONS ATN-PARSER::RESULT |PathEltOrInverse|)))6675 (|PathSequence.5| ATN-PARSER::RESULT-INDEX))6676 (SETF |PathEltOrInverse| |PathEltOrInverse1750|))))6677 (T (SETF *ATN-TERM?* '|PathEltOrInverse|) NIL))))))6678 (|PathSequence/start.1| (ATN-PARSER::INDEX)6679 (%ATN-NODE-BLOCK6680 |PathSequence/start.1|6681 (%ATN-EDGE-BLOCK6682 (PUSH |PathEltOrInverse|)6683 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6684 (ATN-PARSE-SUBSTRUCTURE* '|PathEltOrInverse| ATN-PARSER::INDEX)6685 (COND (ATN-PARSER::SUCCESS6686 (SETF *ATN-TERM* '|PathEltOrInverse|)6687 (LET ((|PathEltOrInverse1751| |PathEltOrInverse|))6688 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6689 (DESTRUCTURING-BIND6690 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6691 ATN-PARSER::RESULT-AND-INDEX6692 (WHEN ATN-PARSER::RESULT6693 (SETF |PathEltOrInverse|6694 (CONS ATN-PARSER::RESULT |PathEltOrInverse|)))6695 (|PathSequence/PathSequence.2.4| ATN-PARSER::RESULT-INDEX))6696 (SETF |PathEltOrInverse| |PathEltOrInverse1751|))))6697 (T6698 (SETF *ATN-TERM?* '|PathEltOrInverse|)6699 (|PathSequence/fail.3| ATN-PARSER::INDEX))))))))6700 (|PathSequence/start.1| ATN-PARSER::INDEX)6701 (SETF *ATN-NODE NIL)6702 NIL6703 (IF ATN-PARSER::ATN-STRUCTURE6704 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6705 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6706 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathSequence| ATN-PARSER::INDEX *ATN-STACK))))6707 (PROGN (DEFVAR |PathElt-INDEX|)6708 (DEFUN |PathElt| (ATN-PARSER::INDEX &AUX (|PathMod| NIL) (|PathPrimary| NIL))6709 "{85} PathElt ::= PathPrimary PathMod?6710 (|PathMod| |PathPrimary|)"6711 (DECLARE (SPECIAL |PathElt-INDEX|))6712 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathElt-INDEX| *ATN-LEVEL))6713 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6714 (IF (< |PathElt-INDEX| ATN-PARSER::INDEX)6715 (LET ((|PathElt-INDEX| ATN-PARSER::INDEX)6716 (*ATN-LEVEL (1+ *ATN-LEVEL))6717 (*ATN-STACK (CONS '|PathElt| *ATN-STACK))6718 (ATN-PARSER::ATN-STRUCTURE NIL))6719 (DECLARE (SPECIAL |PathElt-INDEX|))6720 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6721 (DECLARE (TYPE CONS *ATN-STACK))6722 (SYMBOL-MACROLET6723 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6724 (%ATN-BLOCK |PathElt|6725 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6726 (SETF *ATN-TERM* '|PathElt|)6727 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6728 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6729 (|PathElt.2| (ATN-PARSER::INDEX)6730 (%ATN-NODE-BLOCK6731 |PathElt.2|6732 (%ATN-EDGE-BLOCK6733 (POP |PathElt|)6734 (WHEN T6735 (SETF *ATN-TERM* '|PathElt|)6736 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6737 '|PathElt|6738 ATN-PARSER::INDEX6739 (LIST '|PathMod| |PathMod| '|PathPrimary| |PathPrimary|))6740 (LET ((ATN-PARSER::RESULT-STRUCTURE6741 (IF (EQ *ATN-REDUCE* T)6742 (|PathElt-Constructor| |PathMod| |PathPrimary|)6743 (IF (EQ *ATN-REDUCE* 'CONS)6744 (CONS '|PathElt| (DELETE NIL (LIST |PathMod| |PathPrimary|)))6745 '|PathElt|))))6746 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6747 (|PathElt/fail.3| (ATN-PARSER::INDEX)6748 (%ATN-NODE-BLOCK |PathElt/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6749 (|PathElt/PathElt.2.4| (ATN-PARSER::INDEX)6750 (%ATN-NODE-BLOCK6751 |PathElt/PathElt.2.4|6752 (%ATN-EDGE-BLOCK6753 (PUSH |PathMod|)6754 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6755 (ATN-PARSE-SUBSTRUCTURE* '|PathMod| ATN-PARSER::INDEX)6756 (COND (ATN-PARSER::SUCCESS6757 (SETF *ATN-TERM* '|PathMod|)6758 (LET ((|PathMod1751| |PathMod|))6759 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6760 (DESTRUCTURING-BIND6761 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6762 ATN-PARSER::RESULT-AND-INDEX6763 (WHEN ATN-PARSER::RESULT (SETF |PathMod| ATN-PARSER::RESULT))6764 (|PathElt.2| ATN-PARSER::RESULT-INDEX))6765 (SETF |PathMod| |PathMod1751|))))6766 (T (SETF *ATN-TERM?* '|PathMod|) (|PathElt.2| ATN-PARSER::INDEX)))))))6767 (|PathElt/start.1| (ATN-PARSER::INDEX)6768 (%ATN-NODE-BLOCK6769 |PathElt/start.1|6770 (%ATN-EDGE-BLOCK6771 (PUSH |PathPrimary|)6772 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6773 (ATN-PARSE-SUBSTRUCTURE* '|PathPrimary| ATN-PARSER::INDEX)6774 (COND (ATN-PARSER::SUCCESS6775 (SETF *ATN-TERM* '|PathPrimary|)6776 (LET ((|PathPrimary1751| |PathPrimary|))6777 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6778 (DESTRUCTURING-BIND6779 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6780 ATN-PARSER::RESULT-AND-INDEX6781 (WHEN ATN-PARSER::RESULT (SETF |PathPrimary| ATN-PARSER::RESULT))6782 (|PathElt/PathElt.2.4| ATN-PARSER::RESULT-INDEX))6783 (SETF |PathPrimary| |PathPrimary1751|))))6784 (T6785 (SETF *ATN-TERM?* '|PathPrimary|)6786 (|PathElt/fail.3| ATN-PARSER::INDEX))))))))6787 (|PathElt/start.1| ATN-PARSER::INDEX)6788 (SETF *ATN-NODE NIL)6789 NIL6790 (IF ATN-PARSER::ATN-STRUCTURE6791 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6792 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6793 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathElt| ATN-PARSER::INDEX *ATN-STACK))))6794 (PROGN (DEFVAR |PathEltOrInverse-INDEX|)6795 (DEFUN |PathEltOrInverse| (ATN-PARSER::INDEX &AUX (|InvertedPathElt| NIL) (|PathElt| NIL))6796 "{86} PathEltOrInverse ::= (PathElt | ('^' InvertedPathElt))6797 (|InvertedPathElt| |PathElt|)"6798 (DECLARE (SPECIAL |PathEltOrInverse-INDEX|))6799 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathEltOrInverse-INDEX| *ATN-LEVEL))6800 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6801 (IF (< |PathEltOrInverse-INDEX| ATN-PARSER::INDEX)6802 (LET ((|PathEltOrInverse-INDEX| ATN-PARSER::INDEX)6803 (*ATN-LEVEL (1+ *ATN-LEVEL))6804 (*ATN-STACK (CONS '|PathEltOrInverse| *ATN-STACK))6805 (ATN-PARSER::ATN-STRUCTURE NIL))6806 (DECLARE (SPECIAL |PathEltOrInverse-INDEX|))6807 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6808 (DECLARE (TYPE CONS *ATN-STACK))6809 (SYMBOL-MACROLET6810 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6811 (%ATN-BLOCK |PathEltOrInverse|6812 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6813 (SETF *ATN-TERM* '|PathEltOrInverse|)6814 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6815 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6816 (|PathEltOrInverse.2| (ATN-PARSER::INDEX)6817 (%ATN-NODE-BLOCK6818 |PathEltOrInverse.2|6819 (%ATN-EDGE-BLOCK6820 (POP |PathEltOrInverse|)6821 (WHEN T6822 (SETF *ATN-TERM* '|PathEltOrInverse|)6823 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6824 '|PathEltOrInverse|6825 ATN-PARSER::INDEX6826 (LIST '|InvertedPathElt| |InvertedPathElt| '|PathElt| |PathElt|))6827 (LET ((ATN-PARSER::RESULT-STRUCTURE6828 (IF (EQ *ATN-REDUCE* T)6829 (|PathEltOrInverse-Constructor| |InvertedPathElt| |PathElt|)6830 (IF (EQ *ATN-REDUCE* 'CONS)6831 (CONS '|PathEltOrInverse|6832 (DELETE NIL (LIST |InvertedPathElt| |PathElt|)))6833 '|PathEltOrInverse|))))6834 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6835 (|PathEltOrInverse/fail.3| (ATN-PARSER::INDEX)6836 (%ATN-NODE-BLOCK |PathEltOrInverse/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6837 (|PathEltOrInverse/PathEltOrInverse.2.4| (ATN-PARSER::INDEX)6838 (%ATN-NODE-BLOCK6839 |PathEltOrInverse/PathEltOrInverse.2.4|6840 (%ATN-EDGE-BLOCK6841 (ATN-PARSER::WORD SPOCQ.S::^)6842 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S::^)6843 (SETF *ATN-TERM* 'SPOCQ.S::^)6844 (|PathEltOrInverse/PathEltOrInverse.2.5| (1+ ATN-PARSER::INDEX)))6845 (T (SETF *ATN-TERM?* 'SPOCQ.S::^) NIL)))))6846 (|PathEltOrInverse/PathEltOrInverse.2.5| (ATN-PARSER::INDEX)6847 (%ATN-NODE-BLOCK6848 |PathEltOrInverse/PathEltOrInverse.2.5|6849 (%ATN-EDGE-BLOCK6850 (PUSH |InvertedPathElt|)6851 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6852 (ATN-PARSE-SUBSTRUCTURE* '|InvertedPathElt| ATN-PARSER::INDEX)6853 (COND (ATN-PARSER::SUCCESS6854 (SETF *ATN-TERM* '|InvertedPathElt|)6855 (LET ((|InvertedPathElt1751| |InvertedPathElt|))6856 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6857 (DESTRUCTURING-BIND6858 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6859 ATN-PARSER::RESULT-AND-INDEX6860 (WHEN ATN-PARSER::RESULT (SETF |InvertedPathElt| ATN-PARSER::RESULT))6861 (|PathEltOrInverse.2| ATN-PARSER::RESULT-INDEX))6862 (SETF |InvertedPathElt| |InvertedPathElt1751|))))6863 (T (SETF *ATN-TERM?* '|InvertedPathElt|) NIL))))))6864 (|PathEltOrInverse/start.1| (ATN-PARSER::INDEX)6865 (%ATN-NODE-BLOCK6866 |PathEltOrInverse/start.1|6867 (%ATN-EDGE-BLOCK6868 OR6869 (PROGN (%ATN-EDGE-BLOCK6870 (PUSH |PathElt|)6871 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6872 (ATN-PARSE-SUBSTRUCTURE* '|PathElt| ATN-PARSER::INDEX)6873 (COND (ATN-PARSER::SUCCESS6874 (SETF *ATN-TERM* '|PathElt|)6875 (LET ((|PathElt1751| |PathElt|))6876 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6877 (DESTRUCTURING-BIND6878 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6879 ATN-PARSER::RESULT-AND-INDEX6880 (WHEN ATN-PARSER::RESULT (SETF |PathElt| ATN-PARSER::RESULT))6881 (|PathEltOrInverse.2| ATN-PARSER::RESULT-INDEX))6882 (SETF |PathElt| |PathElt1751|))))6883 (T (SETF *ATN-TERM?* '|PathElt|) NIL))))6884 (%ATN-EDGE-BLOCK6885 (ATN-PARSER::JUMP |PathEltOrInverse/PathEltOrInverse.2.4|)6886 (|PathEltOrInverse/PathEltOrInverse.2.4| ATN-PARSER::INDEX))6887 (|PathEltOrInverse/fail.3| ATN-PARSER::INDEX))))))6888 (|PathEltOrInverse/start.1| ATN-PARSER::INDEX)6889 (SETF *ATN-NODE NIL)6890 NIL6891 (IF ATN-PARSER::ATN-STRUCTURE6892 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6893 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6894 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathEltOrInverse| ATN-PARSER::INDEX *ATN-STACK))))6895 (PROGN (DEFVAR |InvertedPathElt-INDEX|)6896 (DEFUN |InvertedPathElt| (ATN-PARSER::INDEX &AUX (|PathElt| NIL))6897 "InvertedPathElt ::= PathElt6898 (|PathElt|)"6899 (DECLARE (SPECIAL |InvertedPathElt-INDEX|))6900 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |InvertedPathElt-INDEX| *ATN-LEVEL))6901 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6902 (IF (< |InvertedPathElt-INDEX| ATN-PARSER::INDEX)6903 (LET ((|InvertedPathElt-INDEX| ATN-PARSER::INDEX)6904 (*ATN-LEVEL (1+ *ATN-LEVEL))6905 (*ATN-STACK (CONS '|InvertedPathElt| *ATN-STACK))6906 (ATN-PARSER::ATN-STRUCTURE NIL))6907 (DECLARE (SPECIAL |InvertedPathElt-INDEX|))6908 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6909 (DECLARE (TYPE CONS *ATN-STACK))6910 (SYMBOL-MACROLET6911 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6912 (%ATN-BLOCK |InvertedPathElt|6913 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6914 (SETF *ATN-TERM* '|InvertedPathElt|)6915 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6916 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6917 (|InvertedPathElt.2| (ATN-PARSER::INDEX)6918 (%ATN-NODE-BLOCK6919 |InvertedPathElt.2|6920 (%ATN-EDGE-BLOCK6921 (POP |InvertedPathElt|)6922 (WHEN T6923 (SETF *ATN-TERM* '|InvertedPathElt|)6924 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6925 '|InvertedPathElt|6926 ATN-PARSER::INDEX6927 (LIST '|PathElt| |PathElt|))6928 (LET ((ATN-PARSER::RESULT-STRUCTURE6929 (IF (EQ *ATN-REDUCE* T)6930 (|InvertedPathElt-Constructor| |PathElt|)6931 (IF (EQ *ATN-REDUCE* 'CONS)6932 (CONS '|InvertedPathElt| (DELETE NIL (LIST |PathElt|)))6933 '|InvertedPathElt|))))6934 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6935 (|InvertedPathElt/fail.3| (ATN-PARSER::INDEX)6936 (%ATN-NODE-BLOCK |InvertedPathElt/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6937 (|InvertedPathElt/start.1| (ATN-PARSER::INDEX)6938 (%ATN-NODE-BLOCK6939 |InvertedPathElt/start.1|6940 (%ATN-EDGE-BLOCK6941 (PUSH |PathElt|)6942 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6943 (ATN-PARSE-SUBSTRUCTURE* '|PathElt| ATN-PARSER::INDEX)6944 (COND (ATN-PARSER::SUCCESS6945 (SETF *ATN-TERM* '|PathElt|)6946 (LET ((|PathElt1752| |PathElt|))6947 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6948 (DESTRUCTURING-BIND6949 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6950 ATN-PARSER::RESULT-AND-INDEX6951 (WHEN ATN-PARSER::RESULT (SETF |PathElt| ATN-PARSER::RESULT))6952 (|InvertedPathElt.2| ATN-PARSER::RESULT-INDEX))6953 (SETF |PathElt| |PathElt1752|))))6954 (T6955 (SETF *ATN-TERM?* '|PathElt|)6956 (|InvertedPathElt/fail.3| ATN-PARSER::INDEX))))))))6957 (|InvertedPathElt/start.1| ATN-PARSER::INDEX)6958 (SETF *ATN-NODE NIL)6959 NIL6960 (IF ATN-PARSER::ATN-STRUCTURE6961 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6962 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6963 (WARN "recursive grammar: ~s @ position ~s: ~s" '|InvertedPathElt| ATN-PARSER::INDEX *ATN-STACK))))6964 (PROGN (DEFVAR |PathMod-INDEX|)6965 (DEFUN |PathMod| (ATN-PARSER::INDEX &AUX (|PathCardinality| NIL) (|PathRange| NIL))6966 "{87} PathMod ::= (PathCardinality | PathRange)6967 (|PathCardinality| |PathRange|)"6968 (DECLARE (SPECIAL |PathMod-INDEX|))6969 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathMod-INDEX| *ATN-LEVEL))6970 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6971 (IF (< |PathMod-INDEX| ATN-PARSER::INDEX)6972 (LET ((|PathMod-INDEX| ATN-PARSER::INDEX)6973 (*ATN-LEVEL (1+ *ATN-LEVEL))6974 (*ATN-STACK (CONS '|PathMod| *ATN-STACK))6975 (ATN-PARSER::ATN-STRUCTURE NIL))6976 (DECLARE (SPECIAL |PathMod-INDEX|))6977 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6978 (DECLARE (TYPE CONS *ATN-STACK))6979 (SYMBOL-MACROLET6980 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6981 (%ATN-BLOCK |PathMod|6982 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6983 (SETF *ATN-TERM* '|PathMod|)6984 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6985 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6986 (|PathMod.2| (ATN-PARSER::INDEX)6987 (%ATN-NODE-BLOCK6988 |PathMod.2|6989 (%ATN-EDGE-BLOCK6990 (POP |PathMod|)6991 (WHEN T6992 (SETF *ATN-TERM* '|PathMod|)6993 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6994 '|PathMod|6995 ATN-PARSER::INDEX6996 (LIST '|PathCardinality| |PathCardinality| '|PathRange| |PathRange|))6997 (LET ((ATN-PARSER::RESULT-STRUCTURE6998 (IF (EQ *ATN-REDUCE* T)6999 (|PathMod-Constructor| |PathCardinality| |PathRange|)7000 (IF (EQ *ATN-REDUCE* 'CONS)7001 (CONS '|PathMod| (DELETE NIL (LIST |PathCardinality| |PathRange|)))7002 '|PathMod|))))7003 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7004 (|PathMod/fail.3| (ATN-PARSER::INDEX)7005 (%ATN-NODE-BLOCK |PathMod/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7006 (|PathMod/start.1| (ATN-PARSER::INDEX)7007 (%ATN-NODE-BLOCK7008 |PathMod/start.1|7009 (%ATN-EDGE-BLOCK7010 OR7011 (PROGN (%ATN-EDGE-BLOCK7012 (ATN-PARSER::CAT |PathCardinality|)7013 (COND ((|IS-PathCardinality| ATN-PARSER::|item|)7014 (SETF *ATN-TERM* '|PathCardinality|)7015 (SETF |PathCardinality|7016 (IF (EQ *ATN-REDUCE* T)7017 (ATN-REDUCE-ITEM7018 #'|PathCardinality-Constructor|7019 ATN-PARSER::|item|)7020 (IF (EQ *ATN-REDUCE* 'CONS)7021 (LIST '|PathCardinality| ATN-PARSER::|item|)7022 '|PathCardinality|)))7023 (|PathMod.2| (1+ ATN-PARSER::INDEX)))7024 (T (SETF *ATN-TERM* '|PathCardinality|) NIL)))7025 (%ATN-EDGE-BLOCK7026 (PUSH |PathRange|)7027 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7028 (ATN-PARSE-SUBSTRUCTURE* '|PathRange| ATN-PARSER::INDEX)7029 (COND (ATN-PARSER::SUCCESS7030 (SETF *ATN-TERM* '|PathRange|)7031 (LET ((|PathRange1752| |PathRange|))7032 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7033 (DESTRUCTURING-BIND7034 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7035 ATN-PARSER::RESULT-AND-INDEX7036 (WHEN ATN-PARSER::RESULT (SETF |PathRange| ATN-PARSER::RESULT))7037 (|PathMod.2| ATN-PARSER::RESULT-INDEX))7038 (SETF |PathRange| |PathRange1752|))))7039 (T (SETF *ATN-TERM?* '|PathRange|) NIL))))7040 (|PathMod/fail.3| ATN-PARSER::INDEX))))))7041 (|PathMod/start.1| ATN-PARSER::INDEX)7042 (SETF *ATN-NODE NIL)7043 NIL7044 (IF ATN-PARSER::ATN-STRUCTURE7045 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7046 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7047 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathMod| ATN-PARSER::INDEX *ATN-STACK))))7048 (PROGN (DEFVAR |PathRange-INDEX|)7049 (DEFUN |PathRange| (ATN-PARSER::INDEX &AUX (|PathRangeCount| NIL) (|PathRangeEnd| NIL) (|PathRangeStart| NIL))7050 "PathRange ::= '{' (((PathRangeStart ',') | (PathRangeStart7051 ','7052 PathRangeEnd) | (','7053 PathRangeEnd) | PathRangeCount)) '}'7054 (|PathRangeCount| |PathRangeEnd| |PathRangeStart|)"7055 (DECLARE (SPECIAL |PathRange-INDEX|))7056 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathRange-INDEX| *ATN-LEVEL))7057 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7058 (IF (< |PathRange-INDEX| ATN-PARSER::INDEX)7059 (LET ((|PathRange-INDEX| ATN-PARSER::INDEX)7060 (*ATN-LEVEL (1+ *ATN-LEVEL))7061 (*ATN-STACK (CONS '|PathRange| *ATN-STACK))7062 (ATN-PARSER::ATN-STRUCTURE NIL))7063 (DECLARE (SPECIAL |PathRange-INDEX|))7064 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7065 (DECLARE (TYPE CONS *ATN-STACK))7066 (SYMBOL-MACROLET7067 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7068 (%ATN-BLOCK |PathRange|7069 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7070 (SETF *ATN-TERM* '|PathRange|)7071 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7072 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7073 (|PathRange.2| (ATN-PARSER::INDEX)7074 (%ATN-NODE-BLOCK7075 |PathRange.2|7076 (%ATN-EDGE-BLOCK7077 (POP |PathRange|)7078 (WHEN T7079 (SETF *ATN-TERM* '|PathRange|)7080 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7081 '|PathRange|7082 ATN-PARSER::INDEX7083 (LIST '|PathRangeCount|7084 |PathRangeCount|7085 '|PathRangeEnd|7086 |PathRangeEnd|7087 '|PathRangeStart|7088 |PathRangeStart|))7089 (LET ((ATN-PARSER::RESULT-STRUCTURE7090 (IF (EQ *ATN-REDUCE* T)7091 (|PathRange-Constructor| |PathRangeCount| |PathRangeEnd| |PathRangeStart|)7092 (IF (EQ *ATN-REDUCE* 'CONS)7093 (CONS '|PathRange|7094 (DELETE NIL7095 (LIST |PathRangeCount|7096 |PathRangeEnd|7097 |PathRangeStart|)))7098 '|PathRange|))))7099 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7100 (|PathRange/fail.3| (ATN-PARSER::INDEX)7101 (%ATN-NODE-BLOCK |PathRange/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7102 (|PathRange/PathRange.2.4| (ATN-PARSER::INDEX)7103 (%ATN-NODE-BLOCK7104 |PathRange/PathRange.2.4|7105 (%ATN-EDGE-BLOCK7106 OR7107 (PROGN (%ATN-EDGE-BLOCK7108 (ATN-PARSER::JUMP |PathRange/PathRange/PathRange.2.5.6|)7109 (|PathRange/PathRange/PathRange.2.5.6| ATN-PARSER::INDEX))7110 (%ATN-EDGE-BLOCK7111 (ATN-PARSER::JUMP |PathRange/PathRange/PathRange.2.5.8|)7112 (|PathRange/PathRange/PathRange.2.5.8| ATN-PARSER::INDEX))7113 (%ATN-EDGE-BLOCK7114 (ATN-PARSER::JUMP |PathRange/PathRange/PathRange.2.5.11|)7115 (|PathRange/PathRange/PathRange.2.5.11| ATN-PARSER::INDEX))7116 (%ATN-EDGE-BLOCK7117 (ATN-PARSER::CAT |PathRangeCount|)7118 (COND ((|IS-PathRangeCount| ATN-PARSER::|item|)7119 (SETF *ATN-TERM* '|PathRangeCount|)7120 (SETF |PathRangeCount|7121 (IF (EQ *ATN-REDUCE* T)7122 (ATN-REDUCE-ITEM7123 #'|PathRangeCount-Constructor|7124 ATN-PARSER::|item|)7125 (IF (EQ *ATN-REDUCE* 'CONS)7126 (LIST '|PathRangeCount| ATN-PARSER::|item|)7127 '|PathRangeCount|)))7128 (|PathRange/PathRange.2.5| (1+ ATN-PARSER::INDEX)))7129 (T (SETF *ATN-TERM* '|PathRangeCount|) NIL)))7130 (|PathRange/fail.3| ATN-PARSER::INDEX)))))7131 (|PathRange/PathRange.2.5| (ATN-PARSER::INDEX)7132 (%ATN-NODE-BLOCK7133 |PathRange/PathRange.2.5|7134 (%ATN-EDGE-BLOCK7135 (ATN-PARSER::WORD SPOCQ.S:})7136 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:})7137 (SETF *ATN-TERM* 'SPOCQ.S:})7138 (|PathRange.2| (1+ ATN-PARSER::INDEX)))7139 (T (SETF *ATN-TERM?* 'SPOCQ.S:}) (|PathRange/fail.3| ATN-PARSER::INDEX))))))7140 (|PathRange/PathRange/PathRange.2.5.10| (ATN-PARSER::INDEX)7141 (%ATN-NODE-BLOCK7142 |PathRange/PathRange/PathRange.2.5.10|7143 (%ATN-EDGE-BLOCK7144 (ATN-PARSER::CAT |PathRangeEnd|)7145 (COND ((|IS-PathRangeEnd| ATN-PARSER::|item|)7146 (SETF *ATN-TERM* '|PathRangeEnd|)7147 (SETF |PathRangeEnd|7148 (IF (EQ *ATN-REDUCE* T)7149 (ATN-REDUCE-ITEM #'|PathRangeEnd-Constructor| ATN-PARSER::|item|)7150 (IF (EQ *ATN-REDUCE* 'CONS)7151 (LIST '|PathRangeEnd| ATN-PARSER::|item|)7152 '|PathRangeEnd|)))7153 (|PathRange/PathRange.2.5| (1+ ATN-PARSER::INDEX)))7154 (T (SETF *ATN-TERM* '|PathRangeEnd|) NIL)))))7155 (|PathRange/PathRange/PathRange.2.5.11| (ATN-PARSER::INDEX)7156 (%ATN-NODE-BLOCK7157 |PathRange/PathRange/PathRange.2.5.11|7158 (%ATN-EDGE-BLOCK7159 (ATN-PARSER::WORD SPOCQ.S:\,)7160 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)7161 (SETF *ATN-TERM* 'SPOCQ.S:\,)7162 (|PathRange/PathRange/PathRange.2.5.12| (1+ ATN-PARSER::INDEX)))7163 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))7164 (|PathRange/PathRange/PathRange.2.5.12| (ATN-PARSER::INDEX)7165 (%ATN-NODE-BLOCK7166 |PathRange/PathRange/PathRange.2.5.12|7167 (%ATN-EDGE-BLOCK7168 (ATN-PARSER::CAT |PathRangeEnd|)7169 (COND ((|IS-PathRangeEnd| ATN-PARSER::|item|)7170 (SETF *ATN-TERM* '|PathRangeEnd|)7171 (SETF |PathRangeEnd|7172 (IF (EQ *ATN-REDUCE* T)7173 (ATN-REDUCE-ITEM #'|PathRangeEnd-Constructor| ATN-PARSER::|item|)7174 (IF (EQ *ATN-REDUCE* 'CONS)7175 (LIST '|PathRangeEnd| ATN-PARSER::|item|)7176 '|PathRangeEnd|)))7177 (|PathRange/PathRange.2.5| (1+ ATN-PARSER::INDEX)))7178 (T (SETF *ATN-TERM* '|PathRangeEnd|) NIL)))))7179 (|PathRange/PathRange/PathRange.2.5.6| (ATN-PARSER::INDEX)7180 (%ATN-NODE-BLOCK7181 |PathRange/PathRange/PathRange.2.5.6|7182 (%ATN-EDGE-BLOCK7183 (ATN-PARSER::CAT |PathRangeStart|)7184 (COND ((|IS-PathRangeStart| ATN-PARSER::|item|)7185 (SETF *ATN-TERM* '|PathRangeStart|)7186 (SETF |PathRangeStart|7187 (IF (EQ *ATN-REDUCE* T)7188 (ATN-REDUCE-ITEM #'|PathRangeStart-Constructor| ATN-PARSER::|item|)7189 (IF (EQ *ATN-REDUCE* 'CONS)7190 (LIST '|PathRangeStart| ATN-PARSER::|item|)7191 '|PathRangeStart|)))7192 (|PathRange/PathRange/PathRange.2.5.7| (1+ ATN-PARSER::INDEX)))7193 (T (SETF *ATN-TERM* '|PathRangeStart|) NIL)))))7194 (|PathRange/PathRange/PathRange.2.5.7| (ATN-PARSER::INDEX)7195 (%ATN-NODE-BLOCK7196 |PathRange/PathRange/PathRange.2.5.7|7197 (%ATN-EDGE-BLOCK7198 (ATN-PARSER::WORD SPOCQ.S:\,)7199 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)7200 (SETF *ATN-TERM* 'SPOCQ.S:\,)7201 (|PathRange/PathRange.2.5| (1+ ATN-PARSER::INDEX)))7202 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))7203 (|PathRange/PathRange/PathRange.2.5.8| (ATN-PARSER::INDEX)7204 (%ATN-NODE-BLOCK7205 |PathRange/PathRange/PathRange.2.5.8|7206 (%ATN-EDGE-BLOCK7207 (ATN-PARSER::CAT |PathRangeStart|)7208 (COND ((|IS-PathRangeStart| ATN-PARSER::|item|)7209 (SETF *ATN-TERM* '|PathRangeStart|)7210 (SETF |PathRangeStart|7211 (IF (EQ *ATN-REDUCE* T)7212 (ATN-REDUCE-ITEM #'|PathRangeStart-Constructor| ATN-PARSER::|item|)7213 (IF (EQ *ATN-REDUCE* 'CONS)7214 (LIST '|PathRangeStart| ATN-PARSER::|item|)7215 '|PathRangeStart|)))7216 (|PathRange/PathRange/PathRange.2.5.9| (1+ ATN-PARSER::INDEX)))7217 (T (SETF *ATN-TERM* '|PathRangeStart|) NIL)))))7218 (|PathRange/PathRange/PathRange.2.5.9| (ATN-PARSER::INDEX)7219 (%ATN-NODE-BLOCK7220 |PathRange/PathRange/PathRange.2.5.9|7221 (%ATN-EDGE-BLOCK7222 (ATN-PARSER::WORD SPOCQ.S:\,)7223 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)7224 (SETF *ATN-TERM* 'SPOCQ.S:\,)7225 (|PathRange/PathRange/PathRange.2.5.10| (1+ ATN-PARSER::INDEX)))7226 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))7227 (|PathRange/start.1| (ATN-PARSER::INDEX)7228 (%ATN-NODE-BLOCK7229 |PathRange/start.1|7230 (%ATN-EDGE-BLOCK7231 (ATN-PARSER::WORD SPOCQ.S:{)7232 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)7233 (SETF *ATN-TERM* 'SPOCQ.S:{)7234 (|PathRange/PathRange.2.4| (1+ ATN-PARSER::INDEX)))7235 (T (SETF *ATN-TERM?* 'SPOCQ.S:{) (|PathRange/fail.3| ATN-PARSER::INDEX)))))))7236 (|PathRange/start.1| ATN-PARSER::INDEX)7237 (SETF *ATN-NODE NIL)7238 NIL7239 (IF ATN-PARSER::ATN-STRUCTURE7240 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7241 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7242 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathRange| ATN-PARSER::INDEX *ATN-STACK))))7243 (PROGN (DEFVAR |PathPrimary-INDEX|)7244 (DEFUN |PathPrimary| (ATN-PARSER::INDEX &AUX (|Path| NIL) (|PathNegatedPropertySet| NIL) (|PathVerb| NIL))7245 "{88} PathPrimary ::= (PathVerb | ('!' PathNegatedPropertySet) | ('(' Path ')'))7246 (|Path| |PathNegatedPropertySet| |PathVerb|)"7247 (DECLARE (SPECIAL |PathPrimary-INDEX|))7248 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathPrimary-INDEX| *ATN-LEVEL))7249 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7250 (IF (< |PathPrimary-INDEX| ATN-PARSER::INDEX)7251 (LET ((|PathPrimary-INDEX| ATN-PARSER::INDEX)7252 (*ATN-LEVEL (1+ *ATN-LEVEL))7253 (*ATN-STACK (CONS '|PathPrimary| *ATN-STACK))7254 (ATN-PARSER::ATN-STRUCTURE NIL))7255 (DECLARE (SPECIAL |PathPrimary-INDEX|))7256 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7257 (DECLARE (TYPE CONS *ATN-STACK))7258 (SYMBOL-MACROLET7259 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7260 (%ATN-BLOCK |PathPrimary|7261 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7262 (SETF *ATN-TERM* '|PathPrimary|)7263 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7264 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7265 (|PathPrimary.2| (ATN-PARSER::INDEX)7266 (%ATN-NODE-BLOCK7267 |PathPrimary.2|7268 (%ATN-EDGE-BLOCK7269 (POP |PathPrimary|)7270 (WHEN T7271 (SETF *ATN-TERM* '|PathPrimary|)7272 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7273 '|PathPrimary|7274 ATN-PARSER::INDEX7275 (LIST '|Path|7276 |Path|7277 '|PathNegatedPropertySet|7278 |PathNegatedPropertySet|7279 '|PathVerb|7280 |PathVerb|))7281 (LET ((ATN-PARSER::RESULT-STRUCTURE7282 (IF (EQ *ATN-REDUCE* T)7283 (|PathPrimary-Constructor| |Path| |PathNegatedPropertySet| |PathVerb|)7284 (IF (EQ *ATN-REDUCE* 'CONS)7285 (CONS '|PathPrimary|7286 (DELETE NIL (LIST |Path| |PathNegatedPropertySet| |PathVerb|)))7287 '|PathPrimary|))))7288 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7289 (|PathPrimary/fail.3| (ATN-PARSER::INDEX)7290 (%ATN-NODE-BLOCK |PathPrimary/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7291 (|PathPrimary/PathPrimary.2.4| (ATN-PARSER::INDEX)7292 (%ATN-NODE-BLOCK7293 |PathPrimary/PathPrimary.2.4|7294 (%ATN-EDGE-BLOCK7295 (ATN-PARSER::WORD SPOCQ.S:!)7296 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:!)7297 (SETF *ATN-TERM* 'SPOCQ.S:!)7298 (|PathPrimary/PathPrimary.2.5| (1+ ATN-PARSER::INDEX)))7299 (T (SETF *ATN-TERM?* 'SPOCQ.S:!) NIL)))))7300 (|PathPrimary/PathPrimary.2.5| (ATN-PARSER::INDEX)7301 (%ATN-NODE-BLOCK7302 |PathPrimary/PathPrimary.2.5|7303 (%ATN-EDGE-BLOCK7304 (PUSH |PathNegatedPropertySet|)7305 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7306 (ATN-PARSE-SUBSTRUCTURE* '|PathNegatedPropertySet| ATN-PARSER::INDEX)7307 (COND (ATN-PARSER::SUCCESS7308 (SETF *ATN-TERM* '|PathNegatedPropertySet|)7309 (LET ((|PathNegatedPropertySet1752| |PathNegatedPropertySet|))7310 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7311 (DESTRUCTURING-BIND7312 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7313 ATN-PARSER::RESULT-AND-INDEX7314 (WHEN ATN-PARSER::RESULT7315 (SETF |PathNegatedPropertySet| ATN-PARSER::RESULT))7316 (|PathPrimary.2| ATN-PARSER::RESULT-INDEX))7317 (SETF |PathNegatedPropertySet| |PathNegatedPropertySet1752|))))7318 (T (SETF *ATN-TERM?* '|PathNegatedPropertySet|) NIL))))))7319 (|PathPrimary/PathPrimary.2.6| (ATN-PARSER::INDEX)7320 (%ATN-NODE-BLOCK7321 |PathPrimary/PathPrimary.2.6|7322 (%ATN-EDGE-BLOCK7323 (ATN-PARSER::WORD SPOCQ.S:\()7324 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()7325 (SETF *ATN-TERM* 'SPOCQ.S:\()7326 (|PathPrimary/PathPrimary.2.7| (1+ ATN-PARSER::INDEX)))7327 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))7328 (|PathPrimary/PathPrimary.2.7| (ATN-PARSER::INDEX)7329 (%ATN-NODE-BLOCK7330 |PathPrimary/PathPrimary.2.7|7331 (%ATN-EDGE-BLOCK7332 (PUSH |Path|)7333 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7334 (ATN-PARSE-SUBSTRUCTURE* '|Path| ATN-PARSER::INDEX)7335 (COND (ATN-PARSER::SUCCESS7336 (SETF *ATN-TERM* '|Path|)7337 (LET ((|Path1752| |Path|))7338 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7339 (DESTRUCTURING-BIND7340 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7341 ATN-PARSER::RESULT-AND-INDEX7342 (WHEN ATN-PARSER::RESULT (SETF |Path| ATN-PARSER::RESULT))7343 (|PathPrimary/PathPrimary.2.8| ATN-PARSER::RESULT-INDEX))7344 (SETF |Path| |Path1752|))))7345 (T (SETF *ATN-TERM?* '|Path|) NIL))))))7346 (|PathPrimary/PathPrimary.2.8| (ATN-PARSER::INDEX)7347 (%ATN-NODE-BLOCK7348 |PathPrimary/PathPrimary.2.8|7349 (%ATN-EDGE-BLOCK7350 (ATN-PARSER::WORD SPOCQ.S:\))7351 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))7352 (SETF *ATN-TERM* 'SPOCQ.S:\))7353 (|PathPrimary.2| (1+ ATN-PARSER::INDEX)))7354 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL)))))7355 (|PathPrimary/start.1| (ATN-PARSER::INDEX)7356 (%ATN-NODE-BLOCK7357 |PathPrimary/start.1|7358 (%ATN-EDGE-BLOCK7359 OR7360 (PROGN (%ATN-EDGE-BLOCK7361 (PUSH |PathVerb|)7362 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7363 (ATN-PARSE-SUBSTRUCTURE* '|PathVerb| ATN-PARSER::INDEX)7364 (COND (ATN-PARSER::SUCCESS7365 (SETF *ATN-TERM* '|PathVerb|)7366 (LET ((|PathVerb1752| |PathVerb|))7367 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7368 (DESTRUCTURING-BIND7369 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7370 ATN-PARSER::RESULT-AND-INDEX7371 (WHEN ATN-PARSER::RESULT (SETF |PathVerb| ATN-PARSER::RESULT))7372 (|PathPrimary.2| ATN-PARSER::RESULT-INDEX))7373 (SETF |PathVerb| |PathVerb1752|))))7374 (T (SETF *ATN-TERM?* '|PathVerb|) NIL))))7375 (%ATN-EDGE-BLOCK7376 (ATN-PARSER::JUMP |PathPrimary/PathPrimary.2.4|)7377 (|PathPrimary/PathPrimary.2.4| ATN-PARSER::INDEX))7378 (%ATN-EDGE-BLOCK7379 (ATN-PARSER::JUMP |PathPrimary/PathPrimary.2.6|)7380 (|PathPrimary/PathPrimary.2.6| ATN-PARSER::INDEX))7381 (|PathPrimary/fail.3| ATN-PARSER::INDEX))))))7382 (|PathPrimary/start.1| ATN-PARSER::INDEX)7383 (SETF *ATN-NODE NIL)7384 NIL7385 (IF ATN-PARSER::ATN-STRUCTURE7386 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7387 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7388 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathPrimary| ATN-PARSER::INDEX *ATN-STACK))))7389 (PROGN (DEFVAR |PathVerb-INDEX|)7390 (DEFUN |PathVerb| (ATN-PARSER::INDEX &AUX (|IRIref| NIL))7391 "PathVerb ::= (IRIref | 'a')7392 (|IRIref|)"7393 (DECLARE (SPECIAL |PathVerb-INDEX|))7394 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathVerb-INDEX| *ATN-LEVEL))7395 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7396 (IF (< |PathVerb-INDEX| ATN-PARSER::INDEX)7397 (LET ((|PathVerb-INDEX| ATN-PARSER::INDEX)7398 (*ATN-LEVEL (1+ *ATN-LEVEL))7399 (*ATN-STACK (CONS '|PathVerb| *ATN-STACK))7400 (ATN-PARSER::ATN-STRUCTURE NIL))7401 (DECLARE (SPECIAL |PathVerb-INDEX|))7402 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7403 (DECLARE (TYPE CONS *ATN-STACK))7404 (SYMBOL-MACROLET7405 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7406 (%ATN-BLOCK |PathVerb|7407 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7408 (SETF *ATN-TERM* '|PathVerb|)7409 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7410 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7411 (|PathVerb.2| (ATN-PARSER::INDEX)7412 (%ATN-NODE-BLOCK7413 |PathVerb.2|7414 (%ATN-EDGE-BLOCK7415 (POP |PathVerb|)7416 (WHEN T7417 (SETF *ATN-TERM* '|PathVerb|)7418 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7419 '|PathVerb|7420 ATN-PARSER::INDEX7421 (LIST '|IRIref| |IRIref|))7422 (LET ((ATN-PARSER::RESULT-STRUCTURE7423 (IF (EQ *ATN-REDUCE* T)7424 (|PathVerb-Constructor| |IRIref|)7425 (IF (EQ *ATN-REDUCE* 'CONS)7426 (CONS '|PathVerb| (DELETE NIL (LIST |IRIref|)))7427 '|PathVerb|))))7428 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7429 (|PathVerb/fail.3| (ATN-PARSER::INDEX)7430 (%ATN-NODE-BLOCK |PathVerb/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7431 (|PathVerb/start.1| (ATN-PARSER::INDEX)7432 (%ATN-NODE-BLOCK7433 |PathVerb/start.1|7434 (%ATN-EDGE-BLOCK7435 OR7436 (PROGN (%ATN-EDGE-BLOCK7437 (PUSH |IRIref|)7438 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7439 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)7440 (COND (ATN-PARSER::SUCCESS7441 (SETF *ATN-TERM* '|IRIref|)7442 (LET ((|IRIref1752| |IRIref|))7443 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7444 (DESTRUCTURING-BIND7445 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7446 ATN-PARSER::RESULT-AND-INDEX7447 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))7448 (|PathVerb.2| ATN-PARSER::RESULT-INDEX))7449 (SETF |IRIref| |IRIref1752|))))7450 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))7451 (%ATN-EDGE-BLOCK7452 (ATN-PARSER::WORD SPOCQ.S:\a)7453 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\a)7454 (SETF *ATN-TERM* 'SPOCQ.S:\a)7455 (|PathVerb.2| (1+ ATN-PARSER::INDEX)))7456 (T (SETF *ATN-TERM?* 'SPOCQ.S:\a) NIL)))7457 (|PathVerb/fail.3| ATN-PARSER::INDEX))))))7458 (|PathVerb/start.1| ATN-PARSER::INDEX)7459 (SETF *ATN-NODE NIL)7460 NIL7461 (IF ATN-PARSER::ATN-STRUCTURE7462 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7463 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7464 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathVerb| ATN-PARSER::INDEX *ATN-STACK))))7465 (PROGN (DEFVAR |PathNegatedPropertySet-INDEX|)7466 (DEFUN |PathNegatedPropertySet| (ATN-PARSER::INDEX &AUX (|PathOneInPropertySet| NIL))7467 "{89} PathNegatedPropertySet ::= (PathOneInPropertySet | ('('7468 (PathOneInPropertySet7469 ('|'7470 PathOneInPropertySet)*)?7471 ')'))7472 (|PathOneInPropertySet|)"7473 (DECLARE (SPECIAL |PathNegatedPropertySet-INDEX|))7474 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathNegatedPropertySet-INDEX| *ATN-LEVEL))7475 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7476 (IF (< |PathNegatedPropertySet-INDEX| ATN-PARSER::INDEX)7477 (LET ((|PathNegatedPropertySet-INDEX| ATN-PARSER::INDEX)7478 (*ATN-LEVEL (1+ *ATN-LEVEL))7479 (*ATN-STACK (CONS '|PathNegatedPropertySet| *ATN-STACK))7480 (ATN-PARSER::ATN-STRUCTURE NIL))7481 (DECLARE (SPECIAL |PathNegatedPropertySet-INDEX|))7482 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7483 (DECLARE (TYPE CONS *ATN-STACK))7484 (SYMBOL-MACROLET7485 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7486 (%ATN-BLOCK |PathNegatedPropertySet|7487 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7488 (SETF *ATN-TERM* '|PathNegatedPropertySet|)7489 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7490 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7491 (|PathNegatedPropertySet.2| (ATN-PARSER::INDEX)7492 (%ATN-NODE-BLOCK7493 |PathNegatedPropertySet.2|7494 (%ATN-EDGE-BLOCK7495 (POP |PathNegatedPropertySet|)7496 (WHEN T7497 (SETF *ATN-TERM* '|PathNegatedPropertySet|)7498 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7499 '|PathNegatedPropertySet|7500 ATN-PARSER::INDEX7501 (LIST '|PathOneInPropertySet| |PathOneInPropertySet|))7502 (LET ((ATN-PARSER::RESULT-STRUCTURE7503 (IF (EQ *ATN-REDUCE* T)7504 (|PathNegatedPropertySet-Constructor| |PathOneInPropertySet|)7505 (IF (EQ *ATN-REDUCE* 'CONS)7506 (CONS '|PathNegatedPropertySet|7507 (DELETE NIL (LIST |PathOneInPropertySet|)))7508 '|PathNegatedPropertySet|))))7509 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7510 (|PathNegatedPropertySet.9| (ATN-PARSER::INDEX)7511 (%ATN-NODE-BLOCK7512 |PathNegatedPropertySet.9|7513 (%ATN-EDGE-BLOCK7514 (ATN-PARSER::JUMP |PathNegatedPropertySet/PathNegatedPropertySet.9.10|)7515 (|PathNegatedPropertySet/PathNegatedPropertySet.9.10| ATN-PARSER::INDEX))7516 (%ATN-EDGE-BLOCK7517 (ATN-PARSER::JUMP |PathNegatedPropertySet/PathNegatedPropertySet.2.6|)7518 (|PathNegatedPropertySet/PathNegatedPropertySet.2.6| ATN-PARSER::INDEX))))7519 (|PathNegatedPropertySet/fail.3| (ATN-PARSER::INDEX)7520 (%ATN-NODE-BLOCK7521 |PathNegatedPropertySet/fail.3|7522 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7523 (|PathNegatedPropertySet/PathNegatedPropertySet.2.4| (ATN-PARSER::INDEX)7524 (%ATN-NODE-BLOCK7525 |PathNegatedPropertySet/PathNegatedPropertySet.2.4|7526 (%ATN-EDGE-BLOCK7527 (ATN-PARSER::WORD SPOCQ.S:\()7528 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()7529 (SETF *ATN-TERM* 'SPOCQ.S:\()7530 (|PathNegatedPropertySet/PathNegatedPropertySet.2.5| (1+ ATN-PARSER::INDEX)))7531 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))7532 (|PathNegatedPropertySet/PathNegatedPropertySet.2.5| (ATN-PARSER::INDEX)7533 (%ATN-NODE-BLOCK7534 |PathNegatedPropertySet/PathNegatedPropertySet.2.5|7535 (%ATN-EDGE-BLOCK7536 (ATN-PARSER::JUMP7537 |PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.7|)7538 (|PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.7|7539 ATN-PARSER::INDEX))7540 (%ATN-EDGE-BLOCK7541 (ATN-PARSER::JUMP |PathNegatedPropertySet/PathNegatedPropertySet.2.6|)7542 (|PathNegatedPropertySet/PathNegatedPropertySet.2.6| ATN-PARSER::INDEX))))7543 (|PathNegatedPropertySet/PathNegatedPropertySet.2.6| (ATN-PARSER::INDEX)7544 (%ATN-NODE-BLOCK7545 |PathNegatedPropertySet/PathNegatedPropertySet.2.6|7546 (%ATN-EDGE-BLOCK7547 (ATN-PARSER::WORD SPOCQ.S:\))7548 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))7549 (SETF *ATN-TERM* 'SPOCQ.S:\))7550 (|PathNegatedPropertySet.2| (1+ ATN-PARSER::INDEX)))7551 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL)))))7552 (|PathNegatedPropertySet/PathNegatedPropertySet.9.10| (ATN-PARSER::INDEX)7553 (%ATN-NODE-BLOCK7554 |PathNegatedPropertySet/PathNegatedPropertySet.9.10|7555 (%ATN-EDGE-BLOCK7556 (ATN-PARSER::WORD SPOCQ.S:\|)7557 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\|)7558 (SETF *ATN-TERM* 'SPOCQ.S:\|)7559 (|PathNegatedPropertySet/PathNegatedPropertySet.9.11| (1+ ATN-PARSER::INDEX)))7560 (T (SETF *ATN-TERM?* 'SPOCQ.S:\|) NIL)))))7561 (|PathNegatedPropertySet/PathNegatedPropertySet.9.11| (ATN-PARSER::INDEX)7562 (%ATN-NODE-BLOCK7563 |PathNegatedPropertySet/PathNegatedPropertySet.9.11|7564 (%ATN-EDGE-BLOCK7565 (PUSH |PathOneInPropertySet|)7566 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7567 (ATN-PARSE-SUBSTRUCTURE* '|PathOneInPropertySet| ATN-PARSER::INDEX)7568 (COND (ATN-PARSER::SUCCESS7569 (SETF *ATN-TERM* '|PathOneInPropertySet|)7570 (LET ((|PathOneInPropertySet1753| |PathOneInPropertySet|))7571 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7572 (DESTRUCTURING-BIND7573 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7574 ATN-PARSER::RESULT-AND-INDEX7575 (WHEN ATN-PARSER::RESULT7576 (SETF |PathOneInPropertySet|7577 (CONS ATN-PARSER::RESULT |PathOneInPropertySet|)))7578 (|PathNegatedPropertySet.9| ATN-PARSER::RESULT-INDEX))7579 (SETF |PathOneInPropertySet| |PathOneInPropertySet1753|))))7580 (T (SETF *ATN-TERM?* '|PathOneInPropertySet|) NIL))))))7581 (|PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.7| (ATN-PARSER::INDEX)7582 (%ATN-NODE-BLOCK7583 |PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.7|7584 (%ATN-EDGE-BLOCK7585 (PUSH |PathOneInPropertySet|)7586 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7587 (ATN-PARSE-SUBSTRUCTURE* '|PathOneInPropertySet| ATN-PARSER::INDEX)7588 (COND (ATN-PARSER::SUCCESS7589 (SETF *ATN-TERM* '|PathOneInPropertySet|)7590 (LET ((|PathOneInPropertySet1754| |PathOneInPropertySet|))7591 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7592 (DESTRUCTURING-BIND7593 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7594 ATN-PARSER::RESULT-AND-INDEX7595 (WHEN ATN-PARSER::RESULT7596 (SETF |PathOneInPropertySet|7597 (CONS ATN-PARSER::RESULT |PathOneInPropertySet|)))7598 (|PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.8|7599 ATN-PARSER::RESULT-INDEX))7600 (SETF |PathOneInPropertySet| |PathOneInPropertySet1754|))))7601 (T (SETF *ATN-TERM?* '|PathOneInPropertySet|) NIL))))))7602 (|PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.8| (ATN-PARSER::INDEX)7603 (%ATN-NODE-BLOCK7604 |PathNegatedPropertySet/PathNegatedPropertySet/PathNegatedPropertySet.2.6.8|7605 (%ATN-EDGE-BLOCK7606 (ATN-PARSER::JUMP |PathNegatedPropertySet/PathNegatedPropertySet.9.10|)7607 (|PathNegatedPropertySet/PathNegatedPropertySet.9.10| ATN-PARSER::INDEX))7608 (%ATN-EDGE-BLOCK7609 (ATN-PARSER::JUMP |PathNegatedPropertySet/PathNegatedPropertySet.2.6|)7610 (|PathNegatedPropertySet/PathNegatedPropertySet.2.6| ATN-PARSER::INDEX))))7611 (|PathNegatedPropertySet/start.1| (ATN-PARSER::INDEX)7612 (%ATN-NODE-BLOCK7613 |PathNegatedPropertySet/start.1|7614 (%ATN-EDGE-BLOCK7615 OR7616 (PROGN (%ATN-EDGE-BLOCK7617 (PUSH |PathOneInPropertySet|)7618 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7619 (ATN-PARSE-SUBSTRUCTURE* '|PathOneInPropertySet| ATN-PARSER::INDEX)7620 (COND (ATN-PARSER::SUCCESS7621 (SETF *ATN-TERM* '|PathOneInPropertySet|)7622 (LET ((|PathOneInPropertySet1752| |PathOneInPropertySet|))7623 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7624 (DESTRUCTURING-BIND7625 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7626 ATN-PARSER::RESULT-AND-INDEX7627 (WHEN ATN-PARSER::RESULT7628 (SETF |PathOneInPropertySet|7629 (CONS ATN-PARSER::RESULT |PathOneInPropertySet|)))7630 (|PathNegatedPropertySet.2| ATN-PARSER::RESULT-INDEX))7631 (SETF |PathOneInPropertySet| |PathOneInPropertySet1752|))))7632 (T (SETF *ATN-TERM?* '|PathOneInPropertySet|) NIL))))7633 (%ATN-EDGE-BLOCK7634 (ATN-PARSER::JUMP |PathNegatedPropertySet/PathNegatedPropertySet.2.4|)7635 (|PathNegatedPropertySet/PathNegatedPropertySet.2.4| ATN-PARSER::INDEX))7636 (|PathNegatedPropertySet/fail.3| ATN-PARSER::INDEX))))))7637 (|PathNegatedPropertySet/start.1| ATN-PARSER::INDEX)7638 (SETF *ATN-NODE NIL)7639 NIL7640 (IF ATN-PARSER::ATN-STRUCTURE7641 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7642 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7643 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathNegatedPropertySet| ATN-PARSER::INDEX *ATN-STACK))))7644 (PROGN (DEFVAR |PathOneInPropertySet-INDEX|)7645 (DEFUN |PathOneInPropertySet| (ATN-PARSER::INDEX &AUX (|PathInvertOp| NIL) (|PathVerb| NIL))7646 "{90} PathOneInPropertySet ::= (PathVerb | (PathInvertOp PathVerb))7647 (|PathInvertOp| |PathVerb|)"7648 (DECLARE (SPECIAL |PathOneInPropertySet-INDEX|))7649 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PathOneInPropertySet-INDEX| *ATN-LEVEL))7650 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7651 (IF (< |PathOneInPropertySet-INDEX| ATN-PARSER::INDEX)7652 (LET ((|PathOneInPropertySet-INDEX| ATN-PARSER::INDEX)7653 (*ATN-LEVEL (1+ *ATN-LEVEL))7654 (*ATN-STACK (CONS '|PathOneInPropertySet| *ATN-STACK))7655 (ATN-PARSER::ATN-STRUCTURE NIL))7656 (DECLARE (SPECIAL |PathOneInPropertySet-INDEX|))7657 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7658 (DECLARE (TYPE CONS *ATN-STACK))7659 (SYMBOL-MACROLET7660 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7661 (%ATN-BLOCK |PathOneInPropertySet|7662 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7663 (SETF *ATN-TERM* '|PathOneInPropertySet|)7664 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7665 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7666 (|PathOneInPropertySet.2| (ATN-PARSER::INDEX)7667 (%ATN-NODE-BLOCK7668 |PathOneInPropertySet.2|7669 (%ATN-EDGE-BLOCK7670 (POP |PathOneInPropertySet|)7671 (WHEN T7672 (SETF *ATN-TERM* '|PathOneInPropertySet|)7673 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7674 '|PathOneInPropertySet|7675 ATN-PARSER::INDEX7676 (LIST '|PathInvertOp| |PathInvertOp| '|PathVerb| |PathVerb|))7677 (LET ((ATN-PARSER::RESULT-STRUCTURE7678 (IF (EQ *ATN-REDUCE* T)7679 (|PathOneInPropertySet-Constructor| |PathInvertOp| |PathVerb|)7680 (IF (EQ *ATN-REDUCE* 'CONS)7681 (CONS '|PathOneInPropertySet|7682 (DELETE NIL (LIST |PathInvertOp| |PathVerb|)))7683 '|PathOneInPropertySet|))))7684 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7685 (|PathOneInPropertySet/fail.3| (ATN-PARSER::INDEX)7686 (%ATN-NODE-BLOCK7687 |PathOneInPropertySet/fail.3|7688 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7689 (|PathOneInPropertySet/PathOneInPropertySet.2.4| (ATN-PARSER::INDEX)7690 (%ATN-NODE-BLOCK7691 |PathOneInPropertySet/PathOneInPropertySet.2.4|7692 (%ATN-EDGE-BLOCK7693 (ATN-PARSER::CAT |PathInvertOp|)7694 (COND ((|IS-PathInvertOp| ATN-PARSER::|item|)7695 (SETF *ATN-TERM* '|PathInvertOp|)7696 (SETF |PathInvertOp|7697 (IF (EQ *ATN-REDUCE* T)7698 (ATN-REDUCE-ITEM #'|PathInvertOp-Constructor| ATN-PARSER::|item|)7699 (IF (EQ *ATN-REDUCE* 'CONS)7700 (LIST '|PathInvertOp| ATN-PARSER::|item|)7701 '|PathInvertOp|)))7702 (|PathOneInPropertySet/PathOneInPropertySet.2.5| (1+ ATN-PARSER::INDEX)))7703 (T (SETF *ATN-TERM* '|PathInvertOp|) NIL)))))7704 (|PathOneInPropertySet/PathOneInPropertySet.2.5| (ATN-PARSER::INDEX)7705 (%ATN-NODE-BLOCK7706 |PathOneInPropertySet/PathOneInPropertySet.2.5|7707 (%ATN-EDGE-BLOCK7708 (PUSH |PathVerb|)7709 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7710 (ATN-PARSE-SUBSTRUCTURE* '|PathVerb| ATN-PARSER::INDEX)7711 (COND (ATN-PARSER::SUCCESS7712 (SETF *ATN-TERM* '|PathVerb|)7713 (LET ((|PathVerb1755| |PathVerb|))7714 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7715 (DESTRUCTURING-BIND7716 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7717 ATN-PARSER::RESULT-AND-INDEX7718 (WHEN ATN-PARSER::RESULT (SETF |PathVerb| ATN-PARSER::RESULT))7719 (|PathOneInPropertySet.2| ATN-PARSER::RESULT-INDEX))7720 (SETF |PathVerb| |PathVerb1755|))))7721 (T (SETF *ATN-TERM?* '|PathVerb|) NIL))))))7722 (|PathOneInPropertySet/start.1| (ATN-PARSER::INDEX)7723 (%ATN-NODE-BLOCK7724 |PathOneInPropertySet/start.1|7725 (%ATN-EDGE-BLOCK7726 OR7727 (PROGN (%ATN-EDGE-BLOCK7728 (PUSH |PathVerb|)7729 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7730 (ATN-PARSE-SUBSTRUCTURE* '|PathVerb| ATN-PARSER::INDEX)7731 (COND (ATN-PARSER::SUCCESS7732 (SETF *ATN-TERM* '|PathVerb|)7733 (LET ((|PathVerb1754| |PathVerb|))7734 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7735 (DESTRUCTURING-BIND7736 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7737 ATN-PARSER::RESULT-AND-INDEX7738 (WHEN ATN-PARSER::RESULT (SETF |PathVerb| ATN-PARSER::RESULT))7739 (|PathOneInPropertySet.2| ATN-PARSER::RESULT-INDEX))7740 (SETF |PathVerb| |PathVerb1754|))))7741 (T (SETF *ATN-TERM?* '|PathVerb|) NIL))))7742 (%ATN-EDGE-BLOCK7743 (ATN-PARSER::JUMP |PathOneInPropertySet/PathOneInPropertySet.2.4|)7744 (|PathOneInPropertySet/PathOneInPropertySet.2.4| ATN-PARSER::INDEX))7745 (|PathOneInPropertySet/fail.3| ATN-PARSER::INDEX))))))7746 (|PathOneInPropertySet/start.1| ATN-PARSER::INDEX)7747 (SETF *ATN-NODE NIL)7748 NIL7749 (IF ATN-PARSER::ATN-STRUCTURE7750 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7751 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7752 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PathOneInPropertySet| ATN-PARSER::INDEX *ATN-STACK))))7753 (PROGN (DEFVAR |TriplesNode-INDEX|)7754 (DEFUN |TriplesNode| (ATN-PARSER::INDEX &AUX (|BlankNodePropertyList| NIL) (|Collection| NIL))7755 "{38} TriplesNode ::= (Collection | BlankNodePropertyList)7756 (|BlankNodePropertyList| |Collection|)"7757 (DECLARE (SPECIAL |TriplesNode-INDEX|))7758 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesNode-INDEX| *ATN-LEVEL))7759 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7760 (IF (< |TriplesNode-INDEX| ATN-PARSER::INDEX)7761 (LET ((|TriplesNode-INDEX| ATN-PARSER::INDEX)7762 (*ATN-LEVEL (1+ *ATN-LEVEL))7763 (*ATN-STACK (CONS '|TriplesNode| *ATN-STACK))7764 (ATN-PARSER::ATN-STRUCTURE NIL))7765 (DECLARE (SPECIAL |TriplesNode-INDEX|))7766 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7767 (DECLARE (TYPE CONS *ATN-STACK))7768 (SYMBOL-MACROLET7769 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7770 (%ATN-BLOCK |TriplesNode|7771 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7772 (SETF *ATN-TERM* '|TriplesNode|)7773 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7774 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7775 (|TriplesNode.2| (ATN-PARSER::INDEX)7776 (%ATN-NODE-BLOCK7777 |TriplesNode.2|7778 (%ATN-EDGE-BLOCK7779 (POP |TriplesNode|)7780 (WHEN T7781 (SETF *ATN-TERM* '|TriplesNode|)7782 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7783 '|TriplesNode|7784 ATN-PARSER::INDEX7785 (LIST '|BlankNodePropertyList|7786 |BlankNodePropertyList|7787 '|Collection|7788 |Collection|))7789 (LET ((ATN-PARSER::RESULT-STRUCTURE7790 (IF (EQ *ATN-REDUCE* T)7791 (|TriplesNode-Constructor| |BlankNodePropertyList| |Collection|)7792 (IF (EQ *ATN-REDUCE* 'CONS)7793 (CONS '|TriplesNode|7794 (DELETE NIL (LIST |BlankNodePropertyList| |Collection|)))7795 '|TriplesNode|))))7796 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7797 (|TriplesNode/fail.3| (ATN-PARSER::INDEX)7798 (%ATN-NODE-BLOCK |TriplesNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7799 (|TriplesNode/start.1| (ATN-PARSER::INDEX)7800 (%ATN-NODE-BLOCK7801 |TriplesNode/start.1|7802 (%ATN-EDGE-BLOCK7803 OR7804 (PROGN (%ATN-EDGE-BLOCK7805 (PUSH |Collection|)7806 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7807 (ATN-PARSE-SUBSTRUCTURE* '|Collection| ATN-PARSER::INDEX)7808 (COND (ATN-PARSER::SUCCESS7809 (SETF *ATN-TERM* '|Collection|)7810 (LET ((|Collection1755| |Collection|))7811 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7812 (DESTRUCTURING-BIND7813 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7814 ATN-PARSER::RESULT-AND-INDEX7815 (WHEN ATN-PARSER::RESULT7816 (SETF |Collection| ATN-PARSER::RESULT))7817 (|TriplesNode.2| ATN-PARSER::RESULT-INDEX))7818 (SETF |Collection| |Collection1755|))))7819 (T (SETF *ATN-TERM?* '|Collection|) NIL))))7820 (%ATN-EDGE-BLOCK7821 (PUSH |BlankNodePropertyList|)7822 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7823 (ATN-PARSE-SUBSTRUCTURE* '|BlankNodePropertyList| ATN-PARSER::INDEX)7824 (COND (ATN-PARSER::SUCCESS7825 (SETF *ATN-TERM* '|BlankNodePropertyList|)7826 (LET ((|BlankNodePropertyList1755| |BlankNodePropertyList|))7827 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7828 (DESTRUCTURING-BIND7829 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7830 ATN-PARSER::RESULT-AND-INDEX7831 (WHEN ATN-PARSER::RESULT7832 (SETF |BlankNodePropertyList| ATN-PARSER::RESULT))7833 (|TriplesNode.2| ATN-PARSER::RESULT-INDEX))7834 (SETF |BlankNodePropertyList| |BlankNodePropertyList1755|))))7835 (T (SETF *ATN-TERM?* '|BlankNodePropertyList|) NIL))))7836 (|TriplesNode/fail.3| ATN-PARSER::INDEX))))))7837 (|TriplesNode/start.1| ATN-PARSER::INDEX)7838 (SETF *ATN-NODE NIL)7839 NIL7840 (IF ATN-PARSER::ATN-STRUCTURE7841 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7842 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7843 (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesNode| ATN-PARSER::INDEX *ATN-STACK))))7844 (PROGN (DEFVAR |BlankNodePropertyList-INDEX|)7845 (DEFUN |BlankNodePropertyList| (ATN-PARSER::INDEX &AUX (|PropertyListNotEmpty| NIL))7846 "{39} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'7847 (|PropertyListNotEmpty|)"7848 (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))7849 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNodePropertyList-INDEX| *ATN-LEVEL))7850 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7851 (IF (< |BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)7852 (LET ((|BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)7853 (*ATN-LEVEL (1+ *ATN-LEVEL))7854 (*ATN-STACK (CONS '|BlankNodePropertyList| *ATN-STACK))7855 (ATN-PARSER::ATN-STRUCTURE NIL))7856 (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))7857 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7858 (DECLARE (TYPE CONS *ATN-STACK))7859 (SYMBOL-MACROLET7860 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7861 (%ATN-BLOCK |BlankNodePropertyList|7862 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7863 (SETF *ATN-TERM* '|BlankNodePropertyList|)7864 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7865 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7866 (|BlankNodePropertyList.2| (ATN-PARSER::INDEX)7867 (%ATN-NODE-BLOCK7868 |BlankNodePropertyList.2|7869 (%ATN-EDGE-BLOCK7870 (POP |BlankNodePropertyList|)7871 (WHEN T7872 (SETF *ATN-TERM* '|BlankNodePropertyList|)7873 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7874 '|BlankNodePropertyList|7875 ATN-PARSER::INDEX7876 (LIST '|PropertyListNotEmpty| |PropertyListNotEmpty|))7877 (LET ((ATN-PARSER::RESULT-STRUCTURE7878 (IF (EQ *ATN-REDUCE* T)7879 (|BlankNodePropertyList-Constructor| |PropertyListNotEmpty|)7880 (IF (EQ *ATN-REDUCE* 'CONS)7881 (CONS '|BlankNodePropertyList|7882 (DELETE NIL (LIST |PropertyListNotEmpty|)))7883 '|BlankNodePropertyList|))))7884 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7885 (|BlankNodePropertyList/BlankNodePropertyList.2.4| (ATN-PARSER::INDEX)7886 (%ATN-NODE-BLOCK7887 |BlankNodePropertyList/BlankNodePropertyList.2.4|7888 (%ATN-EDGE-BLOCK7889 (PUSH |PropertyListNotEmpty|)7890 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7891 (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty| ATN-PARSER::INDEX)7892 (COND (ATN-PARSER::SUCCESS7893 (SETF *ATN-TERM* '|PropertyListNotEmpty|)7894 (LET ((|PropertyListNotEmpty1755| |PropertyListNotEmpty|))7895 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7896 (DESTRUCTURING-BIND7897 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7898 ATN-PARSER::RESULT-AND-INDEX7899 (WHEN ATN-PARSER::RESULT7900 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))7901 (|BlankNodePropertyList/BlankNodePropertyList.2.5|7902 ATN-PARSER::RESULT-INDEX))7903 (SETF |PropertyListNotEmpty| |PropertyListNotEmpty1755|))))7904 (T7905 (SETF *ATN-TERM?* '|PropertyListNotEmpty|)7906 (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX)))))))7907 (|BlankNodePropertyList/BlankNodePropertyList.2.5| (ATN-PARSER::INDEX)7908 (%ATN-NODE-BLOCK7909 |BlankNodePropertyList/BlankNodePropertyList.2.5|7910 (%ATN-EDGE-BLOCK7911 (ATN-PARSER::WORD SPOCQ.S:])7912 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:])7913 (SETF *ATN-TERM* 'SPOCQ.S:])7914 (|BlankNodePropertyList.2| (1+ ATN-PARSER::INDEX)))7915 (T7916 (SETF *ATN-TERM?* 'SPOCQ.S:])7917 (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX))))))7918 (|BlankNodePropertyList/fail.3| (ATN-PARSER::INDEX)7919 (%ATN-NODE-BLOCK7920 |BlankNodePropertyList/fail.3|7921 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7922 (|BlankNodePropertyList/start.1| (ATN-PARSER::INDEX)7923 (%ATN-NODE-BLOCK7924 |BlankNodePropertyList/start.1|7925 (%ATN-EDGE-BLOCK7926 (ATN-PARSER::WORD SPOCQ.S:[)7927 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:[)7928 (SETF *ATN-TERM* 'SPOCQ.S:[)7929 (|BlankNodePropertyList/BlankNodePropertyList.2.4| (1+ ATN-PARSER::INDEX)))7930 (T7931 (SETF *ATN-TERM?* 'SPOCQ.S:[)7932 (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX)))))))7933 (|BlankNodePropertyList/start.1| ATN-PARSER::INDEX)7934 (SETF *ATN-NODE NIL)7935 NIL7936 (IF ATN-PARSER::ATN-STRUCTURE7937 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7938 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7939 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNodePropertyList| ATN-PARSER::INDEX *ATN-STACK))))7940 (PROGN (DEFVAR |Collection-INDEX|)7941 (DEFUN |Collection| (ATN-PARSER::INDEX &AUX (|GraphNode| NIL))7942 "{40} Collection ::= '(' GraphNode+ ')'7943 (|GraphNode|)"7944 (DECLARE (SPECIAL |Collection-INDEX|))7945 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Collection-INDEX| *ATN-LEVEL))7946 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7947 (IF (< |Collection-INDEX| ATN-PARSER::INDEX)7948 (LET ((|Collection-INDEX| ATN-PARSER::INDEX)7949 (*ATN-LEVEL (1+ *ATN-LEVEL))7950 (*ATN-STACK (CONS '|Collection| *ATN-STACK))7951 (ATN-PARSER::ATN-STRUCTURE NIL))7952 (DECLARE (SPECIAL |Collection-INDEX|))7953 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7954 (DECLARE (TYPE CONS *ATN-STACK))7955 (SYMBOL-MACROLET7956 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7957 (%ATN-BLOCK |Collection|7958 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7959 (SETF *ATN-TERM* '|Collection|)7960 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7961 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7962 (|Collection.2| (ATN-PARSER::INDEX)7963 (%ATN-NODE-BLOCK7964 |Collection.2|7965 (%ATN-EDGE-BLOCK7966 (POP |Collection|)7967 (WHEN T7968 (SETF *ATN-TERM* '|Collection|)7969 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7970 '|Collection|7971 ATN-PARSER::INDEX7972 (LIST '|GraphNode| |GraphNode|))7973 (LET ((ATN-PARSER::RESULT-STRUCTURE7974 (IF (EQ *ATN-REDUCE* T)7975 (|Collection-Constructor| |GraphNode|)7976 (IF (EQ *ATN-REDUCE* 'CONS)7977 (CONS '|Collection| (DELETE NIL (LIST |GraphNode|)))7978 '|Collection|))))7979 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7980 (|Collection.6| (ATN-PARSER::INDEX)7981 (%ATN-NODE-BLOCK7982 |Collection.6|7983 (%ATN-EDGE-BLOCK7984 (PUSH |GraphNode|)7985 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7986 (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)7987 (COND (ATN-PARSER::SUCCESS7988 (SETF *ATN-TERM* '|GraphNode|)7989 (LET ((|GraphNode1756| |GraphNode|))7990 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7991 (DESTRUCTURING-BIND7992 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7993 ATN-PARSER::RESULT-AND-INDEX7994 (WHEN ATN-PARSER::RESULT7995 (SETF |GraphNode| (CONS ATN-PARSER::RESULT |GraphNode|)))7996 (|Collection.6| ATN-PARSER::RESULT-INDEX))7997 (SETF |GraphNode| |GraphNode1756|))))7998 (T7999 (SETF *ATN-TERM?* '|GraphNode|)8000 (|Collection/Collection.2.5| ATN-PARSER::INDEX)))))))8001 (|Collection/Collection.2.4| (ATN-PARSER::INDEX)8002 (%ATN-NODE-BLOCK8003 |Collection/Collection.2.4|8004 (%ATN-EDGE-BLOCK8005 (PUSH |GraphNode|)8006 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8007 (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)8008 (COND (ATN-PARSER::SUCCESS8009 (SETF *ATN-TERM* '|GraphNode|)8010 (LET ((|GraphNode1755| |GraphNode|))8011 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8012 (DESTRUCTURING-BIND8013 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8014 ATN-PARSER::RESULT-AND-INDEX8015 (WHEN ATN-PARSER::RESULT8016 (SETF |GraphNode| (CONS ATN-PARSER::RESULT |GraphNode|)))8017 (|Collection.6| ATN-PARSER::RESULT-INDEX))8018 (SETF |GraphNode| |GraphNode1755|))))8019 (T8020 (SETF *ATN-TERM?* '|GraphNode|)8021 (|Collection/fail.3| ATN-PARSER::INDEX)))))))8022 (|Collection/Collection.2.5| (ATN-PARSER::INDEX)8023 (%ATN-NODE-BLOCK8024 |Collection/Collection.2.5|8025 (%ATN-EDGE-BLOCK8026 (ATN-PARSER::WORD SPOCQ.S:\))8027 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))8028 (SETF *ATN-TERM* 'SPOCQ.S:\))8029 (|Collection.2| (1+ ATN-PARSER::INDEX)))8030 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|Collection/fail.3| ATN-PARSER::INDEX))))))8031 (|Collection/fail.3| (ATN-PARSER::INDEX)8032 (%ATN-NODE-BLOCK |Collection/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8033 (|Collection/start.1| (ATN-PARSER::INDEX)8034 (%ATN-NODE-BLOCK8035 |Collection/start.1|8036 (%ATN-EDGE-BLOCK8037 (ATN-PARSER::WORD SPOCQ.S:\()8038 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()8039 (SETF *ATN-TERM* 'SPOCQ.S:\()8040 (|Collection/Collection.2.4| (1+ ATN-PARSER::INDEX)))8041 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|Collection/fail.3| ATN-PARSER::INDEX)))))))8042 (|Collection/start.1| ATN-PARSER::INDEX)8043 (SETF *ATN-NODE NIL)8044 NIL8045 (IF ATN-PARSER::ATN-STRUCTURE8046 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8047 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8048 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Collection| ATN-PARSER::INDEX *ATN-STACK))))8049 (PROGN (DEFVAR |GraphNode-INDEX|)8050 (DEFUN |GraphNode| (ATN-PARSER::INDEX &AUX (|TriplesNode| NIL) (|VarOrTerm| NIL))8051 "{41} GraphNode ::= (VarOrTerm | TriplesNode)8052 (|TriplesNode| |VarOrTerm|)"8053 (DECLARE (SPECIAL |GraphNode-INDEX|))8054 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphNode-INDEX| *ATN-LEVEL))8055 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8056 (IF (< |GraphNode-INDEX| ATN-PARSER::INDEX)8057 (LET ((|GraphNode-INDEX| ATN-PARSER::INDEX)8058 (*ATN-LEVEL (1+ *ATN-LEVEL))8059 (*ATN-STACK (CONS '|GraphNode| *ATN-STACK))8060 (ATN-PARSER::ATN-STRUCTURE NIL))8061 (DECLARE (SPECIAL |GraphNode-INDEX|))8062 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8063 (DECLARE (TYPE CONS *ATN-STACK))8064 (SYMBOL-MACROLET8065 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8066 (%ATN-BLOCK |GraphNode|8067 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8068 (SETF *ATN-TERM* '|GraphNode|)8069 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8070 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8071 (|GraphNode.2| (ATN-PARSER::INDEX)8072 (%ATN-NODE-BLOCK8073 |GraphNode.2|8074 (%ATN-EDGE-BLOCK8075 (POP |GraphNode|)8076 (WHEN T8077 (SETF *ATN-TERM* '|GraphNode|)8078 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8079 '|GraphNode|8080 ATN-PARSER::INDEX8081 (LIST '|TriplesNode| |TriplesNode| '|VarOrTerm| |VarOrTerm|))8082 (LET ((ATN-PARSER::RESULT-STRUCTURE8083 (IF (EQ *ATN-REDUCE* T)8084 (|GraphNode-Constructor| |TriplesNode| |VarOrTerm|)8085 (IF (EQ *ATN-REDUCE* 'CONS)8086 (CONS '|GraphNode| (DELETE NIL (LIST |TriplesNode| |VarOrTerm|)))8087 '|GraphNode|))))8088 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8089 (|GraphNode/fail.3| (ATN-PARSER::INDEX)8090 (%ATN-NODE-BLOCK |GraphNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8091 (|GraphNode/start.1| (ATN-PARSER::INDEX)8092 (%ATN-NODE-BLOCK8093 |GraphNode/start.1|8094 (%ATN-EDGE-BLOCK8095 OR8096 (PROGN (%ATN-EDGE-BLOCK8097 (PUSH |VarOrTerm|)8098 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8099 (ATN-PARSE-SUBSTRUCTURE* '|VarOrTerm| ATN-PARSER::INDEX)8100 (COND (ATN-PARSER::SUCCESS8101 (SETF *ATN-TERM* '|VarOrTerm|)8102 (LET ((|VarOrTerm1756| |VarOrTerm|))8103 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8104 (DESTRUCTURING-BIND8105 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8106 ATN-PARSER::RESULT-AND-INDEX8107 (WHEN ATN-PARSER::RESULT (SETF |VarOrTerm| ATN-PARSER::RESULT))8108 (|GraphNode.2| ATN-PARSER::RESULT-INDEX))8109 (SETF |VarOrTerm| |VarOrTerm1756|))))8110 (T (SETF *ATN-TERM?* '|VarOrTerm|) NIL))))8111 (%ATN-EDGE-BLOCK8112 (PUSH |TriplesNode|)8113 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8114 (ATN-PARSE-SUBSTRUCTURE* '|TriplesNode| ATN-PARSER::INDEX)8115 (COND (ATN-PARSER::SUCCESS8116 (SETF *ATN-TERM* '|TriplesNode|)8117 (LET ((|TriplesNode1756| |TriplesNode|))8118 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8119 (DESTRUCTURING-BIND8120 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8121 ATN-PARSER::RESULT-AND-INDEX8122 (WHEN ATN-PARSER::RESULT8123 (SETF |TriplesNode| ATN-PARSER::RESULT))8124 (|GraphNode.2| ATN-PARSER::RESULT-INDEX))8125 (SETF |TriplesNode| |TriplesNode1756|))))8126 (T (SETF *ATN-TERM?* '|TriplesNode|) NIL))))8127 (|GraphNode/fail.3| ATN-PARSER::INDEX))))))8128 (|GraphNode/start.1| ATN-PARSER::INDEX)8129 (SETF *ATN-NODE NIL)8130 NIL8131 (IF ATN-PARSER::ATN-STRUCTURE8132 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8133 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8134 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphNode| ATN-PARSER::INDEX *ATN-STACK))))8135 (PROGN (DEFVAR |VarOrTerm-INDEX|)8136 (DEFUN |VarOrTerm| (ATN-PARSER::INDEX &AUX (|GraphTerm| NIL) (|Var| NIL))8137 "{42} VarOrTerm ::= (Var | GraphTerm)8138 (|GraphTerm| |Var|)"8139 (DECLARE (SPECIAL |VarOrTerm-INDEX|))8140 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VarOrTerm-INDEX| *ATN-LEVEL))8141 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8142 (IF (< |VarOrTerm-INDEX| ATN-PARSER::INDEX)8143 (LET ((|VarOrTerm-INDEX| ATN-PARSER::INDEX)8144 (*ATN-LEVEL (1+ *ATN-LEVEL))8145 (*ATN-STACK (CONS '|VarOrTerm| *ATN-STACK))8146 (ATN-PARSER::ATN-STRUCTURE NIL))8147 (DECLARE (SPECIAL |VarOrTerm-INDEX|))8148 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8149 (DECLARE (TYPE CONS *ATN-STACK))8150 (SYMBOL-MACROLET8151 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8152 (%ATN-BLOCK |VarOrTerm|8153 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8154 (SETF *ATN-TERM* '|VarOrTerm|)8155 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8156 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8157 (|VarOrTerm.2| (ATN-PARSER::INDEX)8158 (%ATN-NODE-BLOCK8159 |VarOrTerm.2|8160 (%ATN-EDGE-BLOCK8161 (POP |VarOrTerm|)8162 (WHEN T8163 (SETF *ATN-TERM* '|VarOrTerm|)8164 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8165 '|VarOrTerm|8166 ATN-PARSER::INDEX8167 (LIST '|GraphTerm| |GraphTerm| '|Var| |Var|))8168 (LET ((ATN-PARSER::RESULT-STRUCTURE8169 (IF (EQ *ATN-REDUCE* T)8170 (|VarOrTerm-Constructor| |GraphTerm| |Var|)8171 (IF (EQ *ATN-REDUCE* 'CONS)8172 (CONS '|VarOrTerm| (DELETE NIL (LIST |GraphTerm| |Var|)))8173 '|VarOrTerm|))))8174 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8175 (|VarOrTerm/fail.3| (ATN-PARSER::INDEX)8176 (%ATN-NODE-BLOCK |VarOrTerm/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8177 (|VarOrTerm/start.1| (ATN-PARSER::INDEX)8178 (%ATN-NODE-BLOCK8179 |VarOrTerm/start.1|8180 (%ATN-EDGE-BLOCK8181 OR8182 (PROGN (%ATN-EDGE-BLOCK8183 (TEST |Var|)8184 (COND ((|IS-Var| ATN-PARSER::|item|)8185 (SETF *ATN-TERM* '|Var|)8186 (SETF |Var|8187 (IF (EQ *ATN-REDUCE* T)8188 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)8189 (IF (EQ *ATN-REDUCE* 'CONS)8190 (LIST '|Var| ATN-PARSER::|item|)8191 '|Var|)))8192 (|VarOrTerm.2| (1+ ATN-PARSER::INDEX)))8193 (T (SETF *ATN-TERM?* '|Var|) NIL)))8194 (%ATN-EDGE-BLOCK8195 (PUSH |GraphTerm|)8196 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8197 (ATN-PARSE-SUBSTRUCTURE* '|GraphTerm| ATN-PARSER::INDEX)8198 (COND (ATN-PARSER::SUCCESS8199 (SETF *ATN-TERM* '|GraphTerm|)8200 (LET ((|GraphTerm1756| |GraphTerm|))8201 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8202 (DESTRUCTURING-BIND8203 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8204 ATN-PARSER::RESULT-AND-INDEX8205 (WHEN ATN-PARSER::RESULT (SETF |GraphTerm| ATN-PARSER::RESULT))8206 (|VarOrTerm.2| ATN-PARSER::RESULT-INDEX))8207 (SETF |GraphTerm| |GraphTerm1756|))))8208 (T (SETF *ATN-TERM?* '|GraphTerm|) NIL))))8209 (|VarOrTerm/fail.3| ATN-PARSER::INDEX))))))8210 (|VarOrTerm/start.1| ATN-PARSER::INDEX)8211 (SETF *ATN-NODE NIL)8212 NIL8213 (IF ATN-PARSER::ATN-STRUCTURE8214 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8215 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8216 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VarOrTerm| ATN-PARSER::INDEX *ATN-STACK))))8217 (PROGN (DEFVAR |VarOrIRIref-INDEX|)8218 (DEFUN |VarOrIRIref| (ATN-PARSER::INDEX &AUX (|IRIref| NIL) (|Var| NIL))8219 "{43} VarOrIRIref ::= (Var | IRIref)8220 (|IRIref| |Var|)"8221 (DECLARE (SPECIAL |VarOrIRIref-INDEX|))8222 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VarOrIRIref-INDEX| *ATN-LEVEL))8223 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8224 (IF (< |VarOrIRIref-INDEX| ATN-PARSER::INDEX)8225 (LET ((|VarOrIRIref-INDEX| ATN-PARSER::INDEX)8226 (*ATN-LEVEL (1+ *ATN-LEVEL))8227 (*ATN-STACK (CONS '|VarOrIRIref| *ATN-STACK))8228 (ATN-PARSER::ATN-STRUCTURE NIL))8229 (DECLARE (SPECIAL |VarOrIRIref-INDEX|))8230 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8231 (DECLARE (TYPE CONS *ATN-STACK))8232 (SYMBOL-MACROLET8233 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8234 (%ATN-BLOCK |VarOrIRIref|8235 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8236 (SETF *ATN-TERM* '|VarOrIRIref|)8237 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8238 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8239 (|VarOrIRIref.2| (ATN-PARSER::INDEX)8240 (%ATN-NODE-BLOCK8241 |VarOrIRIref.2|8242 (%ATN-EDGE-BLOCK8243 (POP |VarOrIRIref|)8244 (WHEN T8245 (SETF *ATN-TERM* '|VarOrIRIref|)8246 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8247 '|VarOrIRIref|8248 ATN-PARSER::INDEX8249 (LIST '|IRIref| |IRIref| '|Var| |Var|))8250 (LET ((ATN-PARSER::RESULT-STRUCTURE8251 (IF (EQ *ATN-REDUCE* T)8252 (|VarOrIRIref-Constructor| |IRIref| |Var|)8253 (IF (EQ *ATN-REDUCE* 'CONS)8254 (CONS '|VarOrIRIref| (DELETE NIL (LIST |IRIref| |Var|)))8255 '|VarOrIRIref|))))8256 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8257 (|VarOrIRIref/fail.3| (ATN-PARSER::INDEX)8258 (%ATN-NODE-BLOCK |VarOrIRIref/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8259 (|VarOrIRIref/start.1| (ATN-PARSER::INDEX)8260 (%ATN-NODE-BLOCK8261 |VarOrIRIref/start.1|8262 (%ATN-EDGE-BLOCK8263 OR8264 (PROGN (%ATN-EDGE-BLOCK8265 (TEST |Var|)8266 (COND ((|IS-Var| ATN-PARSER::|item|)8267 (SETF *ATN-TERM* '|Var|)8268 (SETF |Var|8269 (IF (EQ *ATN-REDUCE* T)8270 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)8271 (IF (EQ *ATN-REDUCE* 'CONS)8272 (LIST '|Var| ATN-PARSER::|item|)8273 '|Var|)))8274 (|VarOrIRIref.2| (1+ ATN-PARSER::INDEX)))8275 (T (SETF *ATN-TERM?* '|Var|) NIL)))8276 (%ATN-EDGE-BLOCK8277 (PUSH |IRIref|)8278 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8279 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)8280 (COND (ATN-PARSER::SUCCESS8281 (SETF *ATN-TERM* '|IRIref|)8282 (LET ((|IRIref1756| |IRIref|))8283 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8284 (DESTRUCTURING-BIND8285 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8286 ATN-PARSER::RESULT-AND-INDEX8287 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))8288 (|VarOrIRIref.2| ATN-PARSER::RESULT-INDEX))8289 (SETF |IRIref| |IRIref1756|))))8290 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))8291 (|VarOrIRIref/fail.3| ATN-PARSER::INDEX))))))8292 (|VarOrIRIref/start.1| ATN-PARSER::INDEX)8293 (SETF *ATN-NODE NIL)8294 NIL8295 (IF ATN-PARSER::ATN-STRUCTURE8296 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8297 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8298 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VarOrIRIref| ATN-PARSER::INDEX *ATN-STACK))))8299 (PROGN (DEFVAR |GraphTerm-INDEX|)8300 (DEFUN |GraphTerm| (ATN-PARSER::INDEX &AUX (|BlankNode| NIL) (|BooleanLiteral| NIL) (|IRIref| NIL) (NILLIST NIL)8301 (|NumericLiteral| NIL) (|RDFLiteral| NIL))8302 "{45} GraphTerm ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST)8303 (|BlankNode| |BooleanLiteral| |IRIref| NILLIST |NumericLiteral| |RDFLiteral|)"8304 (DECLARE (SPECIAL |GraphTerm-INDEX|))8305 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphTerm-INDEX| *ATN-LEVEL))8306 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8307 (IF (< |GraphTerm-INDEX| ATN-PARSER::INDEX)8308 (LET ((|GraphTerm-INDEX| ATN-PARSER::INDEX)8309 (*ATN-LEVEL (1+ *ATN-LEVEL))8310 (*ATN-STACK (CONS '|GraphTerm| *ATN-STACK))8311 (ATN-PARSER::ATN-STRUCTURE NIL))8312 (DECLARE (SPECIAL |GraphTerm-INDEX|))8313 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8314 (DECLARE (TYPE CONS *ATN-STACK))8315 (SYMBOL-MACROLET8316 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8317 (%ATN-BLOCK |GraphTerm|8318 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8319 (SETF *ATN-TERM* '|GraphTerm|)8320 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8321 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8322 (|GraphTerm.2| (ATN-PARSER::INDEX)8323 (%ATN-NODE-BLOCK8324 |GraphTerm.2|8325 (%ATN-EDGE-BLOCK8326 (POP |GraphTerm|)8327 (WHEN T8328 (SETF *ATN-TERM* '|GraphTerm|)8329 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8330 '|GraphTerm|8331 ATN-PARSER::INDEX8332 (LIST '|BlankNode|8333 |BlankNode|8334 '|BooleanLiteral|8335 |BooleanLiteral|8336 '|IRIref|8337 |IRIref|8338 'NILLIST8339 NILLIST8340 '|NumericLiteral|8341 |NumericLiteral|8342 '|RDFLiteral|8343 |RDFLiteral|))8344 (LET ((ATN-PARSER::RESULT-STRUCTURE8345 (IF (EQ *ATN-REDUCE* T)8346 (|GraphTerm-Constructor|8347 |BlankNode|8348 |BooleanLiteral|8349 |IRIref|8350 NILLIST8351 |NumericLiteral|8352 |RDFLiteral|)8353 (IF (EQ *ATN-REDUCE* 'CONS)8354 (CONS '|GraphTerm|8355 (DELETE NIL8356 (LIST |BlankNode|8357 |BooleanLiteral|8358 |IRIref|8359 NILLIST8360 |NumericLiteral|8361 |RDFLiteral|)))8362 '|GraphTerm|))))8363 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8364 (|GraphTerm/fail.3| (ATN-PARSER::INDEX)8365 (%ATN-NODE-BLOCK |GraphTerm/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8366 (|GraphTerm/start.1| (ATN-PARSER::INDEX)8367 (%ATN-NODE-BLOCK8368 |GraphTerm/start.1|8369 (%ATN-EDGE-BLOCK8370 OR8371 (PROGN (%ATN-EDGE-BLOCK8372 (PUSH |IRIref|)8373 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8374 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)8375 (COND (ATN-PARSER::SUCCESS8376 (SETF *ATN-TERM* '|IRIref|)8377 (LET ((|IRIref1757| |IRIref|))8378 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8379 (DESTRUCTURING-BIND8380 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8381 ATN-PARSER::RESULT-AND-INDEX8382 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))8383 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))8384 (SETF |IRIref| |IRIref1757|))))8385 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))8386 (%ATN-EDGE-BLOCK8387 (PUSH |RDFLiteral|)8388 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8389 (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral| ATN-PARSER::INDEX)8390 (COND (ATN-PARSER::SUCCESS8391 (SETF *ATN-TERM* '|RDFLiteral|)8392 (LET ((|RDFLiteral1757| |RDFLiteral|))8393 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8394 (DESTRUCTURING-BIND8395 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8396 ATN-PARSER::RESULT-AND-INDEX8397 (WHEN ATN-PARSER::RESULT8398 (SETF |RDFLiteral| ATN-PARSER::RESULT))8399 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))8400 (SETF |RDFLiteral| |RDFLiteral1757|))))8401 (T (SETF *ATN-TERM?* '|RDFLiteral|) NIL))))8402 (%ATN-EDGE-BLOCK8403 (ATN-PARSER::CAT |NumericLiteral|)8404 (COND ((|IS-NumericLiteral| ATN-PARSER::|item|)8405 (SETF *ATN-TERM* '|NumericLiteral|)8406 (SETF |NumericLiteral|8407 (IF (EQ *ATN-REDUCE* T)8408 (ATN-REDUCE-ITEM8409 #'|NumericLiteral-Constructor|8410 ATN-PARSER::|item|)8411 (IF (EQ *ATN-REDUCE* 'CONS)8412 (LIST '|NumericLiteral| ATN-PARSER::|item|)8413 '|NumericLiteral|)))8414 (|GraphTerm.2| (1+ ATN-PARSER::INDEX)))8415 (T (SETF *ATN-TERM* '|NumericLiteral|) NIL)))8416 (%ATN-EDGE-BLOCK8417 (ATN-PARSER::CAT |BooleanLiteral|)8418 (COND ((|IS-BooleanLiteral| ATN-PARSER::|item|)8419 (SETF *ATN-TERM* '|BooleanLiteral|)8420 (SETF |BooleanLiteral|8421 (IF (EQ *ATN-REDUCE* T)8422 (ATN-REDUCE-ITEM8423 #'|BooleanLiteral-Constructor|8424 ATN-PARSER::|item|)8425 (IF (EQ *ATN-REDUCE* 'CONS)8426 (LIST '|BooleanLiteral| ATN-PARSER::|item|)8427 '|BooleanLiteral|)))8428 (|GraphTerm.2| (1+ ATN-PARSER::INDEX)))8429 (T (SETF *ATN-TERM* '|BooleanLiteral|) NIL)))8430 (%ATN-EDGE-BLOCK8431 (PUSH |BlankNode|)8432 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8433 (ATN-PARSE-SUBSTRUCTURE* '|BlankNode| ATN-PARSER::INDEX)8434 (COND (ATN-PARSER::SUCCESS8435 (SETF *ATN-TERM* '|BlankNode|)8436 (LET ((|BlankNode1757| |BlankNode|))8437 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8438 (DESTRUCTURING-BIND8439 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8440 ATN-PARSER::RESULT-AND-INDEX8441 (WHEN ATN-PARSER::RESULT (SETF |BlankNode| ATN-PARSER::RESULT))8442 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))8443 (SETF |BlankNode| |BlankNode1757|))))8444 (T (SETF *ATN-TERM?* '|BlankNode|) NIL))))8445 (%ATN-EDGE-BLOCK8446 (PUSH NILLIST)8447 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8448 (ATN-PARSE-SUBSTRUCTURE* 'NILLIST ATN-PARSER::INDEX)8449 (COND (ATN-PARSER::SUCCESS8450 (SETF *ATN-TERM* 'NILLIST)8451 (LET ((NILLIST1757 NILLIST))8452 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8453 (DESTRUCTURING-BIND8454 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8455 ATN-PARSER::RESULT-AND-INDEX8456 (WHEN ATN-PARSER::RESULT (SETF NILLIST ATN-PARSER::RESULT))8457 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))8458 (SETF NILLIST NILLIST1757))))8459 (T (SETF *ATN-TERM?* 'NILLIST) NIL))))8460 (|GraphTerm/fail.3| ATN-PARSER::INDEX))))))8461 (|GraphTerm/start.1| ATN-PARSER::INDEX)8462 (SETF *ATN-NODE NIL)8463 NIL8464 (IF ATN-PARSER::ATN-STRUCTURE8465 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8466 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8467 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphTerm| ATN-PARSER::INDEX *ATN-STACK))))8468 (PROGN (DEFVAR |Expression-INDEX|)8469 (DEFUN |Expression| (ATN-PARSER::INDEX &AUX (|ConditionalOrExpression| NIL))8470 "{46} Expression ::= ConditionalOrExpression8471 (|ConditionalOrExpression|)"8472 (DECLARE (SPECIAL |Expression-INDEX|))8473 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Expression-INDEX| *ATN-LEVEL))8474 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8475 (IF (< |Expression-INDEX| ATN-PARSER::INDEX)8476 (LET ((|Expression-INDEX| ATN-PARSER::INDEX)8477 (*ATN-LEVEL (1+ *ATN-LEVEL))8478 (*ATN-STACK (CONS '|Expression| *ATN-STACK))8479 (ATN-PARSER::ATN-STRUCTURE NIL))8480 (DECLARE (SPECIAL |Expression-INDEX|))8481 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8482 (DECLARE (TYPE CONS *ATN-STACK))8483 (SYMBOL-MACROLET8484 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8485 (%ATN-BLOCK |Expression|8486 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8487 (SETF *ATN-TERM* '|Expression|)8488 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8489 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8490 (|Expression.2| (ATN-PARSER::INDEX)8491 (%ATN-NODE-BLOCK8492 |Expression.2|8493 (%ATN-EDGE-BLOCK8494 (POP |Expression|)8495 (WHEN T8496 (SETF *ATN-TERM* '|Expression|)8497 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8498 '|Expression|8499 ATN-PARSER::INDEX8500 (LIST '|ConditionalOrExpression| |ConditionalOrExpression|))8501 (LET ((ATN-PARSER::RESULT-STRUCTURE8502 (IF (EQ *ATN-REDUCE* T)8503 (|Expression-Constructor| |ConditionalOrExpression|)8504 (IF (EQ *ATN-REDUCE* 'CONS)8505 (CONS '|Expression| (DELETE NIL (LIST |ConditionalOrExpression|)))8506 '|Expression|))))8507 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8508 (|Expression/fail.3| (ATN-PARSER::INDEX)8509 (%ATN-NODE-BLOCK |Expression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8510 (|Expression/start.1| (ATN-PARSER::INDEX)8511 (%ATN-NODE-BLOCK8512 |Expression/start.1|8513 (%ATN-EDGE-BLOCK8514 (PUSH |ConditionalOrExpression|)8515 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8516 (ATN-PARSE-SUBSTRUCTURE* '|ConditionalOrExpression| ATN-PARSER::INDEX)8517 (COND (ATN-PARSER::SUCCESS8518 (SETF *ATN-TERM* '|ConditionalOrExpression|)8519 (LET ((|ConditionalOrExpression1757| |ConditionalOrExpression|))8520 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8521 (DESTRUCTURING-BIND8522 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8523 ATN-PARSER::RESULT-AND-INDEX8524 (WHEN ATN-PARSER::RESULT8525 (SETF |ConditionalOrExpression| ATN-PARSER::RESULT))8526 (|Expression.2| ATN-PARSER::RESULT-INDEX))8527 (SETF |ConditionalOrExpression| |ConditionalOrExpression1757|))))8528 (T8529 (SETF *ATN-TERM?* '|ConditionalOrExpression|)8530 (|Expression/fail.3| ATN-PARSER::INDEX))))))))8531 (|Expression/start.1| ATN-PARSER::INDEX)8532 (SETF *ATN-NODE NIL)8533 NIL8534 (IF ATN-PARSER::ATN-STRUCTURE8535 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8536 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8537 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Expression| ATN-PARSER::INDEX *ATN-STACK))))8538 (PROGN (DEFVAR |ConditionalOrExpression-INDEX|)8539 (DEFUN |ConditionalOrExpression| (ATN-PARSER::INDEX &AUX (|ConditionalAndExpression| NIL))8540 "{47} ConditionalOrExpression ::= ConditionalAndExpression ('||'8541 ConditionalAndExpression)*8542 (|ConditionalAndExpression|)"8543 (DECLARE (SPECIAL |ConditionalOrExpression-INDEX|))8544 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConditionalOrExpression-INDEX| *ATN-LEVEL))8545 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8546 (IF (< |ConditionalOrExpression-INDEX| ATN-PARSER::INDEX)8547 (LET ((|ConditionalOrExpression-INDEX| ATN-PARSER::INDEX)8548 (*ATN-LEVEL (1+ *ATN-LEVEL))8549 (*ATN-STACK (CONS '|ConditionalOrExpression| *ATN-STACK))8550 (ATN-PARSER::ATN-STRUCTURE NIL))8551 (DECLARE (SPECIAL |ConditionalOrExpression-INDEX|))8552 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8553 (DECLARE (TYPE CONS *ATN-STACK))8554 (SYMBOL-MACROLET8555 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8556 (%ATN-BLOCK |ConditionalOrExpression|8557 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8558 (SETF *ATN-TERM* '|ConditionalOrExpression|)8559 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8560 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8561 (|ConditionalOrExpression.2| (ATN-PARSER::INDEX)8562 (%ATN-NODE-BLOCK8563 |ConditionalOrExpression.2|8564 (%ATN-EDGE-BLOCK8565 (POP |ConditionalOrExpression|)8566 (WHEN T8567 (SETF *ATN-TERM* '|ConditionalOrExpression|)8568 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8569 '|ConditionalOrExpression|8570 ATN-PARSER::INDEX8571 (LIST '|ConditionalAndExpression| |ConditionalAndExpression|))8572 (LET ((ATN-PARSER::RESULT-STRUCTURE8573 (IF (EQ *ATN-REDUCE* T)8574 (|ConditionalOrExpression-Constructor| |ConditionalAndExpression|)8575 (IF (EQ *ATN-REDUCE* 'CONS)8576 (CONS '|ConditionalOrExpression|8577 (DELETE NIL (LIST |ConditionalAndExpression|)))8578 '|ConditionalOrExpression|))))8579 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8580 (|ConditionalOrExpression.5| (ATN-PARSER::INDEX)8581 (%ATN-NODE-BLOCK8582 |ConditionalOrExpression.5|8583 (%ATN-EDGE-BLOCK8584 (ATN-PARSER::JUMP |ConditionalOrExpression/ConditionalOrExpression.5.6|)8585 (|ConditionalOrExpression/ConditionalOrExpression.5.6| ATN-PARSER::INDEX))8586 (%ATN-EDGE-BLOCK8587 (ATN-PARSER::JUMP |ConditionalOrExpression.2|)8588 (|ConditionalOrExpression.2| ATN-PARSER::INDEX))))8589 (|ConditionalOrExpression/ConditionalOrExpression.2.4| (ATN-PARSER::INDEX)8590 (%ATN-NODE-BLOCK8591 |ConditionalOrExpression/ConditionalOrExpression.2.4|8592 (%ATN-EDGE-BLOCK8593 (ATN-PARSER::JUMP |ConditionalOrExpression/ConditionalOrExpression.5.6|)8594 (|ConditionalOrExpression/ConditionalOrExpression.5.6| ATN-PARSER::INDEX))8595 (%ATN-EDGE-BLOCK8596 (ATN-PARSER::JUMP |ConditionalOrExpression.2|)8597 (|ConditionalOrExpression.2| ATN-PARSER::INDEX))))8598 (|ConditionalOrExpression/ConditionalOrExpression.5.6| (ATN-PARSER::INDEX)8599 (%ATN-NODE-BLOCK8600 |ConditionalOrExpression/ConditionalOrExpression.5.6|8601 (%ATN-EDGE-BLOCK8602 (ATN-PARSER::WORD SPOCQ.S:|\|\||)8603 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|\|\||)8604 (SETF *ATN-TERM* 'SPOCQ.S:|\|\||)8605 (|ConditionalOrExpression/ConditionalOrExpression.5.7| (1+ ATN-PARSER::INDEX)))8606 (T (SETF *ATN-TERM?* 'SPOCQ.S:|\|\||) NIL)))))8607 (|ConditionalOrExpression/ConditionalOrExpression.5.7| (ATN-PARSER::INDEX)8608 (%ATN-NODE-BLOCK8609 |ConditionalOrExpression/ConditionalOrExpression.5.7|8610 (%ATN-EDGE-BLOCK8611 (PUSH |ConditionalAndExpression|)8612 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8613 (ATN-PARSE-SUBSTRUCTURE* '|ConditionalAndExpression| ATN-PARSER::INDEX)8614 (COND (ATN-PARSER::SUCCESS8615 (SETF *ATN-TERM* '|ConditionalAndExpression|)8616 (LET ((|ConditionalAndExpression1757| |ConditionalAndExpression|))8617 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8618 (DESTRUCTURING-BIND8619 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8620 ATN-PARSER::RESULT-AND-INDEX8621 (WHEN ATN-PARSER::RESULT8622 (SETF |ConditionalAndExpression|8623 (CONS ATN-PARSER::RESULT |ConditionalAndExpression|)))8624 (|ConditionalOrExpression.5| ATN-PARSER::RESULT-INDEX))8625 (SETF |ConditionalAndExpression| |ConditionalAndExpression1757|))))8626 (T (SETF *ATN-TERM?* '|ConditionalAndExpression|) NIL))))))8627 (|ConditionalOrExpression/fail.3| (ATN-PARSER::INDEX)8628 (%ATN-NODE-BLOCK8629 |ConditionalOrExpression/fail.3|8630 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8631 (|ConditionalOrExpression/start.1| (ATN-PARSER::INDEX)8632 (%ATN-NODE-BLOCK8633 |ConditionalOrExpression/start.1|8634 (%ATN-EDGE-BLOCK8635 (PUSH |ConditionalAndExpression|)8636 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8637 (ATN-PARSE-SUBSTRUCTURE* '|ConditionalAndExpression| ATN-PARSER::INDEX)8638 (COND (ATN-PARSER::SUCCESS8639 (SETF *ATN-TERM* '|ConditionalAndExpression|)8640 (LET ((|ConditionalAndExpression1758| |ConditionalAndExpression|))8641 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8642 (DESTRUCTURING-BIND8643 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8644 ATN-PARSER::RESULT-AND-INDEX8645 (WHEN ATN-PARSER::RESULT8646 (SETF |ConditionalAndExpression|8647 (CONS ATN-PARSER::RESULT |ConditionalAndExpression|)))8648 (|ConditionalOrExpression/ConditionalOrExpression.2.4|8649 ATN-PARSER::RESULT-INDEX))8650 (SETF |ConditionalAndExpression| |ConditionalAndExpression1758|))))8651 (T8652 (SETF *ATN-TERM?* '|ConditionalAndExpression|)8653 (|ConditionalOrExpression/fail.3| ATN-PARSER::INDEX))))))))8654 (|ConditionalOrExpression/start.1| ATN-PARSER::INDEX)8655 (SETF *ATN-NODE NIL)8656 NIL8657 (IF ATN-PARSER::ATN-STRUCTURE8658 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8659 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8660 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConditionalOrExpression| ATN-PARSER::INDEX *ATN-STACK))))8661 (PROGN (DEFVAR |ConditionalAndExpression-INDEX|)8662 (DEFUN |ConditionalAndExpression| (ATN-PARSER::INDEX &AUX (|ValueLogical| NIL))8663 "{48} ConditionalAndExpression ::= ValueLogical ('&&' ValueLogical)*8664 (|ValueLogical|)"8665 (DECLARE (SPECIAL |ConditionalAndExpression-INDEX|))8666 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConditionalAndExpression-INDEX| *ATN-LEVEL))8667 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8668 (IF (< |ConditionalAndExpression-INDEX| ATN-PARSER::INDEX)8669 (LET ((|ConditionalAndExpression-INDEX| ATN-PARSER::INDEX)8670 (*ATN-LEVEL (1+ *ATN-LEVEL))8671 (*ATN-STACK (CONS '|ConditionalAndExpression| *ATN-STACK))8672 (ATN-PARSER::ATN-STRUCTURE NIL))8673 (DECLARE (SPECIAL |ConditionalAndExpression-INDEX|))8674 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8675 (DECLARE (TYPE CONS *ATN-STACK))8676 (SYMBOL-MACROLET8677 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8678 (%ATN-BLOCK |ConditionalAndExpression|8679 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8680 (SETF *ATN-TERM* '|ConditionalAndExpression|)8681 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8682 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8683 (|ConditionalAndExpression.2| (ATN-PARSER::INDEX)8684 (%ATN-NODE-BLOCK8685 |ConditionalAndExpression.2|8686 (%ATN-EDGE-BLOCK8687 (POP |ConditionalAndExpression|)8688 (WHEN T8689 (SETF *ATN-TERM* '|ConditionalAndExpression|)8690 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8691 '|ConditionalAndExpression|8692 ATN-PARSER::INDEX8693 (LIST '|ValueLogical| |ValueLogical|))8694 (LET ((ATN-PARSER::RESULT-STRUCTURE8695 (IF (EQ *ATN-REDUCE* T)8696 (|ConditionalAndExpression-Constructor| |ValueLogical|)8697 (IF (EQ *ATN-REDUCE* 'CONS)8698 (CONS '|ConditionalAndExpression| (DELETE NIL (LIST |ValueLogical|)))8699 '|ConditionalAndExpression|))))8700 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8701 (|ConditionalAndExpression.5| (ATN-PARSER::INDEX)8702 (%ATN-NODE-BLOCK8703 |ConditionalAndExpression.5|8704 (%ATN-EDGE-BLOCK8705 (ATN-PARSER::JUMP |ConditionalAndExpression/ConditionalAndExpression.5.6|)8706 (|ConditionalAndExpression/ConditionalAndExpression.5.6| ATN-PARSER::INDEX))8707 (%ATN-EDGE-BLOCK8708 (ATN-PARSER::JUMP |ConditionalAndExpression.2|)8709 (|ConditionalAndExpression.2| ATN-PARSER::INDEX))))8710 (|ConditionalAndExpression/ConditionalAndExpression.2.4| (ATN-PARSER::INDEX)8711 (%ATN-NODE-BLOCK8712 |ConditionalAndExpression/ConditionalAndExpression.2.4|8713 (%ATN-EDGE-BLOCK8714 (ATN-PARSER::JUMP |ConditionalAndExpression/ConditionalAndExpression.5.6|)8715 (|ConditionalAndExpression/ConditionalAndExpression.5.6| ATN-PARSER::INDEX))8716 (%ATN-EDGE-BLOCK8717 (ATN-PARSER::JUMP |ConditionalAndExpression.2|)8718 (|ConditionalAndExpression.2| ATN-PARSER::INDEX))))8719 (|ConditionalAndExpression/ConditionalAndExpression.5.6| (ATN-PARSER::INDEX)8720 (%ATN-NODE-BLOCK8721 |ConditionalAndExpression/ConditionalAndExpression.5.6|8722 (%ATN-EDGE-BLOCK8723 (ATN-PARSER::WORD SPOCQ.S:&&)8724 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:&&)8725 (SETF *ATN-TERM* 'SPOCQ.S:&&)8726 (|ConditionalAndExpression/ConditionalAndExpression.5.7|8727 (1+ ATN-PARSER::INDEX)))8728 (T (SETF *ATN-TERM?* 'SPOCQ.S:&&) NIL)))))8729 (|ConditionalAndExpression/ConditionalAndExpression.5.7| (ATN-PARSER::INDEX)8730 (%ATN-NODE-BLOCK8731 |ConditionalAndExpression/ConditionalAndExpression.5.7|8732 (%ATN-EDGE-BLOCK8733 (PUSH |ValueLogical|)8734 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8735 (ATN-PARSE-SUBSTRUCTURE* '|ValueLogical| ATN-PARSER::INDEX)8736 (COND (ATN-PARSER::SUCCESS8737 (SETF *ATN-TERM* '|ValueLogical|)8738 (LET ((|ValueLogical1758| |ValueLogical|))8739 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8740 (DESTRUCTURING-BIND8741 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8742 ATN-PARSER::RESULT-AND-INDEX8743 (WHEN ATN-PARSER::RESULT8744 (SETF |ValueLogical| (CONS ATN-PARSER::RESULT |ValueLogical|)))8745 (|ConditionalAndExpression.5| ATN-PARSER::RESULT-INDEX))8746 (SETF |ValueLogical| |ValueLogical1758|))))8747 (T (SETF *ATN-TERM?* '|ValueLogical|) NIL))))))8748 (|ConditionalAndExpression/fail.3| (ATN-PARSER::INDEX)8749 (%ATN-NODE-BLOCK8750 |ConditionalAndExpression/fail.3|8751 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8752 (|ConditionalAndExpression/start.1| (ATN-PARSER::INDEX)8753 (%ATN-NODE-BLOCK8754 |ConditionalAndExpression/start.1|8755 (%ATN-EDGE-BLOCK8756 (PUSH |ValueLogical|)8757 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8758 (ATN-PARSE-SUBSTRUCTURE* '|ValueLogical| ATN-PARSER::INDEX)8759 (COND (ATN-PARSER::SUCCESS8760 (SETF *ATN-TERM* '|ValueLogical|)8761 (LET ((|ValueLogical1759| |ValueLogical|))8762 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8763 (DESTRUCTURING-BIND8764 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8765 ATN-PARSER::RESULT-AND-INDEX8766 (WHEN ATN-PARSER::RESULT8767 (SETF |ValueLogical| (CONS ATN-PARSER::RESULT |ValueLogical|)))8768 (|ConditionalAndExpression/ConditionalAndExpression.2.4|8769 ATN-PARSER::RESULT-INDEX))8770 (SETF |ValueLogical| |ValueLogical1759|))))8771 (T8772 (SETF *ATN-TERM?* '|ValueLogical|)8773 (|ConditionalAndExpression/fail.3| ATN-PARSER::INDEX))))))))8774 (|ConditionalAndExpression/start.1| ATN-PARSER::INDEX)8775 (SETF *ATN-NODE NIL)8776 NIL8777 (IF ATN-PARSER::ATN-STRUCTURE8778 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8779 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8780 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConditionalAndExpression| ATN-PARSER::INDEX *ATN-STACK))))8781 (PROGN (DEFVAR |ValueLogical-INDEX|)8782 (DEFUN |ValueLogical| (ATN-PARSER::INDEX &AUX (|RelationalExpression| NIL))8783 "{49} ValueLogical ::= RelationalExpression8784 (|RelationalExpression|)"8785 (DECLARE (SPECIAL |ValueLogical-INDEX|))8786 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ValueLogical-INDEX| *ATN-LEVEL))8787 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8788 (IF (< |ValueLogical-INDEX| ATN-PARSER::INDEX)8789 (LET ((|ValueLogical-INDEX| ATN-PARSER::INDEX)8790 (*ATN-LEVEL (1+ *ATN-LEVEL))8791 (*ATN-STACK (CONS '|ValueLogical| *ATN-STACK))8792 (ATN-PARSER::ATN-STRUCTURE NIL))8793 (DECLARE (SPECIAL |ValueLogical-INDEX|))8794 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8795 (DECLARE (TYPE CONS *ATN-STACK))8796 (SYMBOL-MACROLET8797 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8798 (%ATN-BLOCK |ValueLogical|8799 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8800 (SETF *ATN-TERM* '|ValueLogical|)8801 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8802 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8803 (|ValueLogical.2| (ATN-PARSER::INDEX)8804 (%ATN-NODE-BLOCK8805 |ValueLogical.2|8806 (%ATN-EDGE-BLOCK8807 (POP |ValueLogical|)8808 (WHEN T8809 (SETF *ATN-TERM* '|ValueLogical|)8810 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8811 '|ValueLogical|8812 ATN-PARSER::INDEX8813 (LIST '|RelationalExpression| |RelationalExpression|))8814 (LET ((ATN-PARSER::RESULT-STRUCTURE8815 (IF (EQ *ATN-REDUCE* T)8816 (|ValueLogical-Constructor| |RelationalExpression|)8817 (IF (EQ *ATN-REDUCE* 'CONS)8818 (CONS '|ValueLogical| (DELETE NIL (LIST |RelationalExpression|)))8819 '|ValueLogical|))))8820 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8821 (|ValueLogical/fail.3| (ATN-PARSER::INDEX)8822 (%ATN-NODE-BLOCK |ValueLogical/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8823 (|ValueLogical/start.1| (ATN-PARSER::INDEX)8824 (%ATN-NODE-BLOCK8825 |ValueLogical/start.1|8826 (%ATN-EDGE-BLOCK8827 (PUSH |RelationalExpression|)8828 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8829 (ATN-PARSE-SUBSTRUCTURE* '|RelationalExpression| ATN-PARSER::INDEX)8830 (COND (ATN-PARSER::SUCCESS8831 (SETF *ATN-TERM* '|RelationalExpression|)8832 (LET ((|RelationalExpression1759| |RelationalExpression|))8833 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8834 (DESTRUCTURING-BIND8835 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8836 ATN-PARSER::RESULT-AND-INDEX8837 (WHEN ATN-PARSER::RESULT8838 (SETF |RelationalExpression| ATN-PARSER::RESULT))8839 (|ValueLogical.2| ATN-PARSER::RESULT-INDEX))8840 (SETF |RelationalExpression| |RelationalExpression1759|))))8841 (T8842 (SETF *ATN-TERM?* '|RelationalExpression|)8843 (|ValueLogical/fail.3| ATN-PARSER::INDEX))))))))8844 (|ValueLogical/start.1| ATN-PARSER::INDEX)8845 (SETF *ATN-NODE NIL)8846 NIL8847 (IF ATN-PARSER::ATN-STRUCTURE8848 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8849 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8850 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ValueLogical| ATN-PARSER::INDEX *ATN-STACK))))8851 (PROGN (DEFVAR |RelationalExpression-INDEX|)8852 (DEFUN |RelationalExpression| (ATN-PARSER::INDEX &AUX (|NumericExpression| NIL) (|RelatedNumeric| NIL))8853 "{50} RelationalExpression ::= NumericExpression RelatedNumeric?8854 (|NumericExpression| |RelatedNumeric|)"8855 (DECLARE (SPECIAL |RelationalExpression-INDEX|))8856 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RelationalExpression-INDEX| *ATN-LEVEL))8857 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8858 (IF (< |RelationalExpression-INDEX| ATN-PARSER::INDEX)8859 (LET ((|RelationalExpression-INDEX| ATN-PARSER::INDEX)8860 (*ATN-LEVEL (1+ *ATN-LEVEL))8861 (*ATN-STACK (CONS '|RelationalExpression| *ATN-STACK))8862 (ATN-PARSER::ATN-STRUCTURE NIL))8863 (DECLARE (SPECIAL |RelationalExpression-INDEX|))8864 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8865 (DECLARE (TYPE CONS *ATN-STACK))8866 (SYMBOL-MACROLET8867 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8868 (%ATN-BLOCK |RelationalExpression|8869 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8870 (SETF *ATN-TERM* '|RelationalExpression|)8871 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8872 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8873 (|RelationalExpression.2| (ATN-PARSER::INDEX)8874 (%ATN-NODE-BLOCK8875 |RelationalExpression.2|8876 (%ATN-EDGE-BLOCK8877 (POP |RelationalExpression|)8878 (WHEN T8879 (SETF *ATN-TERM* '|RelationalExpression|)8880 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8881 '|RelationalExpression|8882 ATN-PARSER::INDEX8883 (LIST '|NumericExpression|8884 |NumericExpression|8885 '|RelatedNumeric|8886 |RelatedNumeric|))8887 (LET ((ATN-PARSER::RESULT-STRUCTURE8888 (IF (EQ *ATN-REDUCE* T)8889 (|RelationalExpression-Constructor| |NumericExpression| |RelatedNumeric|)8890 (IF (EQ *ATN-REDUCE* 'CONS)8891 (CONS '|RelationalExpression|8892 (DELETE NIL (LIST |NumericExpression| |RelatedNumeric|)))8893 '|RelationalExpression|))))8894 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8895 (|RelationalExpression/fail.3| (ATN-PARSER::INDEX)8896 (%ATN-NODE-BLOCK8897 |RelationalExpression/fail.3|8898 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8899 (|RelationalExpression/RelationalExpression.2.4| (ATN-PARSER::INDEX)8900 (%ATN-NODE-BLOCK8901 |RelationalExpression/RelationalExpression.2.4|8902 (%ATN-EDGE-BLOCK8903 (PUSH |RelatedNumeric|)8904 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8905 (ATN-PARSE-SUBSTRUCTURE* '|RelatedNumeric| ATN-PARSER::INDEX)8906 (COND (ATN-PARSER::SUCCESS8907 (SETF *ATN-TERM* '|RelatedNumeric|)8908 (LET ((|RelatedNumeric1759| |RelatedNumeric|))8909 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8910 (DESTRUCTURING-BIND8911 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8912 ATN-PARSER::RESULT-AND-INDEX8913 (WHEN ATN-PARSER::RESULT (SETF |RelatedNumeric| ATN-PARSER::RESULT))8914 (|RelationalExpression.2| ATN-PARSER::RESULT-INDEX))8915 (SETF |RelatedNumeric| |RelatedNumeric1759|))))8916 (T8917 (SETF *ATN-TERM?* '|RelatedNumeric|)8918 (|RelationalExpression.2| ATN-PARSER::INDEX)))))))8919 (|RelationalExpression/start.1| (ATN-PARSER::INDEX)8920 (%ATN-NODE-BLOCK8921 |RelationalExpression/start.1|8922 (%ATN-EDGE-BLOCK8923 (PUSH |NumericExpression|)8924 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8925 (ATN-PARSE-SUBSTRUCTURE* '|NumericExpression| ATN-PARSER::INDEX)8926 (COND (ATN-PARSER::SUCCESS8927 (SETF *ATN-TERM* '|NumericExpression|)8928 (LET ((|NumericExpression1759| |NumericExpression|))8929 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8930 (DESTRUCTURING-BIND8931 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8932 ATN-PARSER::RESULT-AND-INDEX8933 (WHEN ATN-PARSER::RESULT (SETF |NumericExpression| ATN-PARSER::RESULT))8934 (|RelationalExpression/RelationalExpression.2.4|8935 ATN-PARSER::RESULT-INDEX))8936 (SETF |NumericExpression| |NumericExpression1759|))))8937 (T8938 (SETF *ATN-TERM?* '|NumericExpression|)8939 (|RelationalExpression/fail.3| ATN-PARSER::INDEX))))))))8940 (|RelationalExpression/start.1| ATN-PARSER::INDEX)8941 (SETF *ATN-NODE NIL)8942 NIL8943 (IF ATN-PARSER::ATN-STRUCTURE8944 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8945 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8946 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RelationalExpression| ATN-PARSER::INDEX *ATN-STACK))))8947 (PROGN (DEFVAR |RelatedNumeric-INDEX|)8948 (DEFUN |RelatedNumeric| (ATN-PARSER::INDEX &AUX (|NumericExpression| NIL) (|RelationalOperator| NIL))8949 "RelatedNumeric ::= RelationalOperator NumericExpression8950 (|NumericExpression| |RelationalOperator|)"8951 (DECLARE (SPECIAL |RelatedNumeric-INDEX|))8952 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RelatedNumeric-INDEX| *ATN-LEVEL))8953 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8954 (IF (< |RelatedNumeric-INDEX| ATN-PARSER::INDEX)8955 (LET ((|RelatedNumeric-INDEX| ATN-PARSER::INDEX)8956 (*ATN-LEVEL (1+ *ATN-LEVEL))8957 (*ATN-STACK (CONS '|RelatedNumeric| *ATN-STACK))8958 (ATN-PARSER::ATN-STRUCTURE NIL))8959 (DECLARE (SPECIAL |RelatedNumeric-INDEX|))8960 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8961 (DECLARE (TYPE CONS *ATN-STACK))8962 (SYMBOL-MACROLET8963 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8964 (%ATN-BLOCK |RelatedNumeric|8965 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8966 (SETF *ATN-TERM* '|RelatedNumeric|)8967 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8968 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8969 (|RelatedNumeric.2| (ATN-PARSER::INDEX)8970 (%ATN-NODE-BLOCK8971 |RelatedNumeric.2|8972 (%ATN-EDGE-BLOCK8973 (POP |RelatedNumeric|)8974 (WHEN T8975 (SETF *ATN-TERM* '|RelatedNumeric|)8976 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8977 '|RelatedNumeric|8978 ATN-PARSER::INDEX8979 (LIST '|NumericExpression|8980 |NumericExpression|8981 '|RelationalOperator|8982 |RelationalOperator|))8983 (LET ((ATN-PARSER::RESULT-STRUCTURE8984 (IF (EQ *ATN-REDUCE* T)8985 (|RelatedNumeric-Constructor| |NumericExpression| |RelationalOperator|)8986 (IF (EQ *ATN-REDUCE* 'CONS)8987 (CONS '|RelatedNumeric|8988 (DELETE NIL (LIST |NumericExpression| |RelationalOperator|)))8989 '|RelatedNumeric|))))8990 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8991 (|RelatedNumeric/fail.3| (ATN-PARSER::INDEX)8992 (%ATN-NODE-BLOCK |RelatedNumeric/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8993 (|RelatedNumeric/RelatedNumeric.2.4| (ATN-PARSER::INDEX)8994 (%ATN-NODE-BLOCK8995 |RelatedNumeric/RelatedNumeric.2.4|8996 (%ATN-EDGE-BLOCK8997 (PUSH |NumericExpression|)8998 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8999 (ATN-PARSE-SUBSTRUCTURE* '|NumericExpression| ATN-PARSER::INDEX)9000 (COND (ATN-PARSER::SUCCESS9001 (SETF *ATN-TERM* '|NumericExpression|)9002 (LET ((|NumericExpression1760| |NumericExpression|))9003 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9004 (DESTRUCTURING-BIND9005 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9006 ATN-PARSER::RESULT-AND-INDEX9007 (WHEN ATN-PARSER::RESULT (SETF |NumericExpression| ATN-PARSER::RESULT))9008 (|RelatedNumeric.2| ATN-PARSER::RESULT-INDEX))9009 (SETF |NumericExpression| |NumericExpression1760|))))9010 (T9011 (SETF *ATN-TERM?* '|NumericExpression|)9012 (|RelatedNumeric/fail.3| ATN-PARSER::INDEX)))))))9013 (|RelatedNumeric/start.1| (ATN-PARSER::INDEX)9014 (%ATN-NODE-BLOCK9015 |RelatedNumeric/start.1|9016 (%ATN-EDGE-BLOCK9017 (ATN-PARSER::CAT |RelationalOperator|)9018 (COND ((|IS-RelationalOperator| ATN-PARSER::|item|)9019 (SETF *ATN-TERM* '|RelationalOperator|)9020 (SETF |RelationalOperator|9021 (IF (EQ *ATN-REDUCE* T)9022 (ATN-REDUCE-ITEM9023 #'|RelationalOperator-Constructor|9024 ATN-PARSER::|item|)9025 (IF (EQ *ATN-REDUCE* 'CONS)9026 (LIST '|RelationalOperator| ATN-PARSER::|item|)9027 '|RelationalOperator|)))9028 (|RelatedNumeric/RelatedNumeric.2.4| (1+ ATN-PARSER::INDEX)))9029 (T9030 (SETF *ATN-TERM* '|RelationalOperator|)9031 (|RelatedNumeric/fail.3| ATN-PARSER::INDEX)))))))9032 (|RelatedNumeric/start.1| ATN-PARSER::INDEX)9033 (SETF *ATN-NODE NIL)9034 NIL9035 (IF ATN-PARSER::ATN-STRUCTURE9036 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9037 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9038 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RelatedNumeric| ATN-PARSER::INDEX *ATN-STACK))))9039 (PROGN (DEFVAR |NumericExpression-INDEX|)9040 (DEFUN |NumericExpression| (ATN-PARSER::INDEX &AUX (|AdditiveExpression| NIL))9041 "{51} NumericExpression ::= AdditiveExpression9042 (|AdditiveExpression|)"9043 (DECLARE (SPECIAL |NumericExpression-INDEX|))9044 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NumericExpression-INDEX| *ATN-LEVEL))9045 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9046 (IF (< |NumericExpression-INDEX| ATN-PARSER::INDEX)9047 (LET ((|NumericExpression-INDEX| ATN-PARSER::INDEX)9048 (*ATN-LEVEL (1+ *ATN-LEVEL))9049 (*ATN-STACK (CONS '|NumericExpression| *ATN-STACK))9050 (ATN-PARSER::ATN-STRUCTURE NIL))9051 (DECLARE (SPECIAL |NumericExpression-INDEX|))9052 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9053 (DECLARE (TYPE CONS *ATN-STACK))9054 (SYMBOL-MACROLET9055 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9056 (%ATN-BLOCK |NumericExpression|9057 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9058 (SETF *ATN-TERM* '|NumericExpression|)9059 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9060 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9061 (|NumericExpression.2| (ATN-PARSER::INDEX)9062 (%ATN-NODE-BLOCK9063 |NumericExpression.2|9064 (%ATN-EDGE-BLOCK9065 (POP |NumericExpression|)9066 (WHEN T9067 (SETF *ATN-TERM* '|NumericExpression|)9068 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9069 '|NumericExpression|9070 ATN-PARSER::INDEX9071 (LIST '|AdditiveExpression| |AdditiveExpression|))9072 (LET ((ATN-PARSER::RESULT-STRUCTURE9073 (IF (EQ *ATN-REDUCE* T)9074 (|NumericExpression-Constructor| |AdditiveExpression|)9075 (IF (EQ *ATN-REDUCE* 'CONS)9076 (CONS '|NumericExpression| (DELETE NIL (LIST |AdditiveExpression|)))9077 '|NumericExpression|))))9078 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9079 (|NumericExpression/fail.3| (ATN-PARSER::INDEX)9080 (%ATN-NODE-BLOCK |NumericExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9081 (|NumericExpression/start.1| (ATN-PARSER::INDEX)9082 (%ATN-NODE-BLOCK9083 |NumericExpression/start.1|9084 (%ATN-EDGE-BLOCK9085 (PUSH |AdditiveExpression|)9086 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9087 (ATN-PARSE-SUBSTRUCTURE* '|AdditiveExpression| ATN-PARSER::INDEX)9088 (COND (ATN-PARSER::SUCCESS9089 (SETF *ATN-TERM* '|AdditiveExpression|)9090 (LET ((|AdditiveExpression1760| |AdditiveExpression|))9091 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9092 (DESTRUCTURING-BIND9093 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9094 ATN-PARSER::RESULT-AND-INDEX9095 (WHEN ATN-PARSER::RESULT (SETF |AdditiveExpression| ATN-PARSER::RESULT))9096 (|NumericExpression.2| ATN-PARSER::RESULT-INDEX))9097 (SETF |AdditiveExpression| |AdditiveExpression1760|))))9098 (T9099 (SETF *ATN-TERM?* '|AdditiveExpression|)9100 (|NumericExpression/fail.3| ATN-PARSER::INDEX))))))))9101 (|NumericExpression/start.1| ATN-PARSER::INDEX)9102 (SETF *ATN-NODE NIL)9103 NIL9104 (IF ATN-PARSER::ATN-STRUCTURE9105 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9106 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9107 (WARN "recursive grammar: ~s @ position ~s: ~s" '|NumericExpression| ATN-PARSER::INDEX *ATN-STACK))))9108 (PROGN (DEFVAR |AdditiveExpression-INDEX|)9109 (DEFUN |AdditiveExpression| (ATN-PARSER::INDEX &AUX (|AddedMultiplicative| NIL) (|MultiplicativeExpression| NIL))9110 "{52} AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*9111 (|AddedMultiplicative| |MultiplicativeExpression|)"9112 (DECLARE (SPECIAL |AdditiveExpression-INDEX|))9113 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AdditiveExpression-INDEX| *ATN-LEVEL))9114 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9115 (IF (< |AdditiveExpression-INDEX| ATN-PARSER::INDEX)9116 (LET ((|AdditiveExpression-INDEX| ATN-PARSER::INDEX)9117 (*ATN-LEVEL (1+ *ATN-LEVEL))9118 (*ATN-STACK (CONS '|AdditiveExpression| *ATN-STACK))9119 (ATN-PARSER::ATN-STRUCTURE NIL))9120 (DECLARE (SPECIAL |AdditiveExpression-INDEX|))9121 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9122 (DECLARE (TYPE CONS *ATN-STACK))9123 (SYMBOL-MACROLET9124 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9125 (%ATN-BLOCK |AdditiveExpression|9126 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9127 (SETF *ATN-TERM* '|AdditiveExpression|)9128 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9129 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9130 (|AdditiveExpression.2| (ATN-PARSER::INDEX)9131 (%ATN-NODE-BLOCK9132 |AdditiveExpression.2|9133 (%ATN-EDGE-BLOCK9134 (POP |AdditiveExpression|)9135 (WHEN T9136 (SETF *ATN-TERM* '|AdditiveExpression|)9137 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9138 '|AdditiveExpression|9139 ATN-PARSER::INDEX9140 (LIST '|AddedMultiplicative|9141 |AddedMultiplicative|9142 '|MultiplicativeExpression|9143 |MultiplicativeExpression|))9144 (LET ((ATN-PARSER::RESULT-STRUCTURE9145 (IF (EQ *ATN-REDUCE* T)9146 (|AdditiveExpression-Constructor|9147 |AddedMultiplicative|9148 |MultiplicativeExpression|)9149 (IF (EQ *ATN-REDUCE* 'CONS)9150 (CONS '|AdditiveExpression|9151 (DELETE NIL9152 (LIST |AddedMultiplicative|9153 |MultiplicativeExpression|)))9154 '|AdditiveExpression|))))9155 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9156 (|AdditiveExpression.5| (ATN-PARSER::INDEX)9157 (%ATN-NODE-BLOCK9158 |AdditiveExpression.5|9159 (%ATN-EDGE-BLOCK9160 (PUSH |AddedMultiplicative|)9161 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9162 (ATN-PARSE-SUBSTRUCTURE* '|AddedMultiplicative| ATN-PARSER::INDEX)9163 (COND (ATN-PARSER::SUCCESS9164 (SETF *ATN-TERM* '|AddedMultiplicative|)9165 (LET ((|AddedMultiplicative1761| |AddedMultiplicative|))9166 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9167 (DESTRUCTURING-BIND9168 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9169 ATN-PARSER::RESULT-AND-INDEX9170 (WHEN ATN-PARSER::RESULT9171 (SETF |AddedMultiplicative|9172 (CONS ATN-PARSER::RESULT |AddedMultiplicative|)))9173 (|AdditiveExpression.5| ATN-PARSER::RESULT-INDEX))9174 (SETF |AddedMultiplicative| |AddedMultiplicative1761|))))9175 (T9176 (SETF *ATN-TERM?* '|AddedMultiplicative|)9177 (|AdditiveExpression.2| ATN-PARSER::INDEX)))))))9178 (|AdditiveExpression/AdditiveExpression.2.4| (ATN-PARSER::INDEX)9179 (%ATN-NODE-BLOCK9180 |AdditiveExpression/AdditiveExpression.2.4|9181 (%ATN-EDGE-BLOCK9182 (PUSH |AddedMultiplicative|)9183 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9184 (ATN-PARSE-SUBSTRUCTURE* '|AddedMultiplicative| ATN-PARSER::INDEX)9185 (COND (ATN-PARSER::SUCCESS9186 (SETF *ATN-TERM* '|AddedMultiplicative|)9187 (LET ((|AddedMultiplicative1760| |AddedMultiplicative|))9188 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9189 (DESTRUCTURING-BIND9190 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9191 ATN-PARSER::RESULT-AND-INDEX9192 (WHEN ATN-PARSER::RESULT9193 (SETF |AddedMultiplicative|9194 (CONS ATN-PARSER::RESULT |AddedMultiplicative|)))9195 (|AdditiveExpression.5| ATN-PARSER::RESULT-INDEX))9196 (SETF |AddedMultiplicative| |AddedMultiplicative1760|))))9197 (T9198 (SETF *ATN-TERM?* '|AddedMultiplicative|)9199 (|AdditiveExpression.2| ATN-PARSER::INDEX)))))))9200 (|AdditiveExpression/fail.3| (ATN-PARSER::INDEX)9201 (%ATN-NODE-BLOCK |AdditiveExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9202 (|AdditiveExpression/start.1| (ATN-PARSER::INDEX)9203 (%ATN-NODE-BLOCK9204 |AdditiveExpression/start.1|9205 (%ATN-EDGE-BLOCK9206 (PUSH |MultiplicativeExpression|)9207 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9208 (ATN-PARSE-SUBSTRUCTURE* '|MultiplicativeExpression| ATN-PARSER::INDEX)9209 (COND (ATN-PARSER::SUCCESS9210 (SETF *ATN-TERM* '|MultiplicativeExpression|)9211 (LET ((|MultiplicativeExpression1761| |MultiplicativeExpression|))9212 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9213 (DESTRUCTURING-BIND9214 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9215 ATN-PARSER::RESULT-AND-INDEX9216 (WHEN ATN-PARSER::RESULT9217 (SETF |MultiplicativeExpression| ATN-PARSER::RESULT))9218 (|AdditiveExpression/AdditiveExpression.2.4| ATN-PARSER::RESULT-INDEX))9219 (SETF |MultiplicativeExpression| |MultiplicativeExpression1761|))))9220 (T9221 (SETF *ATN-TERM?* '|MultiplicativeExpression|)9222 (|AdditiveExpression/fail.3| ATN-PARSER::INDEX))))))))9223 (|AdditiveExpression/start.1| ATN-PARSER::INDEX)9224 (SETF *ATN-NODE NIL)9225 NIL9226 (IF ATN-PARSER::ATN-STRUCTURE9227 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9228 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9229 (WARN "recursive grammar: ~s @ position ~s: ~s" '|AdditiveExpression| ATN-PARSER::INDEX *ATN-STACK))))9230 (PROGN (DEFVAR |AddedMultiplicative-INDEX|)9231 (DEFUN |AddedMultiplicative| (ATN-PARSER::INDEX &AUX (|AdditiveOperator| NIL) (|MultiplicativeExpression| NIL)9232 (|NumericLiteralNegative| NIL) (|NumericLiteralPositive| NIL))9233 "AddedMultiplicative ::= ((AdditiveOperator9234 MultiplicativeExpression) | NumericLiteralPositive | NumericLiteralNegative)9235 (|AdditiveOperator| |MultiplicativeExpression| |NumericLiteralNegative| |NumericLiteralPositive|)"9236 (DECLARE (SPECIAL |AddedMultiplicative-INDEX|))9237 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AddedMultiplicative-INDEX| *ATN-LEVEL))9238 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9239 (IF (< |AddedMultiplicative-INDEX| ATN-PARSER::INDEX)9240 (LET ((|AddedMultiplicative-INDEX| ATN-PARSER::INDEX)9241 (*ATN-LEVEL (1+ *ATN-LEVEL))9242 (*ATN-STACK (CONS '|AddedMultiplicative| *ATN-STACK))9243 (ATN-PARSER::ATN-STRUCTURE NIL))9244 (DECLARE (SPECIAL |AddedMultiplicative-INDEX|))9245 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9246 (DECLARE (TYPE CONS *ATN-STACK))9247 (SYMBOL-MACROLET9248 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9249 (%ATN-BLOCK |AddedMultiplicative|9250 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9251 (SETF *ATN-TERM* '|AddedMultiplicative|)9252 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9253 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9254 (|AddedMultiplicative.2| (ATN-PARSER::INDEX)9255 (%ATN-NODE-BLOCK9256 |AddedMultiplicative.2|9257 (%ATN-EDGE-BLOCK9258 (POP |AddedMultiplicative|)9259 (WHEN T9260 (SETF *ATN-TERM* '|AddedMultiplicative|)9261 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9262 '|AddedMultiplicative|9263 ATN-PARSER::INDEX9264 (LIST '|AdditiveOperator|9265 |AdditiveOperator|9266 '|MultiplicativeExpression|9267 |MultiplicativeExpression|9268 '|NumericLiteralNegative|9269 |NumericLiteralNegative|9270 '|NumericLiteralPositive|9271 |NumericLiteralPositive|))9272 (LET ((ATN-PARSER::RESULT-STRUCTURE9273 (IF (EQ *ATN-REDUCE* T)9274 (|AddedMultiplicative-Constructor|9275 |AdditiveOperator|9276 |MultiplicativeExpression|9277 |NumericLiteralNegative|9278 |NumericLiteralPositive|)9279 (IF (EQ *ATN-REDUCE* 'CONS)9280 (CONS '|AddedMultiplicative|9281 (DELETE NIL9282 (LIST |AdditiveOperator|9283 |MultiplicativeExpression|9284 |NumericLiteralNegative|9285 |NumericLiteralPositive|)))9286 '|AddedMultiplicative|))))9287 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9288 (|AddedMultiplicative/AddedMultiplicative.2.4| (ATN-PARSER::INDEX)9289 (%ATN-NODE-BLOCK9290 |AddedMultiplicative/AddedMultiplicative.2.4|9291 (%ATN-EDGE-BLOCK9292 (ATN-PARSER::CAT |AdditiveOperator|)9293 (COND ((|IS-AdditiveOperator| ATN-PARSER::|item|)9294 (SETF *ATN-TERM* '|AdditiveOperator|)9295 (SETF |AdditiveOperator|9296 (IF (EQ *ATN-REDUCE* T)9297 (ATN-REDUCE-ITEM #'|AdditiveOperator-Constructor| ATN-PARSER::|item|)9298 (IF (EQ *ATN-REDUCE* 'CONS)9299 (LIST '|AdditiveOperator| ATN-PARSER::|item|)9300 '|AdditiveOperator|)))9301 (|AddedMultiplicative/AddedMultiplicative.2.5| (1+ ATN-PARSER::INDEX)))9302 (T (SETF *ATN-TERM* '|AdditiveOperator|) NIL)))))9303 (|AddedMultiplicative/AddedMultiplicative.2.5| (ATN-PARSER::INDEX)9304 (%ATN-NODE-BLOCK9305 |AddedMultiplicative/AddedMultiplicative.2.5|9306 (%ATN-EDGE-BLOCK9307 (PUSH |MultiplicativeExpression|)9308 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9309 (ATN-PARSE-SUBSTRUCTURE* '|MultiplicativeExpression| ATN-PARSER::INDEX)9310 (COND (ATN-PARSER::SUCCESS9311 (SETF *ATN-TERM* '|MultiplicativeExpression|)9312 (LET ((|MultiplicativeExpression1762| |MultiplicativeExpression|))9313 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9314 (DESTRUCTURING-BIND9315 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9316 ATN-PARSER::RESULT-AND-INDEX9317 (WHEN ATN-PARSER::RESULT9318 (SETF |MultiplicativeExpression| ATN-PARSER::RESULT))9319 (|AddedMultiplicative.2| ATN-PARSER::RESULT-INDEX))9320 (SETF |MultiplicativeExpression| |MultiplicativeExpression1762|))))9321 (T (SETF *ATN-TERM?* '|MultiplicativeExpression|) NIL))))))9322 (|AddedMultiplicative/fail.3| (ATN-PARSER::INDEX)9323 (%ATN-NODE-BLOCK9324 |AddedMultiplicative/fail.3|9325 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9326 (|AddedMultiplicative/start.1| (ATN-PARSER::INDEX)9327 (%ATN-NODE-BLOCK9328 |AddedMultiplicative/start.1|9329 (%ATN-EDGE-BLOCK9330 OR9331 (PROGN (%ATN-EDGE-BLOCK9332 (ATN-PARSER::JUMP |AddedMultiplicative/AddedMultiplicative.2.4|)9333 (|AddedMultiplicative/AddedMultiplicative.2.4| ATN-PARSER::INDEX))9334 (%ATN-EDGE-BLOCK9335 (ATN-PARSER::CAT |NumericLiteralPositive|)9336 (COND ((|IS-NumericLiteralPositive| ATN-PARSER::|item|)9337 (SETF *ATN-TERM* '|NumericLiteralPositive|)9338 (SETF |NumericLiteralPositive|9339 (IF (EQ *ATN-REDUCE* T)9340 (ATN-REDUCE-ITEM9341 #'|NumericLiteralPositive-Constructor|9342 ATN-PARSER::|item|)9343 (IF (EQ *ATN-REDUCE* 'CONS)9344 (LIST '|NumericLiteralPositive| ATN-PARSER::|item|)9345 '|NumericLiteralPositive|)))9346 (|AddedMultiplicative.2| (1+ ATN-PARSER::INDEX)))9347 (T (SETF *ATN-TERM* '|NumericLiteralPositive|) NIL)))9348 (%ATN-EDGE-BLOCK9349 (ATN-PARSER::CAT |NumericLiteralNegative|)9350 (COND ((|IS-NumericLiteralNegative| ATN-PARSER::|item|)9351 (SETF *ATN-TERM* '|NumericLiteralNegative|)9352 (SETF |NumericLiteralNegative|9353 (IF (EQ *ATN-REDUCE* T)9354 (ATN-REDUCE-ITEM9355 #'|NumericLiteralNegative-Constructor|9356 ATN-PARSER::|item|)9357 (IF (EQ *ATN-REDUCE* 'CONS)9358 (LIST '|NumericLiteralNegative| ATN-PARSER::|item|)9359 '|NumericLiteralNegative|)))9360 (|AddedMultiplicative.2| (1+ ATN-PARSER::INDEX)))9361 (T (SETF *ATN-TERM* '|NumericLiteralNegative|) NIL)))9362 (|AddedMultiplicative/fail.3| ATN-PARSER::INDEX))))))9363 (|AddedMultiplicative/start.1| ATN-PARSER::INDEX)9364 (SETF *ATN-NODE NIL)9365 NIL9366 (IF ATN-PARSER::ATN-STRUCTURE9367 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9368 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9369 (WARN "recursive grammar: ~s @ position ~s: ~s" '|AddedMultiplicative| ATN-PARSER::INDEX *ATN-STACK))))9370 (PROGN (DEFVAR |MultiplicativeExpression-INDEX|)9371 (DEFUN |MultiplicativeExpression| (ATN-PARSER::INDEX &AUX (|MultipliedUnary| NIL) (|UnaryExpression| NIL))9372 "{53} MultiplicativeExpression ::= UnaryExpression MultipliedUnary*9373 (|MultipliedUnary| |UnaryExpression|)"9374 (DECLARE (SPECIAL |MultiplicativeExpression-INDEX|))9375 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MultiplicativeExpression-INDEX| *ATN-LEVEL))9376 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9377 (IF (< |MultiplicativeExpression-INDEX| ATN-PARSER::INDEX)9378 (LET ((|MultiplicativeExpression-INDEX| ATN-PARSER::INDEX)9379 (*ATN-LEVEL (1+ *ATN-LEVEL))9380 (*ATN-STACK (CONS '|MultiplicativeExpression| *ATN-STACK))9381 (ATN-PARSER::ATN-STRUCTURE NIL))9382 (DECLARE (SPECIAL |MultiplicativeExpression-INDEX|))9383 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9384 (DECLARE (TYPE CONS *ATN-STACK))9385 (SYMBOL-MACROLET9386 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9387 (%ATN-BLOCK |MultiplicativeExpression|9388 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9389 (SETF *ATN-TERM* '|MultiplicativeExpression|)9390 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9391 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9392 (|MultiplicativeExpression.2| (ATN-PARSER::INDEX)9393 (%ATN-NODE-BLOCK9394 |MultiplicativeExpression.2|9395 (%ATN-EDGE-BLOCK9396 (POP |MultiplicativeExpression|)9397 (WHEN T9398 (SETF *ATN-TERM* '|MultiplicativeExpression|)9399 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9400 '|MultiplicativeExpression|9401 ATN-PARSER::INDEX9402 (LIST '|MultipliedUnary|9403 |MultipliedUnary|9404 '|UnaryExpression|9405 |UnaryExpression|))9406 (LET ((ATN-PARSER::RESULT-STRUCTURE9407 (IF (EQ *ATN-REDUCE* T)9408 (|MultiplicativeExpression-Constructor|9409 |MultipliedUnary|9410 |UnaryExpression|)9411 (IF (EQ *ATN-REDUCE* 'CONS)9412 (CONS '|MultiplicativeExpression|9413 (DELETE NIL (LIST |MultipliedUnary| |UnaryExpression|)))9414 '|MultiplicativeExpression|))))9415 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9416 (|MultiplicativeExpression.5| (ATN-PARSER::INDEX)9417 (%ATN-NODE-BLOCK9418 |MultiplicativeExpression.5|9419 (%ATN-EDGE-BLOCK9420 (PUSH |MultipliedUnary|)9421 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9422 (ATN-PARSE-SUBSTRUCTURE* '|MultipliedUnary| ATN-PARSER::INDEX)9423 (COND (ATN-PARSER::SUCCESS9424 (SETF *ATN-TERM* '|MultipliedUnary|)9425 (LET ((|MultipliedUnary1763| |MultipliedUnary|))9426 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9427 (DESTRUCTURING-BIND9428 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9429 ATN-PARSER::RESULT-AND-INDEX9430 (WHEN ATN-PARSER::RESULT9431 (SETF |MultipliedUnary| (CONS ATN-PARSER::RESULT |MultipliedUnary|)))9432 (|MultiplicativeExpression.5| ATN-PARSER::RESULT-INDEX))9433 (SETF |MultipliedUnary| |MultipliedUnary1763|))))9434 (T9435 (SETF *ATN-TERM?* '|MultipliedUnary|)9436 (|MultiplicativeExpression.2| ATN-PARSER::INDEX)))))))9437 (|MultiplicativeExpression/fail.3| (ATN-PARSER::INDEX)9438 (%ATN-NODE-BLOCK9439 |MultiplicativeExpression/fail.3|9440 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9441 (|MultiplicativeExpression/MultiplicativeExpression.2.4| (ATN-PARSER::INDEX)9442 (%ATN-NODE-BLOCK9443 |MultiplicativeExpression/MultiplicativeExpression.2.4|9444 (%ATN-EDGE-BLOCK9445 (PUSH |MultipliedUnary|)9446 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9447 (ATN-PARSE-SUBSTRUCTURE* '|MultipliedUnary| ATN-PARSER::INDEX)9448 (COND (ATN-PARSER::SUCCESS9449 (SETF *ATN-TERM* '|MultipliedUnary|)9450 (LET ((|MultipliedUnary1762| |MultipliedUnary|))9451 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9452 (DESTRUCTURING-BIND9453 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9454 ATN-PARSER::RESULT-AND-INDEX9455 (WHEN ATN-PARSER::RESULT9456 (SETF |MultipliedUnary| (CONS ATN-PARSER::RESULT |MultipliedUnary|)))9457 (|MultiplicativeExpression.5| ATN-PARSER::RESULT-INDEX))9458 (SETF |MultipliedUnary| |MultipliedUnary1762|))))9459 (T9460 (SETF *ATN-TERM?* '|MultipliedUnary|)9461 (|MultiplicativeExpression.2| ATN-PARSER::INDEX)))))))9462 (|MultiplicativeExpression/start.1| (ATN-PARSER::INDEX)9463 (%ATN-NODE-BLOCK9464 |MultiplicativeExpression/start.1|9465 (%ATN-EDGE-BLOCK9466 (PUSH |UnaryExpression|)9467 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9468 (ATN-PARSE-SUBSTRUCTURE* '|UnaryExpression| ATN-PARSER::INDEX)9469 (COND (ATN-PARSER::SUCCESS9470 (SETF *ATN-TERM* '|UnaryExpression|)9471 (LET ((|UnaryExpression1763| |UnaryExpression|))9472 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9473 (DESTRUCTURING-BIND9474 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9475 ATN-PARSER::RESULT-AND-INDEX9476 (WHEN ATN-PARSER::RESULT (SETF |UnaryExpression| ATN-PARSER::RESULT))9477 (|MultiplicativeExpression/MultiplicativeExpression.2.4|9478 ATN-PARSER::RESULT-INDEX))9479 (SETF |UnaryExpression| |UnaryExpression1763|))))9480 (T9481 (SETF *ATN-TERM?* '|UnaryExpression|)9482 (|MultiplicativeExpression/fail.3| ATN-PARSER::INDEX))))))))9483 (|MultiplicativeExpression/start.1| ATN-PARSER::INDEX)9484 (SETF *ATN-NODE NIL)9485 NIL9486 (IF ATN-PARSER::ATN-STRUCTURE9487 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9488 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9489 (WARN "recursive grammar: ~s @ position ~s: ~s" '|MultiplicativeExpression| ATN-PARSER::INDEX *ATN-STACK))))9490 (PROGN (DEFVAR |MultipliedUnary-INDEX|)9491 (DEFUN |MultipliedUnary| (ATN-PARSER::INDEX &AUX (|MultiplicativeOperator| NIL) (|UnaryExpression| NIL))9492 "MultipliedUnary ::= MultiplicativeOperator UnaryExpression9493 (|MultiplicativeOperator| |UnaryExpression|)"9494 (DECLARE (SPECIAL |MultipliedUnary-INDEX|))9495 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MultipliedUnary-INDEX| *ATN-LEVEL))9496 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9497 (IF (< |MultipliedUnary-INDEX| ATN-PARSER::INDEX)9498 (LET ((|MultipliedUnary-INDEX| ATN-PARSER::INDEX)9499 (*ATN-LEVEL (1+ *ATN-LEVEL))9500 (*ATN-STACK (CONS '|MultipliedUnary| *ATN-STACK))9501 (ATN-PARSER::ATN-STRUCTURE NIL))9502 (DECLARE (SPECIAL |MultipliedUnary-INDEX|))9503 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9504 (DECLARE (TYPE CONS *ATN-STACK))9505 (SYMBOL-MACROLET9506 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9507 (%ATN-BLOCK |MultipliedUnary|9508 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9509 (SETF *ATN-TERM* '|MultipliedUnary|)9510 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9511 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9512 (|MultipliedUnary.2| (ATN-PARSER::INDEX)9513 (%ATN-NODE-BLOCK9514 |MultipliedUnary.2|9515 (%ATN-EDGE-BLOCK9516 (POP |MultipliedUnary|)9517 (WHEN T9518 (SETF *ATN-TERM* '|MultipliedUnary|)9519 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9520 '|MultipliedUnary|9521 ATN-PARSER::INDEX9522 (LIST '|MultiplicativeOperator|9523 |MultiplicativeOperator|9524 '|UnaryExpression|9525 |UnaryExpression|))9526 (LET ((ATN-PARSER::RESULT-STRUCTURE9527 (IF (EQ *ATN-REDUCE* T)9528 (|MultipliedUnary-Constructor| |MultiplicativeOperator| |UnaryExpression|)9529 (IF (EQ *ATN-REDUCE* 'CONS)9530 (CONS '|MultipliedUnary|9531 (DELETE NIL (LIST |MultiplicativeOperator| |UnaryExpression|)))9532 '|MultipliedUnary|))))9533 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9534 (|MultipliedUnary/fail.3| (ATN-PARSER::INDEX)9535 (%ATN-NODE-BLOCK |MultipliedUnary/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9536 (|MultipliedUnary/MultipliedUnary.2.4| (ATN-PARSER::INDEX)9537 (%ATN-NODE-BLOCK9538 |MultipliedUnary/MultipliedUnary.2.4|9539 (%ATN-EDGE-BLOCK9540 (PUSH |UnaryExpression|)9541 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9542 (ATN-PARSE-SUBSTRUCTURE* '|UnaryExpression| ATN-PARSER::INDEX)9543 (COND (ATN-PARSER::SUCCESS9544 (SETF *ATN-TERM* '|UnaryExpression|)9545 (LET ((|UnaryExpression1764| |UnaryExpression|))9546 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9547 (DESTRUCTURING-BIND9548 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9549 ATN-PARSER::RESULT-AND-INDEX9550 (WHEN ATN-PARSER::RESULT (SETF |UnaryExpression| ATN-PARSER::RESULT))9551 (|MultipliedUnary.2| ATN-PARSER::RESULT-INDEX))9552 (SETF |UnaryExpression| |UnaryExpression1764|))))9553 (T9554 (SETF *ATN-TERM?* '|UnaryExpression|)9555 (|MultipliedUnary/fail.3| ATN-PARSER::INDEX)))))))9556 (|MultipliedUnary/start.1| (ATN-PARSER::INDEX)9557 (%ATN-NODE-BLOCK9558 |MultipliedUnary/start.1|9559 (%ATN-EDGE-BLOCK9560 (ATN-PARSER::CAT |MultiplicativeOperator|)9561 (COND ((|IS-MultiplicativeOperator| ATN-PARSER::|item|)9562 (SETF *ATN-TERM* '|MultiplicativeOperator|)9563 (SETF |MultiplicativeOperator|9564 (IF (EQ *ATN-REDUCE* T)9565 (ATN-REDUCE-ITEM9566 #'|MultiplicativeOperator-Constructor|9567 ATN-PARSER::|item|)9568 (IF (EQ *ATN-REDUCE* 'CONS)9569 (LIST '|MultiplicativeOperator| ATN-PARSER::|item|)9570 '|MultiplicativeOperator|)))9571 (|MultipliedUnary/MultipliedUnary.2.4| (1+ ATN-PARSER::INDEX)))9572 (T9573 (SETF *ATN-TERM* '|MultiplicativeOperator|)9574 (|MultipliedUnary/fail.3| ATN-PARSER::INDEX)))))))9575 (|MultipliedUnary/start.1| ATN-PARSER::INDEX)9576 (SETF *ATN-NODE NIL)9577 NIL9578 (IF ATN-PARSER::ATN-STRUCTURE9579 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9580 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9581 (WARN "recursive grammar: ~s @ position ~s: ~s" '|MultipliedUnary| ATN-PARSER::INDEX *ATN-STACK))))9582 (PROGN (DEFVAR |UnaryExpression-INDEX|)9583 (DEFUN |UnaryExpression| (ATN-PARSER::INDEX &AUX (|PrimaryExpression| NIL) (|UnaryOperator| NIL))9584 "{54} UnaryExpression ::= ((UnaryOperator PrimaryExpression) | PrimaryExpression)9585 (|PrimaryExpression| |UnaryOperator|)"9586 (DECLARE (SPECIAL |UnaryExpression-INDEX|))9587 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |UnaryExpression-INDEX| *ATN-LEVEL))9588 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9589 (IF (< |UnaryExpression-INDEX| ATN-PARSER::INDEX)9590 (LET ((|UnaryExpression-INDEX| ATN-PARSER::INDEX)9591 (*ATN-LEVEL (1+ *ATN-LEVEL))9592 (*ATN-STACK (CONS '|UnaryExpression| *ATN-STACK))9593 (ATN-PARSER::ATN-STRUCTURE NIL))9594 (DECLARE (SPECIAL |UnaryExpression-INDEX|))9595 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9596 (DECLARE (TYPE CONS *ATN-STACK))9597 (SYMBOL-MACROLET9598 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9599 (%ATN-BLOCK |UnaryExpression|9600 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9601 (SETF *ATN-TERM* '|UnaryExpression|)9602 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9603 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9604 (|UnaryExpression.2| (ATN-PARSER::INDEX)9605 (%ATN-NODE-BLOCK9606 |UnaryExpression.2|9607 (%ATN-EDGE-BLOCK9608 (POP |UnaryExpression|)9609 (WHEN T9610 (SETF *ATN-TERM* '|UnaryExpression|)9611 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9612 '|UnaryExpression|9613 ATN-PARSER::INDEX9614 (LIST '|PrimaryExpression|9615 |PrimaryExpression|9616 '|UnaryOperator|9617 |UnaryOperator|))9618 (LET ((ATN-PARSER::RESULT-STRUCTURE9619 (IF (EQ *ATN-REDUCE* T)9620 (|UnaryExpression-Constructor| |PrimaryExpression| |UnaryOperator|)9621 (IF (EQ *ATN-REDUCE* 'CONS)9622 (CONS '|UnaryExpression|9623 (DELETE NIL (LIST |PrimaryExpression| |UnaryOperator|)))9624 '|UnaryExpression|))))9625 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9626 (|UnaryExpression/fail.3| (ATN-PARSER::INDEX)9627 (%ATN-NODE-BLOCK |UnaryExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9628 (|UnaryExpression/start.1| (ATN-PARSER::INDEX)9629 (%ATN-NODE-BLOCK9630 |UnaryExpression/start.1|9631 (%ATN-EDGE-BLOCK9632 OR9633 (PROGN (%ATN-EDGE-BLOCK9634 (ATN-PARSER::JUMP |UnaryExpression/UnaryExpression.2.4|)9635 (|UnaryExpression/UnaryExpression.2.4| ATN-PARSER::INDEX))9636 (%ATN-EDGE-BLOCK9637 (PUSH |PrimaryExpression|)9638 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9639 (ATN-PARSE-SUBSTRUCTURE* '|PrimaryExpression| ATN-PARSER::INDEX)9640 (COND (ATN-PARSER::SUCCESS9641 (SETF *ATN-TERM* '|PrimaryExpression|)9642 (LET ((|PrimaryExpression1764| |PrimaryExpression|))9643 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9644 (DESTRUCTURING-BIND9645 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9646 ATN-PARSER::RESULT-AND-INDEX9647 (WHEN ATN-PARSER::RESULT9648 (SETF |PrimaryExpression| ATN-PARSER::RESULT))9649 (|UnaryExpression.2| ATN-PARSER::RESULT-INDEX))9650 (SETF |PrimaryExpression| |PrimaryExpression1764|))))9651 (T (SETF *ATN-TERM?* '|PrimaryExpression|) NIL))))9652 (|UnaryExpression/fail.3| ATN-PARSER::INDEX)))))9653 (|UnaryExpression/UnaryExpression.2.4| (ATN-PARSER::INDEX)9654 (%ATN-NODE-BLOCK9655 |UnaryExpression/UnaryExpression.2.4|9656 (%ATN-EDGE-BLOCK9657 (ATN-PARSER::CAT |UnaryOperator|)9658 (COND ((|IS-UnaryOperator| ATN-PARSER::|item|)9659 (SETF *ATN-TERM* '|UnaryOperator|)9660 (SETF |UnaryOperator|9661 (IF (EQ *ATN-REDUCE* T)9662 (ATN-REDUCE-ITEM #'|UnaryOperator-Constructor| ATN-PARSER::|item|)9663 (IF (EQ *ATN-REDUCE* 'CONS)9664 (LIST '|UnaryOperator| ATN-PARSER::|item|)9665 '|UnaryOperator|)))9666 (|UnaryExpression/UnaryExpression.2.5| (1+ ATN-PARSER::INDEX)))9667 (T (SETF *ATN-TERM* '|UnaryOperator|) NIL)))))9668 (|UnaryExpression/UnaryExpression.2.5| (ATN-PARSER::INDEX)9669 (%ATN-NODE-BLOCK9670 |UnaryExpression/UnaryExpression.2.5|9671 (%ATN-EDGE-BLOCK9672 (PUSH |PrimaryExpression|)9673 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9674 (ATN-PARSE-SUBSTRUCTURE* '|PrimaryExpression| ATN-PARSER::INDEX)9675 (COND (ATN-PARSER::SUCCESS9676 (SETF *ATN-TERM* '|PrimaryExpression|)9677 (LET ((|PrimaryExpression1765| |PrimaryExpression|))9678 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9679 (DESTRUCTURING-BIND9680 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9681 ATN-PARSER::RESULT-AND-INDEX9682 (WHEN ATN-PARSER::RESULT (SETF |PrimaryExpression| ATN-PARSER::RESULT))9683 (|UnaryExpression.2| ATN-PARSER::RESULT-INDEX))9684 (SETF |PrimaryExpression| |PrimaryExpression1765|))))9685 (T (SETF *ATN-TERM?* '|PrimaryExpression|) NIL)))))))9686 (|UnaryExpression/start.1| ATN-PARSER::INDEX)9687 (SETF *ATN-NODE NIL)9688 NIL9689 (IF ATN-PARSER::ATN-STRUCTURE9690 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9691 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9692 (WARN "recursive grammar: ~s @ position ~s: ~s" '|UnaryExpression| ATN-PARSER::INDEX *ATN-STACK))))9693 (PROGN (DEFVAR |PrimaryExpression-INDEX|)9694 (DEFUN |PrimaryExpression| (ATN-PARSER::INDEX &AUX (|Aggregate| NIL) (|BooleanLiteral| NIL) (|BrackettedExpression| NIL)9695 (|BuiltInCall| NIL) (|IRIrefOrFunction| NIL) (|NumericLiteral| NIL) (|RDFLiteral| NIL)9696 (|Var| NIL))9697 "{55} PrimaryExpression ::= (BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var | Aggregate)9698 (|Aggregate| |BooleanLiteral| |BrackettedExpression| |BuiltInCall| |IRIrefOrFunction| |NumericLiteral| |RDFLiteral| |Var|)"9699 (DECLARE (SPECIAL |PrimaryExpression-INDEX|))9700 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PrimaryExpression-INDEX| *ATN-LEVEL))9701 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9702 (IF (< |PrimaryExpression-INDEX| ATN-PARSER::INDEX)9703 (LET ((|PrimaryExpression-INDEX| ATN-PARSER::INDEX)9704 (*ATN-LEVEL (1+ *ATN-LEVEL))9705 (*ATN-STACK (CONS '|PrimaryExpression| *ATN-STACK))9706 (ATN-PARSER::ATN-STRUCTURE NIL))9707 (DECLARE (SPECIAL |PrimaryExpression-INDEX|))9708 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9709 (DECLARE (TYPE CONS *ATN-STACK))9710 (SYMBOL-MACROLET9711 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9712 (%ATN-BLOCK |PrimaryExpression|9713 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9714 (SETF *ATN-TERM* '|PrimaryExpression|)9715 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9716 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9717 (|PrimaryExpression.2| (ATN-PARSER::INDEX)9718 (%ATN-NODE-BLOCK9719 |PrimaryExpression.2|9720 (%ATN-EDGE-BLOCK9721 (POP |PrimaryExpression|)9722 (WHEN T9723 (SETF *ATN-TERM* '|PrimaryExpression|)9724 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9725 '|PrimaryExpression|9726 ATN-PARSER::INDEX9727 (LIST '|Aggregate|9728 |Aggregate|9729 '|BooleanLiteral|9730 |BooleanLiteral|9731 '|BrackettedExpression|9732 |BrackettedExpression|9733 '|BuiltInCall|9734 |BuiltInCall|9735 '|IRIrefOrFunction|9736 |IRIrefOrFunction|9737 '|NumericLiteral|9738 |NumericLiteral|9739 '|RDFLiteral|9740 |RDFLiteral|9741 '|Var|9742 |Var|))9743 (LET ((ATN-PARSER::RESULT-STRUCTURE9744 (IF (EQ *ATN-REDUCE* T)9745 (|PrimaryExpression-Constructor|9746 |Aggregate|9747 |BooleanLiteral|9748 |BrackettedExpression|9749 |BuiltInCall|9750 |IRIrefOrFunction|9751 |NumericLiteral|9752 |RDFLiteral|9753 |Var|)9754 (IF (EQ *ATN-REDUCE* 'CONS)9755 (CONS '|PrimaryExpression|9756 (DELETE NIL9757 (LIST |Aggregate|9758 |BooleanLiteral|9759 |BrackettedExpression|9760 |BuiltInCall|9761 |IRIrefOrFunction|9762 |NumericLiteral|9763 |RDFLiteral|9764 |Var|)))9765 '|PrimaryExpression|))))9766 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9767 (|PrimaryExpression/fail.3| (ATN-PARSER::INDEX)9768 (%ATN-NODE-BLOCK |PrimaryExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9769 (|PrimaryExpression/start.1| (ATN-PARSER::INDEX)9770 (%ATN-NODE-BLOCK9771 |PrimaryExpression/start.1|9772 (%ATN-EDGE-BLOCK9773 OR9774 (PROGN (%ATN-EDGE-BLOCK9775 (PUSH |BrackettedExpression|)9776 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9777 (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression| ATN-PARSER::INDEX)9778 (COND (ATN-PARSER::SUCCESS9779 (SETF *ATN-TERM* '|BrackettedExpression|)9780 (LET ((|BrackettedExpression1765| |BrackettedExpression|))9781 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9782 (DESTRUCTURING-BIND9783 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9784 ATN-PARSER::RESULT-AND-INDEX9785 (WHEN ATN-PARSER::RESULT9786 (SETF |BrackettedExpression| ATN-PARSER::RESULT))9787 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))9788 (SETF |BrackettedExpression| |BrackettedExpression1765|))))9789 (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))9790 (%ATN-EDGE-BLOCK9791 (PUSH |BuiltInCall|)9792 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9793 (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall| ATN-PARSER::INDEX)9794 (COND (ATN-PARSER::SUCCESS9795 (SETF *ATN-TERM* '|BuiltInCall|)9796 (LET ((|BuiltInCall1765| |BuiltInCall|))9797 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9798 (DESTRUCTURING-BIND9799 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9800 ATN-PARSER::RESULT-AND-INDEX9801 (WHEN ATN-PARSER::RESULT9802 (SETF |BuiltInCall| ATN-PARSER::RESULT))9803 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))9804 (SETF |BuiltInCall| |BuiltInCall1765|))))9805 (T (SETF *ATN-TERM?* '|BuiltInCall|) NIL))))9806 (%ATN-EDGE-BLOCK9807 (PUSH |IRIrefOrFunction|)9808 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9809 (ATN-PARSE-SUBSTRUCTURE* '|IRIrefOrFunction| ATN-PARSER::INDEX)9810 (COND (ATN-PARSER::SUCCESS9811 (SETF *ATN-TERM* '|IRIrefOrFunction|)9812 (LET ((|IRIrefOrFunction1765| |IRIrefOrFunction|))9813 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9814 (DESTRUCTURING-BIND9815 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9816 ATN-PARSER::RESULT-AND-INDEX9817 (WHEN ATN-PARSER::RESULT9818 (SETF |IRIrefOrFunction| ATN-PARSER::RESULT))9819 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))9820 (SETF |IRIrefOrFunction| |IRIrefOrFunction1765|))))9821 (T (SETF *ATN-TERM?* '|IRIrefOrFunction|) NIL))))9822 (%ATN-EDGE-BLOCK9823 (PUSH |RDFLiteral|)9824 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9825 (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral| ATN-PARSER::INDEX)9826 (COND (ATN-PARSER::SUCCESS9827 (SETF *ATN-TERM* '|RDFLiteral|)9828 (LET ((|RDFLiteral1765| |RDFLiteral|))9829 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9830 (DESTRUCTURING-BIND9831 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9832 ATN-PARSER::RESULT-AND-INDEX9833 (WHEN ATN-PARSER::RESULT9834 (SETF |RDFLiteral| ATN-PARSER::RESULT))9835 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))9836 (SETF |RDFLiteral| |RDFLiteral1765|))))9837 (T (SETF *ATN-TERM?* '|RDFLiteral|) NIL))))9838 (%ATN-EDGE-BLOCK9839 (ATN-PARSER::CAT |NumericLiteral|)9840 (COND ((|IS-NumericLiteral| ATN-PARSER::|item|)9841 (SETF *ATN-TERM* '|NumericLiteral|)9842 (SETF |NumericLiteral|9843 (IF (EQ *ATN-REDUCE* T)9844 (ATN-REDUCE-ITEM9845 #'|NumericLiteral-Constructor|9846 ATN-PARSER::|item|)9847 (IF (EQ *ATN-REDUCE* 'CONS)9848 (LIST '|NumericLiteral| ATN-PARSER::|item|)9849 '|NumericLiteral|)))9850 (|PrimaryExpression.2| (1+ ATN-PARSER::INDEX)))9851 (T (SETF *ATN-TERM* '|NumericLiteral|) NIL)))9852 (%ATN-EDGE-BLOCK9853 (ATN-PARSER::CAT |BooleanLiteral|)9854 (COND ((|IS-BooleanLiteral| ATN-PARSER::|item|)9855 (SETF *ATN-TERM* '|BooleanLiteral|)9856 (SETF |BooleanLiteral|9857 (IF (EQ *ATN-REDUCE* T)9858 (ATN-REDUCE-ITEM9859 #'|BooleanLiteral-Constructor|9860 ATN-PARSER::|item|)9861 (IF (EQ *ATN-REDUCE* 'CONS)9862 (LIST '|BooleanLiteral| ATN-PARSER::|item|)9863 '|BooleanLiteral|)))9864 (|PrimaryExpression.2| (1+ ATN-PARSER::INDEX)))9865 (T (SETF *ATN-TERM* '|BooleanLiteral|) NIL)))9866 (%ATN-EDGE-BLOCK9867 (TEST |Var|)9868 (COND ((|IS-Var| ATN-PARSER::|item|)9869 (SETF *ATN-TERM* '|Var|)9870 (SETF |Var|9871 (IF (EQ *ATN-REDUCE* T)9872 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)9873 (IF (EQ *ATN-REDUCE* 'CONS)9874 (LIST '|Var| ATN-PARSER::|item|)9875 '|Var|)))9876 (|PrimaryExpression.2| (1+ ATN-PARSER::INDEX)))9877 (T (SETF *ATN-TERM?* '|Var|) NIL)))9878 (%ATN-EDGE-BLOCK9879 (PUSH |Aggregate|)9880 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9881 (ATN-PARSE-SUBSTRUCTURE* '|Aggregate| ATN-PARSER::INDEX)9882 (COND (ATN-PARSER::SUCCESS9883 (SETF *ATN-TERM* '|Aggregate|)9884 (LET ((|Aggregate1765| |Aggregate|))9885 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9886 (DESTRUCTURING-BIND9887 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9888 ATN-PARSER::RESULT-AND-INDEX9889 (WHEN ATN-PARSER::RESULT (SETF |Aggregate| ATN-PARSER::RESULT))9890 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))9891 (SETF |Aggregate| |Aggregate1765|))))9892 (T (SETF *ATN-TERM?* '|Aggregate|) NIL))))9893 (|PrimaryExpression/fail.3| ATN-PARSER::INDEX))))))9894 (|PrimaryExpression/start.1| ATN-PARSER::INDEX)9895 (SETF *ATN-NODE NIL)9896 NIL9897 (IF ATN-PARSER::ATN-STRUCTURE9898 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9899 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9900 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PrimaryExpression| ATN-PARSER::INDEX *ATN-STACK))))9901 (PROGN (DEFVAR |BrackettedExpression-INDEX|)9902 (DEFUN |BrackettedExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))9903 "{56} BrackettedExpression ::= '(' Expression ')'9904 (|Expression|)"9905 (DECLARE (SPECIAL |BrackettedExpression-INDEX|))9906 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BrackettedExpression-INDEX| *ATN-LEVEL))9907 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9908 (IF (< |BrackettedExpression-INDEX| ATN-PARSER::INDEX)9909 (LET ((|BrackettedExpression-INDEX| ATN-PARSER::INDEX)9910 (*ATN-LEVEL (1+ *ATN-LEVEL))9911 (*ATN-STACK (CONS '|BrackettedExpression| *ATN-STACK))9912 (ATN-PARSER::ATN-STRUCTURE NIL))9913 (DECLARE (SPECIAL |BrackettedExpression-INDEX|))9914 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9915 (DECLARE (TYPE CONS *ATN-STACK))9916 (SYMBOL-MACROLET9917 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9918 (%ATN-BLOCK |BrackettedExpression|9919 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9920 (SETF *ATN-TERM* '|BrackettedExpression|)9921 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9922 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9923 (|BrackettedExpression.2| (ATN-PARSER::INDEX)9924 (%ATN-NODE-BLOCK9925 |BrackettedExpression.2|9926 (%ATN-EDGE-BLOCK9927 (POP |BrackettedExpression|)9928 (WHEN T9929 (SETF *ATN-TERM* '|BrackettedExpression|)9930 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9931 '|BrackettedExpression|9932 ATN-PARSER::INDEX9933 (LIST '|Expression| |Expression|))9934 (LET ((ATN-PARSER::RESULT-STRUCTURE9935 (IF (EQ *ATN-REDUCE* T)9936 (|BrackettedExpression-Constructor| |Expression|)9937 (IF (EQ *ATN-REDUCE* 'CONS)9938 (CONS '|BrackettedExpression| (DELETE NIL (LIST |Expression|)))9939 '|BrackettedExpression|))))9940 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9941 (|BrackettedExpression/BrackettedExpression.2.4| (ATN-PARSER::INDEX)9942 (%ATN-NODE-BLOCK9943 |BrackettedExpression/BrackettedExpression.2.4|9944 (%ATN-EDGE-BLOCK9945 (PUSH |Expression|)9946 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9947 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)9948 (COND (ATN-PARSER::SUCCESS9949 (SETF *ATN-TERM* '|Expression|)9950 (LET ((|Expression1765| |Expression|))9951 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9952 (DESTRUCTURING-BIND9953 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9954 ATN-PARSER::RESULT-AND-INDEX9955 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))9956 (|BrackettedExpression/BrackettedExpression.2.5|9957 ATN-PARSER::RESULT-INDEX))9958 (SETF |Expression| |Expression1765|))))9959 (T9960 (SETF *ATN-TERM?* '|Expression|)9961 (|BrackettedExpression/fail.3| ATN-PARSER::INDEX)))))))9962 (|BrackettedExpression/BrackettedExpression.2.5| (ATN-PARSER::INDEX)9963 (%ATN-NODE-BLOCK9964 |BrackettedExpression/BrackettedExpression.2.5|9965 (%ATN-EDGE-BLOCK9966 (ATN-PARSER::WORD SPOCQ.S:\))9967 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))9968 (SETF *ATN-TERM* 'SPOCQ.S:\))9969 (|BrackettedExpression.2| (1+ ATN-PARSER::INDEX)))9970 (T9971 (SETF *ATN-TERM?* 'SPOCQ.S:\))9972 (|BrackettedExpression/fail.3| ATN-PARSER::INDEX))))))9973 (|BrackettedExpression/fail.3| (ATN-PARSER::INDEX)9974 (%ATN-NODE-BLOCK9975 |BrackettedExpression/fail.3|9976 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9977 (|BrackettedExpression/start.1| (ATN-PARSER::INDEX)9978 (%ATN-NODE-BLOCK9979 |BrackettedExpression/start.1|9980 (%ATN-EDGE-BLOCK9981 (ATN-PARSER::WORD SPOCQ.S:\()9982 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()9983 (SETF *ATN-TERM* 'SPOCQ.S:\()9984 (|BrackettedExpression/BrackettedExpression.2.4| (1+ ATN-PARSER::INDEX)))9985 (T9986 (SETF *ATN-TERM?* 'SPOCQ.S:\()9987 (|BrackettedExpression/fail.3| ATN-PARSER::INDEX)))))))9988 (|BrackettedExpression/start.1| ATN-PARSER::INDEX)9989 (SETF *ATN-NODE NIL)9990 NIL9991 (IF ATN-PARSER::ATN-STRUCTURE9992 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9993 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9994 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BrackettedExpression| ATN-PARSER::INDEX *ATN-STACK))))9995 (PROGN (DEFVAR |BuiltInCall-INDEX|)9996 (DEFUN |BuiltInCall| (ATN-PARSER::INDEX &AUX (|BuiltinBinaryCall| NIL) (|BuiltinListCall| NIL) (|BuiltinNullCall| NIL)9997 (|BuiltinNullOrUnaryCall| NIL) (|BuiltinUnaryCall| NIL) (|ExistsFunc| NIL) (|IfExpression| NIL)9998 (|NotExistsFunc| NIL) (|RegexExpression| NIL) (|SubstringExpression| NIL))9999 "{57} BuiltInCall ::= (BuiltinNullCall | BuiltinNullOrUnaryCall | BuiltinBinaryCall | BuiltinUnaryCall | BuiltinListCall | RegexExpression | IfExpression | SubstringExpression | ExistsFunc | NotExistsFunc)10000 (|BuiltinBinaryCall| |BuiltinListCall| |BuiltinNullCall| |BuiltinNullOrUnaryCall| |BuiltinUnaryCall| |ExistsFunc| |IfExpression| |NotExistsFunc| |RegexExpression| |SubstringExpression|)"10001 (DECLARE (SPECIAL |BuiltInCall-INDEX|))10002 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltInCall-INDEX| *ATN-LEVEL))10003 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10004 (IF (< |BuiltInCall-INDEX| ATN-PARSER::INDEX)10005 (LET ((|BuiltInCall-INDEX| ATN-PARSER::INDEX)10006 (*ATN-LEVEL (1+ *ATN-LEVEL))10007 (*ATN-STACK (CONS '|BuiltInCall| *ATN-STACK))10008 (ATN-PARSER::ATN-STRUCTURE NIL))10009 (DECLARE (SPECIAL |BuiltInCall-INDEX|))10010 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10011 (DECLARE (TYPE CONS *ATN-STACK))10012 (SYMBOL-MACROLET10013 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10014 (%ATN-BLOCK |BuiltInCall|10015 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10016 (SETF *ATN-TERM* '|BuiltInCall|)10017 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10018 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10019 (|BuiltInCall.2| (ATN-PARSER::INDEX)10020 (%ATN-NODE-BLOCK10021 |BuiltInCall.2|10022 (%ATN-EDGE-BLOCK10023 (POP |BuiltInCall|)10024 (WHEN T10025 (SETF *ATN-TERM* '|BuiltInCall|)10026 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10027 '|BuiltInCall|10028 ATN-PARSER::INDEX10029 (LIST '|BuiltinBinaryCall|10030 |BuiltinBinaryCall|10031 '|BuiltinListCall|10032 |BuiltinListCall|10033 '|BuiltinNullCall|10034 |BuiltinNullCall|10035 '|BuiltinNullOrUnaryCall|10036 |BuiltinNullOrUnaryCall|10037 '|BuiltinUnaryCall|10038 |BuiltinUnaryCall|10039 '|ExistsFunc|10040 |ExistsFunc|10041 '|IfExpression|10042 |IfExpression|10043 '|NotExistsFunc|10044 |NotExistsFunc|10045 '|RegexExpression|10046 |RegexExpression|10047 '|SubstringExpression|10048 |SubstringExpression|))10049 (LET ((ATN-PARSER::RESULT-STRUCTURE10050 (IF (EQ *ATN-REDUCE* T)10051 (|BuiltInCall-Constructor|10052 |BuiltinBinaryCall|10053 |BuiltinListCall|10054 |BuiltinNullCall|10055 |BuiltinNullOrUnaryCall|10056 |BuiltinUnaryCall|10057 |ExistsFunc|10058 |IfExpression|10059 |NotExistsFunc|10060 |RegexExpression|10061 |SubstringExpression|)10062 (IF (EQ *ATN-REDUCE* 'CONS)10063 (CONS '|BuiltInCall|10064 (DELETE NIL10065 (LIST |BuiltinBinaryCall|10066 |BuiltinListCall|10067 |BuiltinNullCall|10068 |BuiltinNullOrUnaryCall|10069 |BuiltinUnaryCall|10070 |ExistsFunc|10071 |IfExpression|10072 |NotExistsFunc|10073 |RegexExpression|10074 |SubstringExpression|)))10075 '|BuiltInCall|))))10076 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10077 (|BuiltInCall/fail.3| (ATN-PARSER::INDEX)10078 (%ATN-NODE-BLOCK |BuiltInCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10079 (|BuiltInCall/start.1| (ATN-PARSER::INDEX)10080 (%ATN-NODE-BLOCK10081 |BuiltInCall/start.1|10082 (%ATN-EDGE-BLOCK10083 OR10084 (PROGN (%ATN-EDGE-BLOCK10085 (PUSH |BuiltinNullCall|)10086 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10087 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinNullCall| ATN-PARSER::INDEX)10088 (COND (ATN-PARSER::SUCCESS10089 (SETF *ATN-TERM* '|BuiltinNullCall|)10090 (LET ((|BuiltinNullCall1765| |BuiltinNullCall|))10091 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10092 (DESTRUCTURING-BIND10093 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10094 ATN-PARSER::RESULT-AND-INDEX10095 (WHEN ATN-PARSER::RESULT10096 (SETF |BuiltinNullCall| ATN-PARSER::RESULT))10097 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))10098 (SETF |BuiltinNullCall| |BuiltinNullCall1765|))))10099 (T (SETF *ATN-TERM?* '|BuiltinNullCall|) NIL))))10100 (%ATN-EDGE-BLOCK10101 (PUSH |BuiltinNullOrUnaryCall|)10102 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10103 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinNullOrUnaryCall| ATN-PARSER::INDEX)10104 (COND (ATN-PARSER::SUCCESS10105 (SETF *ATN-TERM* '|BuiltinNullOrUnaryCall|)10106 (LET ((|BuiltinNullOrUnaryCall1765| |BuiltinNullOrUnaryCall|))10107 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10108 (DESTRUCTURING-BIND10109 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10110 ATN-PARSER::RESULT-AND-INDEX10111 (WHEN ATN-PARSER::RESULT10112 (SETF |BuiltinNullOrUnaryCall| ATN-PARSER::RESULT))10113 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))10114 (SETF |BuiltinNullOrUnaryCall| |BuiltinNullOrUnaryCall1765|))))10115 (T (SETF *ATN-TERM?* '|BuiltinNullOrUnaryCall|) NIL))))10116 (%ATN-EDGE-BLOCK10117 (PUSH |BuiltinBinaryCall|)10118 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10119 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinBinaryCall| ATN-PARSER::INDEX)10120 (COND (ATN-PARSER::SUCCESS10121 (SETF *ATN-TERM* '|BuiltinBinaryCall|)10122 (LET ((|BuiltinBinaryCall1765| |BuiltinBinaryCall|))10123 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10124 (DESTRUCTURING-BIND10125 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10126 ATN-PARSER::RESULT-AND-INDEX10127 (WHEN ATN-PARSER::RESULT10128 (SETF |BuiltinBinaryCall| ATN-PARSER::RESULT))10129 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))10130 (SETF |BuiltinBinaryCall| |BuiltinBinaryCall1765|))))10131 (T (SETF *ATN-TERM?* '|BuiltinBinaryCall|) NIL))))10132 (%ATN-EDGE-BLOCK10133 (PUSH |BuiltinUnaryCall|)10134 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10135 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinUnaryCall| ATN-PARSER::INDEX)10136 (COND (ATN-PARSER::SUCCESS10137 (SETF *ATN-TERM* '|BuiltinUnaryCall|)10138 (LET ((|BuiltinUnaryCall1765| |BuiltinUnaryCall|))10139 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10140 (DESTRUCTURING-BIND10141 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10142 ATN-PARSER::RESULT-AND-INDEX10143 (WHEN ATN-PARSER::RESULT10144 (SETF |BuiltinUnaryCall| ATN-PARSER::RESULT))10145 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))10146 (SETF |BuiltinUnaryCall| |BuiltinUnaryCall1765|))))10147 (T (SETF *ATN-TERM?* '|BuiltinUnaryCall|) NIL))))10148 (%ATN-EDGE-BLOCK10149 (PUSH |BuiltinListCall|)10150 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10151 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinListCall| ATN-PARSER::INDEX)10152 (COND (ATN-PARSER::SUCCESS10153 (SETF *ATN-TERM* '|BuiltinListCall|)10154 (LET ((|BuiltinListCall1765| |BuiltinListCall|))10155 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10156 (DESTRUCTURING-BIND10157 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10158 ATN-PARSER::RESULT-AND-INDEX10159 (WHEN ATN-PARSER::RESULT10160 (SETF |BuiltinListCall| ATN-PARSER::RESULT))10161 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))10162 (SETF |BuiltinListCall| |BuiltinListCall1765|))))10163 (T (SETF *ATN-TERM?* '|BuiltinListCall|) NIL))))10164 (%ATN-EDGE-BLOCK10165 (PUSH |RegexExpression|)10166 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10167 (ATN-PARSE-SUBSTRUCTURE* '|RegexExpression| ATN-PARSER::INDEX)10168 (COND (ATN-PARSER::SUCCESS10169 (SETF *ATN-TERM* '|RegexExpression|)10170 (LET ((|RegexExpression1765| |RegexExpression|))10171 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10172 (DESTRUCTURING-BIND10173 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10174 ATN-PARSER::RESULT-AND-INDEX10175 (WHEN ATN-PARSER::RESULT10176 (SETF |RegexExpression| ATN-PARSER::RESULT))10177 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))10178 (SETF |RegexExpression| |RegexExpression1765|))))10179 (T (SETF *ATN-TERM?* '|RegexExpression|) NIL))))10180 (%ATN-EDGE-BLOCK10181 (PUSH |IfExpression|)10182 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10183 (ATN-PARSE-SUBSTRUCTURE* '|IfExpression| ATN-PARSER::INDEX)10184 (COND (ATN-PARSER::SUCCESS10185 (SETF *ATN-TERM* '|IfExpression|)10186 (LET ((|IfExpression1765| |IfExpression|))10187 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10188 (DESTRUCTURING-BIND10189 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10190 ATN-PARSER::RESULT-AND-INDEX10191 (WHEN ATN-PARSER::RESULT10192 (SETF |IfExpression| ATN-PARSER::RESULT))10193 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))10194 (SETF |IfExpression| |IfExpression1765|))))10195 (T (SETF *ATN-TERM?* '|IfExpression|) NIL))))10196 (%ATN-EDGE-BLOCK10197 (PUSH |SubstringExpression|)10198 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10199 (ATN-PARSE-SUBSTRUCTURE* '|SubstringExpression| ATN-PARSER::INDEX)10200 (COND (ATN-PARSER::SUCCESS10201 (SETF *ATN-TERM* '|SubstringExpression|)10202 (LET ((|SubstringExpression1765| |SubstringExpression|))10203 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10204 (DESTRUCTURING-BIND10205 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10206 ATN-PARSER::RESULT-AND-INDEX10207 (WHEN ATN-PARSER::RESULT10208 (SETF |SubstringExpression| ATN-PARSER::RESULT))10209 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))10210 (SETF |SubstringExpression| |SubstringExpression1765|))))10211 (T (SETF *ATN-TERM?* '|SubstringExpression|) NIL))))10212 (%ATN-EDGE-BLOCK10213 (PUSH |ExistsFunc|)10214 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10215 (ATN-PARSE-SUBSTRUCTURE* '|ExistsFunc| ATN-PARSER::INDEX)10216 (COND (ATN-PARSER::SUCCESS10217 (SETF *ATN-TERM* '|ExistsFunc|)10218 (LET ((|ExistsFunc1765| |ExistsFunc|))10219 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10220 (DESTRUCTURING-BIND10221 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10222 ATN-PARSER::RESULT-AND-INDEX10223 (WHEN ATN-PARSER::RESULT10224 (SETF |ExistsFunc| ATN-PARSER::RESULT))10225 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))10226 (SETF |ExistsFunc| |ExistsFunc1765|))))10227 (T (SETF *ATN-TERM?* '|ExistsFunc|) NIL))))10228 (%ATN-EDGE-BLOCK10229 (PUSH |NotExistsFunc|)10230 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10231 (ATN-PARSE-SUBSTRUCTURE* '|NotExistsFunc| ATN-PARSER::INDEX)10232 (COND (ATN-PARSER::SUCCESS10233 (SETF *ATN-TERM* '|NotExistsFunc|)10234 (LET ((|NotExistsFunc1765| |NotExistsFunc|))10235 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10236 (DESTRUCTURING-BIND10237 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10238 ATN-PARSER::RESULT-AND-INDEX10239 (WHEN ATN-PARSER::RESULT10240 (SETF |NotExistsFunc| ATN-PARSER::RESULT))10241 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))10242 (SETF |NotExistsFunc| |NotExistsFunc1765|))))10243 (T (SETF *ATN-TERM?* '|NotExistsFunc|) NIL))))10244 (|BuiltInCall/fail.3| ATN-PARSER::INDEX))))))10245 (|BuiltInCall/start.1| ATN-PARSER::INDEX)10246 (SETF *ATN-NODE NIL)10247 NIL10248 (IF ATN-PARSER::ATN-STRUCTURE10249 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10250 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10251 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltInCall| ATN-PARSER::INDEX *ATN-STACK))))10252 (PROGN (DEFVAR |BuiltinNullCall-INDEX|)10253 (DEFUN |BuiltinNullCall| (ATN-PARSER::INDEX &AUX (|NullOperator| NIL))10254 "BuiltinNullCall ::= NullOperator '(' ')'10255 (|NullOperator|)"10256 (DECLARE (SPECIAL |BuiltinNullCall-INDEX|))10257 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinNullCall-INDEX| *ATN-LEVEL))10258 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10259 (IF (< |BuiltinNullCall-INDEX| ATN-PARSER::INDEX)10260 (LET ((|BuiltinNullCall-INDEX| ATN-PARSER::INDEX)10261 (*ATN-LEVEL (1+ *ATN-LEVEL))10262 (*ATN-STACK (CONS '|BuiltinNullCall| *ATN-STACK))10263 (ATN-PARSER::ATN-STRUCTURE NIL))10264 (DECLARE (SPECIAL |BuiltinNullCall-INDEX|))10265 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10266 (DECLARE (TYPE CONS *ATN-STACK))10267 (SYMBOL-MACROLET10268 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10269 (%ATN-BLOCK |BuiltinNullCall|10270 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10271 (SETF *ATN-TERM* '|BuiltinNullCall|)10272 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10273 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10274 (|BuiltinNullCall.2| (ATN-PARSER::INDEX)10275 (%ATN-NODE-BLOCK10276 |BuiltinNullCall.2|10277 (%ATN-EDGE-BLOCK10278 (POP |BuiltinNullCall|)10279 (WHEN T10280 (SETF *ATN-TERM* '|BuiltinNullCall|)10281 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10282 '|BuiltinNullCall|10283 ATN-PARSER::INDEX10284 (LIST '|NullOperator| |NullOperator|))10285 (LET ((ATN-PARSER::RESULT-STRUCTURE10286 (IF (EQ *ATN-REDUCE* T)10287 (|BuiltinNullCall-Constructor| |NullOperator|)10288 (IF (EQ *ATN-REDUCE* 'CONS)10289 (CONS '|BuiltinNullCall| (DELETE NIL (LIST |NullOperator|)))10290 '|BuiltinNullCall|))))10291 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10292 (|BuiltinNullCall/BuiltinNullCall.2.4| (ATN-PARSER::INDEX)10293 (%ATN-NODE-BLOCK10294 |BuiltinNullCall/BuiltinNullCall.2.4|10295 (%ATN-EDGE-BLOCK10296 (ATN-PARSER::WORD SPOCQ.S:\()10297 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()10298 (SETF *ATN-TERM* 'SPOCQ.S:\()10299 (|BuiltinNullCall/BuiltinNullCall.2.5| (1+ ATN-PARSER::INDEX)))10300 (T10301 (SETF *ATN-TERM?* 'SPOCQ.S:\()10302 (|BuiltinNullCall/fail.3| ATN-PARSER::INDEX))))))10303 (|BuiltinNullCall/BuiltinNullCall.2.5| (ATN-PARSER::INDEX)10304 (%ATN-NODE-BLOCK10305 |BuiltinNullCall/BuiltinNullCall.2.5|10306 (%ATN-EDGE-BLOCK10307 (ATN-PARSER::WORD SPOCQ.S:\))10308 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))10309 (SETF *ATN-TERM* 'SPOCQ.S:\))10310 (|BuiltinNullCall.2| (1+ ATN-PARSER::INDEX)))10311 (T10312 (SETF *ATN-TERM?* 'SPOCQ.S:\))10313 (|BuiltinNullCall/fail.3| ATN-PARSER::INDEX))))))10314 (|BuiltinNullCall/fail.3| (ATN-PARSER::INDEX)10315 (%ATN-NODE-BLOCK |BuiltinNullCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10316 (|BuiltinNullCall/start.1| (ATN-PARSER::INDEX)10317 (%ATN-NODE-BLOCK10318 |BuiltinNullCall/start.1|10319 (%ATN-EDGE-BLOCK10320 (ATN-PARSER::CAT |NullOperator|)10321 (COND ((|IS-NullOperator| ATN-PARSER::|item|)10322 (SETF *ATN-TERM* '|NullOperator|)10323 (SETF |NullOperator|10324 (IF (EQ *ATN-REDUCE* T)10325 (ATN-REDUCE-ITEM #'|NullOperator-Constructor| ATN-PARSER::|item|)10326 (IF (EQ *ATN-REDUCE* 'CONS)10327 (LIST '|NullOperator| ATN-PARSER::|item|)10328 '|NullOperator|)))10329 (|BuiltinNullCall/BuiltinNullCall.2.4| (1+ ATN-PARSER::INDEX)))10330 (T10331 (SETF *ATN-TERM* '|NullOperator|)10332 (|BuiltinNullCall/fail.3| ATN-PARSER::INDEX)))))))10333 (|BuiltinNullCall/start.1| ATN-PARSER::INDEX)10334 (SETF *ATN-NODE NIL)10335 NIL10336 (IF ATN-PARSER::ATN-STRUCTURE10337 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10338 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10339 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinNullCall| ATN-PARSER::INDEX *ATN-STACK))))10340 (PROGN (DEFVAR |BuiltinNullOrUnaryCall-INDEX|)10341 (DEFUN |BuiltinNullOrUnaryCall| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|NullOrUnaryOperator| NIL))10342 "BuiltinNullOrUnaryCall ::= NullOrUnaryOperator '(' Expression? ')'10343 (|Expression| |NullOrUnaryOperator|)"10344 (DECLARE (SPECIAL |BuiltinNullOrUnaryCall-INDEX|))10345 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinNullOrUnaryCall-INDEX| *ATN-LEVEL))10346 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10347 (IF (< |BuiltinNullOrUnaryCall-INDEX| ATN-PARSER::INDEX)10348 (LET ((|BuiltinNullOrUnaryCall-INDEX| ATN-PARSER::INDEX)10349 (*ATN-LEVEL (1+ *ATN-LEVEL))10350 (*ATN-STACK (CONS '|BuiltinNullOrUnaryCall| *ATN-STACK))10351 (ATN-PARSER::ATN-STRUCTURE NIL))10352 (DECLARE (SPECIAL |BuiltinNullOrUnaryCall-INDEX|))10353 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10354 (DECLARE (TYPE CONS *ATN-STACK))10355 (SYMBOL-MACROLET10356 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10357 (%ATN-BLOCK |BuiltinNullOrUnaryCall|10358 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10359 (SETF *ATN-TERM* '|BuiltinNullOrUnaryCall|)10360 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10361 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10362 (|BuiltinNullOrUnaryCall.2| (ATN-PARSER::INDEX)10363 (%ATN-NODE-BLOCK10364 |BuiltinNullOrUnaryCall.2|10365 (%ATN-EDGE-BLOCK10366 (POP |BuiltinNullOrUnaryCall|)10367 (WHEN T10368 (SETF *ATN-TERM* '|BuiltinNullOrUnaryCall|)10369 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10370 '|BuiltinNullOrUnaryCall|10371 ATN-PARSER::INDEX10372 (LIST '|Expression|10373 |Expression|10374 '|NullOrUnaryOperator|10375 |NullOrUnaryOperator|))10376 (LET ((ATN-PARSER::RESULT-STRUCTURE10377 (IF (EQ *ATN-REDUCE* T)10378 (|BuiltinNullOrUnaryCall-Constructor| |Expression| |NullOrUnaryOperator|)10379 (IF (EQ *ATN-REDUCE* 'CONS)10380 (CONS '|BuiltinNullOrUnaryCall|10381 (DELETE NIL (LIST |Expression| |NullOrUnaryOperator|)))10382 '|BuiltinNullOrUnaryCall|))))10383 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10384 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.4| (ATN-PARSER::INDEX)10385 (%ATN-NODE-BLOCK10386 |BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.4|10387 (%ATN-EDGE-BLOCK10388 (ATN-PARSER::WORD SPOCQ.S:\()10389 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()10390 (SETF *ATN-TERM* 'SPOCQ.S:\()10391 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.5| (1+ ATN-PARSER::INDEX)))10392 (T10393 (SETF *ATN-TERM?* 'SPOCQ.S:\()10394 (|BuiltinNullOrUnaryCall/fail.3| ATN-PARSER::INDEX))))))10395 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.5| (ATN-PARSER::INDEX)10396 (%ATN-NODE-BLOCK10397 |BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.5|10398 (%ATN-EDGE-BLOCK10399 (PUSH |Expression|)10400 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10401 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)10402 (COND (ATN-PARSER::SUCCESS10403 (SETF *ATN-TERM* '|Expression|)10404 (LET ((|Expression1766| |Expression|))10405 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10406 (DESTRUCTURING-BIND10407 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10408 ATN-PARSER::RESULT-AND-INDEX10409 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))10410 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.6|10411 ATN-PARSER::RESULT-INDEX))10412 (SETF |Expression| |Expression1766|))))10413 (T10414 (SETF *ATN-TERM?* '|Expression|)10415 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.6| ATN-PARSER::INDEX)))))))10416 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.6| (ATN-PARSER::INDEX)10417 (%ATN-NODE-BLOCK10418 |BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.6|10419 (%ATN-EDGE-BLOCK10420 (ATN-PARSER::WORD SPOCQ.S:\))10421 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))10422 (SETF *ATN-TERM* 'SPOCQ.S:\))10423 (|BuiltinNullOrUnaryCall.2| (1+ ATN-PARSER::INDEX)))10424 (T10425 (SETF *ATN-TERM?* 'SPOCQ.S:\))10426 (|BuiltinNullOrUnaryCall/fail.3| ATN-PARSER::INDEX))))))10427 (|BuiltinNullOrUnaryCall/fail.3| (ATN-PARSER::INDEX)10428 (%ATN-NODE-BLOCK10429 |BuiltinNullOrUnaryCall/fail.3|10430 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10431 (|BuiltinNullOrUnaryCall/start.1| (ATN-PARSER::INDEX)10432 (%ATN-NODE-BLOCK10433 |BuiltinNullOrUnaryCall/start.1|10434 (%ATN-EDGE-BLOCK10435 (ATN-PARSER::CAT |NullOrUnaryOperator|)10436 (COND ((|IS-NullOrUnaryOperator| ATN-PARSER::|item|)10437 (SETF *ATN-TERM* '|NullOrUnaryOperator|)10438 (SETF |NullOrUnaryOperator|10439 (IF (EQ *ATN-REDUCE* T)10440 (ATN-REDUCE-ITEM10441 #'|NullOrUnaryOperator-Constructor|10442 ATN-PARSER::|item|)10443 (IF (EQ *ATN-REDUCE* 'CONS)10444 (LIST '|NullOrUnaryOperator| ATN-PARSER::|item|)10445 '|NullOrUnaryOperator|)))10446 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.4| (1+ ATN-PARSER::INDEX)))10447 (T10448 (SETF *ATN-TERM* '|NullOrUnaryOperator|)10449 (|BuiltinNullOrUnaryCall/fail.3| ATN-PARSER::INDEX)))))))10450 (|BuiltinNullOrUnaryCall/start.1| ATN-PARSER::INDEX)10451 (SETF *ATN-NODE NIL)10452 NIL10453 (IF ATN-PARSER::ATN-STRUCTURE10454 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10455 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10456 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinNullOrUnaryCall| ATN-PARSER::INDEX *ATN-STACK))))10457 (PROGN (DEFVAR |BuiltinUnaryCall-INDEX|)10458 (DEFUN |BuiltinUnaryCall| (ATN-PARSER::INDEX &AUX (|BuiltinUnaryOperator| NIL) (|Expression| NIL))10459 "{57} BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'10460 (|BuiltinUnaryOperator| |Expression|)"10461 (DECLARE (SPECIAL |BuiltinUnaryCall-INDEX|))10462 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinUnaryCall-INDEX| *ATN-LEVEL))10463 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10464 (IF (< |BuiltinUnaryCall-INDEX| ATN-PARSER::INDEX)10465 (LET ((|BuiltinUnaryCall-INDEX| ATN-PARSER::INDEX)10466 (*ATN-LEVEL (1+ *ATN-LEVEL))10467 (*ATN-STACK (CONS '|BuiltinUnaryCall| *ATN-STACK))10468 (ATN-PARSER::ATN-STRUCTURE NIL))10469 (DECLARE (SPECIAL |BuiltinUnaryCall-INDEX|))10470 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10471 (DECLARE (TYPE CONS *ATN-STACK))10472 (SYMBOL-MACROLET10473 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10474 (%ATN-BLOCK |BuiltinUnaryCall|10475 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10476 (SETF *ATN-TERM* '|BuiltinUnaryCall|)10477 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10478 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10479 (|BuiltinUnaryCall.2| (ATN-PARSER::INDEX)10480 (%ATN-NODE-BLOCK10481 |BuiltinUnaryCall.2|10482 (%ATN-EDGE-BLOCK10483 (POP |BuiltinUnaryCall|)10484 (WHEN T10485 (SETF *ATN-TERM* '|BuiltinUnaryCall|)10486 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10487 '|BuiltinUnaryCall|10488 ATN-PARSER::INDEX10489 (LIST '|BuiltinUnaryOperator|10490 |BuiltinUnaryOperator|10491 '|Expression|10492 |Expression|))10493 (LET ((ATN-PARSER::RESULT-STRUCTURE10494 (IF (EQ *ATN-REDUCE* T)10495 (|BuiltinUnaryCall-Constructor| |BuiltinUnaryOperator| |Expression|)10496 (IF (EQ *ATN-REDUCE* 'CONS)10497 (CONS '|BuiltinUnaryCall|10498 (DELETE NIL (LIST |BuiltinUnaryOperator| |Expression|)))10499 '|BuiltinUnaryCall|))))10500 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10501 (|BuiltinUnaryCall/BuiltinUnaryCall.2.4| (ATN-PARSER::INDEX)10502 (%ATN-NODE-BLOCK10503 |BuiltinUnaryCall/BuiltinUnaryCall.2.4|10504 (%ATN-EDGE-BLOCK10505 (ATN-PARSER::WORD SPOCQ.S:\()10506 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()10507 (SETF *ATN-TERM* 'SPOCQ.S:\()10508 (|BuiltinUnaryCall/BuiltinUnaryCall.2.5| (1+ ATN-PARSER::INDEX)))10509 (T10510 (SETF *ATN-TERM?* 'SPOCQ.S:\()10511 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX))))))10512 (|BuiltinUnaryCall/BuiltinUnaryCall.2.5| (ATN-PARSER::INDEX)10513 (%ATN-NODE-BLOCK10514 |BuiltinUnaryCall/BuiltinUnaryCall.2.5|10515 (%ATN-EDGE-BLOCK10516 (PUSH |Expression|)10517 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10518 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)10519 (COND (ATN-PARSER::SUCCESS10520 (SETF *ATN-TERM* '|Expression|)10521 (LET ((|Expression1767| |Expression|))10522 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10523 (DESTRUCTURING-BIND10524 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10525 ATN-PARSER::RESULT-AND-INDEX10526 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))10527 (|BuiltinUnaryCall/BuiltinUnaryCall.2.6| ATN-PARSER::RESULT-INDEX))10528 (SETF |Expression| |Expression1767|))))10529 (T10530 (SETF *ATN-TERM?* '|Expression|)10531 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX)))))))10532 (|BuiltinUnaryCall/BuiltinUnaryCall.2.6| (ATN-PARSER::INDEX)10533 (%ATN-NODE-BLOCK10534 |BuiltinUnaryCall/BuiltinUnaryCall.2.6|10535 (%ATN-EDGE-BLOCK10536 (ATN-PARSER::WORD SPOCQ.S:\))10537 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))10538 (SETF *ATN-TERM* 'SPOCQ.S:\))10539 (|BuiltinUnaryCall.2| (1+ ATN-PARSER::INDEX)))10540 (T10541 (SETF *ATN-TERM?* 'SPOCQ.S:\))10542 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX))))))10543 (|BuiltinUnaryCall/fail.3| (ATN-PARSER::INDEX)10544 (%ATN-NODE-BLOCK |BuiltinUnaryCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10545 (|BuiltinUnaryCall/start.1| (ATN-PARSER::INDEX)10546 (%ATN-NODE-BLOCK10547 |BuiltinUnaryCall/start.1|10548 (%ATN-EDGE-BLOCK10549 (ATN-PARSER::CAT |BuiltinUnaryOperator|)10550 (COND ((|IS-BuiltinUnaryOperator| ATN-PARSER::|item|)10551 (SETF *ATN-TERM* '|BuiltinUnaryOperator|)10552 (SETF |BuiltinUnaryOperator|10553 (IF (EQ *ATN-REDUCE* T)10554 (ATN-REDUCE-ITEM10555 #'|BuiltinUnaryOperator-Constructor|10556 ATN-PARSER::|item|)10557 (IF (EQ *ATN-REDUCE* 'CONS)10558 (LIST '|BuiltinUnaryOperator| ATN-PARSER::|item|)10559 '|BuiltinUnaryOperator|)))10560 (|BuiltinUnaryCall/BuiltinUnaryCall.2.4| (1+ ATN-PARSER::INDEX)))10561 (T10562 (SETF *ATN-TERM* '|BuiltinUnaryOperator|)10563 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX)))))))10564 (|BuiltinUnaryCall/start.1| ATN-PARSER::INDEX)10565 (SETF *ATN-NODE NIL)10566 NIL10567 (IF ATN-PARSER::ATN-STRUCTURE10568 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10569 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10570 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinUnaryCall| ATN-PARSER::INDEX *ATN-STACK))))10571 (PROGN (DEFVAR |BuiltinBinaryCall-INDEX|)10572 (DEFUN |BuiltinBinaryCall| (ATN-PARSER::INDEX &AUX (|BuiltinBinaryOperator| NIL) (|Expression| NIL))10573 "{57} BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'10574 (|BuiltinBinaryOperator| |Expression|)"10575 (DECLARE (SPECIAL |BuiltinBinaryCall-INDEX|))10576 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinBinaryCall-INDEX| *ATN-LEVEL))10577 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10578 (IF (< |BuiltinBinaryCall-INDEX| ATN-PARSER::INDEX)10579 (LET ((|BuiltinBinaryCall-INDEX| ATN-PARSER::INDEX)10580 (*ATN-LEVEL (1+ *ATN-LEVEL))10581 (*ATN-STACK (CONS '|BuiltinBinaryCall| *ATN-STACK))10582 (ATN-PARSER::ATN-STRUCTURE NIL))10583 (DECLARE (SPECIAL |BuiltinBinaryCall-INDEX|))10584 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10585 (DECLARE (TYPE CONS *ATN-STACK))10586 (SYMBOL-MACROLET10587 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10588 (%ATN-BLOCK |BuiltinBinaryCall|10589 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10590 (SETF *ATN-TERM* '|BuiltinBinaryCall|)10591 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10592 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10593 (|BuiltinBinaryCall.2| (ATN-PARSER::INDEX)10594 (%ATN-NODE-BLOCK10595 |BuiltinBinaryCall.2|10596 (%ATN-EDGE-BLOCK10597 (POP |BuiltinBinaryCall|)10598 (WHEN T10599 (SETF *ATN-TERM* '|BuiltinBinaryCall|)10600 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10601 '|BuiltinBinaryCall|10602 ATN-PARSER::INDEX10603 (LIST '|BuiltinBinaryOperator|10604 |BuiltinBinaryOperator|10605 '|Expression|10606 |Expression|))10607 (LET ((ATN-PARSER::RESULT-STRUCTURE10608 (IF (EQ *ATN-REDUCE* T)10609 (|BuiltinBinaryCall-Constructor| |BuiltinBinaryOperator| |Expression|)10610 (IF (EQ *ATN-REDUCE* 'CONS)10611 (CONS '|BuiltinBinaryCall|10612 (DELETE NIL (LIST |BuiltinBinaryOperator| |Expression|)))10613 '|BuiltinBinaryCall|))))10614 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10615 (|BuiltinBinaryCall/BuiltinBinaryCall.2.4| (ATN-PARSER::INDEX)10616 (%ATN-NODE-BLOCK10617 |BuiltinBinaryCall/BuiltinBinaryCall.2.4|10618 (%ATN-EDGE-BLOCK10619 (ATN-PARSER::WORD SPOCQ.S:\()10620 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()10621 (SETF *ATN-TERM* 'SPOCQ.S:\()10622 (|BuiltinBinaryCall/BuiltinBinaryCall.2.5| (1+ ATN-PARSER::INDEX)))10623 (T10624 (SETF *ATN-TERM?* 'SPOCQ.S:\()10625 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))10626 (|BuiltinBinaryCall/BuiltinBinaryCall.2.5| (ATN-PARSER::INDEX)10627 (%ATN-NODE-BLOCK10628 |BuiltinBinaryCall/BuiltinBinaryCall.2.5|10629 (%ATN-EDGE-BLOCK10630 (PUSH |Expression|)10631 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10632 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)10633 (COND (ATN-PARSER::SUCCESS10634 (SETF *ATN-TERM* '|Expression|)10635 (LET ((|Expression1769| |Expression|))10636 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10637 (DESTRUCTURING-BIND10638 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10639 ATN-PARSER::RESULT-AND-INDEX10640 (WHEN ATN-PARSER::RESULT10641 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))10642 (|BuiltinBinaryCall/BuiltinBinaryCall.2.6| ATN-PARSER::RESULT-INDEX))10643 (SETF |Expression| |Expression1769|))))10644 (T10645 (SETF *ATN-TERM?* '|Expression|)10646 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))10647 (|BuiltinBinaryCall/BuiltinBinaryCall.2.6| (ATN-PARSER::INDEX)10648 (%ATN-NODE-BLOCK10649 |BuiltinBinaryCall/BuiltinBinaryCall.2.6|10650 (%ATN-EDGE-BLOCK10651 (ATN-PARSER::WORD SPOCQ.S:\,)10652 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)10653 (SETF *ATN-TERM* 'SPOCQ.S:\,)10654 (|BuiltinBinaryCall/BuiltinBinaryCall.2.7| (1+ ATN-PARSER::INDEX)))10655 (T10656 (SETF *ATN-TERM?* 'SPOCQ.S:\,)10657 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))10658 (|BuiltinBinaryCall/BuiltinBinaryCall.2.7| (ATN-PARSER::INDEX)10659 (%ATN-NODE-BLOCK10660 |BuiltinBinaryCall/BuiltinBinaryCall.2.7|10661 (%ATN-EDGE-BLOCK10662 (PUSH |Expression|)10663 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10664 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)10665 (COND (ATN-PARSER::SUCCESS10666 (SETF *ATN-TERM* '|Expression|)10667 (LET ((|Expression1768| |Expression|))10668 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10669 (DESTRUCTURING-BIND10670 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10671 ATN-PARSER::RESULT-AND-INDEX10672 (WHEN ATN-PARSER::RESULT10673 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))10674 (|BuiltinBinaryCall/BuiltinBinaryCall.2.8| ATN-PARSER::RESULT-INDEX))10675 (SETF |Expression| |Expression1768|))))10676 (T10677 (SETF *ATN-TERM?* '|Expression|)10678 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))10679 (|BuiltinBinaryCall/BuiltinBinaryCall.2.8| (ATN-PARSER::INDEX)10680 (%ATN-NODE-BLOCK10681 |BuiltinBinaryCall/BuiltinBinaryCall.2.8|10682 (%ATN-EDGE-BLOCK10683 (ATN-PARSER::WORD SPOCQ.S:\))10684 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))10685 (SETF *ATN-TERM* 'SPOCQ.S:\))10686 (|BuiltinBinaryCall.2| (1+ ATN-PARSER::INDEX)))10687 (T10688 (SETF *ATN-TERM?* 'SPOCQ.S:\))10689 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))10690 (|BuiltinBinaryCall/fail.3| (ATN-PARSER::INDEX)10691 (%ATN-NODE-BLOCK |BuiltinBinaryCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10692 (|BuiltinBinaryCall/start.1| (ATN-PARSER::INDEX)10693 (%ATN-NODE-BLOCK10694 |BuiltinBinaryCall/start.1|10695 (%ATN-EDGE-BLOCK10696 (ATN-PARSER::CAT |BuiltinBinaryOperator|)10697 (COND ((|IS-BuiltinBinaryOperator| ATN-PARSER::|item|)10698 (SETF *ATN-TERM* '|BuiltinBinaryOperator|)10699 (SETF |BuiltinBinaryOperator|10700 (IF (EQ *ATN-REDUCE* T)10701 (ATN-REDUCE-ITEM10702 #'|BuiltinBinaryOperator-Constructor|10703 ATN-PARSER::|item|)10704 (IF (EQ *ATN-REDUCE* 'CONS)10705 (LIST '|BuiltinBinaryOperator| ATN-PARSER::|item|)10706 '|BuiltinBinaryOperator|)))10707 (|BuiltinBinaryCall/BuiltinBinaryCall.2.4| (1+ ATN-PARSER::INDEX)))10708 (T10709 (SETF *ATN-TERM* '|BuiltinBinaryOperator|)10710 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))10711 (|BuiltinBinaryCall/start.1| ATN-PARSER::INDEX)10712 (SETF *ATN-NODE NIL)10713 NIL10714 (IF ATN-PARSER::ATN-STRUCTURE10715 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10716 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10717 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinBinaryCall| ATN-PARSER::INDEX *ATN-STACK))))10718 (PROGN (DEFVAR |SubstringExpression-INDEX|)10719 (DEFUN |SubstringExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))10720 "SubstringExpression ::= 'SUBSTR' '(' Expression ',' Expression (','10721 Expression)? ')'10722 (|Expression|)"10723 (DECLARE (SPECIAL |SubstringExpression-INDEX|))10724 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SubstringExpression-INDEX| *ATN-LEVEL))10725 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10726 (IF (< |SubstringExpression-INDEX| ATN-PARSER::INDEX)10727 (LET ((|SubstringExpression-INDEX| ATN-PARSER::INDEX)10728 (*ATN-LEVEL (1+ *ATN-LEVEL))10729 (*ATN-STACK (CONS '|SubstringExpression| *ATN-STACK))10730 (ATN-PARSER::ATN-STRUCTURE NIL))10731 (DECLARE (SPECIAL |SubstringExpression-INDEX|))10732 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10733 (DECLARE (TYPE CONS *ATN-STACK))10734 (SYMBOL-MACROLET10735 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10736 (%ATN-BLOCK |SubstringExpression|10737 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10738 (SETF *ATN-TERM* '|SubstringExpression|)10739 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10740 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10741 (|SubstringExpression.2| (ATN-PARSER::INDEX)10742 (%ATN-NODE-BLOCK10743 |SubstringExpression.2|10744 (%ATN-EDGE-BLOCK10745 (POP |SubstringExpression|)10746 (WHEN T10747 (SETF *ATN-TERM* '|SubstringExpression|)10748 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10749 '|SubstringExpression|10750 ATN-PARSER::INDEX10751 (LIST '|Expression| |Expression|))10752 (LET ((ATN-PARSER::RESULT-STRUCTURE10753 (IF (EQ *ATN-REDUCE* T)10754 (|SubstringExpression-Constructor| |Expression|)10755 (IF (EQ *ATN-REDUCE* 'CONS)10756 (CONS '|SubstringExpression| (DELETE NIL (LIST |Expression|)))10757 '|SubstringExpression|))))10758 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10759 (|SubstringExpression/fail.3| (ATN-PARSER::INDEX)10760 (%ATN-NODE-BLOCK10761 |SubstringExpression/fail.3|10762 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10763 (|SubstringExpression/start.1| (ATN-PARSER::INDEX)10764 (%ATN-NODE-BLOCK10765 |SubstringExpression/start.1|10766 (%ATN-EDGE-BLOCK10767 (ATN-PARSER::WORD SPOCQ.S:SUBSTR)10768 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:SUBSTR)10769 (SETF *ATN-TERM* 'SPOCQ.S:SUBSTR)10770 (|SubstringExpression/SubstringExpression.2.4| (1+ ATN-PARSER::INDEX)))10771 (T10772 (SETF *ATN-TERM?* 'SPOCQ.S:SUBSTR)10773 (|SubstringExpression/fail.3| ATN-PARSER::INDEX))))))10774 (|SubstringExpression/SubstringExpression.2.4| (ATN-PARSER::INDEX)10775 (%ATN-NODE-BLOCK10776 |SubstringExpression/SubstringExpression.2.4|10777 (%ATN-EDGE-BLOCK10778 (ATN-PARSER::WORD SPOCQ.S:\()10779 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()10780 (SETF *ATN-TERM* 'SPOCQ.S:\()10781 (|SubstringExpression/SubstringExpression.2.5| (1+ ATN-PARSER::INDEX)))10782 (T10783 (SETF *ATN-TERM?* 'SPOCQ.S:\()10784 (|SubstringExpression/fail.3| ATN-PARSER::INDEX))))))10785 (|SubstringExpression/SubstringExpression.2.5| (ATN-PARSER::INDEX)10786 (%ATN-NODE-BLOCK10787 |SubstringExpression/SubstringExpression.2.5|10788 (%ATN-EDGE-BLOCK10789 (PUSH |Expression|)10790 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10791 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)10792 (COND (ATN-PARSER::SUCCESS10793 (SETF *ATN-TERM* '|Expression|)10794 (LET ((|Expression1772| |Expression|))10795 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10796 (DESTRUCTURING-BIND10797 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10798 ATN-PARSER::RESULT-AND-INDEX10799 (WHEN ATN-PARSER::RESULT10800 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))10801 (|SubstringExpression/SubstringExpression.2.6|10802 ATN-PARSER::RESULT-INDEX))10803 (SETF |Expression| |Expression1772|))))10804 (T10805 (SETF *ATN-TERM?* '|Expression|)10806 (|SubstringExpression/fail.3| ATN-PARSER::INDEX)))))))10807 (|SubstringExpression/SubstringExpression.2.6| (ATN-PARSER::INDEX)10808 (%ATN-NODE-BLOCK10809 |SubstringExpression/SubstringExpression.2.6|10810 (%ATN-EDGE-BLOCK10811 (ATN-PARSER::WORD SPOCQ.S:\,)10812 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)10813 (SETF *ATN-TERM* 'SPOCQ.S:\,)10814 (|SubstringExpression/SubstringExpression.2.7| (1+ ATN-PARSER::INDEX)))10815 (T10816 (SETF *ATN-TERM?* 'SPOCQ.S:\,)10817 (|SubstringExpression/fail.3| ATN-PARSER::INDEX))))))10818 (|SubstringExpression/SubstringExpression.2.7| (ATN-PARSER::INDEX)10819 (%ATN-NODE-BLOCK10820 |SubstringExpression/SubstringExpression.2.7|10821 (%ATN-EDGE-BLOCK10822 (PUSH |Expression|)10823 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10824 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)10825 (COND (ATN-PARSER::SUCCESS10826 (SETF *ATN-TERM* '|Expression|)10827 (LET ((|Expression1771| |Expression|))10828 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10829 (DESTRUCTURING-BIND10830 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10831 ATN-PARSER::RESULT-AND-INDEX10832 (WHEN ATN-PARSER::RESULT10833 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))10834 (|SubstringExpression/SubstringExpression.2.8|10835 ATN-PARSER::RESULT-INDEX))10836 (SETF |Expression| |Expression1771|))))10837 (T10838 (SETF *ATN-TERM?* '|Expression|)10839 (|SubstringExpression/fail.3| ATN-PARSER::INDEX)))))))10840 (|SubstringExpression/SubstringExpression.2.8| (ATN-PARSER::INDEX)10841 (%ATN-NODE-BLOCK10842 |SubstringExpression/SubstringExpression.2.8|10843 (%ATN-EDGE-BLOCK10844 (ATN-PARSER::JUMP |SubstringExpression/SubstringExpression/SubstringExpression.2.9.10|)10845 (|SubstringExpression/SubstringExpression/SubstringExpression.2.9.10|10846 ATN-PARSER::INDEX))10847 (%ATN-EDGE-BLOCK10848 (ATN-PARSER::JUMP |SubstringExpression/SubstringExpression.2.9|)10849 (|SubstringExpression/SubstringExpression.2.9| ATN-PARSER::INDEX))))10850 (|SubstringExpression/SubstringExpression.2.9| (ATN-PARSER::INDEX)10851 (%ATN-NODE-BLOCK10852 |SubstringExpression/SubstringExpression.2.9|10853 (%ATN-EDGE-BLOCK10854 (ATN-PARSER::WORD SPOCQ.S:\))10855 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))10856 (SETF *ATN-TERM* 'SPOCQ.S:\))10857 (|SubstringExpression.2| (1+ ATN-PARSER::INDEX)))10858 (T10859 (SETF *ATN-TERM?* 'SPOCQ.S:\))10860 (|SubstringExpression/fail.3| ATN-PARSER::INDEX))))))10861 (|SubstringExpression/SubstringExpression/SubstringExpression.2.9.10| (ATN-PARSER::INDEX)10862 (%ATN-NODE-BLOCK10863 |SubstringExpression/SubstringExpression/SubstringExpression.2.9.10|10864 (%ATN-EDGE-BLOCK10865 (ATN-PARSER::WORD SPOCQ.S:\,)10866 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)10867 (SETF *ATN-TERM* 'SPOCQ.S:\,)10868 (|SubstringExpression/SubstringExpression/SubstringExpression.2.9.11|10869 (1+ ATN-PARSER::INDEX)))10870 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))10871 (|SubstringExpression/SubstringExpression/SubstringExpression.2.9.11| (ATN-PARSER::INDEX)10872 (%ATN-NODE-BLOCK10873 |SubstringExpression/SubstringExpression/SubstringExpression.2.9.11|10874 (%ATN-EDGE-BLOCK10875 (PUSH |Expression|)10876 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10877 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)10878 (COND (ATN-PARSER::SUCCESS10879 (SETF *ATN-TERM* '|Expression|)10880 (LET ((|Expression1770| |Expression|))10881 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10882 (DESTRUCTURING-BIND10883 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10884 ATN-PARSER::RESULT-AND-INDEX10885 (WHEN ATN-PARSER::RESULT10886 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))10887 (|SubstringExpression/SubstringExpression.2.9|10888 ATN-PARSER::RESULT-INDEX))10889 (SETF |Expression| |Expression1770|))))10890 (T (SETF *ATN-TERM?* '|Expression|) NIL)))))))10891 (|SubstringExpression/start.1| ATN-PARSER::INDEX)10892 (SETF *ATN-NODE NIL)10893 NIL10894 (IF ATN-PARSER::ATN-STRUCTURE10895 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10896 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10897 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SubstringExpression| ATN-PARSER::INDEX *ATN-STACK))))10898 (PROGN (DEFVAR |IfExpression-INDEX|)10899 (DEFUN |IfExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))10900 "IfExpression ::= 'IF' '(' Expression ',' Expression ',' Expression ')'10901 (|Expression|)"10902 (DECLARE (SPECIAL |IfExpression-INDEX|))10903 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IfExpression-INDEX| *ATN-LEVEL))10904 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10905 (IF (< |IfExpression-INDEX| ATN-PARSER::INDEX)10906 (LET ((|IfExpression-INDEX| ATN-PARSER::INDEX)10907 (*ATN-LEVEL (1+ *ATN-LEVEL))10908 (*ATN-STACK (CONS '|IfExpression| *ATN-STACK))10909 (ATN-PARSER::ATN-STRUCTURE NIL))10910 (DECLARE (SPECIAL |IfExpression-INDEX|))10911 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10912 (DECLARE (TYPE CONS *ATN-STACK))10913 (SYMBOL-MACROLET10914 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10915 (%ATN-BLOCK |IfExpression|10916 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10917 (SETF *ATN-TERM* '|IfExpression|)10918 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10919 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10920 (|IfExpression.2| (ATN-PARSER::INDEX)10921 (%ATN-NODE-BLOCK10922 |IfExpression.2|10923 (%ATN-EDGE-BLOCK10924 (POP |IfExpression|)10925 (WHEN T10926 (SETF *ATN-TERM* '|IfExpression|)10927 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10928 '|IfExpression|10929 ATN-PARSER::INDEX10930 (LIST '|Expression| |Expression|))10931 (LET ((ATN-PARSER::RESULT-STRUCTURE10932 (IF (EQ *ATN-REDUCE* T)10933 (|IfExpression-Constructor| |Expression|)10934 (IF (EQ *ATN-REDUCE* 'CONS)10935 (CONS '|IfExpression| (DELETE NIL (LIST |Expression|)))10936 '|IfExpression|))))10937 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10938 (|IfExpression/fail.3| (ATN-PARSER::INDEX)10939 (%ATN-NODE-BLOCK |IfExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10940 (|IfExpression/IfExpression.2.10| (ATN-PARSER::INDEX)10941 (%ATN-NODE-BLOCK10942 |IfExpression/IfExpression.2.10|10943 (%ATN-EDGE-BLOCK10944 (ATN-PARSER::WORD SPOCQ.S:\))10945 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))10946 (SETF *ATN-TERM* 'SPOCQ.S:\))10947 (|IfExpression.2| (1+ ATN-PARSER::INDEX)))10948 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|IfExpression/fail.3| ATN-PARSER::INDEX))))))10949 (|IfExpression/IfExpression.2.4| (ATN-PARSER::INDEX)10950 (%ATN-NODE-BLOCK10951 |IfExpression/IfExpression.2.4|10952 (%ATN-EDGE-BLOCK10953 (ATN-PARSER::WORD SPOCQ.S:\()10954 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()10955 (SETF *ATN-TERM* 'SPOCQ.S:\()10956 (|IfExpression/IfExpression.2.5| (1+ ATN-PARSER::INDEX)))10957 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|IfExpression/fail.3| ATN-PARSER::INDEX))))))10958 (|IfExpression/IfExpression.2.5| (ATN-PARSER::INDEX)10959 (%ATN-NODE-BLOCK10960 |IfExpression/IfExpression.2.5|10961 (%ATN-EDGE-BLOCK10962 (PUSH |Expression|)10963 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10964 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)10965 (COND (ATN-PARSER::SUCCESS10966 (SETF *ATN-TERM* '|Expression|)10967 (LET ((|Expression1775| |Expression|))10968 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10969 (DESTRUCTURING-BIND10970 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10971 ATN-PARSER::RESULT-AND-INDEX10972 (WHEN ATN-PARSER::RESULT10973 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))10974 (|IfExpression/IfExpression.2.6| ATN-PARSER::RESULT-INDEX))10975 (SETF |Expression| |Expression1775|))))10976 (T10977 (SETF *ATN-TERM?* '|Expression|)10978 (|IfExpression/fail.3| ATN-PARSER::INDEX)))))))10979 (|IfExpression/IfExpression.2.6| (ATN-PARSER::INDEX)10980 (%ATN-NODE-BLOCK10981 |IfExpression/IfExpression.2.6|10982 (%ATN-EDGE-BLOCK10983 (ATN-PARSER::WORD SPOCQ.S:\,)10984 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)10985 (SETF *ATN-TERM* 'SPOCQ.S:\,)10986 (|IfExpression/IfExpression.2.7| (1+ ATN-PARSER::INDEX)))10987 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) (|IfExpression/fail.3| ATN-PARSER::INDEX))))))10988 (|IfExpression/IfExpression.2.7| (ATN-PARSER::INDEX)10989 (%ATN-NODE-BLOCK10990 |IfExpression/IfExpression.2.7|10991 (%ATN-EDGE-BLOCK10992 (PUSH |Expression|)10993 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10994 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)10995 (COND (ATN-PARSER::SUCCESS10996 (SETF *ATN-TERM* '|Expression|)10997 (LET ((|Expression1774| |Expression|))10998 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10999 (DESTRUCTURING-BIND11000 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11001 ATN-PARSER::RESULT-AND-INDEX11002 (WHEN ATN-PARSER::RESULT11003 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))11004 (|IfExpression/IfExpression.2.8| ATN-PARSER::RESULT-INDEX))11005 (SETF |Expression| |Expression1774|))))11006 (T11007 (SETF *ATN-TERM?* '|Expression|)11008 (|IfExpression/fail.3| ATN-PARSER::INDEX)))))))11009 (|IfExpression/IfExpression.2.8| (ATN-PARSER::INDEX)11010 (%ATN-NODE-BLOCK11011 |IfExpression/IfExpression.2.8|11012 (%ATN-EDGE-BLOCK11013 (ATN-PARSER::WORD SPOCQ.S:\,)11014 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)11015 (SETF *ATN-TERM* 'SPOCQ.S:\,)11016 (|IfExpression/IfExpression.2.9| (1+ ATN-PARSER::INDEX)))11017 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) (|IfExpression/fail.3| ATN-PARSER::INDEX))))))11018 (|IfExpression/IfExpression.2.9| (ATN-PARSER::INDEX)11019 (%ATN-NODE-BLOCK11020 |IfExpression/IfExpression.2.9|11021 (%ATN-EDGE-BLOCK11022 (PUSH |Expression|)11023 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11024 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)11025 (COND (ATN-PARSER::SUCCESS11026 (SETF *ATN-TERM* '|Expression|)11027 (LET ((|Expression1773| |Expression|))11028 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11029 (DESTRUCTURING-BIND11030 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11031 ATN-PARSER::RESULT-AND-INDEX11032 (WHEN ATN-PARSER::RESULT11033 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))11034 (|IfExpression/IfExpression.2.10| ATN-PARSER::RESULT-INDEX))11035 (SETF |Expression| |Expression1773|))))11036 (T11037 (SETF *ATN-TERM?* '|Expression|)11038 (|IfExpression/fail.3| ATN-PARSER::INDEX)))))))11039 (|IfExpression/start.1| (ATN-PARSER::INDEX)11040 (%ATN-NODE-BLOCK11041 |IfExpression/start.1|11042 (%ATN-EDGE-BLOCK11043 (ATN-PARSER::WORD SPOCQ.S:IF)11044 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:IF)11045 (SETF *ATN-TERM* 'SPOCQ.S:IF)11046 (|IfExpression/IfExpression.2.4| (1+ ATN-PARSER::INDEX)))11047 (T (SETF *ATN-TERM?* 'SPOCQ.S:IF) (|IfExpression/fail.3| ATN-PARSER::INDEX)))))))11048 (|IfExpression/start.1| ATN-PARSER::INDEX)11049 (SETF *ATN-NODE NIL)11050 NIL11051 (IF ATN-PARSER::ATN-STRUCTURE11052 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)11053 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))11054 (WARN "recursive grammar: ~s @ position ~s: ~s" '|IfExpression| ATN-PARSER::INDEX *ATN-STACK))))11055 (PROGN (DEFVAR |RegexExpression-INDEX|)11056 (DEFUN |RegexExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))11057 "{58} RegexExpression ::= 'REGEX' '(' Expression ',' Expression (','11058 Expression)? ')'11059 (|Expression|)"11060 (DECLARE (SPECIAL |RegexExpression-INDEX|))11061 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RegexExpression-INDEX| *ATN-LEVEL))11062 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))11063 (IF (< |RegexExpression-INDEX| ATN-PARSER::INDEX)11064 (LET ((|RegexExpression-INDEX| ATN-PARSER::INDEX)11065 (*ATN-LEVEL (1+ *ATN-LEVEL))11066 (*ATN-STACK (CONS '|RegexExpression| *ATN-STACK))11067 (ATN-PARSER::ATN-STRUCTURE NIL))11068 (DECLARE (SPECIAL |RegexExpression-INDEX|))11069 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))11070 (DECLARE (TYPE CONS *ATN-STACK))11071 (SYMBOL-MACROLET11072 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))11073 (%ATN-BLOCK |RegexExpression|11074 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)11075 (SETF *ATN-TERM* '|RegexExpression|)11076 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))11077 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)11078 (|RegexExpression.2| (ATN-PARSER::INDEX)11079 (%ATN-NODE-BLOCK11080 |RegexExpression.2|11081 (%ATN-EDGE-BLOCK11082 (POP |RegexExpression|)11083 (WHEN T11084 (SETF *ATN-TERM* '|RegexExpression|)11085 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"11086 '|RegexExpression|11087 ATN-PARSER::INDEX11088 (LIST '|Expression| |Expression|))11089 (LET ((ATN-PARSER::RESULT-STRUCTURE11090 (IF (EQ *ATN-REDUCE* T)11091 (|RegexExpression-Constructor| |Expression|)11092 (IF (EQ *ATN-REDUCE* 'CONS)11093 (CONS '|RegexExpression| (DELETE NIL (LIST |Expression|)))11094 '|RegexExpression|))))11095 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))11096 (|RegexExpression/fail.3| (ATN-PARSER::INDEX)11097 (%ATN-NODE-BLOCK |RegexExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))11098 (|RegexExpression/RegexExpression.2.4| (ATN-PARSER::INDEX)11099 (%ATN-NODE-BLOCK11100 |RegexExpression/RegexExpression.2.4|11101 (%ATN-EDGE-BLOCK11102 (ATN-PARSER::WORD SPOCQ.S:\()11103 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()11104 (SETF *ATN-TERM* 'SPOCQ.S:\()11105 (|RegexExpression/RegexExpression.2.5| (1+ ATN-PARSER::INDEX)))11106 (T11107 (SETF *ATN-TERM?* 'SPOCQ.S:\()11108 (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))11109 (|RegexExpression/RegexExpression.2.5| (ATN-PARSER::INDEX)11110 (%ATN-NODE-BLOCK11111 |RegexExpression/RegexExpression.2.5|11112 (%ATN-EDGE-BLOCK11113 (PUSH |Expression|)11114 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11115 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)11116 (COND (ATN-PARSER::SUCCESS11117 (SETF *ATN-TERM* '|Expression|)11118 (LET ((|Expression1778| |Expression|))11119 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11120 (DESTRUCTURING-BIND11121 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11122 ATN-PARSER::RESULT-AND-INDEX11123 (WHEN ATN-PARSER::RESULT11124 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))11125 (|RegexExpression/RegexExpression.2.6| ATN-PARSER::RESULT-INDEX))11126 (SETF |Expression| |Expression1778|))))11127 (T11128 (SETF *ATN-TERM?* '|Expression|)11129 (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))11130 (|RegexExpression/RegexExpression.2.6| (ATN-PARSER::INDEX)11131 (%ATN-NODE-BLOCK11132 |RegexExpression/RegexExpression.2.6|11133 (%ATN-EDGE-BLOCK11134 (ATN-PARSER::WORD SPOCQ.S:\,)11135 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)11136 (SETF *ATN-TERM* 'SPOCQ.S:\,)11137 (|RegexExpression/RegexExpression.2.7| (1+ ATN-PARSER::INDEX)))11138 (T11139 (SETF *ATN-TERM?* 'SPOCQ.S:\,)11140 (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))11141 (|RegexExpression/RegexExpression.2.7| (ATN-PARSER::INDEX)11142 (%ATN-NODE-BLOCK11143 |RegexExpression/RegexExpression.2.7|11144 (%ATN-EDGE-BLOCK11145 (PUSH |Expression|)11146 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11147 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)11148 (COND (ATN-PARSER::SUCCESS11149 (SETF *ATN-TERM* '|Expression|)11150 (LET ((|Expression1777| |Expression|))11151 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11152 (DESTRUCTURING-BIND11153 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11154 ATN-PARSER::RESULT-AND-INDEX11155 (WHEN ATN-PARSER::RESULT11156 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))11157 (|RegexExpression/RegexExpression.2.8| ATN-PARSER::RESULT-INDEX))11158 (SETF |Expression| |Expression1777|))))11159 (T11160 (SETF *ATN-TERM?* '|Expression|)11161 (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))11162 (|RegexExpression/RegexExpression.2.8| (ATN-PARSER::INDEX)11163 (%ATN-NODE-BLOCK11164 |RegexExpression/RegexExpression.2.8|11165 (%ATN-EDGE-BLOCK11166 (ATN-PARSER::JUMP |RegexExpression/RegexExpression/RegexExpression.2.9.10|)11167 (|RegexExpression/RegexExpression/RegexExpression.2.9.10| ATN-PARSER::INDEX))11168 (%ATN-EDGE-BLOCK11169 (ATN-PARSER::JUMP |RegexExpression/RegexExpression.2.9|)11170 (|RegexExpression/RegexExpression.2.9| ATN-PARSER::INDEX))))11171 (|RegexExpression/RegexExpression.2.9| (ATN-PARSER::INDEX)11172 (%ATN-NODE-BLOCK11173 |RegexExpression/RegexExpression.2.9|11174 (%ATN-EDGE-BLOCK11175 (ATN-PARSER::WORD SPOCQ.S:\))11176 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))11177 (SETF *ATN-TERM* 'SPOCQ.S:\))11178 (|RegexExpression.2| (1+ ATN-PARSER::INDEX)))11179 (T11180 (SETF *ATN-TERM?* 'SPOCQ.S:\))11181 (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))11182 (|RegexExpression/RegexExpression/RegexExpression.2.9.10| (ATN-PARSER::INDEX)11183 (%ATN-NODE-BLOCK11184 |RegexExpression/RegexExpression/RegexExpression.2.9.10|11185 (%ATN-EDGE-BLOCK11186 (ATN-PARSER::WORD SPOCQ.S:\,)11187 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)11188 (SETF *ATN-TERM* 'SPOCQ.S:\,)11189 (|RegexExpression/RegexExpression/RegexExpression.2.9.11|11190 (1+ ATN-PARSER::INDEX)))11191 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))11192 (|RegexExpression/RegexExpression/RegexExpression.2.9.11| (ATN-PARSER::INDEX)11193 (%ATN-NODE-BLOCK11194 |RegexExpression/RegexExpression/RegexExpression.2.9.11|11195 (%ATN-EDGE-BLOCK11196 (PUSH |Expression|)11197 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11198 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)11199 (COND (ATN-PARSER::SUCCESS11200 (SETF *ATN-TERM* '|Expression|)11201 (LET ((|Expression1776| |Expression|))11202 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11203 (DESTRUCTURING-BIND11204 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11205 ATN-PARSER::RESULT-AND-INDEX11206 (WHEN ATN-PARSER::RESULT11207 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))11208 (|RegexExpression/RegexExpression.2.9| ATN-PARSER::RESULT-INDEX))11209 (SETF |Expression| |Expression1776|))))11210 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))11211 (|RegexExpression/start.1| (ATN-PARSER::INDEX)11212 (%ATN-NODE-BLOCK11213 |RegexExpression/start.1|11214 (%ATN-EDGE-BLOCK11215 (ATN-PARSER::WORD SPOCQ.S:REGEX)11216 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:REGEX)11217 (SETF *ATN-TERM* 'SPOCQ.S:REGEX)11218 (|RegexExpression/RegexExpression.2.4| (1+ ATN-PARSER::INDEX)))11219 (T11220 (SETF *ATN-TERM?* 'SPOCQ.S:REGEX)11221 (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))11222 (|RegexExpression/start.1| ATN-PARSER::INDEX)11223 (SETF *ATN-NODE NIL)11224 NIL11225 (IF ATN-PARSER::ATN-STRUCTURE11226 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)11227 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))11228 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RegexExpression| ATN-PARSER::INDEX *ATN-STACK))))11229 (PROGN (DEFVAR |ExistsFunc-INDEX|)11230 (DEFUN |ExistsFunc| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))11231 "ExistsFunc ::= 'EXISTS' GroupGraphPattern11232 (|GroupGraphPattern|)"11233 (DECLARE (SPECIAL |ExistsFunc-INDEX|))11234 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ExistsFunc-INDEX| *ATN-LEVEL))11235 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))11236 (IF (< |ExistsFunc-INDEX| ATN-PARSER::INDEX)11237 (LET ((|ExistsFunc-INDEX| ATN-PARSER::INDEX)11238 (*ATN-LEVEL (1+ *ATN-LEVEL))11239 (*ATN-STACK (CONS '|ExistsFunc| *ATN-STACK))11240 (ATN-PARSER::ATN-STRUCTURE NIL))11241 (DECLARE (SPECIAL |ExistsFunc-INDEX|))11242 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))11243 (DECLARE (TYPE CONS *ATN-STACK))11244 (SYMBOL-MACROLET11245 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))11246 (%ATN-BLOCK |ExistsFunc|11247 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)11248 (SETF *ATN-TERM* '|ExistsFunc|)11249 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))11250 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)11251 (|ExistsFunc.2| (ATN-PARSER::INDEX)11252 (%ATN-NODE-BLOCK11253 |ExistsFunc.2|11254 (%ATN-EDGE-BLOCK11255 (POP |ExistsFunc|)11256 (WHEN T11257 (SETF *ATN-TERM* '|ExistsFunc|)11258 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"11259 '|ExistsFunc|11260 ATN-PARSER::INDEX11261 (LIST '|GroupGraphPattern| |GroupGraphPattern|))11262 (LET ((ATN-PARSER::RESULT-STRUCTURE11263 (IF (EQ *ATN-REDUCE* T)11264 (|ExistsFunc-Constructor| |GroupGraphPattern|)11265 (IF (EQ *ATN-REDUCE* 'CONS)11266 (CONS '|ExistsFunc| (DELETE NIL (LIST |GroupGraphPattern|)))11267 '|ExistsFunc|))))11268 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))11269 (|ExistsFunc/ExistsFunc.2.4| (ATN-PARSER::INDEX)11270 (%ATN-NODE-BLOCK11271 |ExistsFunc/ExistsFunc.2.4|11272 (%ATN-EDGE-BLOCK11273 (PUSH |GroupGraphPattern|)11274 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11275 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)11276 (COND (ATN-PARSER::SUCCESS11277 (SETF *ATN-TERM* '|GroupGraphPattern|)11278 (LET ((|GroupGraphPattern1778| |GroupGraphPattern|))11279 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11280 (DESTRUCTURING-BIND11281 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11282 ATN-PARSER::RESULT-AND-INDEX11283 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))11284 (|ExistsFunc.2| ATN-PARSER::RESULT-INDEX))11285 (SETF |GroupGraphPattern| |GroupGraphPattern1778|))))11286 (T11287 (SETF *ATN-TERM?* '|GroupGraphPattern|)11288 (|ExistsFunc/fail.3| ATN-PARSER::INDEX)))))))11289 (|ExistsFunc/fail.3| (ATN-PARSER::INDEX)11290 (%ATN-NODE-BLOCK |ExistsFunc/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))11291 (|ExistsFunc/start.1| (ATN-PARSER::INDEX)11292 (%ATN-NODE-BLOCK11293 |ExistsFunc/start.1|11294 (%ATN-EDGE-BLOCK11295 (ATN-PARSER::WORD SPOCQ.S:EXISTS)11296 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:EXISTS)11297 (SETF *ATN-TERM* 'SPOCQ.S:EXISTS)11298 (|ExistsFunc/ExistsFunc.2.4| (1+ ATN-PARSER::INDEX)))11299 (T11300 (SETF *ATN-TERM?* 'SPOCQ.S:EXISTS)11301 (|ExistsFunc/fail.3| ATN-PARSER::INDEX)))))))11302 (|ExistsFunc/start.1| ATN-PARSER::INDEX)11303 (SETF *ATN-NODE NIL)11304 NIL11305 (IF ATN-PARSER::ATN-STRUCTURE11306 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)11307 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))11308 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ExistsFunc| ATN-PARSER::INDEX *ATN-STACK))))11309 (PROGN (DEFVAR |NotExistsFunc-INDEX|)11310 (DEFUN |NotExistsFunc| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))11311 "NotExistsFunc ::= 'NOT' 'EXISTS' GroupGraphPattern11312 (|GroupGraphPattern|)"11313 (DECLARE (SPECIAL |NotExistsFunc-INDEX|))11314 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NotExistsFunc-INDEX| *ATN-LEVEL))11315 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))11316 (IF (< |NotExistsFunc-INDEX| ATN-PARSER::INDEX)11317 (LET ((|NotExistsFunc-INDEX| ATN-PARSER::INDEX)11318 (*ATN-LEVEL (1+ *ATN-LEVEL))11319 (*ATN-STACK (CONS '|NotExistsFunc| *ATN-STACK))11320 (ATN-PARSER::ATN-STRUCTURE NIL))11321 (DECLARE (SPECIAL |NotExistsFunc-INDEX|))11322 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))11323 (DECLARE (TYPE CONS *ATN-STACK))11324 (SYMBOL-MACROLET11325 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))11326 (%ATN-BLOCK |NotExistsFunc|11327 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)11328 (SETF *ATN-TERM* '|NotExistsFunc|)11329 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))11330 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)11331 (|NotExistsFunc.2| (ATN-PARSER::INDEX)11332 (%ATN-NODE-BLOCK11333 |NotExistsFunc.2|11334 (%ATN-EDGE-BLOCK11335 (POP |NotExistsFunc|)11336 (WHEN T11337 (SETF *ATN-TERM* '|NotExistsFunc|)11338 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"11339 '|NotExistsFunc|11340 ATN-PARSER::INDEX11341 (LIST '|GroupGraphPattern| |GroupGraphPattern|))11342 (LET ((ATN-PARSER::RESULT-STRUCTURE11343 (IF (EQ *ATN-REDUCE* T)11344 (|NotExistsFunc-Constructor| |GroupGraphPattern|)11345 (IF (EQ *ATN-REDUCE* 'CONS)11346 (CONS '|NotExistsFunc| (DELETE NIL (LIST |GroupGraphPattern|)))11347 '|NotExistsFunc|))))11348 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))11349 (|NotExistsFunc/fail.3| (ATN-PARSER::INDEX)11350 (%ATN-NODE-BLOCK |NotExistsFunc/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))11351 (|NotExistsFunc/NotExistsFunc.2.4| (ATN-PARSER::INDEX)11352 (%ATN-NODE-BLOCK11353 |NotExistsFunc/NotExistsFunc.2.4|11354 (%ATN-EDGE-BLOCK11355 (ATN-PARSER::WORD SPOCQ.S:EXISTS)11356 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:EXISTS)11357 (SETF *ATN-TERM* 'SPOCQ.S:EXISTS)11358 (|NotExistsFunc/NotExistsFunc.2.5| (1+ ATN-PARSER::INDEX)))11359 (T11360 (SETF *ATN-TERM?* 'SPOCQ.S:EXISTS)11361 (|NotExistsFunc/fail.3| ATN-PARSER::INDEX))))))11362 (|NotExistsFunc/NotExistsFunc.2.5| (ATN-PARSER::INDEX)11363 (%ATN-NODE-BLOCK11364 |NotExistsFunc/NotExistsFunc.2.5|11365 (%ATN-EDGE-BLOCK11366 (PUSH |GroupGraphPattern|)11367 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11368 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)11369 (COND (ATN-PARSER::SUCCESS11370 (SETF *ATN-TERM* '|GroupGraphPattern|)11371 (LET ((|GroupGraphPattern1779| |GroupGraphPattern|))11372 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11373 (DESTRUCTURING-BIND11374 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11375 ATN-PARSER::RESULT-AND-INDEX11376 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))11377 (|NotExistsFunc.2| ATN-PARSER::RESULT-INDEX))11378 (SETF |GroupGraphPattern| |GroupGraphPattern1779|))))11379 (T11380 (SETF *ATN-TERM?* '|GroupGraphPattern|)11381 (|NotExistsFunc/fail.3| ATN-PARSER::INDEX)))))))11382 (|NotExistsFunc/start.1| (ATN-PARSER::INDEX)11383 (%ATN-NODE-BLOCK11384 |NotExistsFunc/start.1|11385 (%ATN-EDGE-BLOCK11386 (ATN-PARSER::WORD SPOCQ.S:NOT)11387 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:NOT)11388 (SETF *ATN-TERM* 'SPOCQ.S:NOT)11389 (|NotExistsFunc/NotExistsFunc.2.4| (1+ ATN-PARSER::INDEX)))11390 (T11391 (SETF *ATN-TERM?* 'SPOCQ.S:NOT)11392 (|NotExistsFunc/fail.3| ATN-PARSER::INDEX)))))))11393 (|NotExistsFunc/start.1| ATN-PARSER::INDEX)11394 (SETF *ATN-NODE NIL)11395 NIL11396 (IF ATN-PARSER::ATN-STRUCTURE11397 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)11398 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))11399 (WARN "recursive grammar: ~s @ position ~s: ~s" '|NotExistsFunc| ATN-PARSER::INDEX *ATN-STACK))))11400 (PROGN (DEFVAR |BuiltinListCall-INDEX|)11401 (DEFUN |BuiltinListCall| (ATN-PARSER::INDEX &AUX (|BuiltinListOperator| NIL) (|ExpressionList| NIL))11402 "BuiltinListCall ::= BuiltinListOperator ExpressionList11403 (|BuiltinListOperator| |ExpressionList|)"11404 (DECLARE (SPECIAL |BuiltinListCall-INDEX|))11405 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinListCall-INDEX| *ATN-LEVEL))11406 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))11407 (IF (< |BuiltinListCall-INDEX| ATN-PARSER::INDEX)11408 (LET ((|BuiltinListCall-INDEX| ATN-PARSER::INDEX)11409 (*ATN-LEVEL (1+ *ATN-LEVEL))11410 (*ATN-STACK (CONS '|BuiltinListCall| *ATN-STACK))11411 (ATN-PARSER::ATN-STRUCTURE NIL))11412 (DECLARE (SPECIAL |BuiltinListCall-INDEX|))11413 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))11414 (DECLARE (TYPE CONS *ATN-STACK))11415 (SYMBOL-MACROLET11416 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))11417 (%ATN-BLOCK |BuiltinListCall|11418 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)11419 (SETF *ATN-TERM* '|BuiltinListCall|)11420 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))11421 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)11422 (|BuiltinListCall.2| (ATN-PARSER::INDEX)11423 (%ATN-NODE-BLOCK11424 |BuiltinListCall.2|11425 (%ATN-EDGE-BLOCK11426 (POP |BuiltinListCall|)11427 (WHEN T11428 (SETF *ATN-TERM* '|BuiltinListCall|)11429 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"11430 '|BuiltinListCall|11431 ATN-PARSER::INDEX11432 (LIST '|BuiltinListOperator|11433 |BuiltinListOperator|11434 '|ExpressionList|11435 |ExpressionList|))11436 (LET ((ATN-PARSER::RESULT-STRUCTURE11437 (IF (EQ *ATN-REDUCE* T)11438 (|BuiltinListCall-Constructor| |BuiltinListOperator| |ExpressionList|)11439 (IF (EQ *ATN-REDUCE* 'CONS)11440 (CONS '|BuiltinListCall|11441 (DELETE NIL (LIST |BuiltinListOperator| |ExpressionList|)))11442 '|BuiltinListCall|))))11443 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))11444 (|BuiltinListCall/BuiltinListCall.2.4| (ATN-PARSER::INDEX)11445 (%ATN-NODE-BLOCK11446 |BuiltinListCall/BuiltinListCall.2.4|11447 (%ATN-EDGE-BLOCK11448 (PUSH |ExpressionList|)11449 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11450 (ATN-PARSE-SUBSTRUCTURE* '|ExpressionList| ATN-PARSER::INDEX)11451 (COND (ATN-PARSER::SUCCESS11452 (SETF *ATN-TERM* '|ExpressionList|)11453 (LET ((|ExpressionList1779| |ExpressionList|))11454 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11455 (DESTRUCTURING-BIND11456 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11457 ATN-PARSER::RESULT-AND-INDEX11458 (WHEN ATN-PARSER::RESULT (SETF |ExpressionList| ATN-PARSER::RESULT))11459 (|BuiltinListCall.2| ATN-PARSER::RESULT-INDEX))11460 (SETF |ExpressionList| |ExpressionList1779|))))11461 (T11462 (SETF *ATN-TERM?* '|ExpressionList|)11463 (|BuiltinListCall/fail.3| ATN-PARSER::INDEX)))))))11464 (|BuiltinListCall/fail.3| (ATN-PARSER::INDEX)11465 (%ATN-NODE-BLOCK |BuiltinListCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))11466 (|BuiltinListCall/start.1| (ATN-PARSER::INDEX)11467 (%ATN-NODE-BLOCK11468 |BuiltinListCall/start.1|11469 (%ATN-EDGE-BLOCK11470 (ATN-PARSER::CAT |BuiltinListOperator|)11471 (COND ((|IS-BuiltinListOperator| ATN-PARSER::|item|)11472 (SETF *ATN-TERM* '|BuiltinListOperator|)11473 (SETF |BuiltinListOperator|11474 (IF (EQ *ATN-REDUCE* T)11475 (ATN-REDUCE-ITEM11476 #'|BuiltinListOperator-Constructor|11477 ATN-PARSER::|item|)11478 (IF (EQ *ATN-REDUCE* 'CONS)11479 (LIST '|BuiltinListOperator| ATN-PARSER::|item|)11480 '|BuiltinListOperator|)))11481 (|BuiltinListCall/BuiltinListCall.2.4| (1+ ATN-PARSER::INDEX)))11482 (T11483 (SETF *ATN-TERM* '|BuiltinListOperator|)11484 (|BuiltinListCall/fail.3| ATN-PARSER::INDEX)))))))11485 (|BuiltinListCall/start.1| ATN-PARSER::INDEX)11486 (SETF *ATN-NODE NIL)11487 NIL11488 (IF ATN-PARSER::ATN-STRUCTURE11489 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)11490 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))11491 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinListCall| ATN-PARSER::INDEX *ATN-STACK))))11492 (PROGN (DEFVAR |IRIrefOrFunction-INDEX|)11493 (DEFUN |IRIrefOrFunction| (ATN-PARSER::INDEX &AUX (|ArgList| NIL) (|IRIref| NIL))11494 "{59} IRIrefOrFunction ::= IRIref ArgList?11495 (|ArgList| |IRIref|)"11496 (DECLARE (SPECIAL |IRIrefOrFunction-INDEX|))11497 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IRIrefOrFunction-INDEX| *ATN-LEVEL))11498 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))11499 (IF (< |IRIrefOrFunction-INDEX| ATN-PARSER::INDEX)11500 (LET ((|IRIrefOrFunction-INDEX| ATN-PARSER::INDEX)11501 (*ATN-LEVEL (1+ *ATN-LEVEL))11502 (*ATN-STACK (CONS '|IRIrefOrFunction| *ATN-STACK))11503 (ATN-PARSER::ATN-STRUCTURE NIL))11504 (DECLARE (SPECIAL |IRIrefOrFunction-INDEX|))11505 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))11506 (DECLARE (TYPE CONS *ATN-STACK))11507 (SYMBOL-MACROLET11508 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))11509 (%ATN-BLOCK |IRIrefOrFunction|11510 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)11511 (SETF *ATN-TERM* '|IRIrefOrFunction|)11512 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))11513 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)11514 (|IRIrefOrFunction.2| (ATN-PARSER::INDEX)11515 (%ATN-NODE-BLOCK11516 |IRIrefOrFunction.2|11517 (%ATN-EDGE-BLOCK11518 (POP |IRIrefOrFunction|)11519 (WHEN T11520 (SETF *ATN-TERM* '|IRIrefOrFunction|)11521 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"11522 '|IRIrefOrFunction|11523 ATN-PARSER::INDEX11524 (LIST '|ArgList| |ArgList| '|IRIref| |IRIref|))11525 (LET ((ATN-PARSER::RESULT-STRUCTURE11526 (IF (EQ *ATN-REDUCE* T)11527 (|IRIrefOrFunction-Constructor| |ArgList| |IRIref|)11528 (IF (EQ *ATN-REDUCE* 'CONS)11529 (CONS '|IRIrefOrFunction| (DELETE NIL (LIST |ArgList| |IRIref|)))11530 '|IRIrefOrFunction|))))11531 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))11532 (|IRIrefOrFunction/fail.3| (ATN-PARSER::INDEX)11533 (%ATN-NODE-BLOCK |IRIrefOrFunction/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))11534 (|IRIrefOrFunction/IRIrefOrFunction.2.4| (ATN-PARSER::INDEX)11535 (%ATN-NODE-BLOCK11536 |IRIrefOrFunction/IRIrefOrFunction.2.4|11537 (%ATN-EDGE-BLOCK11538 (PUSH |ArgList|)11539 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11540 (ATN-PARSE-SUBSTRUCTURE* '|ArgList| ATN-PARSER::INDEX)11541 (COND (ATN-PARSER::SUCCESS11542 (SETF *ATN-TERM* '|ArgList|)11543 (LET ((|ArgList1779| |ArgList|))11544 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11545 (DESTRUCTURING-BIND11546 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11547 ATN-PARSER::RESULT-AND-INDEX11548 (WHEN ATN-PARSER::RESULT (SETF |ArgList| ATN-PARSER::RESULT))11549 (|IRIrefOrFunction.2| ATN-PARSER::RESULT-INDEX))11550 (SETF |ArgList| |ArgList1779|))))11551 (T (SETF *ATN-TERM?* '|ArgList|) (|IRIrefOrFunction.2| ATN-PARSER::INDEX)))))))11552 (|IRIrefOrFunction/start.1| (ATN-PARSER::INDEX)11553 (%ATN-NODE-BLOCK11554 |IRIrefOrFunction/start.1|11555 (%ATN-EDGE-BLOCK11556 (PUSH |IRIref|)11557 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11558 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)11559 (COND (ATN-PARSER::SUCCESS11560 (SETF *ATN-TERM* '|IRIref|)11561 (LET ((|IRIref1779| |IRIref|))11562 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11563 (DESTRUCTURING-BIND11564 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11565 ATN-PARSER::RESULT-AND-INDEX11566 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))11567 (|IRIrefOrFunction/IRIrefOrFunction.2.4| ATN-PARSER::RESULT-INDEX))11568 (SETF |IRIref| |IRIref1779|))))11569 (T11570 (SETF *ATN-TERM?* '|IRIref|)11571 (|IRIrefOrFunction/fail.3| ATN-PARSER::INDEX))))))))11572 (|IRIrefOrFunction/start.1| ATN-PARSER::INDEX)11573 (SETF *ATN-NODE NIL)11574 NIL11575 (IF ATN-PARSER::ATN-STRUCTURE11576 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)11577 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))11578 (WARN "recursive grammar: ~s @ position ~s: ~s" '|IRIrefOrFunction| ATN-PARSER::INDEX *ATN-STACK))))11579 (PROGN (DEFVAR |RDFLiteral-INDEX|)11580 (DEFUN |RDFLiteral| (ATN-PARSER::INDEX &AUX (|IRIref| NIL) (LANGTAG NIL) (|String| NIL))11581 "{60} RDFLiteral ::= String ((LANGTAG | ('^^' IRIref)))?11582 (|IRIref| LANGTAG |String|)"11583 (DECLARE (SPECIAL |RDFLiteral-INDEX|))11584 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RDFLiteral-INDEX| *ATN-LEVEL))11585 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))11586 (IF (< |RDFLiteral-INDEX| ATN-PARSER::INDEX)11587 (LET ((|RDFLiteral-INDEX| ATN-PARSER::INDEX)11588 (*ATN-LEVEL (1+ *ATN-LEVEL))11589 (*ATN-STACK (CONS '|RDFLiteral| *ATN-STACK))11590 (ATN-PARSER::ATN-STRUCTURE NIL))11591 (DECLARE (SPECIAL |RDFLiteral-INDEX|))11592 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))11593 (DECLARE (TYPE CONS *ATN-STACK))11594 (SYMBOL-MACROLET11595 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))11596 (%ATN-BLOCK |RDFLiteral|11597 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)11598 (SETF *ATN-TERM* '|RDFLiteral|)11599 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))11600 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)11601 (|RDFLiteral.2| (ATN-PARSER::INDEX)11602 (%ATN-NODE-BLOCK11603 |RDFLiteral.2|11604 (%ATN-EDGE-BLOCK11605 (POP |RDFLiteral|)11606 (WHEN T11607 (SETF *ATN-TERM* '|RDFLiteral|)11608 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"11609 '|RDFLiteral|11610 ATN-PARSER::INDEX11611 (LIST '|IRIref| |IRIref| 'LANGTAG LANGTAG '|String| |String|))11612 (LET ((ATN-PARSER::RESULT-STRUCTURE11613 (IF (EQ *ATN-REDUCE* T)11614 (|RDFLiteral-Constructor| |IRIref| LANGTAG |String|)11615 (IF (EQ *ATN-REDUCE* 'CONS)11616 (CONS '|RDFLiteral| (DELETE NIL (LIST |IRIref| LANGTAG |String|)))11617 '|RDFLiteral|))))11618 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))11619 (|RDFLiteral/fail.3| (ATN-PARSER::INDEX)11620 (%ATN-NODE-BLOCK |RDFLiteral/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))11621 (|RDFLiteral/RDFLiteral.2.4| (ATN-PARSER::INDEX)11622 (%ATN-NODE-BLOCK11623 |RDFLiteral/RDFLiteral.2.4|11624 (%ATN-EDGE-BLOCK11625 OR11626 (PROGN (%ATN-EDGE-BLOCK11627 (TEST LANGTAG)11628 (COND ((IS-LANGTAG ATN-PARSER::|item|)11629 (SETF *ATN-TERM* 'LANGTAG)11630 (SETF LANGTAG11631 (IF (EQ *ATN-REDUCE* T)11632 (ATN-REDUCE-ITEM #'|LANGTAG-Constructor| ATN-PARSER::|item|)11633 (IF (EQ *ATN-REDUCE* 'CONS)11634 (LIST 'LANGTAG ATN-PARSER::|item|)11635 'LANGTAG)))11636 (|RDFLiteral.2| (1+ ATN-PARSER::INDEX)))11637 (T (SETF *ATN-TERM?* 'LANGTAG) NIL)))11638 (%ATN-EDGE-BLOCK11639 (ATN-PARSER::JUMP |RDFLiteral/RDFLiteral.2.5|)11640 (|RDFLiteral/RDFLiteral.2.5| ATN-PARSER::INDEX))11641 (|RDFLiteral.2| ATN-PARSER::INDEX)))))11642 (|RDFLiteral/RDFLiteral.2.5| (ATN-PARSER::INDEX)11643 (%ATN-NODE-BLOCK11644 |RDFLiteral/RDFLiteral.2.5|11645 (%ATN-EDGE-BLOCK11646 (ATN-PARSER::WORD SPOCQ.S:^^)11647 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:^^)11648 (SETF *ATN-TERM* 'SPOCQ.S:^^)11649 (|RDFLiteral/RDFLiteral.2.6| (1+ ATN-PARSER::INDEX)))11650 (T (SETF *ATN-TERM?* 'SPOCQ.S:^^) NIL)))))11651 (|RDFLiteral/RDFLiteral.2.6| (ATN-PARSER::INDEX)11652 (%ATN-NODE-BLOCK11653 |RDFLiteral/RDFLiteral.2.6|11654 (%ATN-EDGE-BLOCK11655 (PUSH |IRIref|)11656 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11657 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)11658 (COND (ATN-PARSER::SUCCESS11659 (SETF *ATN-TERM* '|IRIref|)11660 (LET ((|IRIref1780| |IRIref|))11661 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11662 (DESTRUCTURING-BIND11663 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11664 ATN-PARSER::RESULT-AND-INDEX11665 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))11666 (|RDFLiteral.2| ATN-PARSER::RESULT-INDEX))11667 (SETF |IRIref| |IRIref1780|))))11668 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))))11669 (|RDFLiteral/start.1| (ATN-PARSER::INDEX)11670 (%ATN-NODE-BLOCK11671 |RDFLiteral/start.1|11672 (%ATN-EDGE-BLOCK11673 (ATN-PARSER::CAT |String|)11674 (COND ((|IS-String| ATN-PARSER::|item|)11675 (SETF *ATN-TERM* '|String|)11676 (SETF |String|11677 (IF (EQ *ATN-REDUCE* T)11678 (ATN-REDUCE-ITEM #'|String-Constructor| ATN-PARSER::|item|)11679 (IF (EQ *ATN-REDUCE* 'CONS)11680 (LIST '|String| ATN-PARSER::|item|)11681 '|String|)))11682 (|RDFLiteral/RDFLiteral.2.4| (1+ ATN-PARSER::INDEX)))11683 (T (SETF *ATN-TERM* '|String|) (|RDFLiteral/fail.3| ATN-PARSER::INDEX)))))))11684 (|RDFLiteral/start.1| ATN-PARSER::INDEX)11685 (SETF *ATN-NODE NIL)11686 NIL11687 (IF ATN-PARSER::ATN-STRUCTURE11688 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)11689 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))11690 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RDFLiteral| ATN-PARSER::INDEX *ATN-STACK))))11691 (PROGN (DEFVAR |IRIref-INDEX|)11692 (DEFUN |IRIref| (ATN-PARSER::INDEX &AUX (IRI_REF NIL) (|PrefixedName| NIL))11693 "{67} IRIref ::= (IRI_REF | PrefixedName)11694 (IRI_REF |PrefixedName|)"11695 (DECLARE (SPECIAL |IRIref-INDEX|))11696 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IRIref-INDEX| *ATN-LEVEL))11697 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))11698 (IF (< |IRIref-INDEX| ATN-PARSER::INDEX)11699 (LET ((|IRIref-INDEX| ATN-PARSER::INDEX)11700 (*ATN-LEVEL (1+ *ATN-LEVEL))11701 (*ATN-STACK (CONS '|IRIref| *ATN-STACK))11702 (ATN-PARSER::ATN-STRUCTURE NIL))11703 (DECLARE (SPECIAL |IRIref-INDEX|))11704 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))11705 (DECLARE (TYPE CONS *ATN-STACK))11706 (SYMBOL-MACROLET11707 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))11708 (%ATN-BLOCK |IRIref|11709 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)11710 (SETF *ATN-TERM* '|IRIref|)11711 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))11712 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)11713 (|IRIref.2| (ATN-PARSER::INDEX)11714 (%ATN-NODE-BLOCK11715 |IRIref.2|11716 (%ATN-EDGE-BLOCK11717 (POP |IRIref|)11718 (WHEN T11719 (SETF *ATN-TERM* '|IRIref|)11720 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"11721 '|IRIref|11722 ATN-PARSER::INDEX11723 (LIST 'IRI_REF IRI_REF '|PrefixedName| |PrefixedName|))11724 (LET ((ATN-PARSER::RESULT-STRUCTURE11725 (IF (EQ *ATN-REDUCE* T)11726 (|IRIref-Constructor| IRI_REF |PrefixedName|)11727 (IF (EQ *ATN-REDUCE* 'CONS)11728 (CONS '|IRIref| (DELETE NIL (LIST IRI_REF |PrefixedName|)))11729 '|IRIref|))))11730 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))11731 (|IRIref/fail.3| (ATN-PARSER::INDEX)11732 (%ATN-NODE-BLOCK |IRIref/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))11733 (|IRIref/start.1| (ATN-PARSER::INDEX)11734 (%ATN-NODE-BLOCK11735 |IRIref/start.1|11736 (%ATN-EDGE-BLOCK11737 OR11738 (PROGN (%ATN-EDGE-BLOCK11739 (PUSH IRI_REF)11740 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11741 (ATN-PARSE-SUBSTRUCTURE* 'IRI_REF ATN-PARSER::INDEX)11742 (COND (ATN-PARSER::SUCCESS11743 (SETF *ATN-TERM* 'IRI_REF)11744 (LET ((IRI_REF1780 IRI_REF))11745 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11746 (DESTRUCTURING-BIND11747 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11748 ATN-PARSER::RESULT-AND-INDEX11749 (WHEN ATN-PARSER::RESULT (SETF IRI_REF ATN-PARSER::RESULT))11750 (|IRIref.2| ATN-PARSER::RESULT-INDEX))11751 (SETF IRI_REF IRI_REF1780))))11752 (T (SETF *ATN-TERM?* 'IRI_REF) NIL))))11753 (%ATN-EDGE-BLOCK11754 (ATN-PARSER::CAT |PrefixedName|)11755 (COND ((|IS-PrefixedName| ATN-PARSER::|item|)11756 (SETF *ATN-TERM* '|PrefixedName|)11757 (SETF |PrefixedName|11758 (IF (EQ *ATN-REDUCE* T)11759 (ATN-REDUCE-ITEM11760 #'|PrefixedName-Constructor|11761 ATN-PARSER::|item|)11762 (IF (EQ *ATN-REDUCE* 'CONS)11763 (LIST '|PrefixedName| ATN-PARSER::|item|)11764 '|PrefixedName|)))11765 (|IRIref.2| (1+ ATN-PARSER::INDEX)))11766 (T (SETF *ATN-TERM* '|PrefixedName|) NIL)))11767 (|IRIref/fail.3| ATN-PARSER::INDEX))))))11768 (|IRIref/start.1| ATN-PARSER::INDEX)11769 (SETF *ATN-NODE NIL)11770 NIL11771 (IF ATN-PARSER::ATN-STRUCTURE11772 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)11773 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))11774 (WARN "recursive grammar: ~s @ position ~s: ~s" '|IRIref| ATN-PARSER::INDEX *ATN-STACK))))11775 (PROGN (DEFVAR |BlankNode-INDEX|)11776 (DEFUN |BlankNode| (ATN-PARSER::INDEX &AUX (ANON NIL) (BLANK_NODE_LABEL NIL))11777 "{69} BlankNode ::= (BLANK_NODE_LABEL | ANON)11778 (ANON BLANK_NODE_LABEL)"11779 (DECLARE (SPECIAL |BlankNode-INDEX|))11780 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNode-INDEX| *ATN-LEVEL))11781 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))11782 (IF (< |BlankNode-INDEX| ATN-PARSER::INDEX)11783 (LET ((|BlankNode-INDEX| ATN-PARSER::INDEX)11784 (*ATN-LEVEL (1+ *ATN-LEVEL))11785 (*ATN-STACK (CONS '|BlankNode| *ATN-STACK))11786 (ATN-PARSER::ATN-STRUCTURE NIL))11787 (DECLARE (SPECIAL |BlankNode-INDEX|))11788 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))11789 (DECLARE (TYPE CONS *ATN-STACK))11790 (SYMBOL-MACROLET11791 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))11792 (%ATN-BLOCK |BlankNode|11793 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)11794 (SETF *ATN-TERM* '|BlankNode|)11795 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))11796 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)11797 (|BlankNode.2| (ATN-PARSER::INDEX)11798 (%ATN-NODE-BLOCK11799 |BlankNode.2|11800 (%ATN-EDGE-BLOCK11801 (POP |BlankNode|)11802 (WHEN T11803 (SETF *ATN-TERM* '|BlankNode|)11804 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"11805 '|BlankNode|11806 ATN-PARSER::INDEX11807 (LIST 'ANON ANON 'BLANK_NODE_LABEL BLANK_NODE_LABEL))11808 (LET ((ATN-PARSER::RESULT-STRUCTURE11809 (IF (EQ *ATN-REDUCE* T)11810 (|BlankNode-Constructor| ANON BLANK_NODE_LABEL)11811 (IF (EQ *ATN-REDUCE* 'CONS)11812 (CONS '|BlankNode| (DELETE NIL (LIST ANON BLANK_NODE_LABEL)))11813 '|BlankNode|))))11814 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))11815 (|BlankNode/fail.3| (ATN-PARSER::INDEX)11816 (%ATN-NODE-BLOCK |BlankNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))11817 (|BlankNode/start.1| (ATN-PARSER::INDEX)11818 (%ATN-NODE-BLOCK11819 |BlankNode/start.1|11820 (%ATN-EDGE-BLOCK11821 OR11822 (PROGN (%ATN-EDGE-BLOCK11823 (PUSH BLANK_NODE_LABEL)11824 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11825 (ATN-PARSE-SUBSTRUCTURE* 'BLANK_NODE_LABEL ATN-PARSER::INDEX)11826 (COND (ATN-PARSER::SUCCESS11827 (SETF *ATN-TERM* 'BLANK_NODE_LABEL)11828 (LET ((BLANK_NODE_LABEL1780 BLANK_NODE_LABEL))11829 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11830 (DESTRUCTURING-BIND11831 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11832 ATN-PARSER::RESULT-AND-INDEX11833 (WHEN ATN-PARSER::RESULT11834 (SETF BLANK_NODE_LABEL ATN-PARSER::RESULT))11835 (|BlankNode.2| ATN-PARSER::RESULT-INDEX))11836 (SETF BLANK_NODE_LABEL BLANK_NODE_LABEL1780))))11837 (T (SETF *ATN-TERM?* 'BLANK_NODE_LABEL) NIL))))11838 (%ATN-EDGE-BLOCK11839 (PUSH ANON)11840 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11841 (ATN-PARSE-SUBSTRUCTURE* 'ANON ATN-PARSER::INDEX)11842 (COND (ATN-PARSER::SUCCESS11843 (SETF *ATN-TERM* 'ANON)11844 (LET ((ANON1780 ANON))11845 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11846 (DESTRUCTURING-BIND11847 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11848 ATN-PARSER::RESULT-AND-INDEX11849 (WHEN ATN-PARSER::RESULT (SETF ANON ATN-PARSER::RESULT))11850 (|BlankNode.2| ATN-PARSER::RESULT-INDEX))11851 (SETF ANON ANON1780))))11852 (T (SETF *ATN-TERM?* 'ANON) NIL))))11853 (|BlankNode/fail.3| ATN-PARSER::INDEX))))))11854 (|BlankNode/start.1| ATN-PARSER::INDEX)11855 (SETF *ATN-NODE NIL)11856 NIL11857 (IF ATN-PARSER::ATN-STRUCTURE11858 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)11859 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))11860 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNode| ATN-PARSER::INDEX *ATN-STACK))))11861 (PROGN (DEFVAR IRI_REF-INDEX)11862 (DEFUN IRI_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))11863 "{70} IRI_REF ::= '<' IRI_NAMESTRING? '>'11864 (IRI_NAMESTRING)"11865 (DECLARE (SPECIAL IRI_REF-INDEX))11866 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX IRI_REF-INDEX *ATN-LEVEL))11867 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))11868 (IF (< IRI_REF-INDEX ATN-PARSER::INDEX)11869 (LET ((IRI_REF-INDEX ATN-PARSER::INDEX)11870 (*ATN-LEVEL (1+ *ATN-LEVEL))11871 (*ATN-STACK (CONS 'IRI_REF *ATN-STACK))11872 (ATN-PARSER::ATN-STRUCTURE NIL))11873 (DECLARE (SPECIAL IRI_REF-INDEX))11874 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))11875 (DECLARE (TYPE CONS *ATN-STACK))11876 (SYMBOL-MACROLET11877 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))11878 (%ATN-BLOCK IRI_REF11879 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)11880 (SETF *ATN-TERM* 'IRI_REF)11881 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))11882 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)11883 (IRI_REF.2 (ATN-PARSER::INDEX)11884 (%ATN-NODE-BLOCK11885 IRI_REF.211886 (%ATN-EDGE-BLOCK11887 (POP IRI_REF)11888 (WHEN T11889 (SETF *ATN-TERM* 'IRI_REF)11890 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"11891 'IRI_REF11892 ATN-PARSER::INDEX11893 (LIST 'IRI_NAMESTRING IRI_NAMESTRING))11894 (LET ((ATN-PARSER::RESULT-STRUCTURE11895 (IF (EQ *ATN-REDUCE* T)11896 (|IRI_REF-Constructor| IRI_NAMESTRING)11897 (IF (EQ *ATN-REDUCE* 'CONS)11898 (CONS 'IRI_REF (DELETE NIL (LIST IRI_NAMESTRING)))11899 'IRI_REF))))11900 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))11901 (|IRI_REF/fail.3| (ATN-PARSER::INDEX)11902 (%ATN-NODE-BLOCK |IRI_REF/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))11903 (IRI_REF/IRI_REF.2.4 (ATN-PARSER::INDEX)11904 (%ATN-NODE-BLOCK11905 IRI_REF/IRI_REF.2.411906 (%ATN-EDGE-BLOCK11907 (TEST IRI_NAMESTRING)11908 (COND ((IS-IRI_NAMESTRING ATN-PARSER::|item|)11909 (SETF *ATN-TERM* 'IRI_NAMESTRING)11910 (SETF IRI_NAMESTRING11911 (IF (EQ *ATN-REDUCE* T)11912 (ATN-REDUCE-ITEM #'|IRI_NAMESTRING-Constructor| ATN-PARSER::|item|)11913 (IF (EQ *ATN-REDUCE* 'CONS)11914 (LIST 'IRI_NAMESTRING ATN-PARSER::|item|)11915 'IRI_NAMESTRING)))11916 (IRI_REF/IRI_REF.2.5 (1+ ATN-PARSER::INDEX)))11917 (T11918 (SETF *ATN-TERM?* 'IRI_NAMESTRING)11919 (IRI_REF/IRI_REF.2.5 ATN-PARSER::INDEX))))))11920 (IRI_REF/IRI_REF.2.5 (ATN-PARSER::INDEX)11921 (%ATN-NODE-BLOCK11922 IRI_REF/IRI_REF.2.511923 (%ATN-EDGE-BLOCK11924 (ATN-PARSER::WORD SPOCQ.S:>)11925 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:>)11926 (SETF *ATN-TERM* 'SPOCQ.S:>)11927 (IRI_REF.2 (1+ ATN-PARSER::INDEX)))11928 (T (SETF *ATN-TERM?* 'SPOCQ.S:>) (|IRI_REF/fail.3| ATN-PARSER::INDEX))))))11929 (|IRI_REF/start.1| (ATN-PARSER::INDEX)11930 (%ATN-NODE-BLOCK11931 |IRI_REF/start.1|11932 (%ATN-EDGE-BLOCK11933 (ATN-PARSER::WORD SPOCQ.S:<)11934 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:<)11935 (SETF *ATN-TERM* 'SPOCQ.S:<)11936 (IRI_REF/IRI_REF.2.4 (1+ ATN-PARSER::INDEX)))11937 (T (SETF *ATN-TERM?* 'SPOCQ.S:<) (|IRI_REF/fail.3| ATN-PARSER::INDEX)))))))11938 (|IRI_REF/start.1| ATN-PARSER::INDEX)11939 (SETF *ATN-NODE NIL)11940 NIL11941 (IF ATN-PARSER::ATN-STRUCTURE11942 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)11943 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))11944 (WARN "recursive grammar: ~s @ position ~s: ~s" 'IRI_REF ATN-PARSER::INDEX *ATN-STACK))))11945 (PROGN (DEFVAR NAMESPACE_REF-INDEX)11946 (DEFUN NAMESPACE_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))11947 "{70} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'11948 (IRI_NAMESTRING)"11949 (DECLARE (SPECIAL NAMESPACE_REF-INDEX))11950 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX NAMESPACE_REF-INDEX *ATN-LEVEL))11951 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))11952 (IF (< NAMESPACE_REF-INDEX ATN-PARSER::INDEX)11953 (LET ((NAMESPACE_REF-INDEX ATN-PARSER::INDEX)11954 (*ATN-LEVEL (1+ *ATN-LEVEL))11955 (*ATN-STACK (CONS 'NAMESPACE_REF *ATN-STACK))11956 (ATN-PARSER::ATN-STRUCTURE NIL))11957 (DECLARE (SPECIAL NAMESPACE_REF-INDEX))11958 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))11959 (DECLARE (TYPE CONS *ATN-STACK))11960 (SYMBOL-MACROLET11961 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))11962 (%ATN-BLOCK NAMESPACE_REF11963 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)11964 (SETF *ATN-TERM* 'NAMESPACE_REF)11965 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))11966 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)11967 (NAMESPACE_REF.2 (ATN-PARSER::INDEX)11968 (%ATN-NODE-BLOCK11969 NAMESPACE_REF.211970 (%ATN-EDGE-BLOCK11971 (POP NAMESPACE_REF)11972 (WHEN T11973 (SETF *ATN-TERM* 'NAMESPACE_REF)11974 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"11975 'NAMESPACE_REF11976 ATN-PARSER::INDEX11977 (LIST 'IRI_NAMESTRING IRI_NAMESTRING))11978 (LET ((ATN-PARSER::RESULT-STRUCTURE11979 (IF (EQ *ATN-REDUCE* T)11980 (|NAMESPACE_REF-Constructor| IRI_NAMESTRING)11981 (IF (EQ *ATN-REDUCE* 'CONS)11982 (CONS 'NAMESPACE_REF (DELETE NIL (LIST IRI_NAMESTRING)))11983 'NAMESPACE_REF))))11984 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))11985 (|NAMESPACE_REF/fail.3| (ATN-PARSER::INDEX)11986 (%ATN-NODE-BLOCK |NAMESPACE_REF/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))11987 (NAMESPACE_REF/NAMESPACE_REF.2.4 (ATN-PARSER::INDEX)11988 (%ATN-NODE-BLOCK11989 NAMESPACE_REF/NAMESPACE_REF.2.411990 (%ATN-EDGE-BLOCK11991 (TEST IRI_NAMESTRING)11992 (COND ((IS-IRI_NAMESTRING ATN-PARSER::|item|)11993 (SETF *ATN-TERM* 'IRI_NAMESTRING)11994 (SETF IRI_NAMESTRING11995 (IF (EQ *ATN-REDUCE* T)11996 (ATN-REDUCE-ITEM #'|IRI_NAMESTRING-Constructor| ATN-PARSER::|item|)11997 (IF (EQ *ATN-REDUCE* 'CONS)11998 (LIST 'IRI_NAMESTRING ATN-PARSER::|item|)11999 'IRI_NAMESTRING)))12000 (NAMESPACE_REF/NAMESPACE_REF.2.5 (1+ ATN-PARSER::INDEX)))12001 (T12002 (SETF *ATN-TERM?* 'IRI_NAMESTRING)12003 (NAMESPACE_REF/NAMESPACE_REF.2.5 ATN-PARSER::INDEX))))))12004 (NAMESPACE_REF/NAMESPACE_REF.2.5 (ATN-PARSER::INDEX)12005 (%ATN-NODE-BLOCK12006 NAMESPACE_REF/NAMESPACE_REF.2.512007 (%ATN-EDGE-BLOCK12008 (ATN-PARSER::WORD SPOCQ.S:>)12009 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:>)12010 (SETF *ATN-TERM* 'SPOCQ.S:>)12011 (NAMESPACE_REF.2 (1+ ATN-PARSER::INDEX)))12012 (T (SETF *ATN-TERM?* 'SPOCQ.S:>) (|NAMESPACE_REF/fail.3| ATN-PARSER::INDEX))))))12013 (|NAMESPACE_REF/start.1| (ATN-PARSER::INDEX)12014 (%ATN-NODE-BLOCK12015 |NAMESPACE_REF/start.1|12016 (%ATN-EDGE-BLOCK12017 (ATN-PARSER::WORD SPOCQ.S:<)12018 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:<)12019 (SETF *ATN-TERM* 'SPOCQ.S:<)12020 (NAMESPACE_REF/NAMESPACE_REF.2.4 (1+ ATN-PARSER::INDEX)))12021 (T (SETF *ATN-TERM?* 'SPOCQ.S:<) (|NAMESPACE_REF/fail.3| ATN-PARSER::INDEX)))))))12022 (|NAMESPACE_REF/start.1| ATN-PARSER::INDEX)12023 (SETF *ATN-NODE NIL)12024 NIL12025 (IF ATN-PARSER::ATN-STRUCTURE12026 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)12027 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))12028 (WARN "recursive grammar: ~s @ position ~s: ~s" 'NAMESPACE_REF ATN-PARSER::INDEX *ATN-STACK))))12029 (PROGN (DEFVAR BLANK_NODE_LABEL-INDEX)12030 (DEFUN BLANK_NODE_LABEL (ATN-PARSER::INDEX &AUX (PN_LOCAL NIL))12031 "{73} BLANK_NODE_LABEL ::= '_:' PN_LOCAL12032 (PN_LOCAL)"12033 (DECLARE (SPECIAL BLANK_NODE_LABEL-INDEX))12034 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX BLANK_NODE_LABEL-INDEX *ATN-LEVEL))12035 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))12036 (IF (< BLANK_NODE_LABEL-INDEX ATN-PARSER::INDEX)12037 (LET ((BLANK_NODE_LABEL-INDEX ATN-PARSER::INDEX)12038 (*ATN-LEVEL (1+ *ATN-LEVEL))12039 (*ATN-STACK (CONS 'BLANK_NODE_LABEL *ATN-STACK))12040 (ATN-PARSER::ATN-STRUCTURE NIL))12041 (DECLARE (SPECIAL BLANK_NODE_LABEL-INDEX))12042 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))12043 (DECLARE (TYPE CONS *ATN-STACK))12044 (SYMBOL-MACROLET12045 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))12046 (%ATN-BLOCK BLANK_NODE_LABEL12047 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)12048 (SETF *ATN-TERM* 'BLANK_NODE_LABEL)12049 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))12050 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)12051 (BLANK_NODE_LABEL.2 (ATN-PARSER::INDEX)12052 (%ATN-NODE-BLOCK12053 BLANK_NODE_LABEL.212054 (%ATN-EDGE-BLOCK12055 (POP BLANK_NODE_LABEL)12056 (WHEN T12057 (SETF *ATN-TERM* 'BLANK_NODE_LABEL)12058 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"12059 'BLANK_NODE_LABEL12060 ATN-PARSER::INDEX12061 (LIST 'PN_LOCAL PN_LOCAL))12062 (LET ((ATN-PARSER::RESULT-STRUCTURE12063 (IF (EQ *ATN-REDUCE* T)12064 (|BLANK_NODE_LABEL-Constructor| PN_LOCAL)12065 (IF (EQ *ATN-REDUCE* 'CONS)12066 (CONS 'BLANK_NODE_LABEL (DELETE NIL (LIST PN_LOCAL)))12067 'BLANK_NODE_LABEL))))12068 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))12069 (BLANK_NODE_LABEL/BLANK_NODE_LABEL.2.4 (ATN-PARSER::INDEX)12070 (%ATN-NODE-BLOCK12071 BLANK_NODE_LABEL/BLANK_NODE_LABEL.2.412072 (%ATN-EDGE-BLOCK12073 (TEST PN_LOCAL)12074 (COND ((IS-PN_LOCAL ATN-PARSER::|item|)12075 (SETF *ATN-TERM* 'PN_LOCAL)12076 (SETF PN_LOCAL12077 (IF (EQ *ATN-REDUCE* T)12078 (ATN-REDUCE-ITEM #'|PN_LOCAL-Constructor| ATN-PARSER::|item|)12079 (IF (EQ *ATN-REDUCE* 'CONS)12080 (LIST 'PN_LOCAL ATN-PARSER::|item|)12081 'PN_LOCAL)))12082 (BLANK_NODE_LABEL.2 (1+ ATN-PARSER::INDEX)))12083 (T12084 (SETF *ATN-TERM?* 'PN_LOCAL)12085 (|BLANK_NODE_LABEL/fail.3| ATN-PARSER::INDEX))))))12086 (|BLANK_NODE_LABEL/fail.3| (ATN-PARSER::INDEX)12087 (%ATN-NODE-BLOCK |BLANK_NODE_LABEL/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))12088 (|BLANK_NODE_LABEL/start.1| (ATN-PARSER::INDEX)12089 (%ATN-NODE-BLOCK12090 |BLANK_NODE_LABEL/start.1|12091 (%ATN-EDGE-BLOCK12092 (ATN-PARSER::WORD SPOCQ.S:|_:|)12093 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|_:|)12094 (SETF *ATN-TERM* 'SPOCQ.S:|_:|)12095 (BLANK_NODE_LABEL/BLANK_NODE_LABEL.2.4 (1+ ATN-PARSER::INDEX)))12096 (T12097 (SETF *ATN-TERM?* 'SPOCQ.S:|_:|)12098 (|BLANK_NODE_LABEL/fail.3| ATN-PARSER::INDEX)))))))12099 (|BLANK_NODE_LABEL/start.1| ATN-PARSER::INDEX)12100 (SETF *ATN-NODE NIL)12101 NIL12102 (IF ATN-PARSER::ATN-STRUCTURE12103 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)12104 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))12105 (WARN "recursive grammar: ~s @ position ~s: ~s" 'BLANK_NODE_LABEL ATN-PARSER::INDEX *ATN-STACK))))12106 (PROGN (DEFVAR NILLIST-INDEX)12107 (DEFUN NILLIST (ATN-PARSER::INDEX &AUX)12108 "{92} NILLIST ::= '(' ')'12109 NIL"12110 (DECLARE (SPECIAL NILLIST-INDEX))12111 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX NILLIST-INDEX *ATN-LEVEL))12112 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))12113 (IF (< NILLIST-INDEX ATN-PARSER::INDEX)12114 (LET ((NILLIST-INDEX ATN-PARSER::INDEX)12115 (*ATN-LEVEL (1+ *ATN-LEVEL))12116 (*ATN-STACK (CONS 'NILLIST *ATN-STACK))12117 (ATN-PARSER::ATN-STRUCTURE NIL))12118 (DECLARE (SPECIAL NILLIST-INDEX))12119 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))12120 (DECLARE (TYPE CONS *ATN-STACK))12121 (SYMBOL-MACROLET12122 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))12123 (%ATN-BLOCK NILLIST12124 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)12125 (SETF *ATN-TERM* 'NILLIST)12126 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))12127 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)12128 (NILLIST.2 (ATN-PARSER::INDEX)12129 (%ATN-NODE-BLOCK12130 NILLIST.212131 (%ATN-EDGE-BLOCK12132 (POP NILLIST)12133 (WHEN T12134 (SETF *ATN-TERM* 'NILLIST)12135 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" 'NILLIST ATN-PARSER::INDEX (LIST))12136 (LET ((ATN-PARSER::RESULT-STRUCTURE12137 (IF (EQ *ATN-REDUCE* T)12138 (|NILLIST-Constructor|)12139 (IF (EQ *ATN-REDUCE* 'CONS)12140 (CONS 'NILLIST (DELETE NIL (LIST)))12141 'NILLIST))))12142 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))12143 (|NILLIST/fail.3| (ATN-PARSER::INDEX)12144 (%ATN-NODE-BLOCK |NILLIST/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))12145 (NILLIST/NILLIST.2.4 (ATN-PARSER::INDEX)12146 (%ATN-NODE-BLOCK12147 NILLIST/NILLIST.2.412148 (%ATN-EDGE-BLOCK12149 (ATN-PARSER::WORD SPOCQ.S:\))12150 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))12151 (SETF *ATN-TERM* 'SPOCQ.S:\))12152 (NILLIST.2 (1+ ATN-PARSER::INDEX)))12153 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|NILLIST/fail.3| ATN-PARSER::INDEX))))))12154 (|NILLIST/start.1| (ATN-PARSER::INDEX)12155 (%ATN-NODE-BLOCK12156 |NILLIST/start.1|12157 (%ATN-EDGE-BLOCK12158 (ATN-PARSER::WORD SPOCQ.S:\()12159 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()12160 (SETF *ATN-TERM* 'SPOCQ.S:\()12161 (NILLIST/NILLIST.2.4 (1+ ATN-PARSER::INDEX)))12162 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|NILLIST/fail.3| ATN-PARSER::INDEX)))))))12163 (|NILLIST/start.1| ATN-PARSER::INDEX)12164 (SETF *ATN-NODE NIL)12165 NIL12166 (IF ATN-PARSER::ATN-STRUCTURE12167 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)12168 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))12169 (WARN "recursive grammar: ~s @ position ~s: ~s" 'NILLIST ATN-PARSER::INDEX *ATN-STACK))))12170 (PROGN (DEFVAR ANON-INDEX)12171 (DEFUN ANON (ATN-PARSER::INDEX &AUX)12172 "{94} ANON ::= '[' ']'12173 NIL"12174 (DECLARE (SPECIAL ANON-INDEX))12175 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX ANON-INDEX *ATN-LEVEL))12176 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))12177 (IF (< ANON-INDEX ATN-PARSER::INDEX)12178 (LET ((ANON-INDEX ATN-PARSER::INDEX)12179 (*ATN-LEVEL (1+ *ATN-LEVEL))12180 (*ATN-STACK (CONS 'ANON *ATN-STACK))12181 (ATN-PARSER::ATN-STRUCTURE NIL))12182 (DECLARE (SPECIAL ANON-INDEX))12183 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))12184 (DECLARE (TYPE CONS *ATN-STACK))12185 (SYMBOL-MACROLET12186 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))12187 (%ATN-BLOCK ANON12188 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)12189 (SETF *ATN-TERM* 'ANON)12190 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))12191 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)12192 (ANON.2 (ATN-PARSER::INDEX)12193 (%ATN-NODE-BLOCK12194 ANON.212195 (%ATN-EDGE-BLOCK12196 (POP ANON)12197 (WHEN T12198 (SETF *ATN-TERM* 'ANON)12199 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" 'ANON ATN-PARSER::INDEX (LIST))12200 (LET ((ATN-PARSER::RESULT-STRUCTURE12201 (IF (EQ *ATN-REDUCE* T)12202 (|ANON-Constructor|)12203 (IF (EQ *ATN-REDUCE* 'CONS) (CONS 'ANON (DELETE NIL (LIST))) 'ANON))))12204 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))12205 (ANON/ANON.2.4 (ATN-PARSER::INDEX)12206 (%ATN-NODE-BLOCK12207 ANON/ANON.2.412208 (%ATN-EDGE-BLOCK12209 (ATN-PARSER::WORD SPOCQ.S:])12210 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:])12211 (SETF *ATN-TERM* 'SPOCQ.S:])12212 (ANON.2 (1+ ATN-PARSER::INDEX)))12213 (T (SETF *ATN-TERM?* 'SPOCQ.S:]) (|ANON/fail.3| ATN-PARSER::INDEX))))))12214 (|ANON/fail.3| (ATN-PARSER::INDEX)12215 (%ATN-NODE-BLOCK |ANON/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))12216 (|ANON/start.1| (ATN-PARSER::INDEX)12217 (%ATN-NODE-BLOCK12218 |ANON/start.1|12219 (%ATN-EDGE-BLOCK12220 (ATN-PARSER::WORD SPOCQ.S:[)12221 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:[)12222 (SETF *ATN-TERM* 'SPOCQ.S:[)12223 (ANON/ANON.2.4 (1+ ATN-PARSER::INDEX)))12224 (T (SETF *ATN-TERM?* 'SPOCQ.S:[) (|ANON/fail.3| ATN-PARSER::INDEX)))))))12225 (|ANON/start.1| ATN-PARSER::INDEX)12226 (SETF *ATN-NODE NIL)12227 NIL12228 (IF ATN-PARSER::ATN-STRUCTURE12229 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)12230 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))12231 (WARN "recursive grammar: ~s @ position ~s: ~s" 'ANON ATN-PARSER::INDEX *ATN-STACK))))12232 (PROGN (DEFVAR |Aggregate-INDEX|)12233 (DEFUN |Aggregate| (ATN-PARSER::INDEX &AUX (|ArithmeticAggregate| NIL) (|ConcatAggregate| NIL) (|CountAggregate| NIL))12234 "{110} Aggregate ::= (CountAggregate | ArithmeticAggregate | ConcatAggregate)12235 (|ArithmeticAggregate| |ConcatAggregate| |CountAggregate|)"12236 (DECLARE (SPECIAL |Aggregate-INDEX|))12237 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Aggregate-INDEX| *ATN-LEVEL))12238 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))12239 (IF (< |Aggregate-INDEX| ATN-PARSER::INDEX)12240 (LET ((|Aggregate-INDEX| ATN-PARSER::INDEX)12241 (*ATN-LEVEL (1+ *ATN-LEVEL))12242 (*ATN-STACK (CONS '|Aggregate| *ATN-STACK))12243 (ATN-PARSER::ATN-STRUCTURE NIL))12244 (DECLARE (SPECIAL |Aggregate-INDEX|))12245 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))12246 (DECLARE (TYPE CONS *ATN-STACK))12247 (SYMBOL-MACROLET12248 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))12249 (%ATN-BLOCK |Aggregate|12250 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)12251 (SETF *ATN-TERM* '|Aggregate|)12252 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))12253 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)12254 (|Aggregate.2| (ATN-PARSER::INDEX)12255 (%ATN-NODE-BLOCK12256 |Aggregate.2|12257 (%ATN-EDGE-BLOCK12258 (POP |Aggregate|)12259 (WHEN T12260 (SETF *ATN-TERM* '|Aggregate|)12261 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"12262 '|Aggregate|12263 ATN-PARSER::INDEX12264 (LIST '|ArithmeticAggregate|12265 |ArithmeticAggregate|12266 '|ConcatAggregate|12267 |ConcatAggregate|12268 '|CountAggregate|12269 |CountAggregate|))12270 (LET ((ATN-PARSER::RESULT-STRUCTURE12271 (IF (EQ *ATN-REDUCE* T)12272 (|Aggregate-Constructor|12273 |ArithmeticAggregate|12274 |ConcatAggregate|12275 |CountAggregate|)12276 (IF (EQ *ATN-REDUCE* 'CONS)12277 (CONS '|Aggregate|12278 (DELETE NIL12279 (LIST |ArithmeticAggregate|12280 |ConcatAggregate|12281 |CountAggregate|)))12282 '|Aggregate|))))12283 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))12284 (|Aggregate/fail.3| (ATN-PARSER::INDEX)12285 (%ATN-NODE-BLOCK |Aggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))12286 (|Aggregate/start.1| (ATN-PARSER::INDEX)12287 (%ATN-NODE-BLOCK12288 |Aggregate/start.1|12289 (%ATN-EDGE-BLOCK12290 OR12291 (PROGN (%ATN-EDGE-BLOCK12292 (PUSH |CountAggregate|)12293 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)12294 (ATN-PARSE-SUBSTRUCTURE* '|CountAggregate| ATN-PARSER::INDEX)12295 (COND (ATN-PARSER::SUCCESS12296 (SETF *ATN-TERM* '|CountAggregate|)12297 (LET ((|CountAggregate1780| |CountAggregate|))12298 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)12299 (DESTRUCTURING-BIND12300 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)12301 ATN-PARSER::RESULT-AND-INDEX12302 (WHEN ATN-PARSER::RESULT12303 (SETF |CountAggregate| ATN-PARSER::RESULT))12304 (|Aggregate.2| ATN-PARSER::RESULT-INDEX))12305 (SETF |CountAggregate| |CountAggregate1780|))))12306 (T (SETF *ATN-TERM?* '|CountAggregate|) NIL))))12307 (%ATN-EDGE-BLOCK12308 (PUSH |ArithmeticAggregate|)12309 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)12310 (ATN-PARSE-SUBSTRUCTURE* '|ArithmeticAggregate| ATN-PARSER::INDEX)12311 (COND (ATN-PARSER::SUCCESS12312 (SETF *ATN-TERM* '|ArithmeticAggregate|)12313 (LET ((|ArithmeticAggregate1780| |ArithmeticAggregate|))12314 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)12315 (DESTRUCTURING-BIND12316 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)12317 ATN-PARSER::RESULT-AND-INDEX12318 (WHEN ATN-PARSER::RESULT12319 (SETF |ArithmeticAggregate| ATN-PARSER::RESULT))12320 (|Aggregate.2| ATN-PARSER::RESULT-INDEX))12321 (SETF |ArithmeticAggregate| |ArithmeticAggregate1780|))))12322 (T (SETF *ATN-TERM?* '|ArithmeticAggregate|) NIL))))12323 (%ATN-EDGE-BLOCK12324 (PUSH |ConcatAggregate|)12325 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)12326 (ATN-PARSE-SUBSTRUCTURE* '|ConcatAggregate| ATN-PARSER::INDEX)12327 (COND (ATN-PARSER::SUCCESS12328 (SETF *ATN-TERM* '|ConcatAggregate|)12329 (LET ((|ConcatAggregate1780| |ConcatAggregate|))12330 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)12331 (DESTRUCTURING-BIND12332 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)12333 ATN-PARSER::RESULT-AND-INDEX12334 (WHEN ATN-PARSER::RESULT12335 (SETF |ConcatAggregate| ATN-PARSER::RESULT))12336 (|Aggregate.2| ATN-PARSER::RESULT-INDEX))12337 (SETF |ConcatAggregate| |ConcatAggregate1780|))))12338 (T (SETF *ATN-TERM?* '|ConcatAggregate|) NIL))))12339 (|Aggregate/fail.3| ATN-PARSER::INDEX))))))12340 (|Aggregate/start.1| ATN-PARSER::INDEX)12341 (SETF *ATN-NODE NIL)12342 NIL12343 (IF ATN-PARSER::ATN-STRUCTURE12344 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)12345 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))12346 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Aggregate| ATN-PARSER::INDEX *ATN-STACK))))12347 (PROGN (DEFVAR |CountAggregate-INDEX|)12348 (DEFUN |CountAggregate| (ATN-PARSER::INDEX &AUX (|Distinctness| NIL) (|Expression| NIL) (|Wild| NIL))12349 "{110} CountAggregate ::= 'COUNT' '(' Distinctness? ((Wild | Expression)) ')'12350 (|Distinctness| |Expression| |Wild|)"12351 (DECLARE (SPECIAL |CountAggregate-INDEX|))12352 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |CountAggregate-INDEX| *ATN-LEVEL))12353 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))12354 (IF (< |CountAggregate-INDEX| ATN-PARSER::INDEX)12355 (LET ((|CountAggregate-INDEX| ATN-PARSER::INDEX)12356 (*ATN-LEVEL (1+ *ATN-LEVEL))12357 (*ATN-STACK (CONS '|CountAggregate| *ATN-STACK))12358 (ATN-PARSER::ATN-STRUCTURE NIL))12359 (DECLARE (SPECIAL |CountAggregate-INDEX|))12360 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))12361 (DECLARE (TYPE CONS *ATN-STACK))12362 (SYMBOL-MACROLET12363 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))12364 (%ATN-BLOCK |CountAggregate|12365 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)12366 (SETF *ATN-TERM* '|CountAggregate|)12367 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))12368 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)12369 (|CountAggregate.2| (ATN-PARSER::INDEX)12370 (%ATN-NODE-BLOCK12371 |CountAggregate.2|12372 (%ATN-EDGE-BLOCK12373 (POP |CountAggregate|)12374 (WHEN T12375 (SETF *ATN-TERM* '|CountAggregate|)12376 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"12377 '|CountAggregate|12378 ATN-PARSER::INDEX12379 (LIST '|Distinctness|12380 |Distinctness|12381 '|Expression|12382 |Expression|12383 '|Wild|12384 |Wild|))12385 (LET ((ATN-PARSER::RESULT-STRUCTURE12386 (IF (EQ *ATN-REDUCE* T)12387 (|CountAggregate-Constructor| |Distinctness| |Expression| |Wild|)12388 (IF (EQ *ATN-REDUCE* 'CONS)12389 (CONS '|CountAggregate|12390 (DELETE NIL (LIST |Distinctness| |Expression| |Wild|)))12391 '|CountAggregate|))))12392 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))12393 (|CountAggregate/CountAggregate.2.4| (ATN-PARSER::INDEX)12394 (%ATN-NODE-BLOCK12395 |CountAggregate/CountAggregate.2.4|12396 (%ATN-EDGE-BLOCK12397 (ATN-PARSER::WORD SPOCQ.S:\()12398 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()12399 (SETF *ATN-TERM* 'SPOCQ.S:\()12400 (|CountAggregate/CountAggregate.2.5| (1+ ATN-PARSER::INDEX)))12401 (T12402 (SETF *ATN-TERM?* 'SPOCQ.S:\()12403 (|CountAggregate/fail.3| ATN-PARSER::INDEX))))))12404 (|CountAggregate/CountAggregate.2.5| (ATN-PARSER::INDEX)12405 (%ATN-NODE-BLOCK12406 |CountAggregate/CountAggregate.2.5|12407 (%ATN-EDGE-BLOCK12408 (ATN-PARSER::CAT |Distinctness|)12409 (COND ((|IS-Distinctness| ATN-PARSER::|item|)12410 (SETF *ATN-TERM* '|Distinctness|)12411 (SETF |Distinctness|12412 (IF (EQ *ATN-REDUCE* T)12413 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)12414 (IF (EQ *ATN-REDUCE* 'CONS)12415 (LIST '|Distinctness| ATN-PARSER::|item|)12416 '|Distinctness|)))12417 (|CountAggregate/CountAggregate.2.6| (1+ ATN-PARSER::INDEX)))12418 (T12419 (SETF *ATN-TERM* '|Distinctness|)12420 (|CountAggregate/CountAggregate.2.6| ATN-PARSER::INDEX))))))12421 (|CountAggregate/CountAggregate.2.6| (ATN-PARSER::INDEX)12422 (%ATN-NODE-BLOCK12423 |CountAggregate/CountAggregate.2.6|12424 (%ATN-EDGE-BLOCK12425 OR12426 (PROGN (%ATN-EDGE-BLOCK12427 (ATN-PARSER::CAT |Wild|)12428 (COND ((|IS-Wild| ATN-PARSER::|item|)12429 (SETF *ATN-TERM* '|Wild|)12430 (SETF |Wild|12431 (IF (EQ *ATN-REDUCE* T)12432 (ATN-REDUCE-ITEM #'|Wild-Constructor| ATN-PARSER::|item|)12433 (IF (EQ *ATN-REDUCE* 'CONS)12434 (LIST '|Wild| ATN-PARSER::|item|)12435 '|Wild|)))12436 (|CountAggregate/CountAggregate.2.7| (1+ ATN-PARSER::INDEX)))12437 (T (SETF *ATN-TERM* '|Wild|) NIL)))12438 (%ATN-EDGE-BLOCK12439 (PUSH |Expression|)12440 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)12441 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)12442 (COND (ATN-PARSER::SUCCESS12443 (SETF *ATN-TERM* '|Expression|)12444 (LET ((|Expression1780| |Expression|))12445 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)12446 (DESTRUCTURING-BIND12447 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)12448 ATN-PARSER::RESULT-AND-INDEX12449 (WHEN ATN-PARSER::RESULT12450 (SETF |Expression| ATN-PARSER::RESULT))12451 (|CountAggregate/CountAggregate.2.7| ATN-PARSER::RESULT-INDEX))12452 (SETF |Expression| |Expression1780|))))12453 (T (SETF *ATN-TERM?* '|Expression|) NIL))))12454 (|CountAggregate/fail.3| ATN-PARSER::INDEX)))))12455 (|CountAggregate/CountAggregate.2.7| (ATN-PARSER::INDEX)12456 (%ATN-NODE-BLOCK12457 |CountAggregate/CountAggregate.2.7|12458 (%ATN-EDGE-BLOCK12459 (ATN-PARSER::WORD SPOCQ.S:\))12460 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))12461 (SETF *ATN-TERM* 'SPOCQ.S:\))12462 (|CountAggregate.2| (1+ ATN-PARSER::INDEX)))12463 (T12464 (SETF *ATN-TERM?* 'SPOCQ.S:\))12465 (|CountAggregate/fail.3| ATN-PARSER::INDEX))))))12466 (|CountAggregate/fail.3| (ATN-PARSER::INDEX)12467 (%ATN-NODE-BLOCK |CountAggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))12468 (|CountAggregate/start.1| (ATN-PARSER::INDEX)12469 (%ATN-NODE-BLOCK12470 |CountAggregate/start.1|12471 (%ATN-EDGE-BLOCK12472 (ATN-PARSER::WORD SPOCQ.S:COUNT)12473 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:COUNT)12474 (SETF *ATN-TERM* 'SPOCQ.S:COUNT)12475 (|CountAggregate/CountAggregate.2.4| (1+ ATN-PARSER::INDEX)))12476 (T12477 (SETF *ATN-TERM?* 'SPOCQ.S:COUNT)12478 (|CountAggregate/fail.3| ATN-PARSER::INDEX)))))))12479 (|CountAggregate/start.1| ATN-PARSER::INDEX)12480 (SETF *ATN-NODE NIL)12481 NIL12482 (IF ATN-PARSER::ATN-STRUCTURE12483 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)12484 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))12485 (WARN "recursive grammar: ~s @ position ~s: ~s" '|CountAggregate| ATN-PARSER::INDEX *ATN-STACK))))12486 (PROGN (DEFVAR |ArithmeticAggregate-INDEX|)12487 (DEFUN |ArithmeticAggregate| (ATN-PARSER::INDEX &AUX (|ArithmeticAggregateOperator| NIL) (|Distinctness| NIL)12488 (|Expression| NIL))12489 "{110} ArithmeticAggregate ::= ArithmeticAggregateOperator '(' Distinctness? Expression ')'12490 (|ArithmeticAggregateOperator| |Distinctness| |Expression|)"12491 (DECLARE (SPECIAL |ArithmeticAggregate-INDEX|))12492 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ArithmeticAggregate-INDEX| *ATN-LEVEL))12493 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))12494 (IF (< |ArithmeticAggregate-INDEX| ATN-PARSER::INDEX)12495 (LET ((|ArithmeticAggregate-INDEX| ATN-PARSER::INDEX)12496 (*ATN-LEVEL (1+ *ATN-LEVEL))12497 (*ATN-STACK (CONS '|ArithmeticAggregate| *ATN-STACK))12498 (ATN-PARSER::ATN-STRUCTURE NIL))12499 (DECLARE (SPECIAL |ArithmeticAggregate-INDEX|))12500 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))12501 (DECLARE (TYPE CONS *ATN-STACK))12502 (SYMBOL-MACROLET12503 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))12504 (%ATN-BLOCK |ArithmeticAggregate|12505 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)12506 (SETF *ATN-TERM* '|ArithmeticAggregate|)12507 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))12508 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)12509 (|ArithmeticAggregate.2| (ATN-PARSER::INDEX)12510 (%ATN-NODE-BLOCK12511 |ArithmeticAggregate.2|12512 (%ATN-EDGE-BLOCK12513 (POP |ArithmeticAggregate|)12514 (WHEN T12515 (SETF *ATN-TERM* '|ArithmeticAggregate|)12516 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"12517 '|ArithmeticAggregate|12518 ATN-PARSER::INDEX12519 (LIST '|ArithmeticAggregateOperator|12520 |ArithmeticAggregateOperator|12521 '|Distinctness|12522 |Distinctness|12523 '|Expression|12524 |Expression|))12525 (LET ((ATN-PARSER::RESULT-STRUCTURE12526 (IF (EQ *ATN-REDUCE* T)12527 (|ArithmeticAggregate-Constructor|12528 |ArithmeticAggregateOperator|12529 |Distinctness|12530 |Expression|)12531 (IF (EQ *ATN-REDUCE* 'CONS)12532 (CONS '|ArithmeticAggregate|12533 (DELETE NIL12534 (LIST |ArithmeticAggregateOperator|12535 |Distinctness|12536 |Expression|)))12537 '|ArithmeticAggregate|))))12538 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))12539 (|ArithmeticAggregate/ArithmeticAggregate.2.4| (ATN-PARSER::INDEX)12540 (%ATN-NODE-BLOCK12541 |ArithmeticAggregate/ArithmeticAggregate.2.4|12542 (%ATN-EDGE-BLOCK12543 (ATN-PARSER::WORD SPOCQ.S:\()12544 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()12545 (SETF *ATN-TERM* 'SPOCQ.S:\()12546 (|ArithmeticAggregate/ArithmeticAggregate.2.5| (1+ ATN-PARSER::INDEX)))12547 (T12548 (SETF *ATN-TERM?* 'SPOCQ.S:\()12549 (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX))))))12550 (|ArithmeticAggregate/ArithmeticAggregate.2.5| (ATN-PARSER::INDEX)12551 (%ATN-NODE-BLOCK12552 |ArithmeticAggregate/ArithmeticAggregate.2.5|12553 (%ATN-EDGE-BLOCK12554 (ATN-PARSER::CAT |Distinctness|)12555 (COND ((|IS-Distinctness| ATN-PARSER::|item|)12556 (SETF *ATN-TERM* '|Distinctness|)12557 (SETF |Distinctness|12558 (IF (EQ *ATN-REDUCE* T)12559 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)12560 (IF (EQ *ATN-REDUCE* 'CONS)12561 (LIST '|Distinctness| ATN-PARSER::|item|)12562 '|Distinctness|)))12563 (|ArithmeticAggregate/ArithmeticAggregate.2.6| (1+ ATN-PARSER::INDEX)))12564 (T12565 (SETF *ATN-TERM* '|Distinctness|)12566 (|ArithmeticAggregate/ArithmeticAggregate.2.6| ATN-PARSER::INDEX))))))12567 (|ArithmeticAggregate/ArithmeticAggregate.2.6| (ATN-PARSER::INDEX)12568 (%ATN-NODE-BLOCK12569 |ArithmeticAggregate/ArithmeticAggregate.2.6|12570 (%ATN-EDGE-BLOCK12571 (PUSH |Expression|)12572 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)12573 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)12574 (COND (ATN-PARSER::SUCCESS12575 (SETF *ATN-TERM* '|Expression|)12576 (LET ((|Expression1781| |Expression|))12577 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)12578 (DESTRUCTURING-BIND12579 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)12580 ATN-PARSER::RESULT-AND-INDEX12581 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))12582 (|ArithmeticAggregate/ArithmeticAggregate.2.7|12583 ATN-PARSER::RESULT-INDEX))12584 (SETF |Expression| |Expression1781|))))12585 (T12586 (SETF *ATN-TERM?* '|Expression|)12587 (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX)))))))12588 (|ArithmeticAggregate/ArithmeticAggregate.2.7| (ATN-PARSER::INDEX)12589 (%ATN-NODE-BLOCK12590 |ArithmeticAggregate/ArithmeticAggregate.2.7|12591 (%ATN-EDGE-BLOCK12592 (ATN-PARSER::WORD SPOCQ.S:\))12593 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))12594 (SETF *ATN-TERM* 'SPOCQ.S:\))12595 (|ArithmeticAggregate.2| (1+ ATN-PARSER::INDEX)))12596 (T12597 (SETF *ATN-TERM?* 'SPOCQ.S:\))12598 (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX))))))12599 (|ArithmeticAggregate/fail.3| (ATN-PARSER::INDEX)12600 (%ATN-NODE-BLOCK12601 |ArithmeticAggregate/fail.3|12602 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))12603 (|ArithmeticAggregate/start.1| (ATN-PARSER::INDEX)12604 (%ATN-NODE-BLOCK12605 |ArithmeticAggregate/start.1|12606 (%ATN-EDGE-BLOCK12607 (ATN-PARSER::CAT |ArithmeticAggregateOperator|)12608 (COND ((|IS-ArithmeticAggregateOperator| ATN-PARSER::|item|)12609 (SETF *ATN-TERM* '|ArithmeticAggregateOperator|)12610 (SETF |ArithmeticAggregateOperator|12611 (IF (EQ *ATN-REDUCE* T)12612 (ATN-REDUCE-ITEM12613 #'|ArithmeticAggregateOperator-Constructor|12614 ATN-PARSER::|item|)12615 (IF (EQ *ATN-REDUCE* 'CONS)12616 (LIST '|ArithmeticAggregateOperator| ATN-PARSER::|item|)12617 '|ArithmeticAggregateOperator|)))12618 (|ArithmeticAggregate/ArithmeticAggregate.2.4| (1+ ATN-PARSER::INDEX)))12619 (T12620 (SETF *ATN-TERM* '|ArithmeticAggregateOperator|)12621 (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX)))))))12622 (|ArithmeticAggregate/start.1| ATN-PARSER::INDEX)12623 (SETF *ATN-NODE NIL)12624 NIL12625 (IF ATN-PARSER::ATN-STRUCTURE12626 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)12627 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))12628 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ArithmeticAggregate| ATN-PARSER::INDEX *ATN-STACK))))12629 (PROGN (DEFVAR |ConcatAggregate-INDEX|)12630 (DEFUN |ConcatAggregate| (ATN-PARSER::INDEX &AUX (|Distinctness| NIL) (|Expression| NIL) (|String| NIL))12631 "{110} ConcatAggregate ::= 'GROUP_CONCAT' '(' Distinctness? Expression (';'12632 'SEPARATOR'12633 '='12634 String)? ')'12635 (|Distinctness| |Expression| |String|)"12636 (DECLARE (SPECIAL |ConcatAggregate-INDEX|))12637 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConcatAggregate-INDEX| *ATN-LEVEL))12638 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))12639 (IF (< |ConcatAggregate-INDEX| ATN-PARSER::INDEX)12640 (LET ((|ConcatAggregate-INDEX| ATN-PARSER::INDEX)12641 (*ATN-LEVEL (1+ *ATN-LEVEL))12642 (*ATN-STACK (CONS '|ConcatAggregate| *ATN-STACK))12643 (ATN-PARSER::ATN-STRUCTURE NIL))12644 (DECLARE (SPECIAL |ConcatAggregate-INDEX|))12645 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))12646 (DECLARE (TYPE CONS *ATN-STACK))12647 (SYMBOL-MACROLET12648 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))12649 (%ATN-BLOCK |ConcatAggregate|12650 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)12651 (SETF *ATN-TERM* '|ConcatAggregate|)12652 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))12653 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)12654 (|ConcatAggregate.2| (ATN-PARSER::INDEX)12655 (%ATN-NODE-BLOCK12656 |ConcatAggregate.2|12657 (%ATN-EDGE-BLOCK12658 (POP |ConcatAggregate|)12659 (WHEN T12660 (SETF *ATN-TERM* '|ConcatAggregate|)12661 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"12662 '|ConcatAggregate|12663 ATN-PARSER::INDEX12664 (LIST '|Distinctness|12665 |Distinctness|12666 '|Expression|12667 |Expression|12668 '|String|12669 |String|))12670 (LET ((ATN-PARSER::RESULT-STRUCTURE12671 (IF (EQ *ATN-REDUCE* T)12672 (|ConcatAggregate-Constructor| |Distinctness| |Expression| |String|)12673 (IF (EQ *ATN-REDUCE* 'CONS)12674 (CONS '|ConcatAggregate|12675 (DELETE NIL (LIST |Distinctness| |Expression| |String|)))12676 '|ConcatAggregate|))))12677 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))12678 (|ConcatAggregate/ConcatAggregate.2.4| (ATN-PARSER::INDEX)12679 (%ATN-NODE-BLOCK12680 |ConcatAggregate/ConcatAggregate.2.4|12681 (%ATN-EDGE-BLOCK12682 (ATN-PARSER::WORD SPOCQ.S:\()12683 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()12684 (SETF *ATN-TERM* 'SPOCQ.S:\()12685 (|ConcatAggregate/ConcatAggregate.2.5| (1+ ATN-PARSER::INDEX)))12686 (T12687 (SETF *ATN-TERM?* 'SPOCQ.S:\()12688 (|ConcatAggregate/fail.3| ATN-PARSER::INDEX))))))12689 (|ConcatAggregate/ConcatAggregate.2.5| (ATN-PARSER::INDEX)12690 (%ATN-NODE-BLOCK12691 |ConcatAggregate/ConcatAggregate.2.5|12692 (%ATN-EDGE-BLOCK12693 (ATN-PARSER::CAT |Distinctness|)12694 (COND ((|IS-Distinctness| ATN-PARSER::|item|)12695 (SETF *ATN-TERM* '|Distinctness|)12696 (SETF |Distinctness|12697 (IF (EQ *ATN-REDUCE* T)12698 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)12699 (IF (EQ *ATN-REDUCE* 'CONS)12700 (LIST '|Distinctness| ATN-PARSER::|item|)12701 '|Distinctness|)))12702 (|ConcatAggregate/ConcatAggregate.2.6| (1+ ATN-PARSER::INDEX)))12703 (T12704 (SETF *ATN-TERM* '|Distinctness|)12705 (|ConcatAggregate/ConcatAggregate.2.6| ATN-PARSER::INDEX))))))12706 (|ConcatAggregate/ConcatAggregate.2.6| (ATN-PARSER::INDEX)12707 (%ATN-NODE-BLOCK12708 |ConcatAggregate/ConcatAggregate.2.6|12709 (%ATN-EDGE-BLOCK12710 (PUSH |Expression|)12711 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)12712 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)12713 (COND (ATN-PARSER::SUCCESS12714 (SETF *ATN-TERM* '|Expression|)12715 (LET ((|Expression1782| |Expression|))12716 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)12717 (DESTRUCTURING-BIND12718 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)12719 ATN-PARSER::RESULT-AND-INDEX12720 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))12721 (|ConcatAggregate/ConcatAggregate.2.7| ATN-PARSER::RESULT-INDEX))12722 (SETF |Expression| |Expression1782|))))12723 (T12724 (SETF *ATN-TERM?* '|Expression|)12725 (|ConcatAggregate/fail.3| ATN-PARSER::INDEX)))))))12726 (|ConcatAggregate/ConcatAggregate.2.7| (ATN-PARSER::INDEX)12727 (%ATN-NODE-BLOCK12728 |ConcatAggregate/ConcatAggregate.2.7|12729 (%ATN-EDGE-BLOCK12730 (ATN-PARSER::JUMP |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9|)12731 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9| ATN-PARSER::INDEX))12732 (%ATN-EDGE-BLOCK12733 (ATN-PARSER::JUMP |ConcatAggregate/ConcatAggregate.2.8|)12734 (|ConcatAggregate/ConcatAggregate.2.8| ATN-PARSER::INDEX))))12735 (|ConcatAggregate/ConcatAggregate.2.8| (ATN-PARSER::INDEX)12736 (%ATN-NODE-BLOCK12737 |ConcatAggregate/ConcatAggregate.2.8|12738 (%ATN-EDGE-BLOCK12739 (ATN-PARSER::WORD SPOCQ.S:\))12740 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))12741 (SETF *ATN-TERM* 'SPOCQ.S:\))12742 (|ConcatAggregate.2| (1+ ATN-PARSER::INDEX)))12743 (T12744 (SETF *ATN-TERM?* 'SPOCQ.S:\))12745 (|ConcatAggregate/fail.3| ATN-PARSER::INDEX))))))12746 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.10| (ATN-PARSER::INDEX)12747 (%ATN-NODE-BLOCK12748 |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.10|12749 (%ATN-EDGE-BLOCK12750 (ATN-PARSER::WORD SPOCQ.S:SEPARATOR)12751 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:SEPARATOR)12752 (SETF *ATN-TERM* 'SPOCQ.S:SEPARATOR)12753 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.11|12754 (1+ ATN-PARSER::INDEX)))12755 (T (SETF *ATN-TERM?* 'SPOCQ.S:SEPARATOR) NIL)))))12756 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.11| (ATN-PARSER::INDEX)12757 (%ATN-NODE-BLOCK12758 |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.11|12759 (%ATN-EDGE-BLOCK12760 (ATN-PARSER::WORD SPOCQ.S:=)12761 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:=)12762 (SETF *ATN-TERM* 'SPOCQ.S:=)12763 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.12|12764 (1+ ATN-PARSER::INDEX)))12765 (T (SETF *ATN-TERM?* 'SPOCQ.S:=) NIL)))))12766 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.12| (ATN-PARSER::INDEX)12767 (%ATN-NODE-BLOCK12768 |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.12|12769 (%ATN-EDGE-BLOCK12770 (ATN-PARSER::CAT |String|)12771 (COND ((|IS-String| ATN-PARSER::|item|)12772 (SETF *ATN-TERM* '|String|)12773 (SETF |String|12774 (IF (EQ *ATN-REDUCE* T)12775 (ATN-REDUCE-ITEM #'|String-Constructor| ATN-PARSER::|item|)12776 (IF (EQ *ATN-REDUCE* 'CONS)12777 (LIST '|String| ATN-PARSER::|item|)12778 '|String|)))12779 (|ConcatAggregate/ConcatAggregate.2.8| (1+ ATN-PARSER::INDEX)))12780 (T (SETF *ATN-TERM* '|String|) NIL)))))12781 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9| (ATN-PARSER::INDEX)12782 (%ATN-NODE-BLOCK12783 |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9|12784 (%ATN-EDGE-BLOCK12785 (ATN-PARSER::WORD SPOCQ.S:\;)12786 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\;)12787 (SETF *ATN-TERM* 'SPOCQ.S:\;)12788 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.10|12789 (1+ ATN-PARSER::INDEX)))12790 (T (SETF *ATN-TERM?* 'SPOCQ.S:\;) NIL)))))12791 (|ConcatAggregate/fail.3| (ATN-PARSER::INDEX)12792 (%ATN-NODE-BLOCK |ConcatAggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))12793 (|ConcatAggregate/start.1| (ATN-PARSER::INDEX)12794 (%ATN-NODE-BLOCK12795 |ConcatAggregate/start.1|12796 (%ATN-EDGE-BLOCK12797 (ATN-PARSER::WORD SPOCQ.S:GROUP_CONCAT)12798 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:GROUP_CONCAT)12799 (SETF *ATN-TERM* 'SPOCQ.S:GROUP_CONCAT)12800 (|ConcatAggregate/ConcatAggregate.2.4| (1+ ATN-PARSER::INDEX)))12801 (T12802 (SETF *ATN-TERM?* 'SPOCQ.S:GROUP_CONCAT)12803 (|ConcatAggregate/fail.3| ATN-PARSER::INDEX)))))))12804 (|ConcatAggregate/start.1| ATN-PARSER::INDEX)12805 (SETF *ATN-NODE NIL)12806 NIL12807 (IF ATN-PARSER::ATN-STRUCTURE12808 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)12809 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))12810 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConcatAggregate| ATN-PARSER::INDEX *ATN-STACK))))12811 (SETF (GET '|Query| :PRODUCTION) "12812 {1 } Query ::= Prologue ((SelectQuery | ConstructQuery | DescribeQuery | AskQuery)) BindingsClause?")12813 (SETF (GET '|Prologue| :PRODUCTION) "12814 {2 } Prologue ::= BaseDecl? PrefixDecl*")12815 (SETF (GET '|BaseDecl| :PRODUCTION) "12816 {3 } BaseDecl ::= 'BASE' IRI_REF")12817 (SETF (GET '|PrefixDecl| :PRODUCTION) "12818 {4 } PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF")12819 (SETF (GET '|SelectQuery| :PRODUCTION) "12820 {5 } SelectQuery ::= SelectClause DatasetClause* WhereClause SolutionModifier")12821 (SETF (GET '|SelectClause| :PRODUCTION) "12822 SelectClause ::= 'SELECT' Distinctness? (((VariableOrBinding)+ | Wild))")12823 (SETF (GET '|VariableOrBinding| :PRODUCTION) "12824 {5 } VariableOrBinding ::= (Var | ('(' Expression 'AS' Var ')'))")12825 (SETF (GET '|ConstructQuery| :PRODUCTION) "12826 {6 } ConstructQuery ::= 'CONSTRUCT' ((ConstructTemplate | Wild | Var+)) DatasetClause* WhereClause SolutionModifier")12827 (SETF (GET '|DescribeQuery| :PRODUCTION) "12828 {7 } DescribeQuery ::= 'DESCRIBE' ((VarOrIRIref+ | '*')) DatasetClause* WhereClause? SolutionModifier")12829 (SETF (GET '|AskQuery| :PRODUCTION) "12830 {8 } AskQuery ::= 'ASK' DatasetClause* WhereClause")12831 (SETF (GET '|DatasetClause| :PRODUCTION) "12832 {9 } DatasetClause ::= 'FROM' ((DefaultGraphClause | NamedGraphClause))")12833 (SETF (GET '|DefaultGraphClause| :PRODUCTION) "12834 {10} DefaultGraphClause ::= SourceSelector")12835 (SETF (GET '|NamedGraphClause| :PRODUCTION) "12836 {11} NamedGraphClause ::= 'NAMED' SourceSelector")12837 (SETF (GET '|SourceSelector| :PRODUCTION) "12838 {12} SourceSelector ::= IRIref")12839 (SETF (GET '|WhereClause| :PRODUCTION) "12840 {13} WhereClause ::= 'WHERE'? GroupGraphPattern")12841 (SETF (GET '|SolutionModifier| :PRODUCTION) "12842 {14} SolutionModifier ::= GroupClause? HavingClause? OrderClause? LimitOffsetClauses?")12843 (SETF (GET '|GroupClause| :PRODUCTION) "12844 {18a} GroupClause ::= 'GROUP' 'BY' GroupCondition+")12845 (SETF (GET '|GroupCondition| :PRODUCTION) "12846 {19a} GroupCondition ::= (BuiltInCall | FunctionCall | VariableOrBindingOrExpression)")12847 (SETF (GET '|VariableOrBindingOrExpression| :PRODUCTION) "12848 {19a} VariableOrBindingOrExpression ::= (('(' Expression ('AS' Var)? ')') | Var)")12849 (SETF (GET '|HavingClause| :PRODUCTION) "12850 {20a} HavingClause ::= 'HAVING' HavingCondition+")12851 (SETF (GET '|HavingCondition| :PRODUCTION) "12852 {21a} HavingCondition ::= Constraint")12853 (SETF (GET '|LimitOffsetClauses| :PRODUCTION) "12854 {15} LimitOffsetClauses ::= (((LimitClause OffsetClause?) | (OffsetClause12855 LimitClause?)))")12856 (SETF (GET '|OrderClause| :PRODUCTION) "12857 {16} OrderClause ::= 'ORDER' 'BY' OrderCondition+")12858 (SETF (GET '|OrderCondition| :PRODUCTION) "12859 {17} OrderCondition ::= ((OrderDirection12860 BrackettedExpression) | Constraint | Var)")12861 (SETF (GET '|LimitClause| :PRODUCTION) "12862 {18} LimitClause ::= 'LIMIT' INTEGER")12863 (SETF (GET '|OffsetClause| :PRODUCTION) "12864 {19} OffsetClause ::= 'OFFSET' INTEGER")12865 (SETF (GET '|BindingsClause| :PRODUCTION) "12866 BindingsClause ::= 'BINDINGS' Var* '{' BindingList* '}'")12867 (SETF (GET '|BindingList| :PRODUCTION) "12868 BindingList ::= '(' BindingValue* ')'")12869 (SETF (GET '|BindingValue| :PRODUCTION) "12870 BindingValue ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | Undef)")12871 (SETF (GET '|GroupGraphPattern| :PRODUCTION) "12872 {20} GroupGraphPattern ::= '{' ((SubSelect | GroupGraphPatternSub)) '}'")12873 (SETF (GET '|GroupGraphPatternSub| :PRODUCTION) "12874 GroupGraphPatternSub ::= TriplesBlock? GroupGraphPatternRest*")12875 (SETF (GET '|GroupGraphPatternRest| :PRODUCTION) "12876 GroupGraphPatternRest ::= ((GraphPatternNotTriples | Filter | Bind)) '.'? TriplesBlock?")12877 (SETF (GET '|SubSelect| :PRODUCTION) "12878 SubSelect ::= SelectClause WhereClause SolutionModifier")12879 (SETF (GET '|Bind| :PRODUCTION) "12880 Bind ::= 'BIND' '(' Expression 'AS' Var ')'")12881 (SETF (GET '|TriplesBlock| :PRODUCTION) "12882 {21} TriplesBlock ::= TriplesSameSubject ('.' TriplesBlock?)?")12883 (SETF (GET '|GraphPatternNotTriples| :PRODUCTION) "12884 {22} GraphPatternNotTriples ::= (OptionalGraphPattern | GroupOrUnionGraphPattern | MinusGraphPattern | GraphGraphPattern)")12885 (SETF (GET '|OptionalGraphPattern| :PRODUCTION) "12886 {23} OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern")12887 (SETF (GET '|GraphGraphPattern| :PRODUCTION) "12888 {24} GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern")12889 (SETF (GET '|GroupOrUnionGraphPattern| :PRODUCTION) "12890 {25} GroupOrUnionGraphPattern ::= GroupGraphPattern ('UNION' GroupGraphPattern)*")12891 (SETF (GET '|MinusGraphPattern| :PRODUCTION) "12892 {57} MinusGraphPattern ::= 'MINUS' GroupGraphPattern")12893 (SETF (GET '|Filter| :PRODUCTION) "12894 {26} Filter ::= 'FILTER' Constraint")12895 (SETF (GET '|Constraint| :PRODUCTION) "12896 {27} Constraint ::= (BrackettedExpression | BuiltInCall | FunctionCall)")12897 (SETF (GET '|FunctionCall| :PRODUCTION) "12898 {28} FunctionCall ::= IRIref ArgList")12899 (SETF (GET '|ArgList| :PRODUCTION) "12900 {29} ArgList ::= (NILLIST | ('(' Expression (',' Expression)* ')'))")12901 (SETF (GET '|ExpressionList| :PRODUCTION) "12902 ExpressionList ::= (NILLIST | ('(' Expression (',' Expression)* ')'))")12903 (SETF (GET '|ConstructTemplate| :PRODUCTION) "12904 {30} ConstructTemplate ::= '{' ConstructTriples? '}'")12905 (SETF (GET '|ConstructTriples| :PRODUCTION) "12906 {31} ConstructTriples ::= TriplesSameSubject ('.' ConstructTriples?)?")12907 (SETF (GET '|TriplesSameSubject| :PRODUCTION) "12908 {32} TriplesSameSubject ::= ((VarOrTerm PropertyListNotEmpty) | (TriplesNode12909 PropertyList))")12910 (SETF (GET '|PropertyListNotEmpty| :PRODUCTION) "12911 {33} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*")12912 (SETF (GET '|VerbObjectList| :PRODUCTION) "12913 VerbObjectList ::= Verb ObjectList")12914 (SETF (GET '|PropertyList| :PRODUCTION) "12915 {34} PropertyList ::= PropertyListNotEmpty?")12916 (SETF (GET '|ObjectList| :PRODUCTION) "12917 {35} ObjectList ::= Object (',' Object)*")12918 (SETF (GET '|Object| :PRODUCTION) "12919 {36} Object ::= GraphNode")12920 (SETF (GET '|Verb| :PRODUCTION) "12921 Verb ::= (Path | VarOrIRIref | 'a')")12922 (SETF (GET '|Path| :PRODUCTION) "12923 {82} Path ::= PathAlternative")12924 (SETF (GET '|PathAlternative| :PRODUCTION) "12925 {83} PathAlternative ::= PathSequence ('|' PathSequence)*")12926 (SETF (GET '|PathSequence| :PRODUCTION) "12927 {84} PathSequence ::= PathEltOrInverse ('/' PathEltOrInverse)*")12928 (SETF (GET '|PathElt| :PRODUCTION) "12929 {85} PathElt ::= PathPrimary PathMod?")12930 (SETF (GET '|PathEltOrInverse| :PRODUCTION) "12931 {86} PathEltOrInverse ::= (PathElt | ('^' InvertedPathElt))")12932 (SETF (GET '|InvertedPathElt| :PRODUCTION) "12933 InvertedPathElt ::= PathElt")12934 (SETF (GET '|PathMod| :PRODUCTION) "12935 {87} PathMod ::= (PathCardinality | PathRange)")12936 (SETF (GET '|PathRange| :PRODUCTION) "12937 PathRange ::= '{' (((PathRangeStart ',') | (PathRangeStart12938 ','12939 PathRangeEnd) | (','12940 PathRangeEnd) | PathRangeCount)) '}'")12941 (SETF (GET '|PathPrimary| :PRODUCTION) "12942 {88} PathPrimary ::= (PathVerb | ('!' PathNegatedPropertySet) | ('(' Path ')'))")12943 (SETF (GET '|PathVerb| :PRODUCTION) "12944 PathVerb ::= (IRIref | 'a')")12945 (SETF (GET '|PathNegatedPropertySet| :PRODUCTION) "12946 {89} PathNegatedPropertySet ::= (PathOneInPropertySet | ('('12947 (PathOneInPropertySet12948 ('|'12949 PathOneInPropertySet)*)?12950 ')'))")12951 (SETF (GET '|PathOneInPropertySet| :PRODUCTION) "12952 {90} PathOneInPropertySet ::= (PathVerb | (PathInvertOp PathVerb))")12953 (SETF (GET '|TriplesNode| :PRODUCTION) "12954 {38} TriplesNode ::= (Collection | BlankNodePropertyList)")12955 (SETF (GET '|BlankNodePropertyList| :PRODUCTION) "12956 {39} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'")12957 (SETF (GET '|Collection| :PRODUCTION) "12958 {40} Collection ::= '(' GraphNode+ ')'")12959 (SETF (GET '|GraphNode| :PRODUCTION) "12960 {41} GraphNode ::= (VarOrTerm | TriplesNode)")12961 (SETF (GET '|VarOrTerm| :PRODUCTION) "12962 {42} VarOrTerm ::= (Var | GraphTerm)")12963 (SETF (GET '|VarOrIRIref| :PRODUCTION) "12964 {43} VarOrIRIref ::= (Var | IRIref)")12965 (SETF (GET '|GraphTerm| :PRODUCTION) "12966 {45} GraphTerm ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST)")12967 (SETF (GET '|Expression| :PRODUCTION) "12968 {46} Expression ::= ConditionalOrExpression")12969 (SETF (GET '|ConditionalOrExpression| :PRODUCTION) "12970 {47} ConditionalOrExpression ::= ConditionalAndExpression ('||'12971 ConditionalAndExpression)*")12972 (SETF (GET '|ConditionalAndExpression| :PRODUCTION) "12973 {48} ConditionalAndExpression ::= ValueLogical ('&&' ValueLogical)*")12974 (SETF (GET '|ValueLogical| :PRODUCTION) "12975 {49} ValueLogical ::= RelationalExpression")12976 (SETF (GET '|RelationalExpression| :PRODUCTION) "12977 {50} RelationalExpression ::= NumericExpression RelatedNumeric?")12978 (SETF (GET '|RelatedNumeric| :PRODUCTION) "12979 RelatedNumeric ::= RelationalOperator NumericExpression")12980 (SETF (GET '|NumericExpression| :PRODUCTION) "12981 {51} NumericExpression ::= AdditiveExpression")12982 (SETF (GET '|AdditiveExpression| :PRODUCTION) "12983 {52} AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*")12984 (SETF (GET '|AddedMultiplicative| :PRODUCTION) "12985 AddedMultiplicative ::= ((AdditiveOperator12986 MultiplicativeExpression) | NumericLiteralPositive | NumericLiteralNegative)")12987 (SETF (GET '|MultiplicativeExpression| :PRODUCTION) "12988 {53} MultiplicativeExpression ::= UnaryExpression MultipliedUnary*")12989 (SETF (GET '|MultipliedUnary| :PRODUCTION) "12990 MultipliedUnary ::= MultiplicativeOperator UnaryExpression")12991 (SETF (GET '|UnaryExpression| :PRODUCTION) "12992 {54} UnaryExpression ::= ((UnaryOperator PrimaryExpression) | PrimaryExpression)")12993 (SETF (GET '|PrimaryExpression| :PRODUCTION) "12994 {55} PrimaryExpression ::= (BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var | Aggregate)")12995 (SETF (GET '|BrackettedExpression| :PRODUCTION) "12996 {56} BrackettedExpression ::= '(' Expression ')'")12997 (SETF (GET '|BuiltInCall| :PRODUCTION) "12998 {57} BuiltInCall ::= (BuiltinNullCall | BuiltinNullOrUnaryCall | BuiltinBinaryCall | BuiltinUnaryCall | BuiltinListCall | RegexExpression | IfExpression | SubstringExpression | ExistsFunc | NotExistsFunc)")12999 (SETF (GET '|BuiltinNullCall| :PRODUCTION) "13000 BuiltinNullCall ::= NullOperator '(' ')'")13001 (SETF (GET '|BuiltinNullOrUnaryCall| :PRODUCTION) "13002 BuiltinNullOrUnaryCall ::= NullOrUnaryOperator '(' Expression? ')'")13003 (SETF (GET '|BuiltinUnaryCall| :PRODUCTION) "13004 {57} BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'")13005 (SETF (GET '|BuiltinBinaryCall| :PRODUCTION) "13006 {57} BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'")13007 (SETF (GET '|SubstringExpression| :PRODUCTION) "13008 SubstringExpression ::= 'SUBSTR' '(' Expression ',' Expression (','13009 Expression)? ')'")13010 (SETF (GET '|IfExpression| :PRODUCTION) "13011 IfExpression ::= 'IF' '(' Expression ',' Expression ',' Expression ')'")13012 (SETF (GET '|RegexExpression| :PRODUCTION) "13013 {58} RegexExpression ::= 'REGEX' '(' Expression ',' Expression (','13014 Expression)? ')'")13015 (SETF (GET '|ExistsFunc| :PRODUCTION) "13016 ExistsFunc ::= 'EXISTS' GroupGraphPattern")13017 (SETF (GET '|NotExistsFunc| :PRODUCTION) "13018 NotExistsFunc ::= 'NOT' 'EXISTS' GroupGraphPattern")13019 (SETF (GET '|BuiltinListCall| :PRODUCTION) "13020 BuiltinListCall ::= BuiltinListOperator ExpressionList")13021 (SETF (GET '|IRIrefOrFunction| :PRODUCTION) "13022 {59} IRIrefOrFunction ::= IRIref ArgList?")13023 (SETF (GET '|RDFLiteral| :PRODUCTION) "13024 {60} RDFLiteral ::= String ((LANGTAG | ('^^' IRIref)))?")13025 (SETF (GET '|IRIref| :PRODUCTION) "13026 {67} IRIref ::= (IRI_REF | PrefixedName)")13027 (SETF (GET '|BlankNode| :PRODUCTION) "13028 {69} BlankNode ::= (BLANK_NODE_LABEL | ANON)")13029 (SETF (GET 'IRI_REF :PRODUCTION) "13030 {70} IRI_REF ::= '<' IRI_NAMESTRING? '>'")13031 (SETF (GET 'NAMESPACE_REF :PRODUCTION) "13032 {70} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'")13033 (SETF (GET 'BLANK_NODE_LABEL :PRODUCTION) "13034 {73} BLANK_NODE_LABEL ::= '_:' PN_LOCAL")13035 (SETF (GET 'NILLIST :PRODUCTION) "13036 {92} NILLIST ::= '(' ')'")13037 (SETF (GET 'ANON :PRODUCTION) "13038 {94} ANON ::= '[' ']'")13039 (SETF (GET '|Aggregate| :PRODUCTION) "13040 {110} Aggregate ::= (CountAggregate | ArithmeticAggregate | ConcatAggregate)")13041 (SETF (GET '|CountAggregate| :PRODUCTION) "13042 {110} CountAggregate ::= 'COUNT' '(' Distinctness? ((Wild | Expression)) ')'")13043 (SETF (GET '|ArithmeticAggregate| :PRODUCTION) "13044 {110} ArithmeticAggregate ::= ArithmeticAggregateOperator '(' Distinctness? Expression ')'")13045 (SETF (GET '|ConcatAggregate| :PRODUCTION) "13046 {110} ConcatAggregate ::= 'GROUP_CONCAT' '(' Distinctness? Expression (';'13047 'SEPARATOR'13048 '='13049 String)? ')'")13050 (DEFUN |Query-Parser| (ATN-PARSER::*ATN-INPUT &KEY ((:TRACE *ATN-TRACE*) *ATN-TRACE*)13051 ((:TRACE-NETS *ATN-TRACE-NETS*) *ATN-TRACE-NETS*) ((:START-NAME ATN-PARSER::*ATN-START-NAME) '|Query|)13052 ((:MODE ATN-PARSER::*ATN-MODE) :MULTIPLE) ((:REDUCE *ATN-REDUCE*) T)13053 ((:REGISTER-WORDS *ATN-REGISTER-WORDS) NIL)13054 (ATN-PARSER::ATN-WFST (MAKE-ARRAY 8 :ADJUSTABLE T :ELEMENT-TYPE 'LIST :INITIAL-ELEMENT NIL)13055 ATN-PARSER::AW-S)13056 &ALLOW-OTHER-KEYS &AUX)13057 "// generated 2011.06.24T17:13:44 based on \"P-LIBRARY:org;datagraph;spocq;src;core;encoding;sparql-1-0-3.bnf\" from 2011.06.24T17:13:15.13058 // 1.0.1 adds aggregation expressions and select as bindings13059 // 1.0.2 adds groups and related forms13060 // 1.0.3 add property paths13061 13062 [[1]] Query ::= Prologue ( SelectQuery | ConstructQuery | DescribeQuery | AskQuery ) BindingsClause?13063 [[2]] Prologue ::= BaseDecl? PrefixDecl*13064 [[3]] BaseDecl ::= 'BASE' IRI_REF13065 [[4]] PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF13066 // [[5]] SelectQuery ::= 'SELECT' Distinctness? ( Var+ | '*' ) DatasetClause* WhereClause SolutionModifier13067 [[5]] SelectQuery ::= SelectClause DatasetClause* WhereClause SolutionModifier13068 SelectClause ::= 'SELECT' Distinctness? ( ( VariableOrBinding )+ | Wild )13069 [[5]] Distinctness ::= 'DISTINCT' | 'REDUCED'13070 [[5]] VariableOrBinding ::= Var | ( '(' Expression 'AS' Var ')' )13071 Wild ::= '*'13072 [[6]] ConstructQuery ::= 'CONSTRUCT' ( ConstructTemplate | Wild | Var+ ) DatasetClause* WhereClause SolutionModifier13073 [[7]] DescribeQuery ::= 'DESCRIBE' ( VarOrIRIref+ | '*' ) DatasetClause* WhereClause? SolutionModifier13074 [[8]] AskQuery ::= 'ASK' DatasetClause* WhereClause13075 [[9]] DatasetClause ::= 'FROM' ( DefaultGraphClause | NamedGraphClause )13076 [[10]] DefaultGraphClause ::= SourceSelector13077 [[11]] NamedGraphClause ::= 'NAMED' SourceSelector13078 [[12]] SourceSelector ::= IRIref13079 [[13]] WhereClause ::= 'WHERE'? GroupGraphPattern13080 [[14]] SolutionModifier ::= GroupClause? HavingClause? OrderClause? LimitOffsetClauses?13081 // 1.0.2 groups and having13082 [[18a]] GroupClause ::= 'GROUP' 'BY' GroupCondition+13083 [[19a]] GroupCondition ::= BuiltInCall | FunctionCall | VariableOrBindingOrExpression13084 [[19a]] VariableOrBindingOrExpression ::= ( '(' Expression ( 'AS' Var )? ')' ) | Var13085 [[20a]] HavingClause ::= 'HAVING' HavingCondition+13086 [[21a]] HavingCondition ::= Constraint13087 13088 [[15]] LimitOffsetClauses ::= ( ( LimitClause OffsetClause?) | (OffsetClause LimitClause?) )13089 [[16]] OrderClause ::= 'ORDER' 'BY' OrderCondition+13090 [[17]] OrderCondition ::= ( OrderDirection BrackettedExpression ) | Constraint | Var13091 OrderDirection ::= 'ASC' | 'DESC'13092 [[18]] LimitClause ::= 'LIMIT' INTEGER13093 [[19]] OffsetClause ::= 'OFFSET' INTEGER13094 // 1.0.2 bindings13095 BindingsClause ::='BINDINGS' Var* '{' BindingList* '}'13096 BindingList ::= '(' BindingValue* ')'13097 BindingValue ::= IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | Undef13098 Undef ::= 'UNDEF'13099 // 1.0.2 sub-queries13100 [[20]] GroupGraphPattern ::= '{' ( SubSelect | GroupGraphPatternSub ) '}'13101 GroupGraphPatternSub ::= TriplesBlock? GroupGraphPatternRest*13102 GroupGraphPatternRest ::= ( GraphPatternNotTriples | Filter | Bind ) '.'? TriplesBlock?13103 SubSelect ::= SelectClause WhereClause SolutionModifier13104 Bind ::= 'BIND' '(' Expression 'AS' Var ')'13105 [[21]] TriplesBlock ::= TriplesSameSubject ( '.' TriplesBlock? )?13106 [[22]] GraphPatternNotTriples ::= OptionalGraphPattern | GroupOrUnionGraphPattern | MinusGraphPattern | GraphGraphPattern13107 [[23]] OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern13108 [[24]] GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern13109 [[25]] GroupOrUnionGraphPattern ::= GroupGraphPattern ( 'UNION' GroupGraphPattern )*13110 // 1.0.3 minus13111 [[57]] MinusGraphPattern ::= 'MINUS' GroupGraphPattern // 1.113112 [[26]] Filter ::= 'FILTER' Constraint13113 [[27]] Constraint ::= BrackettedExpression | BuiltInCall | FunctionCall13114 [[28]] FunctionCall ::= IRIref ArgList13115 [[29]] ArgList ::= NILLIST | ( '(' Expression ( ',' Expression )* ')' ) // will get distinct13116 ExpressionList ::= NILLIST | ( '(' Expression ( ',' Expression )* ')' )13117 [[30]] ConstructTemplate ::= '{' ConstructTriples? '}'13118 [[31]] ConstructTriples ::= TriplesSameSubject ( '.' ConstructTriples? )?13119 [[32]] TriplesSameSubject ::= ( VarOrTerm PropertyListNotEmpty ) | ( TriplesNode PropertyList )13120 [[33]] PropertyListNotEmpty ::= VerbObjectList ( ';' VerbObjectList? )* 13121 VerbObjectList ::= Verb ObjectList13122 [[34]] PropertyList ::= PropertyListNotEmpty?13123 [[35]] ObjectList ::= Object ( ',' Object )*13124 [[36]] Object ::= GraphNode13125 // [[37]] Verb ::= VarOrIRIref | 'a'13126 // incorporate 1.1 property paths13127 Verb :: Path | VarOrIRIref | 'a'13128 [[82]] Path ::= PathAlternative13129 [[83]] PathAlternative ::= PathSequence ( '|' PathSequence )*13130 [[84]] PathSequence ::= PathEltOrInverse ( '/' PathEltOrInverse )*13131 [[85]] PathElt ::= PathPrimary PathMod?13132 [[86]] PathEltOrInverse ::= PathElt | ( '^' InvertedPathElt )13133 InvertedPathElt ::= PathElt13134 [[87]] PathMod ::= PathCardinality | PathRange13135 PathCardinality ::= '*' | '?' | '+'13136 PathRange ::= '{' ( ( PathRangeStart ',' ) |13137 ( PathRangeStart ',' PathRangeEnd ) |13138 ( ',' PathRangeEnd ) |13139 PathRangeCount ) '}'13140 PathRangeStart ::= INTEGER13141 PathRangeEnd ::= INTEGER13142 PathRangeCount ::= INTEGER13143 [[88]] PathPrimary ::= PathVerb | ( '!' PathNegatedPropertySet ) | ( '(' Path ')' )13144 PathVerb :: IRIref | 'a'13145 [[89]] PathNegatedPropertySet ::= PathOneInPropertySet | ( '(' ( PathOneInPropertySet ( '|' PathOneInPropertySet )* )? ')' )13146 [[90]] PathOneInPropertySet ::= PathVerb | ( PathInvertOp PathVerb )13147 PathInvertOp ::= '^'13148 13149 13150 [[38]] TriplesNode ::= Collection | BlankNodePropertyList13151 [[39]] BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'13152 [[40]] Collection ::= '(' GraphNode+ ')'13153 [[41]] GraphNode ::= VarOrTerm | TriplesNode13154 [[42]] VarOrTerm ::= Var | GraphTerm13155 [[43]] VarOrIRIref ::= Var | IRIref13156 // [[44]] Var ::= VAR1 | VAR213157 [[45]] GraphTerm ::= IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST13158 [[46]] Expression ::= ConditionalOrExpression13159 [[47]] ConditionalOrExpression ::= ConditionalAndExpression ( '||' ConditionalAndExpression )*13160 [[48]] ConditionalAndExpression ::= ValueLogical ( '&&' ValueLogical )*13161 [[49]] ValueLogical ::= RelationalExpression13162 [[50]] RelationalExpression ::= NumericExpression RelatedNumeric ?13163 RelationalOperator ::= '=' | '!=' | '<' | '>' | '<=' | '>='13164 RelatedNumeric ::= RelationalOperator NumericExpression13165 [[51]] NumericExpression ::= AdditiveExpression13166 [[52]] AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*13167 AdditiveOperator ::= '+' | '-'13168 // add the literals to accommodate 1.1's [106]13169 AddedMultiplicative :: ( AdditiveOperator MultiplicativeExpression ) | NumericLiteralPositive | NumericLiteralNegative13170 // | NumericLiteralPositive | NumericLiteralNegative already appear through primary expression13171 [[53]] MultiplicativeExpression ::= UnaryExpression MultipliedUnary*13172 MultiplicativeOperator ::= '*' | '/'13173 MultipliedUnary ::= MultiplicativeOperator UnaryExpression13174 [[54]] UnaryExpression ::= ( UnaryOperator PrimaryExpression ) | PrimaryExpression13175 UnaryOperator ::= '!' | '+' | '-'13176 [[55]] PrimaryExpression ::= BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var | Aggregate13177 [[56]] BrackettedExpression ::= '(' Expression ')'13178 [[57]] BuiltInCall ::= BuiltinNullCall | BuiltinNullOrUnaryCall | BuiltinBinaryCall | BuiltinUnaryCall | BuiltinListCall |13179 RegexExpression | IfExpression | SubstringExpression | ExistsFunc | NotExistsFunc13180 BuiltinNullCall ::= NullOperator '(' ')'13181 NullOperator ::= 'RAND' | 'NOW'13182 BuiltinNullOrUnaryCall ::= NullOrUnaryOperator '(' Expression? ')'13183 NullOrUnaryOperator ::= 'BNODE'13184 [[57]] BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'13185 [[57]] BuiltinUnaryOperator ::= 'STR' | 'LANG' | 'DATATYPE' | 'BOUND' | 'IRI' | 'URI' | 'ABS' | 'CEIL' | 'FLOOR' | 'ROUND' |13186 'STRLEN' | 'UCASE' | 'LCASE' | 'ENCODE_FOR_URI' | 13187 'YEAR' | 'MONTH' | 'DAY' | 'HOURS' | 'MINUTES' | 'SECONDS' | 'TIMEZONE' | 'TZ' |13188 'MD5' | 'SHA1' | 'SHA224' | 'SHA256' | 'SHA384' | 'SHA512' |13189 'isIRI' | 'isURI' | 'isBlank' | 'isLiteral' | 'isNumeric'13190 [[57]] BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'13191 [[57]] BuiltinBinaryOperator ::= 'LANGMATCHES' | 'CONTAINS' | 'STRSTARTS' | 'STRENDS' | 'STRLANG' | 'STRDT' | 'sameTerm'13192 SubstringExpression ::= 'SUBSTR' '(' Expression ',' Expression ( ',' Expression )? ')'13193 IfExpression ::= 'IF' '(' Expression ',' Expression ',' Expression ')'13194 [[58]] RegexExpression ::= 'REGEX' '(' Expression ',' Expression ( ',' Expression )? ')'13195 ExistsFunc ::= 'EXISTS' GroupGraphPattern13196 NotExistsFunc ::= 'NOT' 'EXISTS' GroupGraphPattern13197 BuiltinListCall ::= BuiltinListOperator ExpressionList13198 BuiltinListOperator ::= 'CONCAT' | 'COALESCE'13199 [[59]] IRIrefOrFunction ::= IRIref ArgList?13200 [[60]] RDFLiteral ::= String ( LANGTAG | ( '^^' IRIref ) )?13201 [[61]] NumericLiteral ::= NumericLiteralUnsigned | NumericLiteralPositive | NumericLiteralNegative13202 [[62]] NumericLiteralUnsigned ::= INTEGER | DECIMAL | DOUBLE13203 [[63]] NumericLiteralPositive ::= INTEGER_POSITIVE | DECIMAL_POSITIVE | DOUBLE_POSITIVE13204 [[64]] NumericLiteralNegative ::= INTEGER_NEGATIVE | DECIMAL_NEGATIVE | DOUBLE_NEGATIVE13205 [[65]] BooleanLiteral ::= 'true' | 'false'13206 [[66]] String ::= STRING_LITERAL1 | STRING_LITERAL2 | STRING_LITERAL_LONG1 | STRING_LITERAL_LONG213207 [[67]] IRIref ::= IRI_REF | PrefixedName13208 [[68]] PrefixedName ::= PNAME_LN | PNAME_NS13209 [[69]] BlankNode ::= BLANK_NODE_LABEL | ANON13210 // [[70]] IRI_REF ::= '<' ([^<>\"{}|^`\\]-[#x00-#x20])* '>'13211 [[70]] IRI_REF ::= '<' IRI_NAMESTRING? '>'13212 [[70]] NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'13213 // [[71]] PNAME_NS ::= PN_PREFIX? ':'13214 // [[72]] PNAME_LN ::= PNAME_NS PN_LOCAL13215 [[73]] BLANK_NODE_LABEL ::= '_:' PN_LOCAL13216 // [[74]] VAR1 ::= '?' VARNAME13217 // [[75]] VAR2 ::= '$' VARNAME13218 // [[76]] LANGTAG ::= '@' [a-zA-Z]+ ('-' [a-zA-Z0-9]+)*13219 // [[77]] INTEGER ::= [0-9]+13220 // [[78]] DECIMAL ::= [0-9]+ '.' [0-9]* | '.' [0-9]+13221 // [[79]] DOUBLE ::= [0-9]+ '.' [0-9]* EXPONENT | '.' ([0-9])+ EXPONENT | ([0-9])+ EXPONENT13222 // [[80]] INTEGER_POSITIVE ::= '+' INTEGER13223 // [[81]] DECIMAL_POSITIVE ::= '+' DECIMAL13224 // [[82]] DOUBLE_POSITIVE ::= '+' DOUBLE13225 // [[83]] INTEGER_NEGATIVE ::= '-' INTEGER13226 // [[84]] DECIMAL_NEGATIVE ::= '-' DECIMAL13227 // [[85]] DOUBLE_NEGATIVE ::= '-' DOUBLE13228 // [[86]] EXPONENT ::= [eE] [+-]? [0-9]+13229 // [[87]] STRING_LITERAL1 ::= \"'\" ( ([^#x27#x5C#xA#xD]) | ECHAR )* \"'\"13230 // [[88]] STRING_LITERAL2 ::= '\"' ( ([^#x22#x5C#xA#xD]) | ECHAR )* '\"'13231 // [[89]] STRING_LITERAL_LONG1 ::= \"'''\" ( ( \"'\" | \"''\" )? ( [^'\\] | ECHAR ) )* \"'''\"13232 // [[90]] STRING_LITERAL_LONG2 ::= '\"\"\"' ( ( '\"' | '\"\"' )? ( [^\"\\] | ECHAR ) )* '\"\"\"'13233 // [[91]] ECHAR ::= '\\' [tbnrf\\\"']13234 [[92]] NILLIST ::= '(' ')'13235 // [[93]] WS ::= #x20 | #x9 | #xD | #xA13236 [[94]] ANON ::= '[' ']'13237 // [[95]] PN_CHARS_BASE ::= [A-Z] | [a-z] | [#x00C0-#x00D6] | [#x00D8-#x00F6] | [#x00F8-#x02FF] | [#x0370-#x037D] | [#x037F-#x1FFF] | [#x200C-#x200D] | [#x2070-#x218F] | [#x2C00-#x2FEF] | [#x3001-#xD7FF] | [#xF900-#xFDCF] | [#xFDF0-#xFFFD] | [#x10000-#xEFFFF]13238 // [[96]] PN_CHARS_U ::= PN_CHARS_BASE | '_'13239 // [[97]] VARNAME ::= ( PN_CHARS_U | [0-9] ) ( PN_CHARS_U | [0-9] | #x00B7 | [#x0300-#x036F] | [#x203F-#x2040] )*13240 // [[98]] PN_CHARS ::= PN_CHARS_U | '-' | [0-9] | #x00B7 | [#x0300-#x036F] | [#x203F-#x2040]13241 // [[99]] PN_PREFIX ::= PN_CHARS_BASE ((PN_CHARS|'.')* PN_CHARS)?13242 // [[100]] PN_LOCAL ::= ( PN_CHARS_U | [0-9] ) ((PN_CHARS|'.')* PN_CHARS)?13243 13244 13245 // 1.0.1 additions : select aggregates13246 [[110]] Aggregate ::= CountAggregate | ArithmeticAggregate | ConcatAggregate13247 [[110]] CountAggregate ::= 'COUNT' '(' Distinctness? ( Wild | Expression ) ')'13248 [[110]] ArithmeticAggregate ::= ArithmeticAggregateOperator '(' Distinctness? Expression ')'13249 [[110]] ArithmeticAggregateOperator ::= 'MIN' | 'MAX' | 'AVG' | 'SAMPLE' | 'SUM'13250 [[110]] ConcatAggregate ::= 'GROUP_CONCAT' '(' Distinctness? Expression ( ';' 'SEPARATOR' '=' String )? ')'13251 13252 // 1.0.2 additions : group, aggregates, and having13253 13254 "13255 (DECLARE (SPECIAL *ATN-REDUCE* ATN-PARSER::*ATN-MODE ATN-PARSER::*ATN-INPUT))13256 (WHEN ATN-PARSER::AW-S (|wfst-initialize| ATN-PARSER::ATN-WFST))13257 (LET ((*ATN-LEVEL 0)13258 (*ATN-WFST ATN-PARSER::ATN-WFST)13259 (*ATN-STACK '(|Query-Parser|))13260 (*ATN-NODE NIL)13261 (*ATN-PROPERTIES NIL)13262 (*ATN-CLASS NIL)13263 (|Query-INDEX| -1)13264 (|Prologue-INDEX| -1)13265 (|BaseDecl-INDEX| -1)13266 (|PrefixDecl-INDEX| -1)13267 (|SelectQuery-INDEX| -1)13268 (|SelectClause-INDEX| -1)13269 (|VariableOrBinding-INDEX| -1)13270 (|ConstructQuery-INDEX| -1)13271 (|DescribeQuery-INDEX| -1)13272 (|AskQuery-INDEX| -1)13273 (|DatasetClause-INDEX| -1)13274 (|DefaultGraphClause-INDEX| -1)13275 (|NamedGraphClause-INDEX| -1)13276 (|SourceSelector-INDEX| -1)13277 (|WhereClause-INDEX| -1)13278 (|SolutionModifier-INDEX| -1)13279 (|GroupClause-INDEX| -1)13280 (|GroupCondition-INDEX| -1)13281 (|VariableOrBindingOrExpression-INDEX| -1)13282 (|HavingClause-INDEX| -1)13283 (|HavingCondition-INDEX| -1)13284 (|LimitOffsetClauses-INDEX| -1)13285 (|OrderClause-INDEX| -1)13286 (|OrderCondition-INDEX| -1)13287 (|LimitClause-INDEX| -1)13288 (|OffsetClause-INDEX| -1)13289 (|BindingsClause-INDEX| -1)13290 (|BindingList-INDEX| -1)13291 (|BindingValue-INDEX| -1)13292 (|GroupGraphPattern-INDEX| -1)13293 (|GroupGraphPatternSub-INDEX| -1)13294 (|GroupGraphPatternRest-INDEX| -1)13295 (|SubSelect-INDEX| -1)13296 (|Bind-INDEX| -1)13297 (|TriplesBlock-INDEX| -1)13298 (|GraphPatternNotTriples-INDEX| -1)13299 (|OptionalGraphPattern-INDEX| -1)13300 (|GraphGraphPattern-INDEX| -1)13301 (|GroupOrUnionGraphPattern-INDEX| -1)13302 (|MinusGraphPattern-INDEX| -1)13303 (|Filter-INDEX| -1)13304 (|Constraint-INDEX| -1)13305 (|FunctionCall-INDEX| -1)13306 (|ArgList-INDEX| -1)13307 (|ExpressionList-INDEX| -1)13308 (|ConstructTemplate-INDEX| -1)13309 (|ConstructTriples-INDEX| -1)13310 (|TriplesSameSubject-INDEX| -1)13311 (|PropertyListNotEmpty-INDEX| -1)13312 (|VerbObjectList-INDEX| -1)13313 (|PropertyList-INDEX| -1)13314 (|ObjectList-INDEX| -1)13315 (|Object-INDEX| -1)13316 (|Verb-INDEX| -1)13317 (|Path-INDEX| -1)13318 (|PathAlternative-INDEX| -1)13319 (|PathSequence-INDEX| -1)13320 (|PathElt-INDEX| -1)13321 (|PathEltOrInverse-INDEX| -1)13322 (|InvertedPathElt-INDEX| -1)13323 (|PathMod-INDEX| -1)13324 (|PathRange-INDEX| -1)13325 (|PathPrimary-INDEX| -1)13326 (|PathVerb-INDEX| -1)13327 (|PathNegatedPropertySet-INDEX| -1)13328 (|PathOneInPropertySet-INDEX| -1)13329 (|TriplesNode-INDEX| -1)13330 (|BlankNodePropertyList-INDEX| -1)13331 (|Collection-INDEX| -1)13332 (|GraphNode-INDEX| -1)13333 (|VarOrTerm-INDEX| -1)13334 (|VarOrIRIref-INDEX| -1)13335 (|GraphTerm-INDEX| -1)13336 (|Expression-INDEX| -1)13337 (|ConditionalOrExpression-INDEX| -1)13338 (|ConditionalAndExpression-INDEX| -1)13339 (|ValueLogical-INDEX| -1)13340 (|RelationalExpression-INDEX| -1)13341 (|RelatedNumeric-INDEX| -1)13342 (|NumericExpression-INDEX| -1)13343 (|AdditiveExpression-INDEX| -1)13344 (|AddedMultiplicative-INDEX| -1)13345 (|MultiplicativeExpression-INDEX| -1)13346 (|MultipliedUnary-INDEX| -1)13347 (|UnaryExpression-INDEX| -1)13348 (|PrimaryExpression-INDEX| -1)13349 (|BrackettedExpression-INDEX| -1)13350 (|BuiltInCall-INDEX| -1)13351 (|BuiltinNullCall-INDEX| -1)13352 (|BuiltinNullOrUnaryCall-INDEX| -1)13353 (|BuiltinUnaryCall-INDEX| -1)13354 (|BuiltinBinaryCall-INDEX| -1)13355 (|SubstringExpression-INDEX| -1)13356 (|IfExpression-INDEX| -1)13357 (|RegexExpression-INDEX| -1)13358 (|ExistsFunc-INDEX| -1)13359 (|NotExistsFunc-INDEX| -1)13360 (|BuiltinListCall-INDEX| -1)13361 (|IRIrefOrFunction-INDEX| -1)13362 (|RDFLiteral-INDEX| -1)13363 (|IRIref-INDEX| -1)13364 (|BlankNode-INDEX| -1)13365 (IRI_REF-INDEX -1)13366 (NAMESPACE_REF-INDEX -1)13367 (BLANK_NODE_LABEL-INDEX -1)13368 (NILLIST-INDEX -1)13369 (ANON-INDEX -1)13370 (|Aggregate-INDEX| -1)13371 (|CountAggregate-INDEX| -1)13372 (|ArithmeticAggregate-INDEX| -1)13373 (|ConcatAggregate-INDEX| -1)13374 (ATN-PARSER::ATN-NET-NAMES13375 '(|Query| |Prologue|13376 |BaseDecl|13377 |PrefixDecl|13378 |SelectQuery|13379 |SelectClause|13380 |VariableOrBinding|13381 |ConstructQuery|13382 |DescribeQuery|13383 |AskQuery|13384 |DatasetClause|13385 |DefaultGraphClause|13386 |NamedGraphClause|13387 |SourceSelector|13388 |WhereClause|13389 |SolutionModifier|13390 |GroupClause|13391 |GroupCondition|13392 |VariableOrBindingOrExpression|13393 |HavingClause|13394 |HavingCondition|13395 |LimitOffsetClauses|13396 |OrderClause|13397 |OrderCondition|13398 |LimitClause|13399 |OffsetClause|13400 |BindingsClause|13401 |BindingList|13402 |BindingValue|13403 |GroupGraphPattern|13404 |GroupGraphPatternSub|13405 |GroupGraphPatternRest|13406 |SubSelect|13407 |Bind|13408 |TriplesBlock|13409 |GraphPatternNotTriples|13410 |OptionalGraphPattern|13411 |GraphGraphPattern|13412 |GroupOrUnionGraphPattern|13413 |MinusGraphPattern|13414 |Filter|13415 |Constraint|13416 |FunctionCall|13417 |ArgList|13418 |ExpressionList|13419 |ConstructTemplate|13420 |ConstructTriples|13421 |TriplesSameSubject|13422 |PropertyListNotEmpty|13423 |VerbObjectList|13424 |PropertyList|13425 |ObjectList|13426 |Object|13427 |Verb|13428 |Path|13429 |PathAlternative|13430 |PathSequence|13431 |PathElt|13432 |PathEltOrInverse|13433 |InvertedPathElt|13434 |PathMod|13435 |PathRange|13436 |PathPrimary|13437 |PathVerb|13438 |PathNegatedPropertySet|13439 |PathOneInPropertySet|13440 |TriplesNode|13441 |BlankNodePropertyList|13442 |Collection|13443 |GraphNode|13444 |VarOrTerm|13445 |VarOrIRIref|13446 |GraphTerm|13447 |Expression|13448 |ConditionalOrExpression|13449 |ConditionalAndExpression|13450 |ValueLogical|13451 |RelationalExpression|13452 |RelatedNumeric|13453 |NumericExpression|13454 |AdditiveExpression|13455 |AddedMultiplicative|13456 |MultiplicativeExpression|13457 |MultipliedUnary|13458 |UnaryExpression|13459 |PrimaryExpression|13460 |BrackettedExpression|13461 |BuiltInCall|13462 |BuiltinNullCall|13463 |BuiltinNullOrUnaryCall|13464 |BuiltinUnaryCall|13465 |BuiltinBinaryCall|13466 |SubstringExpression|13467 |IfExpression|13468 |RegexExpression|13469 |ExistsFunc|13470 |NotExistsFunc|13471 |BuiltinListCall|13472 |IRIrefOrFunction|13473 |RDFLiteral|13474 |IRIref|13475 |BlankNode|13476 IRI_REF13477 NAMESPACE_REF13478 BLANK_NODE_LABEL13479 NILLIST13480 ANON13481 |Aggregate|13482 |CountAggregate|13483 |ArithmeticAggregate|13484 |ConcatAggregate|)))13485 (DECLARE13486 (SPECIAL |Query-INDEX| |Prologue-INDEX| |BaseDecl-INDEX| |PrefixDecl-INDEX| |SelectQuery-INDEX| |SelectClause-INDEX|13487 |VariableOrBinding-INDEX| |ConstructQuery-INDEX| |DescribeQuery-INDEX| |AskQuery-INDEX| |DatasetClause-INDEX|13488 |DefaultGraphClause-INDEX| |NamedGraphClause-INDEX| |SourceSelector-INDEX| |WhereClause-INDEX| |SolutionModifier-INDEX|13489 |GroupClause-INDEX| |GroupCondition-INDEX| |VariableOrBindingOrExpression-INDEX| |HavingClause-INDEX| |HavingCondition-INDEX|13490 |LimitOffsetClauses-INDEX| |OrderClause-INDEX| |OrderCondition-INDEX| |LimitClause-INDEX| |OffsetClause-INDEX|13491 |BindingsClause-INDEX| |BindingList-INDEX| |BindingValue-INDEX| |GroupGraphPattern-INDEX| |GroupGraphPatternSub-INDEX|13492 |GroupGraphPatternRest-INDEX| |SubSelect-INDEX| |Bind-INDEX| |TriplesBlock-INDEX| |GraphPatternNotTriples-INDEX|13493 |OptionalGraphPattern-INDEX| |GraphGraphPattern-INDEX| |GroupOrUnionGraphPattern-INDEX| |MinusGraphPattern-INDEX|13494 |Filter-INDEX| |Constraint-INDEX| |FunctionCall-INDEX| |ArgList-INDEX| |ExpressionList-INDEX| |ConstructTemplate-INDEX|13495 |ConstructTriples-INDEX| |TriplesSameSubject-INDEX| |PropertyListNotEmpty-INDEX| |VerbObjectList-INDEX| |PropertyList-INDEX|13496 |ObjectList-INDEX| |Object-INDEX| |Verb-INDEX| |Path-INDEX| |PathAlternative-INDEX| |PathSequence-INDEX| |PathElt-INDEX|13497 |PathEltOrInverse-INDEX| |InvertedPathElt-INDEX| |PathMod-INDEX| |PathRange-INDEX| |PathPrimary-INDEX| |PathVerb-INDEX|13498 |PathNegatedPropertySet-INDEX| |PathOneInPropertySet-INDEX| |TriplesNode-INDEX| |BlankNodePropertyList-INDEX|13499 |Collection-INDEX| |GraphNode-INDEX| |VarOrTerm-INDEX| |VarOrIRIref-INDEX| |GraphTerm-INDEX| |Expression-INDEX|13500 |ConditionalOrExpression-INDEX| |ConditionalAndExpression-INDEX| |ValueLogical-INDEX| |RelationalExpression-INDEX|13501 |RelatedNumeric-INDEX| |NumericExpression-INDEX| |AdditiveExpression-INDEX| |AddedMultiplicative-INDEX|13502 |MultiplicativeExpression-INDEX| |MultipliedUnary-INDEX| |UnaryExpression-INDEX| |PrimaryExpression-INDEX|13503 |BrackettedExpression-INDEX| |BuiltInCall-INDEX| |BuiltinNullCall-INDEX| |BuiltinNullOrUnaryCall-INDEX|13504 |BuiltinUnaryCall-INDEX| |BuiltinBinaryCall-INDEX| |SubstringExpression-INDEX| |IfExpression-INDEX| |RegexExpression-INDEX|13505 |ExistsFunc-INDEX| |NotExistsFunc-INDEX| |BuiltinListCall-INDEX| |IRIrefOrFunction-INDEX| |RDFLiteral-INDEX| |IRIref-INDEX|13506 |BlankNode-INDEX| IRI_REF-INDEX NAMESPACE_REF-INDEX BLANK_NODE_LABEL-INDEX NILLIST-INDEX ANON-INDEX |Aggregate-INDEX|13507 |CountAggregate-INDEX| |ArithmeticAggregate-INDEX| |ConcatAggregate-INDEX|))13508 (UNLESS (FIND ATN-PARSER::*ATN-START-NAME ATN-PARSER::ATN-NET-NAMES)13509 (ERROR "production not defined in system: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|Query-Parser|))13510 (UNLESS (FBOUNDP ATN-PARSER::*ATN-START-NAME)13511 (ERROR "parse function missing: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|Query-Parser|))13512 (HANDLER-BIND ((CONTINUABLE-PARSER-ERROR #'(LAMBDA (CONDITION) (SIGNAL CONDITION)))13513 (TERMINAL-PARSER-ERROR13514 #'(LAMBDA (CONDITION &AUX (ATN-PARSER::ACTION (CONDITION-ACTION CONDITION)))13515 (ETYPECASE ATN-PARSER::ACTION13516 (NULL)13517 (KEYWORD13518 (ECASE ATN-PARSER::ACTION13519 (:ABORT13520 (WHEN *ATN-TRACE*13521 (WARN "terminating parse on condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))13522 (RETURN-FROM |Query-Parser| (VALUES NIL CONDITION NIL)))13523 (:CONTINUE13524 (WHEN *ATN-TRACE*13525 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))13526 (CONTINUE CONDITION))13527 (:SIGNAL13528 (WHEN *ATN-TRACE*13529 (WARN "signaling parse condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))13530 (SIGNAL CONDITION)13531 (WHEN *ATN-TRACE*13532 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))13533 (CONTINUE CONDITION))))13534 #'(FUNCALL ATN-PARSER::ACTION))))13535 (ERROR #'(LAMBDA (CONDITION) (WHEN *ATN-TRACE* (WARN "parse raised condition: ~a." CONDITION)) NIL)))13536 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)13537 (ATN-PARSE-SUBSTRUCTURE* ATN-PARSER::*ATN-START-NAME 0)13538 (COND (ATN-PARSER::SUCCESS13539 (RETURN-FROM |Query-Parser|13540 (PROGN (WHEN (CDR ATN-PARSER::RESULT)13541 (WHEN *ATN-TRACE* (WARN "ambiguous results for term: ~s." ATN-PARSER::*ATN-START-NAME))13542 (SETF ATN-PARSER::RESULT (SORT ATN-PARSER::RESULT #'> :KEY #'REST)))13543 (DESTRUCTURING-BIND13544 (ATN-PARSER::RESULT . ATN-PARSER::INDEX)13545 (FIRST ATN-PARSER::RESULT)13546 (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX (INPUT-EOF? ATN-PARSER::INDEX))))))13547 (T13548 (RETURN-FROM |Query-Parser|13549 (VALUES NIL (REDUCE #'MAX ATN-PARSER::RESULT :KEY #'REST :INITIAL-VALUE 0) NIL))))))))