| Kind | Covered | All | % |
| expression | 0 | 11923 | 0.0 |
| branch | 0 | 826 | 0.0 |
1 2 (IN-PACKAGE "ORG.DATAGRAPH.SPOCQ.SPARQL-1-0-1") 3 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteral|)) 4 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralUnsigned|)) 5 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralPositive|)) 6 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralNegative|)) 7 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-String|)) 8 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PrefixedName|)) 9 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-Distinctness|)) 10 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-Wild|)) 11 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-OrderDirection|)) 12 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-RelationalOperator|)) 13 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-AdditiveOperator|)) 14 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-MultiplicativeOperator|)) 15 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-UnaryOperator|)) 16 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinUnaryOperator|)) 17 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinBinaryOperator|)) 18 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BooleanLiteral|)) 19 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-ArithmeticAggregateOperator|)) 20 (DECLAIM (FTYPE (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES T T T)) |Query-Parser|)) 21 (DEFUN |IS-NumericLiteral| (ATN-PARSER::ITEM)22 (%ATN-TRACE-FORM23 (AND ATN-PARSER::ITEM24 (OR (|IS-NumericLiteralUnsigned| ATN-PARSER::ITEM)25 (|IS-NumericLiteralPositive| ATN-PARSER::ITEM)26 (|IS-NumericLiteralNegative| ATN-PARSER::ITEM)))))27 (DEFUN |IS-NumericLiteralUnsigned| (ATN-PARSER::ITEM)28 (%ATN-TRACE-FORM29 (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM) (IS-DECIMAL ATN-PARSER::ITEM) (IS-DOUBLE ATN-PARSER::ITEM)))))30 (DEFUN |IS-NumericLiteralPositive| (ATN-PARSER::ITEM)31 (%ATN-TRACE-FORM32 (AND ATN-PARSER::ITEM33 (OR (IS-INTEGER_POSITIVE ATN-PARSER::ITEM) (IS-DECIMAL_POSITIVE ATN-PARSER::ITEM) (IS-DOUBLE_POSITIVE ATN-PARSER::ITEM)))))34 (DEFUN |IS-NumericLiteralNegative| (ATN-PARSER::ITEM)35 (%ATN-TRACE-FORM36 (AND ATN-PARSER::ITEM37 (OR (IS-INTEGER_NEGATIVE ATN-PARSER::ITEM) (IS-DECIMAL_NEGATIVE ATN-PARSER::ITEM) (IS-DOUBLE_NEGATIVE ATN-PARSER::ITEM)))))38 (DEFUN |IS-String| (ATN-PARSER::ITEM)39 (%ATN-TRACE-FORM40 (AND ATN-PARSER::ITEM41 (OR (IS-STRING_LITERAL1 ATN-PARSER::ITEM)42 (IS-STRING_LITERAL2 ATN-PARSER::ITEM)43 (IS-STRING_LITERAL_LONG1 ATN-PARSER::ITEM)44 (IS-STRING_LITERAL_LONG2 ATN-PARSER::ITEM)))))45 (DEFUN |IS-PrefixedName| (ATN-PARSER::ITEM)46 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-PNAME_LN ATN-PARSER::ITEM) (IS-PNAME_NS ATN-PARSER::ITEM)))))47 (DEFUN |IS-Distinctness| (ATN-PARSER::ITEM)48 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:DISTINCT) (EQ ATN-PARSER::ITEM 'SPOCQ.S:REDUCED)))))49 (DEFUN |IS-Wild| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:*)))))50 (DEFUN |IS-OrderDirection| (ATN-PARSER::ITEM)51 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:ASC) (EQ ATN-PARSER::ITEM 'SPOCQ.S:DESC)))))52 (DEFUN |IS-RelationalOperator| (ATN-PARSER::ITEM)53 (%ATN-TRACE-FORM54 (AND ATN-PARSER::ITEM55 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:=)56 (EQ ATN-PARSER::ITEM 'SPOCQ.S:!=)57 (EQ ATN-PARSER::ITEM 'SPOCQ.S:<)58 (EQ ATN-PARSER::ITEM 'SPOCQ.S:>)59 (EQ ATN-PARSER::ITEM 'SPOCQ.S:<=)60 (EQ ATN-PARSER::ITEM 'SPOCQ.S:>=)))))61 (DEFUN |IS-AdditiveOperator| (ATN-PARSER::ITEM)62 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:+) (EQ ATN-PARSER::ITEM 'SPOCQ.S:-)))))63 (DEFUN |IS-MultiplicativeOperator| (ATN-PARSER::ITEM)64 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:*) (EQ ATN-PARSER::ITEM 'SPOCQ.S:/)))))65 (DEFUN |IS-UnaryOperator| (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-BuiltinUnaryOperator| (ATN-PARSER::ITEM)69 (%ATN-TRACE-FORM70 (AND ATN-PARSER::ITEM71 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:STR)72 (EQ ATN-PARSER::ITEM 'SPOCQ.S:LANG)73 (EQ ATN-PARSER::ITEM 'SPOCQ.S:DATATYPE)74 (EQ ATN-PARSER::ITEM 'SPOCQ.S:BOUND)75 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isIRI|)76 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isURI|)77 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isBlank|)78 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isLiteral|)))))79 (DEFUN |IS-BuiltinBinaryOperator| (ATN-PARSER::ITEM)80 (%ATN-TRACE-FORM81 (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:LANGMATCHES) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|sameTerm|)))))82 (DEFUN |IS-BooleanLiteral| (ATN-PARSER::ITEM)83 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:|true|) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|false|)))))84 (DEFUN |IS-ArithmeticAggregateOperator| (ATN-PARSER::ITEM)85 (%ATN-TRACE-FORM86 (AND ATN-PARSER::ITEM87 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:MIN)88 (EQ ATN-PARSER::ITEM 'SPOCQ.S:MAX)89 (EQ ATN-PARSER::ITEM 'SPOCQ.S:AVG)90 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SAMPLE)91 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SUM)))))92 (PROGN (DEFVAR |Query-INDEX|)93 (DEFUN |Query| (ATN-PARSER::INDEX &AUX (|AskQuery| NIL) (|ConstructQuery| NIL) (|DescribeQuery| NIL) (|Prologue| NIL)94 (|SelectQuery| NIL))95 "{1 } Query ::= Prologue ((SelectQuery | ConstructQuery | DescribeQuery | AskQuery))96 (|AskQuery| |ConstructQuery| |DescribeQuery| |Prologue| |SelectQuery|)"97 (DECLARE (SPECIAL |Query-INDEX|))98 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Query-INDEX| *ATN-LEVEL))99 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))100 (IF (< |Query-INDEX| ATN-PARSER::INDEX)101 (LET ((|Query-INDEX| ATN-PARSER::INDEX)102 (*ATN-LEVEL (1+ *ATN-LEVEL))103 (*ATN-STACK (CONS '|Query| *ATN-STACK))104 (ATN-PARSER::ATN-STRUCTURE NIL))105 (DECLARE (SPECIAL |Query-INDEX|))106 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))107 (DECLARE (TYPE CONS *ATN-STACK))108 (SYMBOL-MACROLET109 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))110 (%ATN-BLOCK |Query|111 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)112 (SETF *ATN-TERM* '|Query|)113 (WHEN (INPUT-EOF? ATN-PARSER::INDEX)114 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE)))115 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)116 (|Query.2| (ATN-PARSER::INDEX)117 (%ATN-NODE-BLOCK118 |Query.2|119 (%ATN-EDGE-BLOCK120 (POP |Query|)121 (WHEN T122 (SETF *ATN-TERM* '|Query|)123 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"124 '|Query|125 ATN-PARSER::INDEX126 (LIST '|AskQuery|127 |AskQuery|128 '|ConstructQuery|129 |ConstructQuery|130 '|DescribeQuery|131 |DescribeQuery|132 '|Prologue|133 |Prologue|134 '|SelectQuery|135 |SelectQuery|))136 (LET ((ATN-PARSER::RESULT-STRUCTURE137 (IF (EQ *ATN-REDUCE* T)138 (|Query-Constructor|139 |AskQuery|140 |ConstructQuery|141 |DescribeQuery|142 |Prologue|143 |SelectQuery|)144 (IF (EQ *ATN-REDUCE* 'CONS)145 (CONS '|Query|146 (DELETE NIL147 (LIST |AskQuery|148 |ConstructQuery|149 |DescribeQuery|150 |Prologue|151 |SelectQuery|)))152 '|Query|))))153 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))154 (|Query/fail.3| (ATN-PARSER::INDEX)155 (%ATN-NODE-BLOCK |Query/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))156 (|Query/Query.2.4| (ATN-PARSER::INDEX)157 (%ATN-NODE-BLOCK158 |Query/Query.2.4|159 (%ATN-EDGE-BLOCK160 OR161 (PROGN (%ATN-EDGE-BLOCK162 (PUSH |SelectQuery|)163 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)164 (ATN-PARSE-SUBSTRUCTURE* '|SelectQuery| ATN-PARSER::INDEX)165 (COND (ATN-PARSER::SUCCESS166 (SETF *ATN-TERM* '|SelectQuery|)167 (LET ((|SelectQuery688| |SelectQuery|))168 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)169 (DESTRUCTURING-BIND170 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)171 ATN-PARSER::RESULT-AND-INDEX172 (WHEN ATN-PARSER::RESULT173 (SETF |SelectQuery| ATN-PARSER::RESULT))174 (|Query.2| ATN-PARSER::RESULT-INDEX))175 (SETF |SelectQuery| |SelectQuery688|))))176 (T (SETF *ATN-TERM?* '|SelectQuery|) NIL))))177 (%ATN-EDGE-BLOCK178 (PUSH |ConstructQuery|)179 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)180 (ATN-PARSE-SUBSTRUCTURE* '|ConstructQuery| ATN-PARSER::INDEX)181 (COND (ATN-PARSER::SUCCESS182 (SETF *ATN-TERM* '|ConstructQuery|)183 (LET ((|ConstructQuery688| |ConstructQuery|))184 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)185 (DESTRUCTURING-BIND186 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)187 ATN-PARSER::RESULT-AND-INDEX188 (WHEN ATN-PARSER::RESULT189 (SETF |ConstructQuery| ATN-PARSER::RESULT))190 (|Query.2| ATN-PARSER::RESULT-INDEX))191 (SETF |ConstructQuery| |ConstructQuery688|))))192 (T (SETF *ATN-TERM?* '|ConstructQuery|) NIL))))193 (%ATN-EDGE-BLOCK194 (PUSH |DescribeQuery|)195 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)196 (ATN-PARSE-SUBSTRUCTURE* '|DescribeQuery| ATN-PARSER::INDEX)197 (COND (ATN-PARSER::SUCCESS198 (SETF *ATN-TERM* '|DescribeQuery|)199 (LET ((|DescribeQuery688| |DescribeQuery|))200 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)201 (DESTRUCTURING-BIND202 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)203 ATN-PARSER::RESULT-AND-INDEX204 (WHEN ATN-PARSER::RESULT205 (SETF |DescribeQuery| ATN-PARSER::RESULT))206 (|Query.2| ATN-PARSER::RESULT-INDEX))207 (SETF |DescribeQuery| |DescribeQuery688|))))208 (T (SETF *ATN-TERM?* '|DescribeQuery|) NIL))))209 (%ATN-EDGE-BLOCK210 (PUSH |AskQuery|)211 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)212 (ATN-PARSE-SUBSTRUCTURE* '|AskQuery| ATN-PARSER::INDEX)213 (COND (ATN-PARSER::SUCCESS214 (SETF *ATN-TERM* '|AskQuery|)215 (LET ((|AskQuery688| |AskQuery|))216 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)217 (DESTRUCTURING-BIND218 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)219 ATN-PARSER::RESULT-AND-INDEX220 (WHEN ATN-PARSER::RESULT (SETF |AskQuery| ATN-PARSER::RESULT))221 (|Query.2| ATN-PARSER::RESULT-INDEX))222 (SETF |AskQuery| |AskQuery688|))))223 (T (SETF *ATN-TERM?* '|AskQuery|) NIL))))224 (|Query/fail.3| ATN-PARSER::INDEX)))))225 (|Query/start.1| (ATN-PARSER::INDEX)226 (%ATN-NODE-BLOCK227 |Query/start.1|228 (%ATN-EDGE-BLOCK229 (PUSH |Prologue|)230 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)231 (ATN-PARSE-SUBSTRUCTURE* '|Prologue| ATN-PARSER::INDEX)232 (COND (ATN-PARSER::SUCCESS233 (SETF *ATN-TERM* '|Prologue|)234 (LET ((|Prologue688| |Prologue|))235 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)236 (DESTRUCTURING-BIND237 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)238 ATN-PARSER::RESULT-AND-INDEX239 (WHEN ATN-PARSER::RESULT (SETF |Prologue| ATN-PARSER::RESULT))240 (|Query/Query.2.4| ATN-PARSER::RESULT-INDEX))241 (SETF |Prologue| |Prologue688|))))242 (T (SETF *ATN-TERM?* '|Prologue|) (|Query/fail.3| ATN-PARSER::INDEX))))))))243 (|Query/start.1| ATN-PARSER::INDEX)244 (SETF *ATN-NODE NIL)245 NIL246 (IF ATN-PARSER::ATN-STRUCTURE247 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)248 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))249 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Query| ATN-PARSER::INDEX *ATN-STACK))))250 (PROGN (DEFVAR |Prologue-INDEX|)251 (DEFUN |Prologue| (ATN-PARSER::INDEX &AUX (|BaseDecl| NIL) (|PrefixDecl| NIL))252 "{2 } Prologue ::= BaseDecl? PrefixDecl*253 (|BaseDecl| |PrefixDecl|)"254 (DECLARE (SPECIAL |Prologue-INDEX|))255 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Prologue-INDEX| *ATN-LEVEL))256 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))257 (IF (< |Prologue-INDEX| ATN-PARSER::INDEX)258 (LET ((|Prologue-INDEX| ATN-PARSER::INDEX)259 (*ATN-LEVEL (1+ *ATN-LEVEL))260 (*ATN-STACK (CONS '|Prologue| *ATN-STACK))261 (ATN-PARSER::ATN-STRUCTURE NIL))262 (DECLARE (SPECIAL |Prologue-INDEX|))263 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))264 (DECLARE (TYPE CONS *ATN-STACK))265 (SYMBOL-MACROLET266 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))267 (%ATN-BLOCK |Prologue|268 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)269 (SETF *ATN-TERM* '|Prologue|)270 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))271 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)272 (|Prologue.2| (ATN-PARSER::INDEX)273 (%ATN-NODE-BLOCK274 |Prologue.2|275 (%ATN-EDGE-BLOCK276 (POP |Prologue|)277 (WHEN T278 (SETF *ATN-TERM* '|Prologue|)279 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"280 '|Prologue|281 ATN-PARSER::INDEX282 (LIST '|BaseDecl| |BaseDecl| '|PrefixDecl| |PrefixDecl|))283 (LET ((ATN-PARSER::RESULT-STRUCTURE284 (IF (EQ *ATN-REDUCE* T)285 (|Prologue-Constructor| |BaseDecl| |PrefixDecl|)286 (IF (EQ *ATN-REDUCE* 'CONS)287 (CONS '|Prologue| (DELETE NIL (LIST |BaseDecl| |PrefixDecl|)))288 '|Prologue|))))289 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))290 (|Prologue.5| (ATN-PARSER::INDEX)291 (%ATN-NODE-BLOCK292 |Prologue.5|293 (%ATN-EDGE-BLOCK294 (PUSH |PrefixDecl|)295 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)296 (ATN-PARSE-SUBSTRUCTURE* '|PrefixDecl| ATN-PARSER::INDEX)297 (COND (ATN-PARSER::SUCCESS298 (SETF *ATN-TERM* '|PrefixDecl|)299 (LET ((|PrefixDecl689| |PrefixDecl|))300 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)301 (DESTRUCTURING-BIND302 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)303 ATN-PARSER::RESULT-AND-INDEX304 (WHEN ATN-PARSER::RESULT305 (SETF |PrefixDecl| (CONS ATN-PARSER::RESULT |PrefixDecl|)))306 (|Prologue.5| ATN-PARSER::RESULT-INDEX))307 (SETF |PrefixDecl| |PrefixDecl689|))))308 (T (SETF *ATN-TERM?* '|PrefixDecl|) (|Prologue.2| ATN-PARSER::INDEX)))))))309 (|Prologue/fail.3| (ATN-PARSER::INDEX)310 (%ATN-NODE-BLOCK |Prologue/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))311 (|Prologue/Prologue.2.4| (ATN-PARSER::INDEX)312 (%ATN-NODE-BLOCK313 |Prologue/Prologue.2.4|314 (%ATN-EDGE-BLOCK315 (PUSH |PrefixDecl|)316 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)317 (ATN-PARSE-SUBSTRUCTURE* '|PrefixDecl| ATN-PARSER::INDEX)318 (COND (ATN-PARSER::SUCCESS319 (SETF *ATN-TERM* '|PrefixDecl|)320 (LET ((|PrefixDecl688| |PrefixDecl|))321 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)322 (DESTRUCTURING-BIND323 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)324 ATN-PARSER::RESULT-AND-INDEX325 (WHEN ATN-PARSER::RESULT326 (SETF |PrefixDecl| (CONS ATN-PARSER::RESULT |PrefixDecl|)))327 (|Prologue.5| ATN-PARSER::RESULT-INDEX))328 (SETF |PrefixDecl| |PrefixDecl688|))))329 (T (SETF *ATN-TERM?* '|PrefixDecl|) (|Prologue.2| ATN-PARSER::INDEX)))))))330 (|Prologue/start.1| (ATN-PARSER::INDEX)331 (%ATN-NODE-BLOCK332 |Prologue/start.1|333 (%ATN-EDGE-BLOCK334 (PUSH |BaseDecl|)335 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)336 (ATN-PARSE-SUBSTRUCTURE* '|BaseDecl| ATN-PARSER::INDEX)337 (COND (ATN-PARSER::SUCCESS338 (SETF *ATN-TERM* '|BaseDecl|)339 (LET ((|BaseDecl689| |BaseDecl|))340 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)341 (DESTRUCTURING-BIND342 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)343 ATN-PARSER::RESULT-AND-INDEX344 (WHEN ATN-PARSER::RESULT (SETF |BaseDecl| ATN-PARSER::RESULT))345 (|Prologue/Prologue.2.4| ATN-PARSER::RESULT-INDEX))346 (SETF |BaseDecl| |BaseDecl689|))))347 (T348 (SETF *ATN-TERM?* '|BaseDecl|)349 (|Prologue/Prologue.2.4| ATN-PARSER::INDEX))))))))350 (|Prologue/start.1| ATN-PARSER::INDEX)351 (SETF *ATN-NODE NIL)352 NIL353 (IF ATN-PARSER::ATN-STRUCTURE354 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)355 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))356 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Prologue| ATN-PARSER::INDEX *ATN-STACK))))357 (PROGN (DEFVAR |BaseDecl-INDEX|)358 (DEFUN |BaseDecl| (ATN-PARSER::INDEX &AUX (IRI_REF NIL))359 "{3 } BaseDecl ::= 'BASE' IRI_REF360 (IRI_REF)"361 (DECLARE (SPECIAL |BaseDecl-INDEX|))362 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BaseDecl-INDEX| *ATN-LEVEL))363 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))364 (IF (< |BaseDecl-INDEX| ATN-PARSER::INDEX)365 (LET ((|BaseDecl-INDEX| ATN-PARSER::INDEX)366 (*ATN-LEVEL (1+ *ATN-LEVEL))367 (*ATN-STACK (CONS '|BaseDecl| *ATN-STACK))368 (ATN-PARSER::ATN-STRUCTURE NIL))369 (DECLARE (SPECIAL |BaseDecl-INDEX|))370 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))371 (DECLARE (TYPE CONS *ATN-STACK))372 (SYMBOL-MACROLET373 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))374 (%ATN-BLOCK |BaseDecl|375 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)376 (SETF *ATN-TERM* '|BaseDecl|)377 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))378 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)379 (|BaseDecl.2| (ATN-PARSER::INDEX)380 (%ATN-NODE-BLOCK381 |BaseDecl.2|382 (%ATN-EDGE-BLOCK383 (POP |BaseDecl|)384 (WHEN T385 (SETF *ATN-TERM* '|BaseDecl|)386 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"387 '|BaseDecl|388 ATN-PARSER::INDEX389 (LIST 'IRI_REF IRI_REF))390 (LET ((ATN-PARSER::RESULT-STRUCTURE391 (IF (EQ *ATN-REDUCE* T)392 (|BaseDecl-Constructor| IRI_REF)393 (IF (EQ *ATN-REDUCE* 'CONS)394 (CONS '|BaseDecl| (DELETE NIL (LIST IRI_REF)))395 '|BaseDecl|))))396 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))397 (|BaseDecl/BaseDecl.2.4| (ATN-PARSER::INDEX)398 (%ATN-NODE-BLOCK399 |BaseDecl/BaseDecl.2.4|400 (%ATN-EDGE-BLOCK401 (PUSH IRI_REF)402 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)403 (ATN-PARSE-SUBSTRUCTURE* 'IRI_REF ATN-PARSER::INDEX)404 (COND (ATN-PARSER::SUCCESS405 (SETF *ATN-TERM* 'IRI_REF)406 (LET ((IRI_REF689 IRI_REF))407 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)408 (DESTRUCTURING-BIND409 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)410 ATN-PARSER::RESULT-AND-INDEX411 (WHEN ATN-PARSER::RESULT (SETF IRI_REF ATN-PARSER::RESULT))412 (|BaseDecl.2| ATN-PARSER::RESULT-INDEX))413 (SETF IRI_REF IRI_REF689))))414 (T (SETF *ATN-TERM?* 'IRI_REF) (|BaseDecl/fail.3| ATN-PARSER::INDEX)))))))415 (|BaseDecl/fail.3| (ATN-PARSER::INDEX)416 (%ATN-NODE-BLOCK |BaseDecl/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))417 (|BaseDecl/start.1| (ATN-PARSER::INDEX)418 (%ATN-NODE-BLOCK419 |BaseDecl/start.1|420 (%ATN-EDGE-BLOCK421 (ATN-PARSER::WORD SPOCQ.S:BASE)422 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BASE)423 (SETF *ATN-TERM* 'SPOCQ.S:BASE)424 (|BaseDecl/BaseDecl.2.4| (1+ ATN-PARSER::INDEX)))425 (T (SETF *ATN-TERM?* 'SPOCQ.S:BASE) (|BaseDecl/fail.3| ATN-PARSER::INDEX)))))))426 (|BaseDecl/start.1| ATN-PARSER::INDEX)427 (SETF *ATN-NODE NIL)428 NIL429 (IF ATN-PARSER::ATN-STRUCTURE430 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)431 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))432 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BaseDecl| ATN-PARSER::INDEX *ATN-STACK))))433 (PROGN (DEFVAR |PrefixDecl-INDEX|)434 (DEFUN |PrefixDecl| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL) (PNAME_NS NIL))435 "{4 } PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF436 (NAMESPACE_REF PNAME_NS)"437 (DECLARE (SPECIAL |PrefixDecl-INDEX|))438 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PrefixDecl-INDEX| *ATN-LEVEL))439 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))440 (IF (< |PrefixDecl-INDEX| ATN-PARSER::INDEX)441 (LET ((|PrefixDecl-INDEX| ATN-PARSER::INDEX)442 (*ATN-LEVEL (1+ *ATN-LEVEL))443 (*ATN-STACK (CONS '|PrefixDecl| *ATN-STACK))444 (ATN-PARSER::ATN-STRUCTURE NIL))445 (DECLARE (SPECIAL |PrefixDecl-INDEX|))446 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))447 (DECLARE (TYPE CONS *ATN-STACK))448 (SYMBOL-MACROLET449 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))450 (%ATN-BLOCK |PrefixDecl|451 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)452 (SETF *ATN-TERM* '|PrefixDecl|)453 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))454 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)455 (|PrefixDecl.2| (ATN-PARSER::INDEX)456 (%ATN-NODE-BLOCK457 |PrefixDecl.2|458 (%ATN-EDGE-BLOCK459 (POP |PrefixDecl|)460 (WHEN T461 (SETF *ATN-TERM* '|PrefixDecl|)462 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"463 '|PrefixDecl|464 ATN-PARSER::INDEX465 (LIST 'NAMESPACE_REF NAMESPACE_REF 'PNAME_NS PNAME_NS))466 (LET ((ATN-PARSER::RESULT-STRUCTURE467 (IF (EQ *ATN-REDUCE* T)468 (|PrefixDecl-Constructor| NAMESPACE_REF PNAME_NS)469 (IF (EQ *ATN-REDUCE* 'CONS)470 (CONS '|PrefixDecl| (DELETE NIL (LIST NAMESPACE_REF PNAME_NS)))471 '|PrefixDecl|))))472 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))473 (|PrefixDecl/fail.3| (ATN-PARSER::INDEX)474 (%ATN-NODE-BLOCK |PrefixDecl/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))475 (|PrefixDecl/PrefixDecl.2.4| (ATN-PARSER::INDEX)476 (%ATN-NODE-BLOCK477 |PrefixDecl/PrefixDecl.2.4|478 (%ATN-EDGE-BLOCK479 (TEST PNAME_NS)480 (COND ((IS-PNAME_NS ATN-PARSER::|item|)481 (SETF *ATN-TERM* 'PNAME_NS)482 (SETF PNAME_NS483 (IF (EQ *ATN-REDUCE* T)484 (ATN-REDUCE-ITEM #'|PNAME_NS-Constructor| ATN-PARSER::|item|)485 (IF (EQ *ATN-REDUCE* 'CONS)486 (LIST 'PNAME_NS ATN-PARSER::|item|)487 'PNAME_NS)))488 (|PrefixDecl/PrefixDecl.2.5| (1+ ATN-PARSER::INDEX)))489 (T (SETF *ATN-TERM?* 'PNAME_NS) (|PrefixDecl/fail.3| ATN-PARSER::INDEX))))))490 (|PrefixDecl/PrefixDecl.2.5| (ATN-PARSER::INDEX)491 (%ATN-NODE-BLOCK492 |PrefixDecl/PrefixDecl.2.5|493 (%ATN-EDGE-BLOCK494 (PUSH NAMESPACE_REF)495 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)496 (ATN-PARSE-SUBSTRUCTURE* 'NAMESPACE_REF ATN-PARSER::INDEX)497 (COND (ATN-PARSER::SUCCESS498 (SETF *ATN-TERM* 'NAMESPACE_REF)499 (LET ((NAMESPACE_REF689 NAMESPACE_REF))500 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)501 (DESTRUCTURING-BIND502 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)503 ATN-PARSER::RESULT-AND-INDEX504 (WHEN ATN-PARSER::RESULT (SETF NAMESPACE_REF ATN-PARSER::RESULT))505 (|PrefixDecl.2| ATN-PARSER::RESULT-INDEX))506 (SETF NAMESPACE_REF NAMESPACE_REF689))))507 (T508 (SETF *ATN-TERM?* 'NAMESPACE_REF)509 (|PrefixDecl/fail.3| ATN-PARSER::INDEX)))))))510 (|PrefixDecl/start.1| (ATN-PARSER::INDEX)511 (%ATN-NODE-BLOCK512 |PrefixDecl/start.1|513 (%ATN-EDGE-BLOCK514 (ATN-PARSER::WORD SPOCQ.S:PREFIX)515 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:PREFIX)516 (SETF *ATN-TERM* 'SPOCQ.S:PREFIX)517 (|PrefixDecl/PrefixDecl.2.4| (1+ ATN-PARSER::INDEX)))518 (T519 (SETF *ATN-TERM?* 'SPOCQ.S:PREFIX)520 (|PrefixDecl/fail.3| ATN-PARSER::INDEX)))))))521 (|PrefixDecl/start.1| ATN-PARSER::INDEX)522 (SETF *ATN-NODE NIL)523 NIL524 (IF ATN-PARSER::ATN-STRUCTURE525 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)526 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))527 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PrefixDecl| ATN-PARSER::INDEX *ATN-STACK))))528 (PROGN (DEFVAR |SelectQuery-INDEX|)529 (DEFUN |SelectQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|Distinctness| NIL) (|SolutionModifier| NIL)530 (|VariableOrBinding| NIL) (|WhereClause| NIL) (|Wild| NIL))531 "{5 } SelectQuery ::= 'SELECT' Distinctness? (((VariableOrBinding)+ | Wild)) DatasetClause* WhereClause SolutionModifier532 (|DatasetClause| |Distinctness| |SolutionModifier| |VariableOrBinding| |WhereClause| |Wild|)"533 (DECLARE (SPECIAL |SelectQuery-INDEX|))534 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SelectQuery-INDEX| *ATN-LEVEL))535 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))536 (IF (< |SelectQuery-INDEX| ATN-PARSER::INDEX)537 (LET ((|SelectQuery-INDEX| ATN-PARSER::INDEX)538 (*ATN-LEVEL (1+ *ATN-LEVEL))539 (*ATN-STACK (CONS '|SelectQuery| *ATN-STACK))540 (ATN-PARSER::ATN-STRUCTURE NIL))541 (DECLARE (SPECIAL |SelectQuery-INDEX|))542 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))543 (DECLARE (TYPE CONS *ATN-STACK))544 (SYMBOL-MACROLET545 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))546 (%ATN-BLOCK |SelectQuery|547 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)548 (SETF *ATN-TERM* '|SelectQuery|)549 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))550 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)551 (|SelectQuery.10| (ATN-PARSER::INDEX)552 (%ATN-NODE-BLOCK553 |SelectQuery.10|554 (%ATN-EDGE-BLOCK555 (PUSH |DatasetClause|)556 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)557 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)558 (COND (ATN-PARSER::SUCCESS559 (SETF *ATN-TERM* '|DatasetClause|)560 (LET ((|DatasetClause690| |DatasetClause|))561 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)562 (DESTRUCTURING-BIND563 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)564 ATN-PARSER::RESULT-AND-INDEX565 (WHEN ATN-PARSER::RESULT566 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))567 (|SelectQuery.10| ATN-PARSER::RESULT-INDEX))568 (SETF |DatasetClause| |DatasetClause690|))))569 (T570 (SETF *ATN-TERM?* '|DatasetClause|)571 (|SelectQuery/SelectQuery.2.7| ATN-PARSER::INDEX)))))))572 (|SelectQuery.2| (ATN-PARSER::INDEX)573 (%ATN-NODE-BLOCK574 |SelectQuery.2|575 (%ATN-EDGE-BLOCK576 (POP |SelectQuery|)577 (WHEN T578 (SETF *ATN-TERM* '|SelectQuery|)579 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"580 '|SelectQuery|581 ATN-PARSER::INDEX582 (LIST '|DatasetClause|583 |DatasetClause|584 '|Distinctness|585 |Distinctness|586 '|SolutionModifier|587 |SolutionModifier|588 '|VariableOrBinding|589 |VariableOrBinding|590 '|WhereClause|591 |WhereClause|592 '|Wild|593 |Wild|))594 (LET ((ATN-PARSER::RESULT-STRUCTURE595 (IF (EQ *ATN-REDUCE* T)596 (|SelectQuery-Constructor|597 |DatasetClause|598 |Distinctness|599 |SolutionModifier|600 |VariableOrBinding|601 |WhereClause|602 |Wild|)603 (IF (EQ *ATN-REDUCE* 'CONS)604 (CONS '|SelectQuery|605 (DELETE NIL606 (LIST |DatasetClause|607 |Distinctness|608 |SolutionModifier|609 |VariableOrBinding|610 |WhereClause|611 |Wild|)))612 '|SelectQuery|))))613 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))614 (|SelectQuery.9| (ATN-PARSER::INDEX)615 (%ATN-NODE-BLOCK616 |SelectQuery.9|617 (%ATN-EDGE-BLOCK618 (PUSH |VariableOrBinding|)619 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)620 (ATN-PARSE-SUBSTRUCTURE* '|VariableOrBinding| ATN-PARSER::INDEX)621 (COND (ATN-PARSER::SUCCESS622 (SETF *ATN-TERM* '|VariableOrBinding|)623 (LET ((|VariableOrBinding691| |VariableOrBinding|))624 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)625 (DESTRUCTURING-BIND626 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)627 ATN-PARSER::RESULT-AND-INDEX628 (WHEN ATN-PARSER::RESULT629 (SETF |VariableOrBinding|630 (CONS ATN-PARSER::RESULT |VariableOrBinding|)))631 (|SelectQuery.9| ATN-PARSER::RESULT-INDEX))632 (SETF |VariableOrBinding| |VariableOrBinding691|))))633 (T634 (SETF *ATN-TERM?* '|VariableOrBinding|)635 (|SelectQuery/SelectQuery.2.6| ATN-PARSER::INDEX)))))))636 (|SelectQuery/fail.3| (ATN-PARSER::INDEX)637 (%ATN-NODE-BLOCK |SelectQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))638 (|SelectQuery/SelectQuery.2.4| (ATN-PARSER::INDEX)639 (%ATN-NODE-BLOCK640 |SelectQuery/SelectQuery.2.4|641 (%ATN-EDGE-BLOCK642 (ATN-PARSER::CAT |Distinctness|)643 (COND ((|IS-Distinctness| ATN-PARSER::|item|)644 (SETF *ATN-TERM* '|Distinctness|)645 (SETF |Distinctness|646 (IF (EQ *ATN-REDUCE* T)647 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)648 (IF (EQ *ATN-REDUCE* 'CONS)649 (LIST '|Distinctness| ATN-PARSER::|item|)650 '|Distinctness|)))651 (|SelectQuery/SelectQuery.2.5| (1+ ATN-PARSER::INDEX)))652 (T653 (SETF *ATN-TERM* '|Distinctness|)654 (|SelectQuery/SelectQuery.2.5| ATN-PARSER::INDEX))))))655 (|SelectQuery/SelectQuery.2.5| (ATN-PARSER::INDEX)656 (%ATN-NODE-BLOCK657 |SelectQuery/SelectQuery.2.5|658 (%ATN-EDGE-BLOCK659 OR660 (PROGN (%ATN-EDGE-BLOCK661 (PUSH |VariableOrBinding|)662 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)663 (ATN-PARSE-SUBSTRUCTURE* '|VariableOrBinding| ATN-PARSER::INDEX)664 (COND (ATN-PARSER::SUCCESS665 (SETF *ATN-TERM* '|VariableOrBinding|)666 (LET ((|VariableOrBinding690| |VariableOrBinding|))667 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)668 (DESTRUCTURING-BIND669 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)670 ATN-PARSER::RESULT-AND-INDEX671 (WHEN ATN-PARSER::RESULT672 (SETF |VariableOrBinding|673 (CONS ATN-PARSER::RESULT |VariableOrBinding|)))674 (|SelectQuery.9| ATN-PARSER::RESULT-INDEX))675 (SETF |VariableOrBinding| |VariableOrBinding690|))))676 (T (SETF *ATN-TERM?* '|VariableOrBinding|) NIL))))677 (%ATN-EDGE-BLOCK678 (ATN-PARSER::CAT |Wild|)679 (COND ((|IS-Wild| ATN-PARSER::|item|)680 (SETF *ATN-TERM* '|Wild|)681 (SETF |Wild|682 (IF (EQ *ATN-REDUCE* T)683 (ATN-REDUCE-ITEM #'|Wild-Constructor| ATN-PARSER::|item|)684 (IF (EQ *ATN-REDUCE* 'CONS)685 (LIST '|Wild| ATN-PARSER::|item|)686 '|Wild|)))687 (|SelectQuery/SelectQuery.2.6| (1+ ATN-PARSER::INDEX)))688 (T (SETF *ATN-TERM* '|Wild|) NIL)))689 (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))690 (|SelectQuery/SelectQuery.2.6| (ATN-PARSER::INDEX)691 (%ATN-NODE-BLOCK692 |SelectQuery/SelectQuery.2.6|693 (%ATN-EDGE-BLOCK694 (PUSH |DatasetClause|)695 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)696 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)697 (COND (ATN-PARSER::SUCCESS698 (SETF *ATN-TERM* '|DatasetClause|)699 (LET ((|DatasetClause689| |DatasetClause|))700 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)701 (DESTRUCTURING-BIND702 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)703 ATN-PARSER::RESULT-AND-INDEX704 (WHEN ATN-PARSER::RESULT705 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))706 (|SelectQuery.10| ATN-PARSER::RESULT-INDEX))707 (SETF |DatasetClause| |DatasetClause689|))))708 (T709 (SETF *ATN-TERM?* '|DatasetClause|)710 (|SelectQuery/SelectQuery.2.7| ATN-PARSER::INDEX)))))))711 (|SelectQuery/SelectQuery.2.7| (ATN-PARSER::INDEX)712 (%ATN-NODE-BLOCK713 |SelectQuery/SelectQuery.2.7|714 (%ATN-EDGE-BLOCK715 (PUSH |WhereClause|)716 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)717 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)718 (COND (ATN-PARSER::SUCCESS719 (SETF *ATN-TERM* '|WhereClause|)720 (LET ((|WhereClause689| |WhereClause|))721 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)722 (DESTRUCTURING-BIND723 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)724 ATN-PARSER::RESULT-AND-INDEX725 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))726 (|SelectQuery/SelectQuery.2.8| ATN-PARSER::RESULT-INDEX))727 (SETF |WhereClause| |WhereClause689|))))728 (T729 (SETF *ATN-TERM?* '|WhereClause|)730 (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))))731 (|SelectQuery/SelectQuery.2.8| (ATN-PARSER::INDEX)732 (%ATN-NODE-BLOCK733 |SelectQuery/SelectQuery.2.8|734 (%ATN-EDGE-BLOCK735 (PUSH |SolutionModifier|)736 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)737 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)738 (COND (ATN-PARSER::SUCCESS739 (SETF *ATN-TERM* '|SolutionModifier|)740 (LET ((|SolutionModifier689| |SolutionModifier|))741 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)742 (DESTRUCTURING-BIND743 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)744 ATN-PARSER::RESULT-AND-INDEX745 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))746 (|SelectQuery.2| ATN-PARSER::RESULT-INDEX))747 (SETF |SolutionModifier| |SolutionModifier689|))))748 (T749 (SETF *ATN-TERM?* '|SolutionModifier|)750 (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))))751 (|SelectQuery/start.1| (ATN-PARSER::INDEX)752 (%ATN-NODE-BLOCK753 |SelectQuery/start.1|754 (%ATN-EDGE-BLOCK755 (ATN-PARSER::WORD SPOCQ.S:SELECT)756 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:SELECT)757 (SETF *ATN-TERM* 'SPOCQ.S:SELECT)758 (|SelectQuery/SelectQuery.2.4| (1+ ATN-PARSER::INDEX)))759 (T760 (SETF *ATN-TERM?* 'SPOCQ.S:SELECT)761 (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))))762 (|SelectQuery/start.1| ATN-PARSER::INDEX)763 (SETF *ATN-NODE NIL)764 NIL765 (IF ATN-PARSER::ATN-STRUCTURE766 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)767 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))768 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SelectQuery| ATN-PARSER::INDEX *ATN-STACK))))769 (PROGN (DEFVAR |VariableOrBinding-INDEX|)770 (DEFUN |VariableOrBinding| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|Var| NIL))771 "{5 } VariableOrBinding ::= (Var | ('(' Expression 'AS' Var ')'))772 (|Expression| |Var|)"773 (DECLARE (SPECIAL |VariableOrBinding-INDEX|))774 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VariableOrBinding-INDEX| *ATN-LEVEL))775 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))776 (IF (< |VariableOrBinding-INDEX| ATN-PARSER::INDEX)777 (LET ((|VariableOrBinding-INDEX| ATN-PARSER::INDEX)778 (*ATN-LEVEL (1+ *ATN-LEVEL))779 (*ATN-STACK (CONS '|VariableOrBinding| *ATN-STACK))780 (ATN-PARSER::ATN-STRUCTURE NIL))781 (DECLARE (SPECIAL |VariableOrBinding-INDEX|))782 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))783 (DECLARE (TYPE CONS *ATN-STACK))784 (SYMBOL-MACROLET785 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))786 (%ATN-BLOCK |VariableOrBinding|787 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)788 (SETF *ATN-TERM* '|VariableOrBinding|)789 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))790 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)791 (|VariableOrBinding.2| (ATN-PARSER::INDEX)792 (%ATN-NODE-BLOCK793 |VariableOrBinding.2|794 (%ATN-EDGE-BLOCK795 (POP |VariableOrBinding|)796 (WHEN T797 (SETF *ATN-TERM* '|VariableOrBinding|)798 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"799 '|VariableOrBinding|800 ATN-PARSER::INDEX801 (LIST '|Expression| |Expression| '|Var| |Var|))802 (LET ((ATN-PARSER::RESULT-STRUCTURE803 (IF (EQ *ATN-REDUCE* T)804 (|VariableOrBinding-Constructor| |Expression| |Var|)805 (IF (EQ *ATN-REDUCE* 'CONS)806 (CONS '|VariableOrBinding| (DELETE NIL (LIST |Expression| |Var|)))807 '|VariableOrBinding|))))808 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))809 (|VariableOrBinding/fail.3| (ATN-PARSER::INDEX)810 (%ATN-NODE-BLOCK |VariableOrBinding/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))811 (|VariableOrBinding/start.1| (ATN-PARSER::INDEX)812 (%ATN-NODE-BLOCK813 |VariableOrBinding/start.1|814 (%ATN-EDGE-BLOCK815 OR816 (PROGN (%ATN-EDGE-BLOCK817 (TEST |Var|)818 (COND ((|IS-Var| ATN-PARSER::|item|)819 (SETF *ATN-TERM* '|Var|)820 (SETF |Var|821 (IF (EQ *ATN-REDUCE* T)822 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)823 (IF (EQ *ATN-REDUCE* 'CONS)824 (LIST '|Var| ATN-PARSER::|item|)825 '|Var|)))826 (|VariableOrBinding.2| (1+ ATN-PARSER::INDEX)))827 (T (SETF *ATN-TERM?* '|Var|) NIL)))828 (%ATN-EDGE-BLOCK829 (ATN-PARSER::JUMP |VariableOrBinding/VariableOrBinding.2.4|)830 (|VariableOrBinding/VariableOrBinding.2.4| ATN-PARSER::INDEX))831 (|VariableOrBinding/fail.3| ATN-PARSER::INDEX)))))832 (|VariableOrBinding/VariableOrBinding.2.4| (ATN-PARSER::INDEX)833 (%ATN-NODE-BLOCK834 |VariableOrBinding/VariableOrBinding.2.4|835 (%ATN-EDGE-BLOCK836 (ATN-PARSER::WORD SPOCQ.S:\()837 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()838 (SETF *ATN-TERM* 'SPOCQ.S:\()839 (|VariableOrBinding/VariableOrBinding.2.5| (1+ ATN-PARSER::INDEX)))840 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))841 (|VariableOrBinding/VariableOrBinding.2.5| (ATN-PARSER::INDEX)842 (%ATN-NODE-BLOCK843 |VariableOrBinding/VariableOrBinding.2.5|844 (%ATN-EDGE-BLOCK845 (PUSH |Expression|)846 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)847 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)848 (COND (ATN-PARSER::SUCCESS849 (SETF *ATN-TERM* '|Expression|)850 (LET ((|Expression691| |Expression|))851 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)852 (DESTRUCTURING-BIND853 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)854 ATN-PARSER::RESULT-AND-INDEX855 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))856 (|VariableOrBinding/VariableOrBinding.2.6| ATN-PARSER::RESULT-INDEX))857 (SETF |Expression| |Expression691|))))858 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))859 (|VariableOrBinding/VariableOrBinding.2.6| (ATN-PARSER::INDEX)860 (%ATN-NODE-BLOCK861 |VariableOrBinding/VariableOrBinding.2.6|862 (%ATN-EDGE-BLOCK863 (ATN-PARSER::WORD SPOCQ.S:AS)864 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS)865 (SETF *ATN-TERM* 'SPOCQ.S:AS)866 (|VariableOrBinding/VariableOrBinding.2.7| (1+ ATN-PARSER::INDEX)))867 (T (SETF *ATN-TERM?* 'SPOCQ.S:AS) NIL)))))868 (|VariableOrBinding/VariableOrBinding.2.7| (ATN-PARSER::INDEX)869 (%ATN-NODE-BLOCK870 |VariableOrBinding/VariableOrBinding.2.7|871 (%ATN-EDGE-BLOCK872 (TEST |Var|)873 (COND ((|IS-Var| ATN-PARSER::|item|)874 (SETF *ATN-TERM* '|Var|)875 (SETF |Var|876 (IF (EQ *ATN-REDUCE* T)877 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)878 (IF (EQ *ATN-REDUCE* 'CONS) (LIST '|Var| ATN-PARSER::|item|) '|Var|)))879 (|VariableOrBinding/VariableOrBinding.2.8| (1+ ATN-PARSER::INDEX)))880 (T (SETF *ATN-TERM?* '|Var|) NIL)))))881 (|VariableOrBinding/VariableOrBinding.2.8| (ATN-PARSER::INDEX)882 (%ATN-NODE-BLOCK883 |VariableOrBinding/VariableOrBinding.2.8|884 (%ATN-EDGE-BLOCK885 (ATN-PARSER::WORD SPOCQ.S:\))886 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))887 (SETF *ATN-TERM* 'SPOCQ.S:\))888 (|VariableOrBinding.2| (1+ ATN-PARSER::INDEX)))889 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL))))))890 (|VariableOrBinding/start.1| ATN-PARSER::INDEX)891 (SETF *ATN-NODE NIL)892 NIL893 (IF ATN-PARSER::ATN-STRUCTURE894 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)895 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))896 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VariableOrBinding| ATN-PARSER::INDEX *ATN-STACK))))897 (PROGN (DEFVAR |ConstructQuery-INDEX|)898 (DEFUN |ConstructQuery| (ATN-PARSER::INDEX &AUX (|ConstructTemplate| NIL) (|DatasetClause| NIL) (|SolutionModifier| NIL)899 (|WhereClause| NIL))900 "{6 } ConstructQuery ::= 'CONSTRUCT' ConstructTemplate DatasetClause* WhereClause SolutionModifier901 (|ConstructTemplate| |DatasetClause| |SolutionModifier| |WhereClause|)"902 (DECLARE (SPECIAL |ConstructQuery-INDEX|))903 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructQuery-INDEX| *ATN-LEVEL))904 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))905 (IF (< |ConstructQuery-INDEX| ATN-PARSER::INDEX)906 (LET ((|ConstructQuery-INDEX| ATN-PARSER::INDEX)907 (*ATN-LEVEL (1+ *ATN-LEVEL))908 (*ATN-STACK (CONS '|ConstructQuery| *ATN-STACK))909 (ATN-PARSER::ATN-STRUCTURE NIL))910 (DECLARE (SPECIAL |ConstructQuery-INDEX|))911 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))912 (DECLARE (TYPE CONS *ATN-STACK))913 (SYMBOL-MACROLET914 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))915 (%ATN-BLOCK |ConstructQuery|916 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)917 (SETF *ATN-TERM* '|ConstructQuery|)918 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))919 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)920 (|ConstructQuery.2| (ATN-PARSER::INDEX)921 (%ATN-NODE-BLOCK922 |ConstructQuery.2|923 (%ATN-EDGE-BLOCK924 (POP |ConstructQuery|)925 (WHEN T926 (SETF *ATN-TERM* '|ConstructQuery|)927 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"928 '|ConstructQuery|929 ATN-PARSER::INDEX930 (LIST '|ConstructTemplate|931 |ConstructTemplate|932 '|DatasetClause|933 |DatasetClause|934 '|SolutionModifier|935 |SolutionModifier|936 '|WhereClause|937 |WhereClause|))938 (LET ((ATN-PARSER::RESULT-STRUCTURE939 (IF (EQ *ATN-REDUCE* T)940 (|ConstructQuery-Constructor|941 |ConstructTemplate|942 |DatasetClause|943 |SolutionModifier|944 |WhereClause|)945 (IF (EQ *ATN-REDUCE* 'CONS)946 (CONS '|ConstructQuery|947 (DELETE NIL948 (LIST |ConstructTemplate|949 |DatasetClause|950 |SolutionModifier|951 |WhereClause|)))952 '|ConstructQuery|))))953 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))954 (|ConstructQuery.8| (ATN-PARSER::INDEX)955 (%ATN-NODE-BLOCK956 |ConstructQuery.8|957 (%ATN-EDGE-BLOCK958 (PUSH |DatasetClause|)959 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)960 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)961 (COND (ATN-PARSER::SUCCESS962 (SETF *ATN-TERM* '|DatasetClause|)963 (LET ((|DatasetClause692| |DatasetClause|))964 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)965 (DESTRUCTURING-BIND966 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)967 ATN-PARSER::RESULT-AND-INDEX968 (WHEN ATN-PARSER::RESULT969 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))970 (|ConstructQuery.8| ATN-PARSER::RESULT-INDEX))971 (SETF |DatasetClause| |DatasetClause692|))))972 (T973 (SETF *ATN-TERM?* '|DatasetClause|)974 (|ConstructQuery/ConstructQuery.2.6| ATN-PARSER::INDEX)))))))975 (|ConstructQuery/ConstructQuery.2.4| (ATN-PARSER::INDEX)976 (%ATN-NODE-BLOCK977 |ConstructQuery/ConstructQuery.2.4|978 (%ATN-EDGE-BLOCK979 (PUSH |ConstructTemplate|)980 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)981 (ATN-PARSE-SUBSTRUCTURE* '|ConstructTemplate| ATN-PARSER::INDEX)982 (COND (ATN-PARSER::SUCCESS983 (SETF *ATN-TERM* '|ConstructTemplate|)984 (LET ((|ConstructTemplate692| |ConstructTemplate|))985 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)986 (DESTRUCTURING-BIND987 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)988 ATN-PARSER::RESULT-AND-INDEX989 (WHEN ATN-PARSER::RESULT (SETF |ConstructTemplate| ATN-PARSER::RESULT))990 (|ConstructQuery/ConstructQuery.2.5| ATN-PARSER::RESULT-INDEX))991 (SETF |ConstructTemplate| |ConstructTemplate692|))))992 (T993 (SETF *ATN-TERM?* '|ConstructTemplate|)994 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))995 (|ConstructQuery/ConstructQuery.2.5| (ATN-PARSER::INDEX)996 (%ATN-NODE-BLOCK997 |ConstructQuery/ConstructQuery.2.5|998 (%ATN-EDGE-BLOCK999 (PUSH |DatasetClause|)1000 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1001 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1002 (COND (ATN-PARSER::SUCCESS1003 (SETF *ATN-TERM* '|DatasetClause|)1004 (LET ((|DatasetClause691| |DatasetClause|))1005 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1006 (DESTRUCTURING-BIND1007 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1008 ATN-PARSER::RESULT-AND-INDEX1009 (WHEN ATN-PARSER::RESULT1010 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1011 (|ConstructQuery.8| ATN-PARSER::RESULT-INDEX))1012 (SETF |DatasetClause| |DatasetClause691|))))1013 (T1014 (SETF *ATN-TERM?* '|DatasetClause|)1015 (|ConstructQuery/ConstructQuery.2.6| ATN-PARSER::INDEX)))))))1016 (|ConstructQuery/ConstructQuery.2.6| (ATN-PARSER::INDEX)1017 (%ATN-NODE-BLOCK1018 |ConstructQuery/ConstructQuery.2.6|1019 (%ATN-EDGE-BLOCK1020 (PUSH |WhereClause|)1021 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1022 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)1023 (COND (ATN-PARSER::SUCCESS1024 (SETF *ATN-TERM* '|WhereClause|)1025 (LET ((|WhereClause691| |WhereClause|))1026 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1027 (DESTRUCTURING-BIND1028 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1029 ATN-PARSER::RESULT-AND-INDEX1030 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))1031 (|ConstructQuery/ConstructQuery.2.7| ATN-PARSER::RESULT-INDEX))1032 (SETF |WhereClause| |WhereClause691|))))1033 (T1034 (SETF *ATN-TERM?* '|WhereClause|)1035 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))1036 (|ConstructQuery/ConstructQuery.2.7| (ATN-PARSER::INDEX)1037 (%ATN-NODE-BLOCK1038 |ConstructQuery/ConstructQuery.2.7|1039 (%ATN-EDGE-BLOCK1040 (PUSH |SolutionModifier|)1041 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1042 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)1043 (COND (ATN-PARSER::SUCCESS1044 (SETF *ATN-TERM* '|SolutionModifier|)1045 (LET ((|SolutionModifier691| |SolutionModifier|))1046 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1047 (DESTRUCTURING-BIND1048 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1049 ATN-PARSER::RESULT-AND-INDEX1050 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))1051 (|ConstructQuery.2| ATN-PARSER::RESULT-INDEX))1052 (SETF |SolutionModifier| |SolutionModifier691|))))1053 (T1054 (SETF *ATN-TERM?* '|SolutionModifier|)1055 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))1056 (|ConstructQuery/fail.3| (ATN-PARSER::INDEX)1057 (%ATN-NODE-BLOCK |ConstructQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1058 (|ConstructQuery/start.1| (ATN-PARSER::INDEX)1059 (%ATN-NODE-BLOCK1060 |ConstructQuery/start.1|1061 (%ATN-EDGE-BLOCK1062 (ATN-PARSER::WORD SPOCQ.S:CONSTRUCT)1063 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:CONSTRUCT)1064 (SETF *ATN-TERM* 'SPOCQ.S:CONSTRUCT)1065 (|ConstructQuery/ConstructQuery.2.4| (1+ ATN-PARSER::INDEX)))1066 (T1067 (SETF *ATN-TERM?* 'SPOCQ.S:CONSTRUCT)1068 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))1069 (|ConstructQuery/start.1| ATN-PARSER::INDEX)1070 (SETF *ATN-NODE NIL)1071 NIL1072 (IF ATN-PARSER::ATN-STRUCTURE1073 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1074 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1075 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructQuery| ATN-PARSER::INDEX *ATN-STACK))))1076 (PROGN (DEFVAR |DescribeQuery-INDEX|)1077 (DEFUN |DescribeQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|SolutionModifier| NIL) (|VarOrIRIref| NIL)1078 (|WhereClause| NIL))1079 "{7 } DescribeQuery ::= 'DESCRIBE' ((VarOrIRIref+ | '*')) DatasetClause* WhereClause? SolutionModifier1080 (|DatasetClause| |SolutionModifier| |VarOrIRIref| |WhereClause|)"1081 (DECLARE (SPECIAL |DescribeQuery-INDEX|))1082 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DescribeQuery-INDEX| *ATN-LEVEL))1083 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1084 (IF (< |DescribeQuery-INDEX| ATN-PARSER::INDEX)1085 (LET ((|DescribeQuery-INDEX| ATN-PARSER::INDEX)1086 (*ATN-LEVEL (1+ *ATN-LEVEL))1087 (*ATN-STACK (CONS '|DescribeQuery| *ATN-STACK))1088 (ATN-PARSER::ATN-STRUCTURE NIL))1089 (DECLARE (SPECIAL |DescribeQuery-INDEX|))1090 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1091 (DECLARE (TYPE CONS *ATN-STACK))1092 (SYMBOL-MACROLET1093 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1094 (%ATN-BLOCK |DescribeQuery|1095 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1096 (SETF *ATN-TERM* '|DescribeQuery|)1097 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1098 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1099 (|DescribeQuery.2| (ATN-PARSER::INDEX)1100 (%ATN-NODE-BLOCK1101 |DescribeQuery.2|1102 (%ATN-EDGE-BLOCK1103 (POP |DescribeQuery|)1104 (WHEN T1105 (SETF *ATN-TERM* '|DescribeQuery|)1106 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1107 '|DescribeQuery|1108 ATN-PARSER::INDEX1109 (LIST '|DatasetClause|1110 |DatasetClause|1111 '|SolutionModifier|1112 |SolutionModifier|1113 '|VarOrIRIref|1114 |VarOrIRIref|1115 '|WhereClause|1116 |WhereClause|))1117 (LET ((ATN-PARSER::RESULT-STRUCTURE1118 (IF (EQ *ATN-REDUCE* T)1119 (|DescribeQuery-Constructor|1120 |DatasetClause|1121 |SolutionModifier|1122 |VarOrIRIref|1123 |WhereClause|)1124 (IF (EQ *ATN-REDUCE* 'CONS)1125 (CONS '|DescribeQuery|1126 (DELETE NIL1127 (LIST |DatasetClause|1128 |SolutionModifier|1129 |VarOrIRIref|1130 |WhereClause|)))1131 '|DescribeQuery|))))1132 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1133 (|DescribeQuery.8| (ATN-PARSER::INDEX)1134 (%ATN-NODE-BLOCK1135 |DescribeQuery.8|1136 (%ATN-EDGE-BLOCK1137 (PUSH |VarOrIRIref|)1138 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1139 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)1140 (COND (ATN-PARSER::SUCCESS1141 (SETF *ATN-TERM* '|VarOrIRIref|)1142 (LET ((|VarOrIRIref695| |VarOrIRIref|))1143 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1144 (DESTRUCTURING-BIND1145 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1146 ATN-PARSER::RESULT-AND-INDEX1147 (WHEN ATN-PARSER::RESULT1148 (SETF |VarOrIRIref| (CONS ATN-PARSER::RESULT |VarOrIRIref|)))1149 (|DescribeQuery.8| ATN-PARSER::RESULT-INDEX))1150 (SETF |VarOrIRIref| |VarOrIRIref695|))))1151 (T1152 (SETF *ATN-TERM?* '|VarOrIRIref|)1153 (|DescribeQuery/DescribeQuery.2.5| ATN-PARSER::INDEX)))))))1154 (|DescribeQuery.9| (ATN-PARSER::INDEX)1155 (%ATN-NODE-BLOCK1156 |DescribeQuery.9|1157 (%ATN-EDGE-BLOCK1158 (PUSH |DatasetClause|)1159 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1160 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1161 (COND (ATN-PARSER::SUCCESS1162 (SETF *ATN-TERM* '|DatasetClause|)1163 (LET ((|DatasetClause694| |DatasetClause|))1164 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1165 (DESTRUCTURING-BIND1166 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1167 ATN-PARSER::RESULT-AND-INDEX1168 (WHEN ATN-PARSER::RESULT1169 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1170 (|DescribeQuery.9| ATN-PARSER::RESULT-INDEX))1171 (SETF |DatasetClause| |DatasetClause694|))))1172 (T1173 (SETF *ATN-TERM?* '|DatasetClause|)1174 (|DescribeQuery/DescribeQuery.2.6| ATN-PARSER::INDEX)))))))1175 (|DescribeQuery/DescribeQuery.2.4| (ATN-PARSER::INDEX)1176 (%ATN-NODE-BLOCK1177 |DescribeQuery/DescribeQuery.2.4|1178 (%ATN-EDGE-BLOCK1179 OR1180 (PROGN (%ATN-EDGE-BLOCK1181 (PUSH |VarOrIRIref|)1182 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1183 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)1184 (COND (ATN-PARSER::SUCCESS1185 (SETF *ATN-TERM* '|VarOrIRIref|)1186 (LET ((|VarOrIRIref694| |VarOrIRIref|))1187 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1188 (DESTRUCTURING-BIND1189 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1190 ATN-PARSER::RESULT-AND-INDEX1191 (WHEN ATN-PARSER::RESULT1192 (SETF |VarOrIRIref| (CONS ATN-PARSER::RESULT |VarOrIRIref|)))1193 (|DescribeQuery.8| ATN-PARSER::RESULT-INDEX))1194 (SETF |VarOrIRIref| |VarOrIRIref694|))))1195 (T (SETF *ATN-TERM?* '|VarOrIRIref|) NIL))))1196 (%ATN-EDGE-BLOCK1197 (ATN-PARSER::WORD SPOCQ.S:*)1198 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:*)1199 (SETF *ATN-TERM* 'SPOCQ.S:*)1200 (|DescribeQuery/DescribeQuery.2.5| (1+ ATN-PARSER::INDEX)))1201 (T (SETF *ATN-TERM?* 'SPOCQ.S:*) NIL)))1202 (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))1203 (|DescribeQuery/DescribeQuery.2.5| (ATN-PARSER::INDEX)1204 (%ATN-NODE-BLOCK1205 |DescribeQuery/DescribeQuery.2.5|1206 (%ATN-EDGE-BLOCK1207 (PUSH |DatasetClause|)1208 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1209 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1210 (COND (ATN-PARSER::SUCCESS1211 (SETF *ATN-TERM* '|DatasetClause|)1212 (LET ((|DatasetClause693| |DatasetClause|))1213 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1214 (DESTRUCTURING-BIND1215 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1216 ATN-PARSER::RESULT-AND-INDEX1217 (WHEN ATN-PARSER::RESULT1218 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1219 (|DescribeQuery.9| ATN-PARSER::RESULT-INDEX))1220 (SETF |DatasetClause| |DatasetClause693|))))1221 (T1222 (SETF *ATN-TERM?* '|DatasetClause|)1223 (|DescribeQuery/DescribeQuery.2.6| ATN-PARSER::INDEX)))))))1224 (|DescribeQuery/DescribeQuery.2.6| (ATN-PARSER::INDEX)1225 (%ATN-NODE-BLOCK1226 |DescribeQuery/DescribeQuery.2.6|1227 (%ATN-EDGE-BLOCK1228 (PUSH |WhereClause|)1229 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1230 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)1231 (COND (ATN-PARSER::SUCCESS1232 (SETF *ATN-TERM* '|WhereClause|)1233 (LET ((|WhereClause692| |WhereClause|))1234 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1235 (DESTRUCTURING-BIND1236 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1237 ATN-PARSER::RESULT-AND-INDEX1238 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))1239 (|DescribeQuery/DescribeQuery.2.7| ATN-PARSER::RESULT-INDEX))1240 (SETF |WhereClause| |WhereClause692|))))1241 (T1242 (SETF *ATN-TERM?* '|WhereClause|)1243 (|DescribeQuery/DescribeQuery.2.7| ATN-PARSER::INDEX)))))))1244 (|DescribeQuery/DescribeQuery.2.7| (ATN-PARSER::INDEX)1245 (%ATN-NODE-BLOCK1246 |DescribeQuery/DescribeQuery.2.7|1247 (%ATN-EDGE-BLOCK1248 (PUSH |SolutionModifier|)1249 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1250 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)1251 (COND (ATN-PARSER::SUCCESS1252 (SETF *ATN-TERM* '|SolutionModifier|)1253 (LET ((|SolutionModifier692| |SolutionModifier|))1254 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1255 (DESTRUCTURING-BIND1256 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1257 ATN-PARSER::RESULT-AND-INDEX1258 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))1259 (|DescribeQuery.2| ATN-PARSER::RESULT-INDEX))1260 (SETF |SolutionModifier| |SolutionModifier692|))))1261 (T1262 (SETF *ATN-TERM?* '|SolutionModifier|)1263 (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))))1264 (|DescribeQuery/fail.3| (ATN-PARSER::INDEX)1265 (%ATN-NODE-BLOCK |DescribeQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1266 (|DescribeQuery/start.1| (ATN-PARSER::INDEX)1267 (%ATN-NODE-BLOCK1268 |DescribeQuery/start.1|1269 (%ATN-EDGE-BLOCK1270 (ATN-PARSER::WORD SPOCQ.S:DESCRIBE)1271 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:DESCRIBE)1272 (SETF *ATN-TERM* 'SPOCQ.S:DESCRIBE)1273 (|DescribeQuery/DescribeQuery.2.4| (1+ ATN-PARSER::INDEX)))1274 (T1275 (SETF *ATN-TERM?* 'SPOCQ.S:DESCRIBE)1276 (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))))1277 (|DescribeQuery/start.1| ATN-PARSER::INDEX)1278 (SETF *ATN-NODE NIL)1279 NIL1280 (IF ATN-PARSER::ATN-STRUCTURE1281 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1282 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1283 (WARN "recursive grammar: ~s @ position ~s: ~s" '|DescribeQuery| ATN-PARSER::INDEX *ATN-STACK))))1284 (PROGN (DEFVAR |AskQuery-INDEX|)1285 (DEFUN |AskQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|WhereClause| NIL))1286 "{8 } AskQuery ::= 'ASK' DatasetClause* WhereClause1287 (|DatasetClause| |WhereClause|)"1288 (DECLARE (SPECIAL |AskQuery-INDEX|))1289 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AskQuery-INDEX| *ATN-LEVEL))1290 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1291 (IF (< |AskQuery-INDEX| ATN-PARSER::INDEX)1292 (LET ((|AskQuery-INDEX| ATN-PARSER::INDEX)1293 (*ATN-LEVEL (1+ *ATN-LEVEL))1294 (*ATN-STACK (CONS '|AskQuery| *ATN-STACK))1295 (ATN-PARSER::ATN-STRUCTURE NIL))1296 (DECLARE (SPECIAL |AskQuery-INDEX|))1297 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1298 (DECLARE (TYPE CONS *ATN-STACK))1299 (SYMBOL-MACROLET1300 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1301 (%ATN-BLOCK |AskQuery|1302 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1303 (SETF *ATN-TERM* '|AskQuery|)1304 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1305 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1306 (|AskQuery.2| (ATN-PARSER::INDEX)1307 (%ATN-NODE-BLOCK1308 |AskQuery.2|1309 (%ATN-EDGE-BLOCK1310 (POP |AskQuery|)1311 (WHEN T1312 (SETF *ATN-TERM* '|AskQuery|)1313 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1314 '|AskQuery|1315 ATN-PARSER::INDEX1316 (LIST '|DatasetClause| |DatasetClause| '|WhereClause| |WhereClause|))1317 (LET ((ATN-PARSER::RESULT-STRUCTURE1318 (IF (EQ *ATN-REDUCE* T)1319 (|AskQuery-Constructor| |DatasetClause| |WhereClause|)1320 (IF (EQ *ATN-REDUCE* 'CONS)1321 (CONS '|AskQuery| (DELETE NIL (LIST |DatasetClause| |WhereClause|)))1322 '|AskQuery|))))1323 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1324 (|AskQuery.6| (ATN-PARSER::INDEX)1325 (%ATN-NODE-BLOCK1326 |AskQuery.6|1327 (%ATN-EDGE-BLOCK1328 (PUSH |DatasetClause|)1329 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1330 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1331 (COND (ATN-PARSER::SUCCESS1332 (SETF *ATN-TERM* '|DatasetClause|)1333 (LET ((|DatasetClause696| |DatasetClause|))1334 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1335 (DESTRUCTURING-BIND1336 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1337 ATN-PARSER::RESULT-AND-INDEX1338 (WHEN ATN-PARSER::RESULT1339 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1340 (|AskQuery.6| ATN-PARSER::RESULT-INDEX))1341 (SETF |DatasetClause| |DatasetClause696|))))1342 (T1343 (SETF *ATN-TERM?* '|DatasetClause|)1344 (|AskQuery/AskQuery.2.5| ATN-PARSER::INDEX)))))))1345 (|AskQuery/AskQuery.2.4| (ATN-PARSER::INDEX)1346 (%ATN-NODE-BLOCK1347 |AskQuery/AskQuery.2.4|1348 (%ATN-EDGE-BLOCK1349 (PUSH |DatasetClause|)1350 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1351 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1352 (COND (ATN-PARSER::SUCCESS1353 (SETF *ATN-TERM* '|DatasetClause|)1354 (LET ((|DatasetClause695| |DatasetClause|))1355 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1356 (DESTRUCTURING-BIND1357 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1358 ATN-PARSER::RESULT-AND-INDEX1359 (WHEN ATN-PARSER::RESULT1360 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1361 (|AskQuery.6| ATN-PARSER::RESULT-INDEX))1362 (SETF |DatasetClause| |DatasetClause695|))))1363 (T1364 (SETF *ATN-TERM?* '|DatasetClause|)1365 (|AskQuery/AskQuery.2.5| ATN-PARSER::INDEX)))))))1366 (|AskQuery/AskQuery.2.5| (ATN-PARSER::INDEX)1367 (%ATN-NODE-BLOCK1368 |AskQuery/AskQuery.2.5|1369 (%ATN-EDGE-BLOCK1370 (PUSH |WhereClause|)1371 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1372 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)1373 (COND (ATN-PARSER::SUCCESS1374 (SETF *ATN-TERM* '|WhereClause|)1375 (LET ((|WhereClause695| |WhereClause|))1376 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1377 (DESTRUCTURING-BIND1378 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1379 ATN-PARSER::RESULT-AND-INDEX1380 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))1381 (|AskQuery.2| ATN-PARSER::RESULT-INDEX))1382 (SETF |WhereClause| |WhereClause695|))))1383 (T1384 (SETF *ATN-TERM?* '|WhereClause|)1385 (|AskQuery/fail.3| ATN-PARSER::INDEX)))))))1386 (|AskQuery/fail.3| (ATN-PARSER::INDEX)1387 (%ATN-NODE-BLOCK |AskQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1388 (|AskQuery/start.1| (ATN-PARSER::INDEX)1389 (%ATN-NODE-BLOCK1390 |AskQuery/start.1|1391 (%ATN-EDGE-BLOCK1392 (ATN-PARSER::WORD SPOCQ.S:ASK)1393 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:ASK)1394 (SETF *ATN-TERM* 'SPOCQ.S:ASK)1395 (|AskQuery/AskQuery.2.4| (1+ ATN-PARSER::INDEX)))1396 (T (SETF *ATN-TERM?* 'SPOCQ.S:ASK) (|AskQuery/fail.3| ATN-PARSER::INDEX)))))))1397 (|AskQuery/start.1| ATN-PARSER::INDEX)1398 (SETF *ATN-NODE NIL)1399 NIL1400 (IF ATN-PARSER::ATN-STRUCTURE1401 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1402 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1403 (WARN "recursive grammar: ~s @ position ~s: ~s" '|AskQuery| ATN-PARSER::INDEX *ATN-STACK))))1404 (PROGN (DEFVAR |DatasetClause-INDEX|)1405 (DEFUN |DatasetClause| (ATN-PARSER::INDEX &AUX (|DefaultGraphClause| NIL) (|NamedGraphClause| NIL))1406 "{9 } DatasetClause ::= 'FROM' ((DefaultGraphClause | NamedGraphClause))1407 (|DefaultGraphClause| |NamedGraphClause|)"1408 (DECLARE (SPECIAL |DatasetClause-INDEX|))1409 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DatasetClause-INDEX| *ATN-LEVEL))1410 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1411 (IF (< |DatasetClause-INDEX| ATN-PARSER::INDEX)1412 (LET ((|DatasetClause-INDEX| ATN-PARSER::INDEX)1413 (*ATN-LEVEL (1+ *ATN-LEVEL))1414 (*ATN-STACK (CONS '|DatasetClause| *ATN-STACK))1415 (ATN-PARSER::ATN-STRUCTURE NIL))1416 (DECLARE (SPECIAL |DatasetClause-INDEX|))1417 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1418 (DECLARE (TYPE CONS *ATN-STACK))1419 (SYMBOL-MACROLET1420 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1421 (%ATN-BLOCK |DatasetClause|1422 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1423 (SETF *ATN-TERM* '|DatasetClause|)1424 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1425 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1426 (|DatasetClause.2| (ATN-PARSER::INDEX)1427 (%ATN-NODE-BLOCK1428 |DatasetClause.2|1429 (%ATN-EDGE-BLOCK1430 (POP |DatasetClause|)1431 (WHEN T1432 (SETF *ATN-TERM* '|DatasetClause|)1433 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1434 '|DatasetClause|1435 ATN-PARSER::INDEX1436 (LIST '|DefaultGraphClause|1437 |DefaultGraphClause|1438 '|NamedGraphClause|1439 |NamedGraphClause|))1440 (LET ((ATN-PARSER::RESULT-STRUCTURE1441 (IF (EQ *ATN-REDUCE* T)1442 (|DatasetClause-Constructor| |DefaultGraphClause| |NamedGraphClause|)1443 (IF (EQ *ATN-REDUCE* 'CONS)1444 (CONS '|DatasetClause|1445 (DELETE NIL (LIST |DefaultGraphClause| |NamedGraphClause|)))1446 '|DatasetClause|))))1447 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1448 (|DatasetClause/DatasetClause.2.4| (ATN-PARSER::INDEX)1449 (%ATN-NODE-BLOCK1450 |DatasetClause/DatasetClause.2.4|1451 (%ATN-EDGE-BLOCK1452 OR1453 (PROGN (%ATN-EDGE-BLOCK1454 (PUSH |DefaultGraphClause|)1455 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1456 (ATN-PARSE-SUBSTRUCTURE* '|DefaultGraphClause| ATN-PARSER::INDEX)1457 (COND (ATN-PARSER::SUCCESS1458 (SETF *ATN-TERM* '|DefaultGraphClause|)1459 (LET ((|DefaultGraphClause696| |DefaultGraphClause|))1460 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1461 (DESTRUCTURING-BIND1462 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1463 ATN-PARSER::RESULT-AND-INDEX1464 (WHEN ATN-PARSER::RESULT1465 (SETF |DefaultGraphClause| ATN-PARSER::RESULT))1466 (|DatasetClause.2| ATN-PARSER::RESULT-INDEX))1467 (SETF |DefaultGraphClause| |DefaultGraphClause696|))))1468 (T (SETF *ATN-TERM?* '|DefaultGraphClause|) NIL))))1469 (%ATN-EDGE-BLOCK1470 (PUSH |NamedGraphClause|)1471 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1472 (ATN-PARSE-SUBSTRUCTURE* '|NamedGraphClause| ATN-PARSER::INDEX)1473 (COND (ATN-PARSER::SUCCESS1474 (SETF *ATN-TERM* '|NamedGraphClause|)1475 (LET ((|NamedGraphClause696| |NamedGraphClause|))1476 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1477 (DESTRUCTURING-BIND1478 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1479 ATN-PARSER::RESULT-AND-INDEX1480 (WHEN ATN-PARSER::RESULT1481 (SETF |NamedGraphClause| ATN-PARSER::RESULT))1482 (|DatasetClause.2| ATN-PARSER::RESULT-INDEX))1483 (SETF |NamedGraphClause| |NamedGraphClause696|))))1484 (T (SETF *ATN-TERM?* '|NamedGraphClause|) NIL))))1485 (|DatasetClause/fail.3| ATN-PARSER::INDEX)))))1486 (|DatasetClause/fail.3| (ATN-PARSER::INDEX)1487 (%ATN-NODE-BLOCK |DatasetClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1488 (|DatasetClause/start.1| (ATN-PARSER::INDEX)1489 (%ATN-NODE-BLOCK1490 |DatasetClause/start.1|1491 (%ATN-EDGE-BLOCK1492 (ATN-PARSER::WORD SPOCQ.S:FROM)1493 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:FROM)1494 (SETF *ATN-TERM* 'SPOCQ.S:FROM)1495 (|DatasetClause/DatasetClause.2.4| (1+ ATN-PARSER::INDEX)))1496 (T1497 (SETF *ATN-TERM?* 'SPOCQ.S:FROM)1498 (|DatasetClause/fail.3| ATN-PARSER::INDEX)))))))1499 (|DatasetClause/start.1| ATN-PARSER::INDEX)1500 (SETF *ATN-NODE NIL)1501 NIL1502 (IF ATN-PARSER::ATN-STRUCTURE1503 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1504 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1505 (WARN "recursive grammar: ~s @ position ~s: ~s" '|DatasetClause| ATN-PARSER::INDEX *ATN-STACK))))1506 (PROGN (DEFVAR |DefaultGraphClause-INDEX|)1507 (DEFUN |DefaultGraphClause| (ATN-PARSER::INDEX &AUX (|SourceSelector| NIL))1508 "{10} DefaultGraphClause ::= SourceSelector1509 (|SourceSelector|)"1510 (DECLARE (SPECIAL |DefaultGraphClause-INDEX|))1511 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DefaultGraphClause-INDEX| *ATN-LEVEL))1512 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1513 (IF (< |DefaultGraphClause-INDEX| ATN-PARSER::INDEX)1514 (LET ((|DefaultGraphClause-INDEX| ATN-PARSER::INDEX)1515 (*ATN-LEVEL (1+ *ATN-LEVEL))1516 (*ATN-STACK (CONS '|DefaultGraphClause| *ATN-STACK))1517 (ATN-PARSER::ATN-STRUCTURE NIL))1518 (DECLARE (SPECIAL |DefaultGraphClause-INDEX|))1519 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1520 (DECLARE (TYPE CONS *ATN-STACK))1521 (SYMBOL-MACROLET1522 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1523 (%ATN-BLOCK |DefaultGraphClause|1524 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1525 (SETF *ATN-TERM* '|DefaultGraphClause|)1526 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1527 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1528 (|DefaultGraphClause.2| (ATN-PARSER::INDEX)1529 (%ATN-NODE-BLOCK1530 |DefaultGraphClause.2|1531 (%ATN-EDGE-BLOCK1532 (POP |DefaultGraphClause|)1533 (WHEN T1534 (SETF *ATN-TERM* '|DefaultGraphClause|)1535 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1536 '|DefaultGraphClause|1537 ATN-PARSER::INDEX1538 (LIST '|SourceSelector| |SourceSelector|))1539 (LET ((ATN-PARSER::RESULT-STRUCTURE1540 (IF (EQ *ATN-REDUCE* T)1541 (|DefaultGraphClause-Constructor| |SourceSelector|)1542 (IF (EQ *ATN-REDUCE* 'CONS)1543 (CONS '|DefaultGraphClause| (DELETE NIL (LIST |SourceSelector|)))1544 '|DefaultGraphClause|))))1545 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1546 (|DefaultGraphClause/fail.3| (ATN-PARSER::INDEX)1547 (%ATN-NODE-BLOCK |DefaultGraphClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1548 (|DefaultGraphClause/start.1| (ATN-PARSER::INDEX)1549 (%ATN-NODE-BLOCK1550 |DefaultGraphClause/start.1|1551 (%ATN-EDGE-BLOCK1552 (PUSH |SourceSelector|)1553 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1554 (ATN-PARSE-SUBSTRUCTURE* '|SourceSelector| ATN-PARSER::INDEX)1555 (COND (ATN-PARSER::SUCCESS1556 (SETF *ATN-TERM* '|SourceSelector|)1557 (LET ((|SourceSelector696| |SourceSelector|))1558 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1559 (DESTRUCTURING-BIND1560 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1561 ATN-PARSER::RESULT-AND-INDEX1562 (WHEN ATN-PARSER::RESULT (SETF |SourceSelector| ATN-PARSER::RESULT))1563 (|DefaultGraphClause.2| ATN-PARSER::RESULT-INDEX))1564 (SETF |SourceSelector| |SourceSelector696|))))1565 (T1566 (SETF *ATN-TERM?* '|SourceSelector|)1567 (|DefaultGraphClause/fail.3| ATN-PARSER::INDEX))))))))1568 (|DefaultGraphClause/start.1| ATN-PARSER::INDEX)1569 (SETF *ATN-NODE NIL)1570 NIL1571 (IF ATN-PARSER::ATN-STRUCTURE1572 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1573 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1574 (WARN "recursive grammar: ~s @ position ~s: ~s" '|DefaultGraphClause| ATN-PARSER::INDEX *ATN-STACK))))1575 (PROGN (DEFVAR |NamedGraphClause-INDEX|)1576 (DEFUN |NamedGraphClause| (ATN-PARSER::INDEX &AUX (|SourceSelector| NIL))1577 "{11} NamedGraphClause ::= 'NAMED' SourceSelector1578 (|SourceSelector|)"1579 (DECLARE (SPECIAL |NamedGraphClause-INDEX|))1580 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NamedGraphClause-INDEX| *ATN-LEVEL))1581 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1582 (IF (< |NamedGraphClause-INDEX| ATN-PARSER::INDEX)1583 (LET ((|NamedGraphClause-INDEX| ATN-PARSER::INDEX)1584 (*ATN-LEVEL (1+ *ATN-LEVEL))1585 (*ATN-STACK (CONS '|NamedGraphClause| *ATN-STACK))1586 (ATN-PARSER::ATN-STRUCTURE NIL))1587 (DECLARE (SPECIAL |NamedGraphClause-INDEX|))1588 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1589 (DECLARE (TYPE CONS *ATN-STACK))1590 (SYMBOL-MACROLET1591 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1592 (%ATN-BLOCK |NamedGraphClause|1593 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1594 (SETF *ATN-TERM* '|NamedGraphClause|)1595 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1596 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1597 (|NamedGraphClause.2| (ATN-PARSER::INDEX)1598 (%ATN-NODE-BLOCK1599 |NamedGraphClause.2|1600 (%ATN-EDGE-BLOCK1601 (POP |NamedGraphClause|)1602 (WHEN T1603 (SETF *ATN-TERM* '|NamedGraphClause|)1604 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1605 '|NamedGraphClause|1606 ATN-PARSER::INDEX1607 (LIST '|SourceSelector| |SourceSelector|))1608 (LET ((ATN-PARSER::RESULT-STRUCTURE1609 (IF (EQ *ATN-REDUCE* T)1610 (|NamedGraphClause-Constructor| |SourceSelector|)1611 (IF (EQ *ATN-REDUCE* 'CONS)1612 (CONS '|NamedGraphClause| (DELETE NIL (LIST |SourceSelector|)))1613 '|NamedGraphClause|))))1614 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1615 (|NamedGraphClause/fail.3| (ATN-PARSER::INDEX)1616 (%ATN-NODE-BLOCK |NamedGraphClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1617 (|NamedGraphClause/NamedGraphClause.2.4| (ATN-PARSER::INDEX)1618 (%ATN-NODE-BLOCK1619 |NamedGraphClause/NamedGraphClause.2.4|1620 (%ATN-EDGE-BLOCK1621 (PUSH |SourceSelector|)1622 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1623 (ATN-PARSE-SUBSTRUCTURE* '|SourceSelector| ATN-PARSER::INDEX)1624 (COND (ATN-PARSER::SUCCESS1625 (SETF *ATN-TERM* '|SourceSelector|)1626 (LET ((|SourceSelector697| |SourceSelector|))1627 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1628 (DESTRUCTURING-BIND1629 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1630 ATN-PARSER::RESULT-AND-INDEX1631 (WHEN ATN-PARSER::RESULT (SETF |SourceSelector| ATN-PARSER::RESULT))1632 (|NamedGraphClause.2| ATN-PARSER::RESULT-INDEX))1633 (SETF |SourceSelector| |SourceSelector697|))))1634 (T1635 (SETF *ATN-TERM?* '|SourceSelector|)1636 (|NamedGraphClause/fail.3| ATN-PARSER::INDEX)))))))1637 (|NamedGraphClause/start.1| (ATN-PARSER::INDEX)1638 (%ATN-NODE-BLOCK1639 |NamedGraphClause/start.1|1640 (%ATN-EDGE-BLOCK1641 (ATN-PARSER::WORD SPOCQ.S:NAMED)1642 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:NAMED)1643 (SETF *ATN-TERM* 'SPOCQ.S:NAMED)1644 (|NamedGraphClause/NamedGraphClause.2.4| (1+ ATN-PARSER::INDEX)))1645 (T1646 (SETF *ATN-TERM?* 'SPOCQ.S:NAMED)1647 (|NamedGraphClause/fail.3| ATN-PARSER::INDEX)))))))1648 (|NamedGraphClause/start.1| ATN-PARSER::INDEX)1649 (SETF *ATN-NODE NIL)1650 NIL1651 (IF ATN-PARSER::ATN-STRUCTURE1652 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1653 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1654 (WARN "recursive grammar: ~s @ position ~s: ~s" '|NamedGraphClause| ATN-PARSER::INDEX *ATN-STACK))))1655 (PROGN (DEFVAR |SourceSelector-INDEX|)1656 (DEFUN |SourceSelector| (ATN-PARSER::INDEX &AUX (|IRIref| NIL))1657 "{12} SourceSelector ::= IRIref1658 (|IRIref|)"1659 (DECLARE (SPECIAL |SourceSelector-INDEX|))1660 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SourceSelector-INDEX| *ATN-LEVEL))1661 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1662 (IF (< |SourceSelector-INDEX| ATN-PARSER::INDEX)1663 (LET ((|SourceSelector-INDEX| ATN-PARSER::INDEX)1664 (*ATN-LEVEL (1+ *ATN-LEVEL))1665 (*ATN-STACK (CONS '|SourceSelector| *ATN-STACK))1666 (ATN-PARSER::ATN-STRUCTURE NIL))1667 (DECLARE (SPECIAL |SourceSelector-INDEX|))1668 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1669 (DECLARE (TYPE CONS *ATN-STACK))1670 (SYMBOL-MACROLET1671 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1672 (%ATN-BLOCK |SourceSelector|1673 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1674 (SETF *ATN-TERM* '|SourceSelector|)1675 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1676 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1677 (|SourceSelector.2| (ATN-PARSER::INDEX)1678 (%ATN-NODE-BLOCK1679 |SourceSelector.2|1680 (%ATN-EDGE-BLOCK1681 (POP |SourceSelector|)1682 (WHEN T1683 (SETF *ATN-TERM* '|SourceSelector|)1684 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1685 '|SourceSelector|1686 ATN-PARSER::INDEX1687 (LIST '|IRIref| |IRIref|))1688 (LET ((ATN-PARSER::RESULT-STRUCTURE1689 (IF (EQ *ATN-REDUCE* T)1690 (|SourceSelector-Constructor| |IRIref|)1691 (IF (EQ *ATN-REDUCE* 'CONS)1692 (CONS '|SourceSelector| (DELETE NIL (LIST |IRIref|)))1693 '|SourceSelector|))))1694 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1695 (|SourceSelector/fail.3| (ATN-PARSER::INDEX)1696 (%ATN-NODE-BLOCK |SourceSelector/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1697 (|SourceSelector/start.1| (ATN-PARSER::INDEX)1698 (%ATN-NODE-BLOCK1699 |SourceSelector/start.1|1700 (%ATN-EDGE-BLOCK1701 (PUSH |IRIref|)1702 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1703 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)1704 (COND (ATN-PARSER::SUCCESS1705 (SETF *ATN-TERM* '|IRIref|)1706 (LET ((|IRIref697| |IRIref|))1707 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1708 (DESTRUCTURING-BIND1709 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1710 ATN-PARSER::RESULT-AND-INDEX1711 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))1712 (|SourceSelector.2| ATN-PARSER::RESULT-INDEX))1713 (SETF |IRIref| |IRIref697|))))1714 (T1715 (SETF *ATN-TERM?* '|IRIref|)1716 (|SourceSelector/fail.3| ATN-PARSER::INDEX))))))))1717 (|SourceSelector/start.1| ATN-PARSER::INDEX)1718 (SETF *ATN-NODE NIL)1719 NIL1720 (IF ATN-PARSER::ATN-STRUCTURE1721 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1722 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1723 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SourceSelector| ATN-PARSER::INDEX *ATN-STACK))))1724 (PROGN (DEFVAR |WhereClause-INDEX|)1725 (DEFUN |WhereClause| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))1726 "{13} WhereClause ::= 'WHERE'? GroupGraphPattern1727 (|GroupGraphPattern|)"1728 (DECLARE (SPECIAL |WhereClause-INDEX|))1729 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |WhereClause-INDEX| *ATN-LEVEL))1730 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1731 (IF (< |WhereClause-INDEX| ATN-PARSER::INDEX)1732 (LET ((|WhereClause-INDEX| ATN-PARSER::INDEX)1733 (*ATN-LEVEL (1+ *ATN-LEVEL))1734 (*ATN-STACK (CONS '|WhereClause| *ATN-STACK))1735 (ATN-PARSER::ATN-STRUCTURE NIL))1736 (DECLARE (SPECIAL |WhereClause-INDEX|))1737 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1738 (DECLARE (TYPE CONS *ATN-STACK))1739 (SYMBOL-MACROLET1740 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1741 (%ATN-BLOCK |WhereClause|1742 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1743 (SETF *ATN-TERM* '|WhereClause|)1744 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1745 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1746 (|WhereClause.2| (ATN-PARSER::INDEX)1747 (%ATN-NODE-BLOCK1748 |WhereClause.2|1749 (%ATN-EDGE-BLOCK1750 (POP |WhereClause|)1751 (WHEN T1752 (SETF *ATN-TERM* '|WhereClause|)1753 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1754 '|WhereClause|1755 ATN-PARSER::INDEX1756 (LIST '|GroupGraphPattern| |GroupGraphPattern|))1757 (LET ((ATN-PARSER::RESULT-STRUCTURE1758 (IF (EQ *ATN-REDUCE* T)1759 (|WhereClause-Constructor| |GroupGraphPattern|)1760 (IF (EQ *ATN-REDUCE* 'CONS)1761 (CONS '|WhereClause| (DELETE NIL (LIST |GroupGraphPattern|)))1762 '|WhereClause|))))1763 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1764 (|WhereClause/fail.3| (ATN-PARSER::INDEX)1765 (%ATN-NODE-BLOCK |WhereClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1766 (|WhereClause/start.1| (ATN-PARSER::INDEX)1767 (%ATN-NODE-BLOCK1768 |WhereClause/start.1|1769 (%ATN-EDGE-BLOCK1770 (ATN-PARSER::WORD SPOCQ.S:WHERE)1771 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:WHERE)1772 (SETF *ATN-TERM* 'SPOCQ.S:WHERE)1773 (|WhereClause/WhereClause.2.4| (1+ ATN-PARSER::INDEX)))1774 (T1775 (SETF *ATN-TERM?* 'SPOCQ.S:WHERE)1776 (|WhereClause/WhereClause.2.4| ATN-PARSER::INDEX))))))1777 (|WhereClause/WhereClause.2.4| (ATN-PARSER::INDEX)1778 (%ATN-NODE-BLOCK1779 |WhereClause/WhereClause.2.4|1780 (%ATN-EDGE-BLOCK1781 (PUSH |GroupGraphPattern|)1782 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1783 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)1784 (COND (ATN-PARSER::SUCCESS1785 (SETF *ATN-TERM* '|GroupGraphPattern|)1786 (LET ((|GroupGraphPattern697| |GroupGraphPattern|))1787 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1788 (DESTRUCTURING-BIND1789 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1790 ATN-PARSER::RESULT-AND-INDEX1791 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))1792 (|WhereClause.2| ATN-PARSER::RESULT-INDEX))1793 (SETF |GroupGraphPattern| |GroupGraphPattern697|))))1794 (T1795 (SETF *ATN-TERM?* '|GroupGraphPattern|)1796 (|WhereClause/fail.3| ATN-PARSER::INDEX))))))))1797 (|WhereClause/start.1| ATN-PARSER::INDEX)1798 (SETF *ATN-NODE NIL)1799 NIL1800 (IF ATN-PARSER::ATN-STRUCTURE1801 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1802 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1803 (WARN "recursive grammar: ~s @ position ~s: ~s" '|WhereClause| ATN-PARSER::INDEX *ATN-STACK))))1804 (PROGN (DEFVAR |SolutionModifier-INDEX|)1805 (DEFUN |SolutionModifier| (ATN-PARSER::INDEX &AUX (|LimitOffsetClauses| NIL) (|OrderClause| NIL))1806 "{14} SolutionModifier ::= OrderClause? LimitOffsetClauses?1807 (|LimitOffsetClauses| |OrderClause|)"1808 (DECLARE (SPECIAL |SolutionModifier-INDEX|))1809 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SolutionModifier-INDEX| *ATN-LEVEL))1810 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1811 (IF (< |SolutionModifier-INDEX| ATN-PARSER::INDEX)1812 (LET ((|SolutionModifier-INDEX| ATN-PARSER::INDEX)1813 (*ATN-LEVEL (1+ *ATN-LEVEL))1814 (*ATN-STACK (CONS '|SolutionModifier| *ATN-STACK))1815 (ATN-PARSER::ATN-STRUCTURE NIL))1816 (DECLARE (SPECIAL |SolutionModifier-INDEX|))1817 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1818 (DECLARE (TYPE CONS *ATN-STACK))1819 (SYMBOL-MACROLET1820 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1821 (%ATN-BLOCK |SolutionModifier|1822 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1823 (SETF *ATN-TERM* '|SolutionModifier|)1824 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1825 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1826 (|SolutionModifier.2| (ATN-PARSER::INDEX)1827 (%ATN-NODE-BLOCK1828 |SolutionModifier.2|1829 (%ATN-EDGE-BLOCK1830 (POP |SolutionModifier|)1831 (WHEN T1832 (SETF *ATN-TERM* '|SolutionModifier|)1833 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1834 '|SolutionModifier|1835 ATN-PARSER::INDEX1836 (LIST '|LimitOffsetClauses|1837 |LimitOffsetClauses|1838 '|OrderClause|1839 |OrderClause|))1840 (LET ((ATN-PARSER::RESULT-STRUCTURE1841 (IF (EQ *ATN-REDUCE* T)1842 (|SolutionModifier-Constructor| |LimitOffsetClauses| |OrderClause|)1843 (IF (EQ *ATN-REDUCE* 'CONS)1844 (CONS '|SolutionModifier|1845 (DELETE NIL (LIST |LimitOffsetClauses| |OrderClause|)))1846 '|SolutionModifier|))))1847 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1848 (|SolutionModifier/fail.3| (ATN-PARSER::INDEX)1849 (%ATN-NODE-BLOCK |SolutionModifier/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1850 (|SolutionModifier/SolutionModifier.2.4| (ATN-PARSER::INDEX)1851 (%ATN-NODE-BLOCK1852 |SolutionModifier/SolutionModifier.2.4|1853 (%ATN-EDGE-BLOCK1854 (PUSH |LimitOffsetClauses|)1855 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1856 (ATN-PARSE-SUBSTRUCTURE* '|LimitOffsetClauses| ATN-PARSER::INDEX)1857 (COND (ATN-PARSER::SUCCESS1858 (SETF *ATN-TERM* '|LimitOffsetClauses|)1859 (LET ((|LimitOffsetClauses697| |LimitOffsetClauses|))1860 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1861 (DESTRUCTURING-BIND1862 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1863 ATN-PARSER::RESULT-AND-INDEX1864 (WHEN ATN-PARSER::RESULT (SETF |LimitOffsetClauses| ATN-PARSER::RESULT))1865 (|SolutionModifier.2| ATN-PARSER::RESULT-INDEX))1866 (SETF |LimitOffsetClauses| |LimitOffsetClauses697|))))1867 (T1868 (SETF *ATN-TERM?* '|LimitOffsetClauses|)1869 (|SolutionModifier.2| ATN-PARSER::INDEX)))))))1870 (|SolutionModifier/start.1| (ATN-PARSER::INDEX)1871 (%ATN-NODE-BLOCK1872 |SolutionModifier/start.1|1873 (%ATN-EDGE-BLOCK1874 (PUSH |OrderClause|)1875 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1876 (ATN-PARSE-SUBSTRUCTURE* '|OrderClause| ATN-PARSER::INDEX)1877 (COND (ATN-PARSER::SUCCESS1878 (SETF *ATN-TERM* '|OrderClause|)1879 (LET ((|OrderClause697| |OrderClause|))1880 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1881 (DESTRUCTURING-BIND1882 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1883 ATN-PARSER::RESULT-AND-INDEX1884 (WHEN ATN-PARSER::RESULT (SETF |OrderClause| ATN-PARSER::RESULT))1885 (|SolutionModifier/SolutionModifier.2.4| ATN-PARSER::RESULT-INDEX))1886 (SETF |OrderClause| |OrderClause697|))))1887 (T1888 (SETF *ATN-TERM?* '|OrderClause|)1889 (|SolutionModifier/SolutionModifier.2.4| ATN-PARSER::INDEX))))))))1890 (|SolutionModifier/start.1| ATN-PARSER::INDEX)1891 (SETF *ATN-NODE NIL)1892 NIL1893 (IF ATN-PARSER::ATN-STRUCTURE1894 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1895 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1896 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SolutionModifier| ATN-PARSER::INDEX *ATN-STACK))))1897 (PROGN (DEFVAR |LimitOffsetClauses-INDEX|)1898 (DEFUN |LimitOffsetClauses| (ATN-PARSER::INDEX &AUX (|LimitClause| NIL) (|OffsetClause| NIL))1899 "{15} LimitOffsetClauses ::= (((LimitClause OffsetClause?) | (OffsetClause1900 LimitClause?)))1901 (|LimitClause| |OffsetClause|)"1902 (DECLARE (SPECIAL |LimitOffsetClauses-INDEX|))1903 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |LimitOffsetClauses-INDEX| *ATN-LEVEL))1904 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1905 (IF (< |LimitOffsetClauses-INDEX| ATN-PARSER::INDEX)1906 (LET ((|LimitOffsetClauses-INDEX| ATN-PARSER::INDEX)1907 (*ATN-LEVEL (1+ *ATN-LEVEL))1908 (*ATN-STACK (CONS '|LimitOffsetClauses| *ATN-STACK))1909 (ATN-PARSER::ATN-STRUCTURE NIL))1910 (DECLARE (SPECIAL |LimitOffsetClauses-INDEX|))1911 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1912 (DECLARE (TYPE CONS *ATN-STACK))1913 (SYMBOL-MACROLET1914 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1915 (%ATN-BLOCK |LimitOffsetClauses|1916 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1917 (SETF *ATN-TERM* '|LimitOffsetClauses|)1918 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1919 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1920 (|LimitOffsetClauses.2| (ATN-PARSER::INDEX)1921 (%ATN-NODE-BLOCK1922 |LimitOffsetClauses.2|1923 (%ATN-EDGE-BLOCK1924 (POP |LimitOffsetClauses|)1925 (WHEN T1926 (SETF *ATN-TERM* '|LimitOffsetClauses|)1927 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1928 '|LimitOffsetClauses|1929 ATN-PARSER::INDEX1930 (LIST '|LimitClause| |LimitClause| '|OffsetClause| |OffsetClause|))1931 (LET ((ATN-PARSER::RESULT-STRUCTURE1932 (IF (EQ *ATN-REDUCE* T)1933 (|LimitOffsetClauses-Constructor| |LimitClause| |OffsetClause|)1934 (IF (EQ *ATN-REDUCE* 'CONS)1935 (CONS '|LimitOffsetClauses|1936 (DELETE NIL (LIST |LimitClause| |OffsetClause|)))1937 '|LimitOffsetClauses|))))1938 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1939 (|LimitOffsetClauses/fail.3| (ATN-PARSER::INDEX)1940 (%ATN-NODE-BLOCK |LimitOffsetClauses/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1941 (|LimitOffsetClauses/LimitOffsetClauses.2.4| (ATN-PARSER::INDEX)1942 (%ATN-NODE-BLOCK1943 |LimitOffsetClauses/LimitOffsetClauses.2.4|1944 (%ATN-EDGE-BLOCK1945 (PUSH |LimitClause|)1946 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1947 (ATN-PARSE-SUBSTRUCTURE* '|LimitClause| ATN-PARSER::INDEX)1948 (COND (ATN-PARSER::SUCCESS1949 (SETF *ATN-TERM* '|LimitClause|)1950 (LET ((|LimitClause698| |LimitClause|))1951 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1952 (DESTRUCTURING-BIND1953 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1954 ATN-PARSER::RESULT-AND-INDEX1955 (WHEN ATN-PARSER::RESULT (SETF |LimitClause| ATN-PARSER::RESULT))1956 (|LimitOffsetClauses/LimitOffsetClauses.2.5| ATN-PARSER::RESULT-INDEX))1957 (SETF |LimitClause| |LimitClause698|))))1958 (T (SETF *ATN-TERM?* '|LimitClause|) NIL))))))1959 (|LimitOffsetClauses/LimitOffsetClauses.2.5| (ATN-PARSER::INDEX)1960 (%ATN-NODE-BLOCK1961 |LimitOffsetClauses/LimitOffsetClauses.2.5|1962 (%ATN-EDGE-BLOCK1963 (PUSH |OffsetClause|)1964 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1965 (ATN-PARSE-SUBSTRUCTURE* '|OffsetClause| ATN-PARSER::INDEX)1966 (COND (ATN-PARSER::SUCCESS1967 (SETF *ATN-TERM* '|OffsetClause|)1968 (LET ((|OffsetClause698| |OffsetClause|))1969 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1970 (DESTRUCTURING-BIND1971 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1972 ATN-PARSER::RESULT-AND-INDEX1973 (WHEN ATN-PARSER::RESULT (SETF |OffsetClause| ATN-PARSER::RESULT))1974 (|LimitOffsetClauses.2| ATN-PARSER::RESULT-INDEX))1975 (SETF |OffsetClause| |OffsetClause698|))))1976 (T1977 (SETF *ATN-TERM?* '|OffsetClause|)1978 (|LimitOffsetClauses.2| ATN-PARSER::INDEX)))))))1979 (|LimitOffsetClauses/LimitOffsetClauses.2.6| (ATN-PARSER::INDEX)1980 (%ATN-NODE-BLOCK1981 |LimitOffsetClauses/LimitOffsetClauses.2.6|1982 (%ATN-EDGE-BLOCK1983 (PUSH |OffsetClause|)1984 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1985 (ATN-PARSE-SUBSTRUCTURE* '|OffsetClause| ATN-PARSER::INDEX)1986 (COND (ATN-PARSER::SUCCESS1987 (SETF *ATN-TERM* '|OffsetClause|)1988 (LET ((|OffsetClause697| |OffsetClause|))1989 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1990 (DESTRUCTURING-BIND1991 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1992 ATN-PARSER::RESULT-AND-INDEX1993 (WHEN ATN-PARSER::RESULT (SETF |OffsetClause| ATN-PARSER::RESULT))1994 (|LimitOffsetClauses/LimitOffsetClauses.2.7| ATN-PARSER::RESULT-INDEX))1995 (SETF |OffsetClause| |OffsetClause697|))))1996 (T (SETF *ATN-TERM?* '|OffsetClause|) NIL))))))1997 (|LimitOffsetClauses/LimitOffsetClauses.2.7| (ATN-PARSER::INDEX)1998 (%ATN-NODE-BLOCK1999 |LimitOffsetClauses/LimitOffsetClauses.2.7|2000 (%ATN-EDGE-BLOCK2001 (PUSH |LimitClause|)2002 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2003 (ATN-PARSE-SUBSTRUCTURE* '|LimitClause| ATN-PARSER::INDEX)2004 (COND (ATN-PARSER::SUCCESS2005 (SETF *ATN-TERM* '|LimitClause|)2006 (LET ((|LimitClause697| |LimitClause|))2007 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2008 (DESTRUCTURING-BIND2009 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2010 ATN-PARSER::RESULT-AND-INDEX2011 (WHEN ATN-PARSER::RESULT (SETF |LimitClause| ATN-PARSER::RESULT))2012 (|LimitOffsetClauses.2| ATN-PARSER::RESULT-INDEX))2013 (SETF |LimitClause| |LimitClause697|))))2014 (T2015 (SETF *ATN-TERM?* '|LimitClause|)2016 (|LimitOffsetClauses.2| ATN-PARSER::INDEX)))))))2017 (|LimitOffsetClauses/start.1| (ATN-PARSER::INDEX)2018 (%ATN-NODE-BLOCK2019 |LimitOffsetClauses/start.1|2020 (%ATN-EDGE-BLOCK2021 OR2022 (PROGN (%ATN-EDGE-BLOCK2023 (ATN-PARSER::JUMP |LimitOffsetClauses/LimitOffsetClauses.2.4|)2024 (|LimitOffsetClauses/LimitOffsetClauses.2.4| ATN-PARSER::INDEX))2025 (%ATN-EDGE-BLOCK2026 (ATN-PARSER::JUMP |LimitOffsetClauses/LimitOffsetClauses.2.6|)2027 (|LimitOffsetClauses/LimitOffsetClauses.2.6| ATN-PARSER::INDEX))2028 (|LimitOffsetClauses/fail.3| ATN-PARSER::INDEX))))))2029 (|LimitOffsetClauses/start.1| ATN-PARSER::INDEX)2030 (SETF *ATN-NODE NIL)2031 NIL2032 (IF ATN-PARSER::ATN-STRUCTURE2033 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2034 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2035 (WARN "recursive grammar: ~s @ position ~s: ~s" '|LimitOffsetClauses| ATN-PARSER::INDEX *ATN-STACK))))2036 (PROGN (DEFVAR |OrderClause-INDEX|)2037 (DEFUN |OrderClause| (ATN-PARSER::INDEX &AUX (|OrderCondition| NIL))2038 "{16} OrderClause ::= 'ORDER' 'BY' OrderCondition+2039 (|OrderCondition|)"2040 (DECLARE (SPECIAL |OrderClause-INDEX|))2041 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OrderClause-INDEX| *ATN-LEVEL))2042 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2043 (IF (< |OrderClause-INDEX| ATN-PARSER::INDEX)2044 (LET ((|OrderClause-INDEX| ATN-PARSER::INDEX)2045 (*ATN-LEVEL (1+ *ATN-LEVEL))2046 (*ATN-STACK (CONS '|OrderClause| *ATN-STACK))2047 (ATN-PARSER::ATN-STRUCTURE NIL))2048 (DECLARE (SPECIAL |OrderClause-INDEX|))2049 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2050 (DECLARE (TYPE CONS *ATN-STACK))2051 (SYMBOL-MACROLET2052 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2053 (%ATN-BLOCK |OrderClause|2054 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2055 (SETF *ATN-TERM* '|OrderClause|)2056 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2057 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2058 (|OrderClause.2| (ATN-PARSER::INDEX)2059 (%ATN-NODE-BLOCK2060 |OrderClause.2|2061 (%ATN-EDGE-BLOCK2062 (POP |OrderClause|)2063 (WHEN T2064 (SETF *ATN-TERM* '|OrderClause|)2065 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2066 '|OrderClause|2067 ATN-PARSER::INDEX2068 (LIST '|OrderCondition| |OrderCondition|))2069 (LET ((ATN-PARSER::RESULT-STRUCTURE2070 (IF (EQ *ATN-REDUCE* T)2071 (|OrderClause-Constructor| |OrderCondition|)2072 (IF (EQ *ATN-REDUCE* 'CONS)2073 (CONS '|OrderClause| (DELETE NIL (LIST |OrderCondition|)))2074 '|OrderClause|))))2075 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2076 (|OrderClause.6| (ATN-PARSER::INDEX)2077 (%ATN-NODE-BLOCK2078 |OrderClause.6|2079 (%ATN-EDGE-BLOCK2080 (PUSH |OrderCondition|)2081 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2082 (ATN-PARSE-SUBSTRUCTURE* '|OrderCondition| ATN-PARSER::INDEX)2083 (COND (ATN-PARSER::SUCCESS2084 (SETF *ATN-TERM* '|OrderCondition|)2085 (LET ((|OrderCondition699| |OrderCondition|))2086 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2087 (DESTRUCTURING-BIND2088 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2089 ATN-PARSER::RESULT-AND-INDEX2090 (WHEN ATN-PARSER::RESULT2091 (SETF |OrderCondition| (CONS ATN-PARSER::RESULT |OrderCondition|)))2092 (|OrderClause.6| ATN-PARSER::RESULT-INDEX))2093 (SETF |OrderCondition| |OrderCondition699|))))2094 (T2095 (SETF *ATN-TERM?* '|OrderCondition|)2096 (|OrderClause.2| ATN-PARSER::INDEX)))))))2097 (|OrderClause/fail.3| (ATN-PARSER::INDEX)2098 (%ATN-NODE-BLOCK |OrderClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2099 (|OrderClause/OrderClause.2.4| (ATN-PARSER::INDEX)2100 (%ATN-NODE-BLOCK2101 |OrderClause/OrderClause.2.4|2102 (%ATN-EDGE-BLOCK2103 (ATN-PARSER::WORD SPOCQ.S:BY)2104 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BY)2105 (SETF *ATN-TERM* 'SPOCQ.S:BY)2106 (|OrderClause/OrderClause.2.5| (1+ ATN-PARSER::INDEX)))2107 (T (SETF *ATN-TERM?* 'SPOCQ.S:BY) (|OrderClause/fail.3| ATN-PARSER::INDEX))))))2108 (|OrderClause/OrderClause.2.5| (ATN-PARSER::INDEX)2109 (%ATN-NODE-BLOCK2110 |OrderClause/OrderClause.2.5|2111 (%ATN-EDGE-BLOCK2112 (PUSH |OrderCondition|)2113 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2114 (ATN-PARSE-SUBSTRUCTURE* '|OrderCondition| ATN-PARSER::INDEX)2115 (COND (ATN-PARSER::SUCCESS2116 (SETF *ATN-TERM* '|OrderCondition|)2117 (LET ((|OrderCondition698| |OrderCondition|))2118 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2119 (DESTRUCTURING-BIND2120 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2121 ATN-PARSER::RESULT-AND-INDEX2122 (WHEN ATN-PARSER::RESULT2123 (SETF |OrderCondition| (CONS ATN-PARSER::RESULT |OrderCondition|)))2124 (|OrderClause.6| ATN-PARSER::RESULT-INDEX))2125 (SETF |OrderCondition| |OrderCondition698|))))2126 (T2127 (SETF *ATN-TERM?* '|OrderCondition|)2128 (|OrderClause/fail.3| ATN-PARSER::INDEX)))))))2129 (|OrderClause/start.1| (ATN-PARSER::INDEX)2130 (%ATN-NODE-BLOCK2131 |OrderClause/start.1|2132 (%ATN-EDGE-BLOCK2133 (ATN-PARSER::WORD SPOCQ.S:ORDER)2134 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:ORDER)2135 (SETF *ATN-TERM* 'SPOCQ.S:ORDER)2136 (|OrderClause/OrderClause.2.4| (1+ ATN-PARSER::INDEX)))2137 (T2138 (SETF *ATN-TERM?* 'SPOCQ.S:ORDER)2139 (|OrderClause/fail.3| ATN-PARSER::INDEX)))))))2140 (|OrderClause/start.1| ATN-PARSER::INDEX)2141 (SETF *ATN-NODE NIL)2142 NIL2143 (IF ATN-PARSER::ATN-STRUCTURE2144 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2145 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2146 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OrderClause| ATN-PARSER::INDEX *ATN-STACK))))2147 (PROGN (DEFVAR |OrderCondition-INDEX|)2148 (DEFUN |OrderCondition| (ATN-PARSER::INDEX &AUX (|BrackettedExpression| NIL) (|Constraint| NIL) (|OrderDirection| NIL)2149 (|Var| NIL))2150 "{17} OrderCondition ::= ((OrderDirection2151 BrackettedExpression) | Constraint | Var)2152 (|BrackettedExpression| |Constraint| |OrderDirection| |Var|)"2153 (DECLARE (SPECIAL |OrderCondition-INDEX|))2154 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OrderCondition-INDEX| *ATN-LEVEL))2155 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2156 (IF (< |OrderCondition-INDEX| ATN-PARSER::INDEX)2157 (LET ((|OrderCondition-INDEX| ATN-PARSER::INDEX)2158 (*ATN-LEVEL (1+ *ATN-LEVEL))2159 (*ATN-STACK (CONS '|OrderCondition| *ATN-STACK))2160 (ATN-PARSER::ATN-STRUCTURE NIL))2161 (DECLARE (SPECIAL |OrderCondition-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 |OrderCondition|2167 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2168 (SETF *ATN-TERM* '|OrderCondition|)2169 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2170 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2171 (|OrderCondition.2| (ATN-PARSER::INDEX)2172 (%ATN-NODE-BLOCK2173 |OrderCondition.2|2174 (%ATN-EDGE-BLOCK2175 (POP |OrderCondition|)2176 (WHEN T2177 (SETF *ATN-TERM* '|OrderCondition|)2178 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2179 '|OrderCondition|2180 ATN-PARSER::INDEX2181 (LIST '|BrackettedExpression|2182 |BrackettedExpression|2183 '|Constraint|2184 |Constraint|2185 '|OrderDirection|2186 |OrderDirection|2187 '|Var|2188 |Var|))2189 (LET ((ATN-PARSER::RESULT-STRUCTURE2190 (IF (EQ *ATN-REDUCE* T)2191 (|OrderCondition-Constructor|2192 |BrackettedExpression|2193 |Constraint|2194 |OrderDirection|2195 |Var|)2196 (IF (EQ *ATN-REDUCE* 'CONS)2197 (CONS '|OrderCondition|2198 (DELETE NIL2199 (LIST |BrackettedExpression|2200 |Constraint|2201 |OrderDirection|2202 |Var|)))2203 '|OrderCondition|))))2204 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2205 (|OrderCondition/fail.3| (ATN-PARSER::INDEX)2206 (%ATN-NODE-BLOCK |OrderCondition/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2207 (|OrderCondition/OrderCondition.2.4| (ATN-PARSER::INDEX)2208 (%ATN-NODE-BLOCK2209 |OrderCondition/OrderCondition.2.4|2210 (%ATN-EDGE-BLOCK2211 (ATN-PARSER::CAT |OrderDirection|)2212 (COND ((|IS-OrderDirection| ATN-PARSER::|item|)2213 (SETF *ATN-TERM* '|OrderDirection|)2214 (SETF |OrderDirection|2215 (IF (EQ *ATN-REDUCE* T)2216 (ATN-REDUCE-ITEM #'|OrderDirection-Constructor| ATN-PARSER::|item|)2217 (IF (EQ *ATN-REDUCE* 'CONS)2218 (LIST '|OrderDirection| ATN-PARSER::|item|)2219 '|OrderDirection|)))2220 (|OrderCondition/OrderCondition.2.5| (1+ ATN-PARSER::INDEX)))2221 (T (SETF *ATN-TERM* '|OrderDirection|) NIL)))))2222 (|OrderCondition/OrderCondition.2.5| (ATN-PARSER::INDEX)2223 (%ATN-NODE-BLOCK2224 |OrderCondition/OrderCondition.2.5|2225 (%ATN-EDGE-BLOCK2226 (PUSH |BrackettedExpression|)2227 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2228 (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression| ATN-PARSER::INDEX)2229 (COND (ATN-PARSER::SUCCESS2230 (SETF *ATN-TERM* '|BrackettedExpression|)2231 (LET ((|BrackettedExpression699| |BrackettedExpression|))2232 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2233 (DESTRUCTURING-BIND2234 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2235 ATN-PARSER::RESULT-AND-INDEX2236 (WHEN ATN-PARSER::RESULT2237 (SETF |BrackettedExpression| ATN-PARSER::RESULT))2238 (|OrderCondition.2| ATN-PARSER::RESULT-INDEX))2239 (SETF |BrackettedExpression| |BrackettedExpression699|))))2240 (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))))2241 (|OrderCondition/start.1| (ATN-PARSER::INDEX)2242 (%ATN-NODE-BLOCK2243 |OrderCondition/start.1|2244 (%ATN-EDGE-BLOCK2245 OR2246 (PROGN (%ATN-EDGE-BLOCK2247 (ATN-PARSER::JUMP |OrderCondition/OrderCondition.2.4|)2248 (|OrderCondition/OrderCondition.2.4| ATN-PARSER::INDEX))2249 (%ATN-EDGE-BLOCK2250 (PUSH |Constraint|)2251 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2252 (ATN-PARSE-SUBSTRUCTURE* '|Constraint| ATN-PARSER::INDEX)2253 (COND (ATN-PARSER::SUCCESS2254 (SETF *ATN-TERM* '|Constraint|)2255 (LET ((|Constraint699| |Constraint|))2256 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2257 (DESTRUCTURING-BIND2258 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2259 ATN-PARSER::RESULT-AND-INDEX2260 (WHEN ATN-PARSER::RESULT2261 (SETF |Constraint| ATN-PARSER::RESULT))2262 (|OrderCondition.2| ATN-PARSER::RESULT-INDEX))2263 (SETF |Constraint| |Constraint699|))))2264 (T (SETF *ATN-TERM?* '|Constraint|) NIL))))2265 (%ATN-EDGE-BLOCK2266 (TEST |Var|)2267 (COND ((|IS-Var| ATN-PARSER::|item|)2268 (SETF *ATN-TERM* '|Var|)2269 (SETF |Var|2270 (IF (EQ *ATN-REDUCE* T)2271 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)2272 (IF (EQ *ATN-REDUCE* 'CONS)2273 (LIST '|Var| ATN-PARSER::|item|)2274 '|Var|)))2275 (|OrderCondition.2| (1+ ATN-PARSER::INDEX)))2276 (T (SETF *ATN-TERM?* '|Var|) NIL)))2277 (|OrderCondition/fail.3| ATN-PARSER::INDEX))))))2278 (|OrderCondition/start.1| ATN-PARSER::INDEX)2279 (SETF *ATN-NODE NIL)2280 NIL2281 (IF ATN-PARSER::ATN-STRUCTURE2282 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2283 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2284 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OrderCondition| ATN-PARSER::INDEX *ATN-STACK))))2285 (PROGN (DEFVAR |LimitClause-INDEX|)2286 (DEFUN |LimitClause| (ATN-PARSER::INDEX &AUX (INTEGER NIL))2287 "{18} LimitClause ::= 'LIMIT' INTEGER2288 (INTEGER)"2289 (DECLARE (SPECIAL |LimitClause-INDEX|))2290 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |LimitClause-INDEX| *ATN-LEVEL))2291 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2292 (IF (< |LimitClause-INDEX| ATN-PARSER::INDEX)2293 (LET ((|LimitClause-INDEX| ATN-PARSER::INDEX)2294 (*ATN-LEVEL (1+ *ATN-LEVEL))2295 (*ATN-STACK (CONS '|LimitClause| *ATN-STACK))2296 (ATN-PARSER::ATN-STRUCTURE NIL))2297 (DECLARE (SPECIAL |LimitClause-INDEX|))2298 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2299 (DECLARE (TYPE CONS *ATN-STACK))2300 (SYMBOL-MACROLET2301 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2302 (%ATN-BLOCK |LimitClause|2303 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2304 (SETF *ATN-TERM* '|LimitClause|)2305 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2306 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2307 (|LimitClause.2| (ATN-PARSER::INDEX)2308 (%ATN-NODE-BLOCK2309 |LimitClause.2|2310 (%ATN-EDGE-BLOCK2311 (POP |LimitClause|)2312 (WHEN T2313 (SETF *ATN-TERM* '|LimitClause|)2314 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2315 '|LimitClause|2316 ATN-PARSER::INDEX2317 (LIST 'INTEGER INTEGER))2318 (LET ((ATN-PARSER::RESULT-STRUCTURE2319 (IF (EQ *ATN-REDUCE* T)2320 (|LimitClause-Constructor| INTEGER)2321 (IF (EQ *ATN-REDUCE* 'CONS)2322 (CONS '|LimitClause| (DELETE NIL (LIST INTEGER)))2323 '|LimitClause|))))2324 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2325 (|LimitClause/fail.3| (ATN-PARSER::INDEX)2326 (%ATN-NODE-BLOCK |LimitClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2327 (|LimitClause/LimitClause.2.4| (ATN-PARSER::INDEX)2328 (%ATN-NODE-BLOCK2329 |LimitClause/LimitClause.2.4|2330 (%ATN-EDGE-BLOCK2331 (TEST INTEGER)2332 (COND ((IS-INTEGER ATN-PARSER::|item|)2333 (SETF *ATN-TERM* 'INTEGER)2334 (SETF INTEGER2335 (IF (EQ *ATN-REDUCE* T)2336 (ATN-REDUCE-ITEM #'|INTEGER-Constructor| ATN-PARSER::|item|)2337 (IF (EQ *ATN-REDUCE* 'CONS)2338 (LIST 'INTEGER ATN-PARSER::|item|)2339 'INTEGER)))2340 (|LimitClause.2| (1+ ATN-PARSER::INDEX)))2341 (T (SETF *ATN-TERM?* 'INTEGER) (|LimitClause/fail.3| ATN-PARSER::INDEX))))))2342 (|LimitClause/start.1| (ATN-PARSER::INDEX)2343 (%ATN-NODE-BLOCK2344 |LimitClause/start.1|2345 (%ATN-EDGE-BLOCK2346 (ATN-PARSER::WORD SPOCQ.S:LIMIT)2347 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:LIMIT)2348 (SETF *ATN-TERM* 'SPOCQ.S:LIMIT)2349 (|LimitClause/LimitClause.2.4| (1+ ATN-PARSER::INDEX)))2350 (T2351 (SETF *ATN-TERM?* 'SPOCQ.S:LIMIT)2352 (|LimitClause/fail.3| ATN-PARSER::INDEX)))))))2353 (|LimitClause/start.1| ATN-PARSER::INDEX)2354 (SETF *ATN-NODE NIL)2355 NIL2356 (IF ATN-PARSER::ATN-STRUCTURE2357 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2358 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2359 (WARN "recursive grammar: ~s @ position ~s: ~s" '|LimitClause| ATN-PARSER::INDEX *ATN-STACK))))2360 (PROGN (DEFVAR |OffsetClause-INDEX|)2361 (DEFUN |OffsetClause| (ATN-PARSER::INDEX &AUX (INTEGER NIL))2362 "{19} OffsetClause ::= 'OFFSET' INTEGER2363 (INTEGER)"2364 (DECLARE (SPECIAL |OffsetClause-INDEX|))2365 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OffsetClause-INDEX| *ATN-LEVEL))2366 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2367 (IF (< |OffsetClause-INDEX| ATN-PARSER::INDEX)2368 (LET ((|OffsetClause-INDEX| ATN-PARSER::INDEX)2369 (*ATN-LEVEL (1+ *ATN-LEVEL))2370 (*ATN-STACK (CONS '|OffsetClause| *ATN-STACK))2371 (ATN-PARSER::ATN-STRUCTURE NIL))2372 (DECLARE (SPECIAL |OffsetClause-INDEX|))2373 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2374 (DECLARE (TYPE CONS *ATN-STACK))2375 (SYMBOL-MACROLET2376 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2377 (%ATN-BLOCK |OffsetClause|2378 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2379 (SETF *ATN-TERM* '|OffsetClause|)2380 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2381 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2382 (|OffsetClause.2| (ATN-PARSER::INDEX)2383 (%ATN-NODE-BLOCK2384 |OffsetClause.2|2385 (%ATN-EDGE-BLOCK2386 (POP |OffsetClause|)2387 (WHEN T2388 (SETF *ATN-TERM* '|OffsetClause|)2389 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2390 '|OffsetClause|2391 ATN-PARSER::INDEX2392 (LIST 'INTEGER INTEGER))2393 (LET ((ATN-PARSER::RESULT-STRUCTURE2394 (IF (EQ *ATN-REDUCE* T)2395 (|OffsetClause-Constructor| INTEGER)2396 (IF (EQ *ATN-REDUCE* 'CONS)2397 (CONS '|OffsetClause| (DELETE NIL (LIST INTEGER)))2398 '|OffsetClause|))))2399 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2400 (|OffsetClause/fail.3| (ATN-PARSER::INDEX)2401 (%ATN-NODE-BLOCK |OffsetClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2402 (|OffsetClause/OffsetClause.2.4| (ATN-PARSER::INDEX)2403 (%ATN-NODE-BLOCK2404 |OffsetClause/OffsetClause.2.4|2405 (%ATN-EDGE-BLOCK2406 (TEST INTEGER)2407 (COND ((IS-INTEGER ATN-PARSER::|item|)2408 (SETF *ATN-TERM* 'INTEGER)2409 (SETF INTEGER2410 (IF (EQ *ATN-REDUCE* T)2411 (ATN-REDUCE-ITEM #'|INTEGER-Constructor| ATN-PARSER::|item|)2412 (IF (EQ *ATN-REDUCE* 'CONS)2413 (LIST 'INTEGER ATN-PARSER::|item|)2414 'INTEGER)))2415 (|OffsetClause.2| (1+ ATN-PARSER::INDEX)))2416 (T (SETF *ATN-TERM?* 'INTEGER) (|OffsetClause/fail.3| ATN-PARSER::INDEX))))))2417 (|OffsetClause/start.1| (ATN-PARSER::INDEX)2418 (%ATN-NODE-BLOCK2419 |OffsetClause/start.1|2420 (%ATN-EDGE-BLOCK2421 (ATN-PARSER::WORD SPOCQ.S:OFFSET)2422 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:OFFSET)2423 (SETF *ATN-TERM* 'SPOCQ.S:OFFSET)2424 (|OffsetClause/OffsetClause.2.4| (1+ ATN-PARSER::INDEX)))2425 (T2426 (SETF *ATN-TERM?* 'SPOCQ.S:OFFSET)2427 (|OffsetClause/fail.3| ATN-PARSER::INDEX)))))))2428 (|OffsetClause/start.1| ATN-PARSER::INDEX)2429 (SETF *ATN-NODE NIL)2430 NIL2431 (IF ATN-PARSER::ATN-STRUCTURE2432 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2433 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2434 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OffsetClause| ATN-PARSER::INDEX *ATN-STACK))))2435 (PROGN (DEFVAR |GroupGraphPattern-INDEX|)2436 (DEFUN |GroupGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPatternRest| NIL) (|TriplesBlock| NIL))2437 "{20} GroupGraphPattern ::= '{' TriplesBlock? GroupGraphPatternRest* '}'2438 (|GroupGraphPatternRest| |TriplesBlock|)"2439 (DECLARE (SPECIAL |GroupGraphPattern-INDEX|))2440 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPattern-INDEX| *ATN-LEVEL))2441 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2442 (IF (< |GroupGraphPattern-INDEX| ATN-PARSER::INDEX)2443 (LET ((|GroupGraphPattern-INDEX| ATN-PARSER::INDEX)2444 (*ATN-LEVEL (1+ *ATN-LEVEL))2445 (*ATN-STACK (CONS '|GroupGraphPattern| *ATN-STACK))2446 (ATN-PARSER::ATN-STRUCTURE NIL))2447 (DECLARE (SPECIAL |GroupGraphPattern-INDEX|))2448 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2449 (DECLARE (TYPE CONS *ATN-STACK))2450 (SYMBOL-MACROLET2451 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2452 (%ATN-BLOCK |GroupGraphPattern|2453 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2454 (SETF *ATN-TERM* '|GroupGraphPattern|)2455 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2456 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2457 (|GroupGraphPattern.2| (ATN-PARSER::INDEX)2458 (%ATN-NODE-BLOCK2459 |GroupGraphPattern.2|2460 (%ATN-EDGE-BLOCK2461 (POP |GroupGraphPattern|)2462 (WHEN T2463 (SETF *ATN-TERM* '|GroupGraphPattern|)2464 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2465 '|GroupGraphPattern|2466 ATN-PARSER::INDEX2467 (LIST '|GroupGraphPatternRest|2468 |GroupGraphPatternRest|2469 '|TriplesBlock|2470 |TriplesBlock|))2471 (LET ((ATN-PARSER::RESULT-STRUCTURE2472 (IF (EQ *ATN-REDUCE* T)2473 (|GroupGraphPattern-Constructor| |GroupGraphPatternRest| |TriplesBlock|)2474 (IF (EQ *ATN-REDUCE* 'CONS)2475 (CONS '|GroupGraphPattern|2476 (DELETE NIL (LIST |GroupGraphPatternRest| |TriplesBlock|)))2477 '|GroupGraphPattern|))))2478 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2479 (|GroupGraphPattern.7| (ATN-PARSER::INDEX)2480 (%ATN-NODE-BLOCK2481 |GroupGraphPattern.7|2482 (%ATN-EDGE-BLOCK2483 (PUSH |GroupGraphPatternRest|)2484 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2485 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPatternRest| ATN-PARSER::INDEX)2486 (COND (ATN-PARSER::SUCCESS2487 (SETF *ATN-TERM* '|GroupGraphPatternRest|)2488 (LET ((|GroupGraphPatternRest700| |GroupGraphPatternRest|))2489 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2490 (DESTRUCTURING-BIND2491 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2492 ATN-PARSER::RESULT-AND-INDEX2493 (WHEN ATN-PARSER::RESULT2494 (SETF |GroupGraphPatternRest|2495 (CONS ATN-PARSER::RESULT |GroupGraphPatternRest|)))2496 (|GroupGraphPattern.7| ATN-PARSER::RESULT-INDEX))2497 (SETF |GroupGraphPatternRest| |GroupGraphPatternRest700|))))2498 (T2499 (SETF *ATN-TERM?* '|GroupGraphPatternRest|)2500 (|GroupGraphPattern/GroupGraphPattern.2.6| ATN-PARSER::INDEX)))))))2501 (|GroupGraphPattern/fail.3| (ATN-PARSER::INDEX)2502 (%ATN-NODE-BLOCK |GroupGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2503 (|GroupGraphPattern/GroupGraphPattern.2.4| (ATN-PARSER::INDEX)2504 (%ATN-NODE-BLOCK2505 |GroupGraphPattern/GroupGraphPattern.2.4|2506 (%ATN-EDGE-BLOCK2507 (PUSH |TriplesBlock|)2508 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2509 (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)2510 (COND (ATN-PARSER::SUCCESS2511 (SETF *ATN-TERM* '|TriplesBlock|)2512 (LET ((|TriplesBlock700| |TriplesBlock|))2513 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2514 (DESTRUCTURING-BIND2515 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2516 ATN-PARSER::RESULT-AND-INDEX2517 (WHEN ATN-PARSER::RESULT (SETF |TriplesBlock| ATN-PARSER::RESULT))2518 (|GroupGraphPattern/GroupGraphPattern.2.5| ATN-PARSER::RESULT-INDEX))2519 (SETF |TriplesBlock| |TriplesBlock700|))))2520 (T2521 (SETF *ATN-TERM?* '|TriplesBlock|)2522 (|GroupGraphPattern/GroupGraphPattern.2.5| ATN-PARSER::INDEX)))))))2523 (|GroupGraphPattern/GroupGraphPattern.2.5| (ATN-PARSER::INDEX)2524 (%ATN-NODE-BLOCK2525 |GroupGraphPattern/GroupGraphPattern.2.5|2526 (%ATN-EDGE-BLOCK2527 (PUSH |GroupGraphPatternRest|)2528 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2529 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPatternRest| ATN-PARSER::INDEX)2530 (COND (ATN-PARSER::SUCCESS2531 (SETF *ATN-TERM* '|GroupGraphPatternRest|)2532 (LET ((|GroupGraphPatternRest699| |GroupGraphPatternRest|))2533 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2534 (DESTRUCTURING-BIND2535 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2536 ATN-PARSER::RESULT-AND-INDEX2537 (WHEN ATN-PARSER::RESULT2538 (SETF |GroupGraphPatternRest|2539 (CONS ATN-PARSER::RESULT |GroupGraphPatternRest|)))2540 (|GroupGraphPattern.7| ATN-PARSER::RESULT-INDEX))2541 (SETF |GroupGraphPatternRest| |GroupGraphPatternRest699|))))2542 (T2543 (SETF *ATN-TERM?* '|GroupGraphPatternRest|)2544 (|GroupGraphPattern/GroupGraphPattern.2.6| ATN-PARSER::INDEX)))))))2545 (|GroupGraphPattern/GroupGraphPattern.2.6| (ATN-PARSER::INDEX)2546 (%ATN-NODE-BLOCK2547 |GroupGraphPattern/GroupGraphPattern.2.6|2548 (%ATN-EDGE-BLOCK2549 (ATN-PARSER::WORD SPOCQ.S:})2550 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:})2551 (SETF *ATN-TERM* 'SPOCQ.S:})2552 (|GroupGraphPattern.2| (1+ ATN-PARSER::INDEX)))2553 (T2554 (SETF *ATN-TERM?* 'SPOCQ.S:})2555 (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX))))))2556 (|GroupGraphPattern/start.1| (ATN-PARSER::INDEX)2557 (%ATN-NODE-BLOCK2558 |GroupGraphPattern/start.1|2559 (%ATN-EDGE-BLOCK2560 (ATN-PARSER::WORD SPOCQ.S:{)2561 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)2562 (SETF *ATN-TERM* 'SPOCQ.S:{)2563 (|GroupGraphPattern/GroupGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))2564 (T2565 (SETF *ATN-TERM?* 'SPOCQ.S:{)2566 (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX)))))))2567 (|GroupGraphPattern/start.1| ATN-PARSER::INDEX)2568 (SETF *ATN-NODE NIL)2569 NIL2570 (IF ATN-PARSER::ATN-STRUCTURE2571 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2572 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2573 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))2574 (PROGN (DEFVAR |GroupGraphPatternRest-INDEX|)2575 (DEFUN |GroupGraphPatternRest| (ATN-PARSER::INDEX &AUX (|Filter| NIL) (|GraphPatternNotTriples| NIL) (|TriplesBlock| NIL))2576 "GroupGraphPatternRest ::= ((GraphPatternNotTriples | Filter)) '.'? TriplesBlock?2577 (|Filter| |GraphPatternNotTriples| |TriplesBlock|)"2578 (DECLARE (SPECIAL |GroupGraphPatternRest-INDEX|))2579 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPatternRest-INDEX| *ATN-LEVEL))2580 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2581 (IF (< |GroupGraphPatternRest-INDEX| ATN-PARSER::INDEX)2582 (LET ((|GroupGraphPatternRest-INDEX| ATN-PARSER::INDEX)2583 (*ATN-LEVEL (1+ *ATN-LEVEL))2584 (*ATN-STACK (CONS '|GroupGraphPatternRest| *ATN-STACK))2585 (ATN-PARSER::ATN-STRUCTURE NIL))2586 (DECLARE (SPECIAL |GroupGraphPatternRest-INDEX|))2587 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2588 (DECLARE (TYPE CONS *ATN-STACK))2589 (SYMBOL-MACROLET2590 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2591 (%ATN-BLOCK |GroupGraphPatternRest|2592 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2593 (SETF *ATN-TERM* '|GroupGraphPatternRest|)2594 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2595 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2596 (|GroupGraphPatternRest.2| (ATN-PARSER::INDEX)2597 (%ATN-NODE-BLOCK2598 |GroupGraphPatternRest.2|2599 (%ATN-EDGE-BLOCK2600 (POP |GroupGraphPatternRest|)2601 (WHEN T2602 (SETF *ATN-TERM* '|GroupGraphPatternRest|)2603 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2604 '|GroupGraphPatternRest|2605 ATN-PARSER::INDEX2606 (LIST '|Filter|2607 |Filter|2608 '|GraphPatternNotTriples|2609 |GraphPatternNotTriples|2610 '|TriplesBlock|2611 |TriplesBlock|))2612 (LET ((ATN-PARSER::RESULT-STRUCTURE2613 (IF (EQ *ATN-REDUCE* T)2614 (|GroupGraphPatternRest-Constructor|2615 |Filter|2616 |GraphPatternNotTriples|2617 |TriplesBlock|)2618 (IF (EQ *ATN-REDUCE* 'CONS)2619 (CONS '|GroupGraphPatternRest|2620 (DELETE NIL2621 (LIST |Filter|2622 |GraphPatternNotTriples|2623 |TriplesBlock|)))2624 '|GroupGraphPatternRest|))))2625 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2626 (|GroupGraphPatternRest/fail.3| (ATN-PARSER::INDEX)2627 (%ATN-NODE-BLOCK2628 |GroupGraphPatternRest/fail.3|2629 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2630 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4| (ATN-PARSER::INDEX)2631 (%ATN-NODE-BLOCK2632 |GroupGraphPatternRest/GroupGraphPatternRest.2.4|2633 (%ATN-EDGE-BLOCK2634 (ATN-PARSER::WORD SPOCQ.S:|.|)2635 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)2636 (SETF *ATN-TERM* 'SPOCQ.S:|.|)2637 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| (1+ ATN-PARSER::INDEX)))2638 (T2639 (SETF *ATN-TERM?* 'SPOCQ.S:|.|)2640 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| ATN-PARSER::INDEX))))))2641 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| (ATN-PARSER::INDEX)2642 (%ATN-NODE-BLOCK2643 |GroupGraphPatternRest/GroupGraphPatternRest.2.5|2644 (%ATN-EDGE-BLOCK2645 (PUSH |TriplesBlock|)2646 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2647 (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)2648 (COND (ATN-PARSER::SUCCESS2649 (SETF *ATN-TERM* '|TriplesBlock|)2650 (LET ((|TriplesBlock701| |TriplesBlock|))2651 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2652 (DESTRUCTURING-BIND2653 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2654 ATN-PARSER::RESULT-AND-INDEX2655 (WHEN ATN-PARSER::RESULT (SETF |TriplesBlock| ATN-PARSER::RESULT))2656 (|GroupGraphPatternRest.2| ATN-PARSER::RESULT-INDEX))2657 (SETF |TriplesBlock| |TriplesBlock701|))))2658 (T2659 (SETF *ATN-TERM?* '|TriplesBlock|)2660 (|GroupGraphPatternRest.2| ATN-PARSER::INDEX)))))))2661 (|GroupGraphPatternRest/start.1| (ATN-PARSER::INDEX)2662 (%ATN-NODE-BLOCK2663 |GroupGraphPatternRest/start.1|2664 (%ATN-EDGE-BLOCK2665 OR2666 (PROGN (%ATN-EDGE-BLOCK2667 (PUSH |GraphPatternNotTriples|)2668 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2669 (ATN-PARSE-SUBSTRUCTURE* '|GraphPatternNotTriples| ATN-PARSER::INDEX)2670 (COND (ATN-PARSER::SUCCESS2671 (SETF *ATN-TERM* '|GraphPatternNotTriples|)2672 (LET ((|GraphPatternNotTriples701| |GraphPatternNotTriples|))2673 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2674 (DESTRUCTURING-BIND2675 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2676 ATN-PARSER::RESULT-AND-INDEX2677 (WHEN ATN-PARSER::RESULT2678 (SETF |GraphPatternNotTriples| ATN-PARSER::RESULT))2679 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|2680 ATN-PARSER::RESULT-INDEX))2681 (SETF |GraphPatternNotTriples| |GraphPatternNotTriples701|))))2682 (T (SETF *ATN-TERM?* '|GraphPatternNotTriples|) NIL))))2683 (%ATN-EDGE-BLOCK2684 (PUSH |Filter|)2685 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2686 (ATN-PARSE-SUBSTRUCTURE* '|Filter| ATN-PARSER::INDEX)2687 (COND (ATN-PARSER::SUCCESS2688 (SETF *ATN-TERM* '|Filter|)2689 (LET ((|Filter701| |Filter|))2690 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2691 (DESTRUCTURING-BIND2692 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2693 ATN-PARSER::RESULT-AND-INDEX2694 (WHEN ATN-PARSER::RESULT (SETF |Filter| ATN-PARSER::RESULT))2695 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|2696 ATN-PARSER::RESULT-INDEX))2697 (SETF |Filter| |Filter701|))))2698 (T (SETF *ATN-TERM?* '|Filter|) NIL))))2699 (|GroupGraphPatternRest/fail.3| ATN-PARSER::INDEX))))))2700 (|GroupGraphPatternRest/start.1| ATN-PARSER::INDEX)2701 (SETF *ATN-NODE NIL)2702 NIL2703 (IF ATN-PARSER::ATN-STRUCTURE2704 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2705 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2706 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPatternRest| ATN-PARSER::INDEX *ATN-STACK))))2707 (PROGN (DEFVAR |TriplesBlock-INDEX|)2708 (DEFUN |TriplesBlock| (ATN-PARSER::INDEX &AUX (|TriplesBlock| NIL) (|TriplesSameSubject| NIL))2709 "{21} TriplesBlock ::= TriplesSameSubject ('.' TriplesBlock?)?2710 (|TriplesBlock| |TriplesSameSubject|)"2711 (DECLARE (SPECIAL |TriplesBlock-INDEX|))2712 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesBlock-INDEX| *ATN-LEVEL))2713 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2714 (IF (< |TriplesBlock-INDEX| ATN-PARSER::INDEX)2715 (LET ((|TriplesBlock-INDEX| ATN-PARSER::INDEX)2716 (*ATN-LEVEL (1+ *ATN-LEVEL))2717 (*ATN-STACK (CONS '|TriplesBlock| *ATN-STACK))2718 (ATN-PARSER::ATN-STRUCTURE NIL))2719 (DECLARE (SPECIAL |TriplesBlock-INDEX|))2720 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2721 (DECLARE (TYPE CONS *ATN-STACK))2722 (SYMBOL-MACROLET2723 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2724 (%ATN-BLOCK |TriplesBlock|2725 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2726 (SETF *ATN-TERM* '|TriplesBlock|)2727 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2728 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2729 (|TriplesBlock.2| (ATN-PARSER::INDEX)2730 (%ATN-NODE-BLOCK2731 |TriplesBlock.2|2732 (%ATN-EDGE-BLOCK2733 (POP |TriplesBlock|)2734 (WHEN T2735 (SETF *ATN-TERM* '|TriplesBlock|)2736 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2737 '|TriplesBlock|2738 ATN-PARSER::INDEX2739 (LIST '|TriplesBlock|2740 |TriplesBlock|2741 '|TriplesSameSubject|2742 |TriplesSameSubject|))2743 (LET ((ATN-PARSER::RESULT-STRUCTURE2744 (IF (EQ *ATN-REDUCE* T)2745 (|TriplesBlock-Constructor| |TriplesBlock| |TriplesSameSubject|)2746 (IF (EQ *ATN-REDUCE* 'CONS)2747 (CONS '|TriplesBlock|2748 (DELETE NIL (LIST |TriplesBlock| |TriplesSameSubject|)))2749 '|TriplesBlock|))))2750 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2751 (|TriplesBlock/fail.3| (ATN-PARSER::INDEX)2752 (%ATN-NODE-BLOCK |TriplesBlock/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2753 (|TriplesBlock/start.1| (ATN-PARSER::INDEX)2754 (%ATN-NODE-BLOCK2755 |TriplesBlock/start.1|2756 (%ATN-EDGE-BLOCK2757 (PUSH |TriplesSameSubject|)2758 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2759 (ATN-PARSE-SUBSTRUCTURE* '|TriplesSameSubject| ATN-PARSER::INDEX)2760 (COND (ATN-PARSER::SUCCESS2761 (SETF *ATN-TERM* '|TriplesSameSubject|)2762 (LET ((|TriplesSameSubject702| |TriplesSameSubject|))2763 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2764 (DESTRUCTURING-BIND2765 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2766 ATN-PARSER::RESULT-AND-INDEX2767 (WHEN ATN-PARSER::RESULT (SETF |TriplesSameSubject| ATN-PARSER::RESULT))2768 (|TriplesBlock/TriplesBlock.2.4| ATN-PARSER::RESULT-INDEX))2769 (SETF |TriplesSameSubject| |TriplesSameSubject702|))))2770 (T2771 (SETF *ATN-TERM?* '|TriplesSameSubject|)2772 (|TriplesBlock/fail.3| ATN-PARSER::INDEX)))))))2773 (|TriplesBlock/TriplesBlock.2.4| (ATN-PARSER::INDEX)2774 (%ATN-NODE-BLOCK2775 |TriplesBlock/TriplesBlock.2.4|2776 (%ATN-EDGE-BLOCK2777 (ATN-PARSER::JUMP |TriplesBlock/TriplesBlock.2.5|)2778 (|TriplesBlock/TriplesBlock.2.5| ATN-PARSER::INDEX))2779 (%ATN-EDGE-BLOCK2780 (ATN-PARSER::JUMP |TriplesBlock.2|)2781 (|TriplesBlock.2| ATN-PARSER::INDEX))))2782 (|TriplesBlock/TriplesBlock.2.5| (ATN-PARSER::INDEX)2783 (%ATN-NODE-BLOCK2784 |TriplesBlock/TriplesBlock.2.5|2785 (%ATN-EDGE-BLOCK2786 (ATN-PARSER::WORD SPOCQ.S:|.|)2787 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)2788 (SETF *ATN-TERM* 'SPOCQ.S:|.|)2789 (|TriplesBlock/TriplesBlock.2.6| (1+ ATN-PARSER::INDEX)))2790 (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|) NIL)))))2791 (|TriplesBlock/TriplesBlock.2.6| (ATN-PARSER::INDEX)2792 (%ATN-NODE-BLOCK2793 |TriplesBlock/TriplesBlock.2.6|2794 (%ATN-EDGE-BLOCK2795 (PUSH |TriplesBlock|)2796 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2797 (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)2798 (COND (ATN-PARSER::SUCCESS2799 (SETF *ATN-TERM* '|TriplesBlock|)2800 (LET ((|TriplesBlock702| |TriplesBlock|))2801 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2802 (DESTRUCTURING-BIND2803 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2804 ATN-PARSER::RESULT-AND-INDEX2805 (WHEN ATN-PARSER::RESULT (SETF |TriplesBlock| ATN-PARSER::RESULT))2806 (|TriplesBlock.2| ATN-PARSER::RESULT-INDEX))2807 (SETF |TriplesBlock| |TriplesBlock702|))))2808 (T2809 (SETF *ATN-TERM?* '|TriplesBlock|)2810 (|TriplesBlock.2| ATN-PARSER::INDEX))))))))2811 (|TriplesBlock/start.1| ATN-PARSER::INDEX)2812 (SETF *ATN-NODE NIL)2813 NIL2814 (IF ATN-PARSER::ATN-STRUCTURE2815 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2816 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2817 (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesBlock| ATN-PARSER::INDEX *ATN-STACK))))2818 (PROGN (DEFVAR |GraphPatternNotTriples-INDEX|)2819 (DEFUN |GraphPatternNotTriples| (ATN-PARSER::INDEX &AUX (|GraphGraphPattern| NIL) (|GroupOrUnionGraphPattern| NIL)2820 (|OptionalGraphPattern| NIL))2821 "{22} GraphPatternNotTriples ::= (OptionalGraphPattern | GroupOrUnionGraphPattern | GraphGraphPattern)2822 (|GraphGraphPattern| |GroupOrUnionGraphPattern| |OptionalGraphPattern|)"2823 (DECLARE (SPECIAL |GraphPatternNotTriples-INDEX|))2824 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphPatternNotTriples-INDEX| *ATN-LEVEL))2825 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2826 (IF (< |GraphPatternNotTriples-INDEX| ATN-PARSER::INDEX)2827 (LET ((|GraphPatternNotTriples-INDEX| ATN-PARSER::INDEX)2828 (*ATN-LEVEL (1+ *ATN-LEVEL))2829 (*ATN-STACK (CONS '|GraphPatternNotTriples| *ATN-STACK))2830 (ATN-PARSER::ATN-STRUCTURE NIL))2831 (DECLARE (SPECIAL |GraphPatternNotTriples-INDEX|))2832 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2833 (DECLARE (TYPE CONS *ATN-STACK))2834 (SYMBOL-MACROLET2835 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2836 (%ATN-BLOCK |GraphPatternNotTriples|2837 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2838 (SETF *ATN-TERM* '|GraphPatternNotTriples|)2839 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2840 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2841 (|GraphPatternNotTriples.2| (ATN-PARSER::INDEX)2842 (%ATN-NODE-BLOCK2843 |GraphPatternNotTriples.2|2844 (%ATN-EDGE-BLOCK2845 (POP |GraphPatternNotTriples|)2846 (WHEN T2847 (SETF *ATN-TERM* '|GraphPatternNotTriples|)2848 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2849 '|GraphPatternNotTriples|2850 ATN-PARSER::INDEX2851 (LIST '|GraphGraphPattern|2852 |GraphGraphPattern|2853 '|GroupOrUnionGraphPattern|2854 |GroupOrUnionGraphPattern|2855 '|OptionalGraphPattern|2856 |OptionalGraphPattern|))2857 (LET ((ATN-PARSER::RESULT-STRUCTURE2858 (IF (EQ *ATN-REDUCE* T)2859 (|GraphPatternNotTriples-Constructor|2860 |GraphGraphPattern|2861 |GroupOrUnionGraphPattern|2862 |OptionalGraphPattern|)2863 (IF (EQ *ATN-REDUCE* 'CONS)2864 (CONS '|GraphPatternNotTriples|2865 (DELETE NIL2866 (LIST |GraphGraphPattern|2867 |GroupOrUnionGraphPattern|2868 |OptionalGraphPattern|)))2869 '|GraphPatternNotTriples|))))2870 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2871 (|GraphPatternNotTriples/fail.3| (ATN-PARSER::INDEX)2872 (%ATN-NODE-BLOCK2873 |GraphPatternNotTriples/fail.3|2874 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2875 (|GraphPatternNotTriples/start.1| (ATN-PARSER::INDEX)2876 (%ATN-NODE-BLOCK2877 |GraphPatternNotTriples/start.1|2878 (%ATN-EDGE-BLOCK2879 OR2880 (PROGN (%ATN-EDGE-BLOCK2881 (PUSH |OptionalGraphPattern|)2882 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2883 (ATN-PARSE-SUBSTRUCTURE* '|OptionalGraphPattern| ATN-PARSER::INDEX)2884 (COND (ATN-PARSER::SUCCESS2885 (SETF *ATN-TERM* '|OptionalGraphPattern|)2886 (LET ((|OptionalGraphPattern702| |OptionalGraphPattern|))2887 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2888 (DESTRUCTURING-BIND2889 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2890 ATN-PARSER::RESULT-AND-INDEX2891 (WHEN ATN-PARSER::RESULT2892 (SETF |OptionalGraphPattern| ATN-PARSER::RESULT))2893 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))2894 (SETF |OptionalGraphPattern| |OptionalGraphPattern702|))))2895 (T (SETF *ATN-TERM?* '|OptionalGraphPattern|) NIL))))2896 (%ATN-EDGE-BLOCK2897 (PUSH |GroupOrUnionGraphPattern|)2898 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2899 (ATN-PARSE-SUBSTRUCTURE* '|GroupOrUnionGraphPattern| ATN-PARSER::INDEX)2900 (COND (ATN-PARSER::SUCCESS2901 (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)2902 (LET ((|GroupOrUnionGraphPattern702| |GroupOrUnionGraphPattern|))2903 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2904 (DESTRUCTURING-BIND2905 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2906 ATN-PARSER::RESULT-AND-INDEX2907 (WHEN ATN-PARSER::RESULT2908 (SETF |GroupOrUnionGraphPattern| ATN-PARSER::RESULT))2909 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))2910 (SETF |GroupOrUnionGraphPattern|2911 |GroupOrUnionGraphPattern702|))))2912 (T (SETF *ATN-TERM?* '|GroupOrUnionGraphPattern|) NIL))))2913 (%ATN-EDGE-BLOCK2914 (PUSH |GraphGraphPattern|)2915 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2916 (ATN-PARSE-SUBSTRUCTURE* '|GraphGraphPattern| ATN-PARSER::INDEX)2917 (COND (ATN-PARSER::SUCCESS2918 (SETF *ATN-TERM* '|GraphGraphPattern|)2919 (LET ((|GraphGraphPattern702| |GraphGraphPattern|))2920 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2921 (DESTRUCTURING-BIND2922 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2923 ATN-PARSER::RESULT-AND-INDEX2924 (WHEN ATN-PARSER::RESULT2925 (SETF |GraphGraphPattern| ATN-PARSER::RESULT))2926 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))2927 (SETF |GraphGraphPattern| |GraphGraphPattern702|))))2928 (T (SETF *ATN-TERM?* '|GraphGraphPattern|) NIL))))2929 (|GraphPatternNotTriples/fail.3| ATN-PARSER::INDEX))))))2930 (|GraphPatternNotTriples/start.1| ATN-PARSER::INDEX)2931 (SETF *ATN-NODE NIL)2932 NIL2933 (IF ATN-PARSER::ATN-STRUCTURE2934 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2935 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2936 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphPatternNotTriples| ATN-PARSER::INDEX *ATN-STACK))))2937 (PROGN (DEFVAR |OptionalGraphPattern-INDEX|)2938 (DEFUN |OptionalGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))2939 "{23} OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern2940 (|GroupGraphPattern|)"2941 (DECLARE (SPECIAL |OptionalGraphPattern-INDEX|))2942 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OptionalGraphPattern-INDEX| *ATN-LEVEL))2943 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2944 (IF (< |OptionalGraphPattern-INDEX| ATN-PARSER::INDEX)2945 (LET ((|OptionalGraphPattern-INDEX| ATN-PARSER::INDEX)2946 (*ATN-LEVEL (1+ *ATN-LEVEL))2947 (*ATN-STACK (CONS '|OptionalGraphPattern| *ATN-STACK))2948 (ATN-PARSER::ATN-STRUCTURE NIL))2949 (DECLARE (SPECIAL |OptionalGraphPattern-INDEX|))2950 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2951 (DECLARE (TYPE CONS *ATN-STACK))2952 (SYMBOL-MACROLET2953 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2954 (%ATN-BLOCK |OptionalGraphPattern|2955 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2956 (SETF *ATN-TERM* '|OptionalGraphPattern|)2957 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2958 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2959 (|OptionalGraphPattern.2| (ATN-PARSER::INDEX)2960 (%ATN-NODE-BLOCK2961 |OptionalGraphPattern.2|2962 (%ATN-EDGE-BLOCK2963 (POP |OptionalGraphPattern|)2964 (WHEN T2965 (SETF *ATN-TERM* '|OptionalGraphPattern|)2966 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2967 '|OptionalGraphPattern|2968 ATN-PARSER::INDEX2969 (LIST '|GroupGraphPattern| |GroupGraphPattern|))2970 (LET ((ATN-PARSER::RESULT-STRUCTURE2971 (IF (EQ *ATN-REDUCE* T)2972 (|OptionalGraphPattern-Constructor| |GroupGraphPattern|)2973 (IF (EQ *ATN-REDUCE* 'CONS)2974 (CONS '|OptionalGraphPattern| (DELETE NIL (LIST |GroupGraphPattern|)))2975 '|OptionalGraphPattern|))))2976 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2977 (|OptionalGraphPattern/fail.3| (ATN-PARSER::INDEX)2978 (%ATN-NODE-BLOCK2979 |OptionalGraphPattern/fail.3|2980 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2981 (|OptionalGraphPattern/OptionalGraphPattern.2.4| (ATN-PARSER::INDEX)2982 (%ATN-NODE-BLOCK2983 |OptionalGraphPattern/OptionalGraphPattern.2.4|2984 (%ATN-EDGE-BLOCK2985 (PUSH |GroupGraphPattern|)2986 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2987 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)2988 (COND (ATN-PARSER::SUCCESS2989 (SETF *ATN-TERM* '|GroupGraphPattern|)2990 (LET ((|GroupGraphPattern702| |GroupGraphPattern|))2991 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2992 (DESTRUCTURING-BIND2993 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2994 ATN-PARSER::RESULT-AND-INDEX2995 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))2996 (|OptionalGraphPattern.2| ATN-PARSER::RESULT-INDEX))2997 (SETF |GroupGraphPattern| |GroupGraphPattern702|))))2998 (T2999 (SETF *ATN-TERM?* '|GroupGraphPattern|)3000 (|OptionalGraphPattern/fail.3| ATN-PARSER::INDEX)))))))3001 (|OptionalGraphPattern/start.1| (ATN-PARSER::INDEX)3002 (%ATN-NODE-BLOCK3003 |OptionalGraphPattern/start.1|3004 (%ATN-EDGE-BLOCK3005 (ATN-PARSER::WORD SPOCQ.S:OPTIONAL)3006 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:OPTIONAL)3007 (SETF *ATN-TERM* 'SPOCQ.S:OPTIONAL)3008 (|OptionalGraphPattern/OptionalGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))3009 (T3010 (SETF *ATN-TERM?* 'SPOCQ.S:OPTIONAL)3011 (|OptionalGraphPattern/fail.3| ATN-PARSER::INDEX)))))))3012 (|OptionalGraphPattern/start.1| ATN-PARSER::INDEX)3013 (SETF *ATN-NODE NIL)3014 NIL3015 (IF ATN-PARSER::ATN-STRUCTURE3016 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3017 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3018 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OptionalGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))3019 (PROGN (DEFVAR |GraphGraphPattern-INDEX|)3020 (DEFUN |GraphGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL) (|VarOrIRIref| NIL))3021 "{24} GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern3022 (|GroupGraphPattern| |VarOrIRIref|)"3023 (DECLARE (SPECIAL |GraphGraphPattern-INDEX|))3024 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphGraphPattern-INDEX| *ATN-LEVEL))3025 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3026 (IF (< |GraphGraphPattern-INDEX| ATN-PARSER::INDEX)3027 (LET ((|GraphGraphPattern-INDEX| ATN-PARSER::INDEX)3028 (*ATN-LEVEL (1+ *ATN-LEVEL))3029 (*ATN-STACK (CONS '|GraphGraphPattern| *ATN-STACK))3030 (ATN-PARSER::ATN-STRUCTURE NIL))3031 (DECLARE (SPECIAL |GraphGraphPattern-INDEX|))3032 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3033 (DECLARE (TYPE CONS *ATN-STACK))3034 (SYMBOL-MACROLET3035 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3036 (%ATN-BLOCK |GraphGraphPattern|3037 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3038 (SETF *ATN-TERM* '|GraphGraphPattern|)3039 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3040 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3041 (|GraphGraphPattern.2| (ATN-PARSER::INDEX)3042 (%ATN-NODE-BLOCK3043 |GraphGraphPattern.2|3044 (%ATN-EDGE-BLOCK3045 (POP |GraphGraphPattern|)3046 (WHEN T3047 (SETF *ATN-TERM* '|GraphGraphPattern|)3048 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3049 '|GraphGraphPattern|3050 ATN-PARSER::INDEX3051 (LIST '|GroupGraphPattern|3052 |GroupGraphPattern|3053 '|VarOrIRIref|3054 |VarOrIRIref|))3055 (LET ((ATN-PARSER::RESULT-STRUCTURE3056 (IF (EQ *ATN-REDUCE* T)3057 (|GraphGraphPattern-Constructor| |GroupGraphPattern| |VarOrIRIref|)3058 (IF (EQ *ATN-REDUCE* 'CONS)3059 (CONS '|GraphGraphPattern|3060 (DELETE NIL (LIST |GroupGraphPattern| |VarOrIRIref|)))3061 '|GraphGraphPattern|))))3062 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3063 (|GraphGraphPattern/fail.3| (ATN-PARSER::INDEX)3064 (%ATN-NODE-BLOCK |GraphGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3065 (|GraphGraphPattern/GraphGraphPattern.2.4| (ATN-PARSER::INDEX)3066 (%ATN-NODE-BLOCK3067 |GraphGraphPattern/GraphGraphPattern.2.4|3068 (%ATN-EDGE-BLOCK3069 (PUSH |VarOrIRIref|)3070 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3071 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)3072 (COND (ATN-PARSER::SUCCESS3073 (SETF *ATN-TERM* '|VarOrIRIref|)3074 (LET ((|VarOrIRIref703| |VarOrIRIref|))3075 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3076 (DESTRUCTURING-BIND3077 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3078 ATN-PARSER::RESULT-AND-INDEX3079 (WHEN ATN-PARSER::RESULT (SETF |VarOrIRIref| ATN-PARSER::RESULT))3080 (|GraphGraphPattern/GraphGraphPattern.2.5| ATN-PARSER::RESULT-INDEX))3081 (SETF |VarOrIRIref| |VarOrIRIref703|))))3082 (T3083 (SETF *ATN-TERM?* '|VarOrIRIref|)3084 (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))3085 (|GraphGraphPattern/GraphGraphPattern.2.5| (ATN-PARSER::INDEX)3086 (%ATN-NODE-BLOCK3087 |GraphGraphPattern/GraphGraphPattern.2.5|3088 (%ATN-EDGE-BLOCK3089 (PUSH |GroupGraphPattern|)3090 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3091 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)3092 (COND (ATN-PARSER::SUCCESS3093 (SETF *ATN-TERM* '|GroupGraphPattern|)3094 (LET ((|GroupGraphPattern703| |GroupGraphPattern|))3095 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3096 (DESTRUCTURING-BIND3097 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3098 ATN-PARSER::RESULT-AND-INDEX3099 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))3100 (|GraphGraphPattern.2| ATN-PARSER::RESULT-INDEX))3101 (SETF |GroupGraphPattern| |GroupGraphPattern703|))))3102 (T3103 (SETF *ATN-TERM?* '|GroupGraphPattern|)3104 (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))3105 (|GraphGraphPattern/start.1| (ATN-PARSER::INDEX)3106 (%ATN-NODE-BLOCK3107 |GraphGraphPattern/start.1|3108 (%ATN-EDGE-BLOCK3109 (ATN-PARSER::WORD SPOCQ.S:GRAPH)3110 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:GRAPH)3111 (SETF *ATN-TERM* 'SPOCQ.S:GRAPH)3112 (|GraphGraphPattern/GraphGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))3113 (T3114 (SETF *ATN-TERM?* 'SPOCQ.S:GRAPH)3115 (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))3116 (|GraphGraphPattern/start.1| ATN-PARSER::INDEX)3117 (SETF *ATN-NODE NIL)3118 NIL3119 (IF ATN-PARSER::ATN-STRUCTURE3120 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3121 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3122 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))3123 (PROGN (DEFVAR |GroupOrUnionGraphPattern-INDEX|)3124 (DEFUN |GroupOrUnionGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))3125 "{25} GroupOrUnionGraphPattern ::= GroupGraphPattern ('UNION' GroupGraphPattern)*3126 (|GroupGraphPattern|)"3127 (DECLARE (SPECIAL |GroupOrUnionGraphPattern-INDEX|))3128 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupOrUnionGraphPattern-INDEX| *ATN-LEVEL))3129 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3130 (IF (< |GroupOrUnionGraphPattern-INDEX| ATN-PARSER::INDEX)3131 (LET ((|GroupOrUnionGraphPattern-INDEX| ATN-PARSER::INDEX)3132 (*ATN-LEVEL (1+ *ATN-LEVEL))3133 (*ATN-STACK (CONS '|GroupOrUnionGraphPattern| *ATN-STACK))3134 (ATN-PARSER::ATN-STRUCTURE NIL))3135 (DECLARE (SPECIAL |GroupOrUnionGraphPattern-INDEX|))3136 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3137 (DECLARE (TYPE CONS *ATN-STACK))3138 (SYMBOL-MACROLET3139 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3140 (%ATN-BLOCK |GroupOrUnionGraphPattern|3141 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3142 (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)3143 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3144 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3145 (|GroupOrUnionGraphPattern.2| (ATN-PARSER::INDEX)3146 (%ATN-NODE-BLOCK3147 |GroupOrUnionGraphPattern.2|3148 (%ATN-EDGE-BLOCK3149 (POP |GroupOrUnionGraphPattern|)3150 (WHEN T3151 (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)3152 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3153 '|GroupOrUnionGraphPattern|3154 ATN-PARSER::INDEX3155 (LIST '|GroupGraphPattern| |GroupGraphPattern|))3156 (LET ((ATN-PARSER::RESULT-STRUCTURE3157 (IF (EQ *ATN-REDUCE* T)3158 (|GroupOrUnionGraphPattern-Constructor| |GroupGraphPattern|)3159 (IF (EQ *ATN-REDUCE* 'CONS)3160 (CONS '|GroupOrUnionGraphPattern|3161 (DELETE NIL (LIST |GroupGraphPattern|)))3162 '|GroupOrUnionGraphPattern|))))3163 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3164 (|GroupOrUnionGraphPattern.5| (ATN-PARSER::INDEX)3165 (%ATN-NODE-BLOCK3166 |GroupOrUnionGraphPattern.5|3167 (%ATN-EDGE-BLOCK3168 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|)3169 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| ATN-PARSER::INDEX))3170 (%ATN-EDGE-BLOCK3171 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern.2|)3172 (|GroupOrUnionGraphPattern.2| ATN-PARSER::INDEX))))3173 (|GroupOrUnionGraphPattern/fail.3| (ATN-PARSER::INDEX)3174 (%ATN-NODE-BLOCK3175 |GroupOrUnionGraphPattern/fail.3|3176 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3177 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4| (ATN-PARSER::INDEX)3178 (%ATN-NODE-BLOCK3179 |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4|3180 (%ATN-EDGE-BLOCK3181 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|)3182 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| ATN-PARSER::INDEX))3183 (%ATN-EDGE-BLOCK3184 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern.2|)3185 (|GroupOrUnionGraphPattern.2| ATN-PARSER::INDEX))))3186 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| (ATN-PARSER::INDEX)3187 (%ATN-NODE-BLOCK3188 |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|3189 (%ATN-EDGE-BLOCK3190 (ATN-PARSER::WORD SPOCQ.S:UNION)3191 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:UNION)3192 (SETF *ATN-TERM* 'SPOCQ.S:UNION)3193 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7|3194 (1+ ATN-PARSER::INDEX)))3195 (T (SETF *ATN-TERM?* 'SPOCQ.S:UNION) NIL)))))3196 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7| (ATN-PARSER::INDEX)3197 (%ATN-NODE-BLOCK3198 |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7|3199 (%ATN-EDGE-BLOCK3200 (PUSH |GroupGraphPattern|)3201 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3202 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)3203 (COND (ATN-PARSER::SUCCESS3204 (SETF *ATN-TERM* '|GroupGraphPattern|)3205 (LET ((|GroupGraphPattern704| |GroupGraphPattern|))3206 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3207 (DESTRUCTURING-BIND3208 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3209 ATN-PARSER::RESULT-AND-INDEX3210 (WHEN ATN-PARSER::RESULT3211 (SETF |GroupGraphPattern|3212 (CONS ATN-PARSER::RESULT |GroupGraphPattern|)))3213 (|GroupOrUnionGraphPattern.5| ATN-PARSER::RESULT-INDEX))3214 (SETF |GroupGraphPattern| |GroupGraphPattern704|))))3215 (T (SETF *ATN-TERM?* '|GroupGraphPattern|) NIL))))))3216 (|GroupOrUnionGraphPattern/start.1| (ATN-PARSER::INDEX)3217 (%ATN-NODE-BLOCK3218 |GroupOrUnionGraphPattern/start.1|3219 (%ATN-EDGE-BLOCK3220 (PUSH |GroupGraphPattern|)3221 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3222 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)3223 (COND (ATN-PARSER::SUCCESS3224 (SETF *ATN-TERM* '|GroupGraphPattern|)3225 (LET ((|GroupGraphPattern705| |GroupGraphPattern|))3226 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3227 (DESTRUCTURING-BIND3228 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3229 ATN-PARSER::RESULT-AND-INDEX3230 (WHEN ATN-PARSER::RESULT3231 (SETF |GroupGraphPattern|3232 (CONS ATN-PARSER::RESULT |GroupGraphPattern|)))3233 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4|3234 ATN-PARSER::RESULT-INDEX))3235 (SETF |GroupGraphPattern| |GroupGraphPattern705|))))3236 (T3237 (SETF *ATN-TERM?* '|GroupGraphPattern|)3238 (|GroupOrUnionGraphPattern/fail.3| ATN-PARSER::INDEX))))))))3239 (|GroupOrUnionGraphPattern/start.1| ATN-PARSER::INDEX)3240 (SETF *ATN-NODE NIL)3241 NIL3242 (IF ATN-PARSER::ATN-STRUCTURE3243 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3244 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3245 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupOrUnionGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))3246 (PROGN (DEFVAR |Filter-INDEX|)3247 (DEFUN |Filter| (ATN-PARSER::INDEX &AUX (|Constraint| NIL))3248 "{26} Filter ::= 'FILTER' Constraint3249 (|Constraint|)"3250 (DECLARE (SPECIAL |Filter-INDEX|))3251 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Filter-INDEX| *ATN-LEVEL))3252 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3253 (IF (< |Filter-INDEX| ATN-PARSER::INDEX)3254 (LET ((|Filter-INDEX| ATN-PARSER::INDEX)3255 (*ATN-LEVEL (1+ *ATN-LEVEL))3256 (*ATN-STACK (CONS '|Filter| *ATN-STACK))3257 (ATN-PARSER::ATN-STRUCTURE NIL))3258 (DECLARE (SPECIAL |Filter-INDEX|))3259 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3260 (DECLARE (TYPE CONS *ATN-STACK))3261 (SYMBOL-MACROLET3262 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3263 (%ATN-BLOCK |Filter|3264 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3265 (SETF *ATN-TERM* '|Filter|)3266 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3267 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3268 (|Filter.2| (ATN-PARSER::INDEX)3269 (%ATN-NODE-BLOCK3270 |Filter.2|3271 (%ATN-EDGE-BLOCK3272 (POP |Filter|)3273 (WHEN T3274 (SETF *ATN-TERM* '|Filter|)3275 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3276 '|Filter|3277 ATN-PARSER::INDEX3278 (LIST '|Constraint| |Constraint|))3279 (LET ((ATN-PARSER::RESULT-STRUCTURE3280 (IF (EQ *ATN-REDUCE* T)3281 (|Filter-Constructor| |Constraint|)3282 (IF (EQ *ATN-REDUCE* 'CONS)3283 (CONS '|Filter| (DELETE NIL (LIST |Constraint|)))3284 '|Filter|))))3285 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3286 (|Filter/fail.3| (ATN-PARSER::INDEX)3287 (%ATN-NODE-BLOCK |Filter/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3288 (|Filter/Filter.2.4| (ATN-PARSER::INDEX)3289 (%ATN-NODE-BLOCK3290 |Filter/Filter.2.4|3291 (%ATN-EDGE-BLOCK3292 (PUSH |Constraint|)3293 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3294 (ATN-PARSE-SUBSTRUCTURE* '|Constraint| ATN-PARSER::INDEX)3295 (COND (ATN-PARSER::SUCCESS3296 (SETF *ATN-TERM* '|Constraint|)3297 (LET ((|Constraint705| |Constraint|))3298 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3299 (DESTRUCTURING-BIND3300 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3301 ATN-PARSER::RESULT-AND-INDEX3302 (WHEN ATN-PARSER::RESULT (SETF |Constraint| ATN-PARSER::RESULT))3303 (|Filter.2| ATN-PARSER::RESULT-INDEX))3304 (SETF |Constraint| |Constraint705|))))3305 (T (SETF *ATN-TERM?* '|Constraint|) (|Filter/fail.3| ATN-PARSER::INDEX)))))))3306 (|Filter/start.1| (ATN-PARSER::INDEX)3307 (%ATN-NODE-BLOCK3308 |Filter/start.1|3309 (%ATN-EDGE-BLOCK3310 (ATN-PARSER::WORD SPOCQ.S:FILTER)3311 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:FILTER)3312 (SETF *ATN-TERM* 'SPOCQ.S:FILTER)3313 (|Filter/Filter.2.4| (1+ ATN-PARSER::INDEX)))3314 (T (SETF *ATN-TERM?* 'SPOCQ.S:FILTER) (|Filter/fail.3| ATN-PARSER::INDEX)))))))3315 (|Filter/start.1| ATN-PARSER::INDEX)3316 (SETF *ATN-NODE NIL)3317 NIL3318 (IF ATN-PARSER::ATN-STRUCTURE3319 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3320 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3321 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Filter| ATN-PARSER::INDEX *ATN-STACK))))3322 (PROGN (DEFVAR |Constraint-INDEX|)3323 (DEFUN |Constraint| (ATN-PARSER::INDEX &AUX (|BrackettedExpression| NIL) (|BuiltInCall| NIL) (|FunctionCall| NIL))3324 "{27} Constraint ::= (BrackettedExpression | BuiltInCall | FunctionCall)3325 (|BrackettedExpression| |BuiltInCall| |FunctionCall|)"3326 (DECLARE (SPECIAL |Constraint-INDEX|))3327 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Constraint-INDEX| *ATN-LEVEL))3328 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3329 (IF (< |Constraint-INDEX| ATN-PARSER::INDEX)3330 (LET ((|Constraint-INDEX| ATN-PARSER::INDEX)3331 (*ATN-LEVEL (1+ *ATN-LEVEL))3332 (*ATN-STACK (CONS '|Constraint| *ATN-STACK))3333 (ATN-PARSER::ATN-STRUCTURE NIL))3334 (DECLARE (SPECIAL |Constraint-INDEX|))3335 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3336 (DECLARE (TYPE CONS *ATN-STACK))3337 (SYMBOL-MACROLET3338 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3339 (%ATN-BLOCK |Constraint|3340 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3341 (SETF *ATN-TERM* '|Constraint|)3342 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3343 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3344 (|Constraint.2| (ATN-PARSER::INDEX)3345 (%ATN-NODE-BLOCK3346 |Constraint.2|3347 (%ATN-EDGE-BLOCK3348 (POP |Constraint|)3349 (WHEN T3350 (SETF *ATN-TERM* '|Constraint|)3351 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3352 '|Constraint|3353 ATN-PARSER::INDEX3354 (LIST '|BrackettedExpression|3355 |BrackettedExpression|3356 '|BuiltInCall|3357 |BuiltInCall|3358 '|FunctionCall|3359 |FunctionCall|))3360 (LET ((ATN-PARSER::RESULT-STRUCTURE3361 (IF (EQ *ATN-REDUCE* T)3362 (|Constraint-Constructor|3363 |BrackettedExpression|3364 |BuiltInCall|3365 |FunctionCall|)3366 (IF (EQ *ATN-REDUCE* 'CONS)3367 (CONS '|Constraint|3368 (DELETE NIL3369 (LIST |BrackettedExpression|3370 |BuiltInCall|3371 |FunctionCall|)))3372 '|Constraint|))))3373 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3374 (|Constraint/fail.3| (ATN-PARSER::INDEX)3375 (%ATN-NODE-BLOCK |Constraint/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3376 (|Constraint/start.1| (ATN-PARSER::INDEX)3377 (%ATN-NODE-BLOCK3378 |Constraint/start.1|3379 (%ATN-EDGE-BLOCK3380 OR3381 (PROGN (%ATN-EDGE-BLOCK3382 (PUSH |BrackettedExpression|)3383 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3384 (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression| ATN-PARSER::INDEX)3385 (COND (ATN-PARSER::SUCCESS3386 (SETF *ATN-TERM* '|BrackettedExpression|)3387 (LET ((|BrackettedExpression705| |BrackettedExpression|))3388 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3389 (DESTRUCTURING-BIND3390 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3391 ATN-PARSER::RESULT-AND-INDEX3392 (WHEN ATN-PARSER::RESULT3393 (SETF |BrackettedExpression| ATN-PARSER::RESULT))3394 (|Constraint.2| ATN-PARSER::RESULT-INDEX))3395 (SETF |BrackettedExpression| |BrackettedExpression705|))))3396 (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))3397 (%ATN-EDGE-BLOCK3398 (PUSH |BuiltInCall|)3399 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3400 (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall| ATN-PARSER::INDEX)3401 (COND (ATN-PARSER::SUCCESS3402 (SETF *ATN-TERM* '|BuiltInCall|)3403 (LET ((|BuiltInCall705| |BuiltInCall|))3404 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3405 (DESTRUCTURING-BIND3406 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3407 ATN-PARSER::RESULT-AND-INDEX3408 (WHEN ATN-PARSER::RESULT3409 (SETF |BuiltInCall| ATN-PARSER::RESULT))3410 (|Constraint.2| ATN-PARSER::RESULT-INDEX))3411 (SETF |BuiltInCall| |BuiltInCall705|))))3412 (T (SETF *ATN-TERM?* '|BuiltInCall|) NIL))))3413 (%ATN-EDGE-BLOCK3414 (PUSH |FunctionCall|)3415 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3416 (ATN-PARSE-SUBSTRUCTURE* '|FunctionCall| ATN-PARSER::INDEX)3417 (COND (ATN-PARSER::SUCCESS3418 (SETF *ATN-TERM* '|FunctionCall|)3419 (LET ((|FunctionCall705| |FunctionCall|))3420 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3421 (DESTRUCTURING-BIND3422 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3423 ATN-PARSER::RESULT-AND-INDEX3424 (WHEN ATN-PARSER::RESULT3425 (SETF |FunctionCall| ATN-PARSER::RESULT))3426 (|Constraint.2| ATN-PARSER::RESULT-INDEX))3427 (SETF |FunctionCall| |FunctionCall705|))))3428 (T (SETF *ATN-TERM?* '|FunctionCall|) NIL))))3429 (|Constraint/fail.3| ATN-PARSER::INDEX))))))3430 (|Constraint/start.1| ATN-PARSER::INDEX)3431 (SETF *ATN-NODE NIL)3432 NIL3433 (IF ATN-PARSER::ATN-STRUCTURE3434 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3435 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3436 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Constraint| ATN-PARSER::INDEX *ATN-STACK))))3437 (PROGN (DEFVAR |FunctionCall-INDEX|)3438 (DEFUN |FunctionCall| (ATN-PARSER::INDEX &AUX (|ArgList| NIL) (|IRIref| NIL))3439 "{28} FunctionCall ::= IRIref ArgList3440 (|ArgList| |IRIref|)"3441 (DECLARE (SPECIAL |FunctionCall-INDEX|))3442 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |FunctionCall-INDEX| *ATN-LEVEL))3443 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3444 (IF (< |FunctionCall-INDEX| ATN-PARSER::INDEX)3445 (LET ((|FunctionCall-INDEX| ATN-PARSER::INDEX)3446 (*ATN-LEVEL (1+ *ATN-LEVEL))3447 (*ATN-STACK (CONS '|FunctionCall| *ATN-STACK))3448 (ATN-PARSER::ATN-STRUCTURE NIL))3449 (DECLARE (SPECIAL |FunctionCall-INDEX|))3450 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3451 (DECLARE (TYPE CONS *ATN-STACK))3452 (SYMBOL-MACROLET3453 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3454 (%ATN-BLOCK |FunctionCall|3455 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3456 (SETF *ATN-TERM* '|FunctionCall|)3457 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3458 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3459 (|FunctionCall.2| (ATN-PARSER::INDEX)3460 (%ATN-NODE-BLOCK3461 |FunctionCall.2|3462 (%ATN-EDGE-BLOCK3463 (POP |FunctionCall|)3464 (WHEN T3465 (SETF *ATN-TERM* '|FunctionCall|)3466 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3467 '|FunctionCall|3468 ATN-PARSER::INDEX3469 (LIST '|ArgList| |ArgList| '|IRIref| |IRIref|))3470 (LET ((ATN-PARSER::RESULT-STRUCTURE3471 (IF (EQ *ATN-REDUCE* T)3472 (|FunctionCall-Constructor| |ArgList| |IRIref|)3473 (IF (EQ *ATN-REDUCE* 'CONS)3474 (CONS '|FunctionCall| (DELETE NIL (LIST |ArgList| |IRIref|)))3475 '|FunctionCall|))))3476 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3477 (|FunctionCall/fail.3| (ATN-PARSER::INDEX)3478 (%ATN-NODE-BLOCK |FunctionCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3479 (|FunctionCall/FunctionCall.2.4| (ATN-PARSER::INDEX)3480 (%ATN-NODE-BLOCK3481 |FunctionCall/FunctionCall.2.4|3482 (%ATN-EDGE-BLOCK3483 (PUSH |ArgList|)3484 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3485 (ATN-PARSE-SUBSTRUCTURE* '|ArgList| ATN-PARSER::INDEX)3486 (COND (ATN-PARSER::SUCCESS3487 (SETF *ATN-TERM* '|ArgList|)3488 (LET ((|ArgList705| |ArgList|))3489 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3490 (DESTRUCTURING-BIND3491 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3492 ATN-PARSER::RESULT-AND-INDEX3493 (WHEN ATN-PARSER::RESULT (SETF |ArgList| ATN-PARSER::RESULT))3494 (|FunctionCall.2| ATN-PARSER::RESULT-INDEX))3495 (SETF |ArgList| |ArgList705|))))3496 (T3497 (SETF *ATN-TERM?* '|ArgList|)3498 (|FunctionCall/fail.3| ATN-PARSER::INDEX)))))))3499 (|FunctionCall/start.1| (ATN-PARSER::INDEX)3500 (%ATN-NODE-BLOCK3501 |FunctionCall/start.1|3502 (%ATN-EDGE-BLOCK3503 (PUSH |IRIref|)3504 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3505 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)3506 (COND (ATN-PARSER::SUCCESS3507 (SETF *ATN-TERM* '|IRIref|)3508 (LET ((|IRIref705| |IRIref|))3509 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3510 (DESTRUCTURING-BIND3511 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3512 ATN-PARSER::RESULT-AND-INDEX3513 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))3514 (|FunctionCall/FunctionCall.2.4| ATN-PARSER::RESULT-INDEX))3515 (SETF |IRIref| |IRIref705|))))3516 (T3517 (SETF *ATN-TERM?* '|IRIref|)3518 (|FunctionCall/fail.3| ATN-PARSER::INDEX))))))))3519 (|FunctionCall/start.1| ATN-PARSER::INDEX)3520 (SETF *ATN-NODE NIL)3521 NIL3522 (IF ATN-PARSER::ATN-STRUCTURE3523 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3524 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3525 (WARN "recursive grammar: ~s @ position ~s: ~s" '|FunctionCall| ATN-PARSER::INDEX *ATN-STACK))))3526 (PROGN (DEFVAR |ArgList-INDEX|)3527 (DEFUN |ArgList| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (NILLIST NIL))3528 "{29} ArgList ::= ((NILLIST | ('(' Expression (',' Expression)* ')')))3529 (|Expression| NILLIST)"3530 (DECLARE (SPECIAL |ArgList-INDEX|))3531 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ArgList-INDEX| *ATN-LEVEL))3532 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3533 (IF (< |ArgList-INDEX| ATN-PARSER::INDEX)3534 (LET ((|ArgList-INDEX| ATN-PARSER::INDEX)3535 (*ATN-LEVEL (1+ *ATN-LEVEL))3536 (*ATN-STACK (CONS '|ArgList| *ATN-STACK))3537 (ATN-PARSER::ATN-STRUCTURE NIL))3538 (DECLARE (SPECIAL |ArgList-INDEX|))3539 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3540 (DECLARE (TYPE CONS *ATN-STACK))3541 (SYMBOL-MACROLET3542 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3543 (%ATN-BLOCK |ArgList|3544 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3545 (SETF *ATN-TERM* '|ArgList|)3546 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3547 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3548 (|ArgList.2| (ATN-PARSER::INDEX)3549 (%ATN-NODE-BLOCK3550 |ArgList.2|3551 (%ATN-EDGE-BLOCK3552 (POP |ArgList|)3553 (WHEN T3554 (SETF *ATN-TERM* '|ArgList|)3555 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3556 '|ArgList|3557 ATN-PARSER::INDEX3558 (LIST '|Expression| |Expression| 'NILLIST NILLIST))3559 (LET ((ATN-PARSER::RESULT-STRUCTURE3560 (IF (EQ *ATN-REDUCE* T)3561 (|ArgList-Constructor| |Expression| NILLIST)3562 (IF (EQ *ATN-REDUCE* 'CONS)3563 (CONS '|ArgList| (DELETE NIL (LIST |Expression| NILLIST)))3564 '|ArgList|))))3565 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3566 (|ArgList.8| (ATN-PARSER::INDEX)3567 (%ATN-NODE-BLOCK3568 |ArgList.8|3569 (%ATN-EDGE-BLOCK3570 (ATN-PARSER::JUMP |ArgList/ArgList.8.9|)3571 (|ArgList/ArgList.8.9| ATN-PARSER::INDEX))3572 (%ATN-EDGE-BLOCK3573 (ATN-PARSER::JUMP |ArgList/ArgList.2.7|)3574 (|ArgList/ArgList.2.7| ATN-PARSER::INDEX))))3575 (|ArgList/ArgList.2.4| (ATN-PARSER::INDEX)3576 (%ATN-NODE-BLOCK3577 |ArgList/ArgList.2.4|3578 (%ATN-EDGE-BLOCK3579 (ATN-PARSER::WORD SPOCQ.S:\()3580 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()3581 (SETF *ATN-TERM* 'SPOCQ.S:\()3582 (|ArgList/ArgList.2.5| (1+ ATN-PARSER::INDEX)))3583 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))3584 (|ArgList/ArgList.2.5| (ATN-PARSER::INDEX)3585 (%ATN-NODE-BLOCK3586 |ArgList/ArgList.2.5|3587 (%ATN-EDGE-BLOCK3588 (PUSH |Expression|)3589 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3590 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)3591 (COND (ATN-PARSER::SUCCESS3592 (SETF *ATN-TERM* '|Expression|)3593 (LET ((|Expression706| |Expression|))3594 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3595 (DESTRUCTURING-BIND3596 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3597 ATN-PARSER::RESULT-AND-INDEX3598 (WHEN ATN-PARSER::RESULT3599 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))3600 (|ArgList/ArgList.2.6| ATN-PARSER::RESULT-INDEX))3601 (SETF |Expression| |Expression706|))))3602 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))3603 (|ArgList/ArgList.2.6| (ATN-PARSER::INDEX)3604 (%ATN-NODE-BLOCK3605 |ArgList/ArgList.2.6|3606 (%ATN-EDGE-BLOCK3607 (ATN-PARSER::JUMP |ArgList/ArgList.8.9|)3608 (|ArgList/ArgList.8.9| ATN-PARSER::INDEX))3609 (%ATN-EDGE-BLOCK3610 (ATN-PARSER::JUMP |ArgList/ArgList.2.7|)3611 (|ArgList/ArgList.2.7| ATN-PARSER::INDEX))))3612 (|ArgList/ArgList.2.7| (ATN-PARSER::INDEX)3613 (%ATN-NODE-BLOCK3614 |ArgList/ArgList.2.7|3615 (%ATN-EDGE-BLOCK3616 (ATN-PARSER::WORD SPOCQ.S:\))3617 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))3618 (SETF *ATN-TERM* 'SPOCQ.S:\))3619 (|ArgList.2| (1+ ATN-PARSER::INDEX)))3620 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL)))))3621 (|ArgList/ArgList.8.10| (ATN-PARSER::INDEX)3622 (%ATN-NODE-BLOCK3623 |ArgList/ArgList.8.10|3624 (%ATN-EDGE-BLOCK3625 (PUSH |Expression|)3626 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3627 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)3628 (COND (ATN-PARSER::SUCCESS3629 (SETF *ATN-TERM* '|Expression|)3630 (LET ((|Expression705| |Expression|))3631 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3632 (DESTRUCTURING-BIND3633 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3634 ATN-PARSER::RESULT-AND-INDEX3635 (WHEN ATN-PARSER::RESULT3636 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))3637 (|ArgList.8| ATN-PARSER::RESULT-INDEX))3638 (SETF |Expression| |Expression705|))))3639 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))3640 (|ArgList/ArgList.8.9| (ATN-PARSER::INDEX)3641 (%ATN-NODE-BLOCK3642 |ArgList/ArgList.8.9|3643 (%ATN-EDGE-BLOCK3644 (ATN-PARSER::WORD SPOCQ.S:\,)3645 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)3646 (SETF *ATN-TERM* 'SPOCQ.S:\,)3647 (|ArgList/ArgList.8.10| (1+ ATN-PARSER::INDEX)))3648 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))3649 (|ArgList/fail.3| (ATN-PARSER::INDEX)3650 (%ATN-NODE-BLOCK |ArgList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3651 (|ArgList/start.1| (ATN-PARSER::INDEX)3652 (%ATN-NODE-BLOCK3653 |ArgList/start.1|3654 (%ATN-EDGE-BLOCK3655 OR3656 (PROGN (%ATN-EDGE-BLOCK3657 (PUSH NILLIST)3658 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3659 (ATN-PARSE-SUBSTRUCTURE* 'NILLIST ATN-PARSER::INDEX)3660 (COND (ATN-PARSER::SUCCESS3661 (SETF *ATN-TERM* 'NILLIST)3662 (LET ((NILLIST705 NILLIST))3663 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3664 (DESTRUCTURING-BIND3665 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3666 ATN-PARSER::RESULT-AND-INDEX3667 (WHEN ATN-PARSER::RESULT (SETF NILLIST ATN-PARSER::RESULT))3668 (|ArgList.2| ATN-PARSER::RESULT-INDEX))3669 (SETF NILLIST NILLIST705))))3670 (T (SETF *ATN-TERM?* 'NILLIST) NIL))))3671 (%ATN-EDGE-BLOCK3672 (ATN-PARSER::JUMP |ArgList/ArgList.2.4|)3673 (|ArgList/ArgList.2.4| ATN-PARSER::INDEX))3674 (|ArgList/fail.3| ATN-PARSER::INDEX))))))3675 (|ArgList/start.1| ATN-PARSER::INDEX)3676 (SETF *ATN-NODE NIL)3677 NIL3678 (IF ATN-PARSER::ATN-STRUCTURE3679 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3680 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3681 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ArgList| ATN-PARSER::INDEX *ATN-STACK))))3682 (PROGN (DEFVAR |ConstructTemplate-INDEX|)3683 (DEFUN |ConstructTemplate| (ATN-PARSER::INDEX &AUX (|ConstructTriples| NIL))3684 "{30} ConstructTemplate ::= '{' ConstructTriples? '}'3685 (|ConstructTriples|)"3686 (DECLARE (SPECIAL |ConstructTemplate-INDEX|))3687 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructTemplate-INDEX| *ATN-LEVEL))3688 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3689 (IF (< |ConstructTemplate-INDEX| ATN-PARSER::INDEX)3690 (LET ((|ConstructTemplate-INDEX| ATN-PARSER::INDEX)3691 (*ATN-LEVEL (1+ *ATN-LEVEL))3692 (*ATN-STACK (CONS '|ConstructTemplate| *ATN-STACK))3693 (ATN-PARSER::ATN-STRUCTURE NIL))3694 (DECLARE (SPECIAL |ConstructTemplate-INDEX|))3695 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3696 (DECLARE (TYPE CONS *ATN-STACK))3697 (SYMBOL-MACROLET3698 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3699 (%ATN-BLOCK |ConstructTemplate|3700 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3701 (SETF *ATN-TERM* '|ConstructTemplate|)3702 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3703 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3704 (|ConstructTemplate.2| (ATN-PARSER::INDEX)3705 (%ATN-NODE-BLOCK3706 |ConstructTemplate.2|3707 (%ATN-EDGE-BLOCK3708 (POP |ConstructTemplate|)3709 (WHEN T3710 (SETF *ATN-TERM* '|ConstructTemplate|)3711 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3712 '|ConstructTemplate|3713 ATN-PARSER::INDEX3714 (LIST '|ConstructTriples| |ConstructTriples|))3715 (LET ((ATN-PARSER::RESULT-STRUCTURE3716 (IF (EQ *ATN-REDUCE* T)3717 (|ConstructTemplate-Constructor| |ConstructTriples|)3718 (IF (EQ *ATN-REDUCE* 'CONS)3719 (CONS '|ConstructTemplate| (DELETE NIL (LIST |ConstructTriples|)))3720 '|ConstructTemplate|))))3721 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3722 (|ConstructTemplate/ConstructTemplate.2.4| (ATN-PARSER::INDEX)3723 (%ATN-NODE-BLOCK3724 |ConstructTemplate/ConstructTemplate.2.4|3725 (%ATN-EDGE-BLOCK3726 (PUSH |ConstructTriples|)3727 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3728 (ATN-PARSE-SUBSTRUCTURE* '|ConstructTriples| ATN-PARSER::INDEX)3729 (COND (ATN-PARSER::SUCCESS3730 (SETF *ATN-TERM* '|ConstructTriples|)3731 (LET ((|ConstructTriples706| |ConstructTriples|))3732 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3733 (DESTRUCTURING-BIND3734 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3735 ATN-PARSER::RESULT-AND-INDEX3736 (WHEN ATN-PARSER::RESULT (SETF |ConstructTriples| ATN-PARSER::RESULT))3737 (|ConstructTemplate/ConstructTemplate.2.5| ATN-PARSER::RESULT-INDEX))3738 (SETF |ConstructTriples| |ConstructTriples706|))))3739 (T3740 (SETF *ATN-TERM?* '|ConstructTriples|)3741 (|ConstructTemplate/ConstructTemplate.2.5| ATN-PARSER::INDEX)))))))3742 (|ConstructTemplate/ConstructTemplate.2.5| (ATN-PARSER::INDEX)3743 (%ATN-NODE-BLOCK3744 |ConstructTemplate/ConstructTemplate.2.5|3745 (%ATN-EDGE-BLOCK3746 (ATN-PARSER::WORD SPOCQ.S:})3747 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:})3748 (SETF *ATN-TERM* 'SPOCQ.S:})3749 (|ConstructTemplate.2| (1+ ATN-PARSER::INDEX)))3750 (T3751 (SETF *ATN-TERM?* 'SPOCQ.S:})3752 (|ConstructTemplate/fail.3| ATN-PARSER::INDEX))))))3753 (|ConstructTemplate/fail.3| (ATN-PARSER::INDEX)3754 (%ATN-NODE-BLOCK |ConstructTemplate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3755 (|ConstructTemplate/start.1| (ATN-PARSER::INDEX)3756 (%ATN-NODE-BLOCK3757 |ConstructTemplate/start.1|3758 (%ATN-EDGE-BLOCK3759 (ATN-PARSER::WORD SPOCQ.S:{)3760 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)3761 (SETF *ATN-TERM* 'SPOCQ.S:{)3762 (|ConstructTemplate/ConstructTemplate.2.4| (1+ ATN-PARSER::INDEX)))3763 (T3764 (SETF *ATN-TERM?* 'SPOCQ.S:{)3765 (|ConstructTemplate/fail.3| ATN-PARSER::INDEX)))))))3766 (|ConstructTemplate/start.1| ATN-PARSER::INDEX)3767 (SETF *ATN-NODE NIL)3768 NIL3769 (IF ATN-PARSER::ATN-STRUCTURE3770 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3771 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3772 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructTemplate| ATN-PARSER::INDEX *ATN-STACK))))3773 (PROGN (DEFVAR |ConstructTriples-INDEX|)3774 (DEFUN |ConstructTriples| (ATN-PARSER::INDEX &AUX (|ConstructTriples| NIL) (|TriplesSameSubject| NIL))3775 "{31} ConstructTriples ::= TriplesSameSubject ('.' ConstructTriples?)?3776 (|ConstructTriples| |TriplesSameSubject|)"3777 (DECLARE (SPECIAL |ConstructTriples-INDEX|))3778 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructTriples-INDEX| *ATN-LEVEL))3779 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3780 (IF (< |ConstructTriples-INDEX| ATN-PARSER::INDEX)3781 (LET ((|ConstructTriples-INDEX| ATN-PARSER::INDEX)3782 (*ATN-LEVEL (1+ *ATN-LEVEL))3783 (*ATN-STACK (CONS '|ConstructTriples| *ATN-STACK))3784 (ATN-PARSER::ATN-STRUCTURE NIL))3785 (DECLARE (SPECIAL |ConstructTriples-INDEX|))3786 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3787 (DECLARE (TYPE CONS *ATN-STACK))3788 (SYMBOL-MACROLET3789 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3790 (%ATN-BLOCK |ConstructTriples|3791 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3792 (SETF *ATN-TERM* '|ConstructTriples|)3793 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3794 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3795 (|ConstructTriples.2| (ATN-PARSER::INDEX)3796 (%ATN-NODE-BLOCK3797 |ConstructTriples.2|3798 (%ATN-EDGE-BLOCK3799 (POP |ConstructTriples|)3800 (WHEN T3801 (SETF *ATN-TERM* '|ConstructTriples|)3802 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3803 '|ConstructTriples|3804 ATN-PARSER::INDEX3805 (LIST '|ConstructTriples|3806 |ConstructTriples|3807 '|TriplesSameSubject|3808 |TriplesSameSubject|))3809 (LET ((ATN-PARSER::RESULT-STRUCTURE3810 (IF (EQ *ATN-REDUCE* T)3811 (|ConstructTriples-Constructor| |ConstructTriples| |TriplesSameSubject|)3812 (IF (EQ *ATN-REDUCE* 'CONS)3813 (CONS '|ConstructTriples|3814 (DELETE NIL (LIST |ConstructTriples| |TriplesSameSubject|)))3815 '|ConstructTriples|))))3816 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3817 (|ConstructTriples/ConstructTriples.2.4| (ATN-PARSER::INDEX)3818 (%ATN-NODE-BLOCK3819 |ConstructTriples/ConstructTriples.2.4|3820 (%ATN-EDGE-BLOCK3821 (ATN-PARSER::JUMP |ConstructTriples/ConstructTriples.2.5|)3822 (|ConstructTriples/ConstructTriples.2.5| ATN-PARSER::INDEX))3823 (%ATN-EDGE-BLOCK3824 (ATN-PARSER::JUMP |ConstructTriples.2|)3825 (|ConstructTriples.2| ATN-PARSER::INDEX))))3826 (|ConstructTriples/ConstructTriples.2.5| (ATN-PARSER::INDEX)3827 (%ATN-NODE-BLOCK3828 |ConstructTriples/ConstructTriples.2.5|3829 (%ATN-EDGE-BLOCK3830 (ATN-PARSER::WORD SPOCQ.S:|.|)3831 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)3832 (SETF *ATN-TERM* 'SPOCQ.S:|.|)3833 (|ConstructTriples/ConstructTriples.2.6| (1+ ATN-PARSER::INDEX)))3834 (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|) NIL)))))3835 (|ConstructTriples/ConstructTriples.2.6| (ATN-PARSER::INDEX)3836 (%ATN-NODE-BLOCK3837 |ConstructTriples/ConstructTriples.2.6|3838 (%ATN-EDGE-BLOCK3839 (PUSH |ConstructTriples|)3840 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3841 (ATN-PARSE-SUBSTRUCTURE* '|ConstructTriples| ATN-PARSER::INDEX)3842 (COND (ATN-PARSER::SUCCESS3843 (SETF *ATN-TERM* '|ConstructTriples|)3844 (LET ((|ConstructTriples707| |ConstructTriples|))3845 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3846 (DESTRUCTURING-BIND3847 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3848 ATN-PARSER::RESULT-AND-INDEX3849 (WHEN ATN-PARSER::RESULT (SETF |ConstructTriples| ATN-PARSER::RESULT))3850 (|ConstructTriples.2| ATN-PARSER::RESULT-INDEX))3851 (SETF |ConstructTriples| |ConstructTriples707|))))3852 (T3853 (SETF *ATN-TERM?* '|ConstructTriples|)3854 (|ConstructTriples.2| ATN-PARSER::INDEX)))))))3855 (|ConstructTriples/fail.3| (ATN-PARSER::INDEX)3856 (%ATN-NODE-BLOCK |ConstructTriples/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3857 (|ConstructTriples/start.1| (ATN-PARSER::INDEX)3858 (%ATN-NODE-BLOCK3859 |ConstructTriples/start.1|3860 (%ATN-EDGE-BLOCK3861 (PUSH |TriplesSameSubject|)3862 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3863 (ATN-PARSE-SUBSTRUCTURE* '|TriplesSameSubject| ATN-PARSER::INDEX)3864 (COND (ATN-PARSER::SUCCESS3865 (SETF *ATN-TERM* '|TriplesSameSubject|)3866 (LET ((|TriplesSameSubject707| |TriplesSameSubject|))3867 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3868 (DESTRUCTURING-BIND3869 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3870 ATN-PARSER::RESULT-AND-INDEX3871 (WHEN ATN-PARSER::RESULT (SETF |TriplesSameSubject| ATN-PARSER::RESULT))3872 (|ConstructTriples/ConstructTriples.2.4| ATN-PARSER::RESULT-INDEX))3873 (SETF |TriplesSameSubject| |TriplesSameSubject707|))))3874 (T3875 (SETF *ATN-TERM?* '|TriplesSameSubject|)3876 (|ConstructTriples/fail.3| ATN-PARSER::INDEX))))))))3877 (|ConstructTriples/start.1| ATN-PARSER::INDEX)3878 (SETF *ATN-NODE NIL)3879 NIL3880 (IF ATN-PARSER::ATN-STRUCTURE3881 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3882 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3883 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructTriples| ATN-PARSER::INDEX *ATN-STACK))))3884 (PROGN (DEFVAR |TriplesSameSubject-INDEX|)3885 (DEFUN |TriplesSameSubject| (ATN-PARSER::INDEX &AUX (|PropertyList| NIL) (|PropertyListNotEmpty| NIL) (|TriplesNode| NIL)3886 (|VarOrTerm| NIL))3887 "{32} TriplesSameSubject ::= ((VarOrTerm PropertyListNotEmpty) | (TriplesNode3888 PropertyList))3889 (|PropertyList| |PropertyListNotEmpty| |TriplesNode| |VarOrTerm|)"3890 (DECLARE (SPECIAL |TriplesSameSubject-INDEX|))3891 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesSameSubject-INDEX| *ATN-LEVEL))3892 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3893 (IF (< |TriplesSameSubject-INDEX| ATN-PARSER::INDEX)3894 (LET ((|TriplesSameSubject-INDEX| ATN-PARSER::INDEX)3895 (*ATN-LEVEL (1+ *ATN-LEVEL))3896 (*ATN-STACK (CONS '|TriplesSameSubject| *ATN-STACK))3897 (ATN-PARSER::ATN-STRUCTURE NIL))3898 (DECLARE (SPECIAL |TriplesSameSubject-INDEX|))3899 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3900 (DECLARE (TYPE CONS *ATN-STACK))3901 (SYMBOL-MACROLET3902 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3903 (%ATN-BLOCK |TriplesSameSubject|3904 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3905 (SETF *ATN-TERM* '|TriplesSameSubject|)3906 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3907 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3908 (|TriplesSameSubject.2| (ATN-PARSER::INDEX)3909 (%ATN-NODE-BLOCK3910 |TriplesSameSubject.2|3911 (%ATN-EDGE-BLOCK3912 (POP |TriplesSameSubject|)3913 (WHEN T3914 (SETF *ATN-TERM* '|TriplesSameSubject|)3915 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3916 '|TriplesSameSubject|3917 ATN-PARSER::INDEX3918 (LIST '|PropertyList|3919 |PropertyList|3920 '|PropertyListNotEmpty|3921 |PropertyListNotEmpty|3922 '|TriplesNode|3923 |TriplesNode|3924 '|VarOrTerm|3925 |VarOrTerm|))3926 (LET ((ATN-PARSER::RESULT-STRUCTURE3927 (IF (EQ *ATN-REDUCE* T)3928 (|TriplesSameSubject-Constructor|3929 |PropertyList|3930 |PropertyListNotEmpty|3931 |TriplesNode|3932 |VarOrTerm|)3933 (IF (EQ *ATN-REDUCE* 'CONS)3934 (CONS '|TriplesSameSubject|3935 (DELETE NIL3936 (LIST |PropertyList|3937 |PropertyListNotEmpty|3938 |TriplesNode|3939 |VarOrTerm|)))3940 '|TriplesSameSubject|))))3941 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3942 (|TriplesSameSubject/fail.3| (ATN-PARSER::INDEX)3943 (%ATN-NODE-BLOCK |TriplesSameSubject/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3944 (|TriplesSameSubject/start.1| (ATN-PARSER::INDEX)3945 (%ATN-NODE-BLOCK3946 |TriplesSameSubject/start.1|3947 (%ATN-EDGE-BLOCK3948 OR3949 (PROGN (%ATN-EDGE-BLOCK3950 (ATN-PARSER::JUMP |TriplesSameSubject/TriplesSameSubject.2.4|)3951 (|TriplesSameSubject/TriplesSameSubject.2.4| ATN-PARSER::INDEX))3952 (%ATN-EDGE-BLOCK3953 (ATN-PARSER::JUMP |TriplesSameSubject/TriplesSameSubject.2.6|)3954 (|TriplesSameSubject/TriplesSameSubject.2.6| ATN-PARSER::INDEX))3955 (|TriplesSameSubject/fail.3| ATN-PARSER::INDEX)))))3956 (|TriplesSameSubject/TriplesSameSubject.2.4| (ATN-PARSER::INDEX)3957 (%ATN-NODE-BLOCK3958 |TriplesSameSubject/TriplesSameSubject.2.4|3959 (%ATN-EDGE-BLOCK3960 (PUSH |VarOrTerm|)3961 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3962 (ATN-PARSE-SUBSTRUCTURE* '|VarOrTerm| ATN-PARSER::INDEX)3963 (COND (ATN-PARSER::SUCCESS3964 (SETF *ATN-TERM* '|VarOrTerm|)3965 (LET ((|VarOrTerm707| |VarOrTerm|))3966 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3967 (DESTRUCTURING-BIND3968 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3969 ATN-PARSER::RESULT-AND-INDEX3970 (WHEN ATN-PARSER::RESULT (SETF |VarOrTerm| ATN-PARSER::RESULT))3971 (|TriplesSameSubject/TriplesSameSubject.2.5| ATN-PARSER::RESULT-INDEX))3972 (SETF |VarOrTerm| |VarOrTerm707|))))3973 (T (SETF *ATN-TERM?* '|VarOrTerm|) NIL))))))3974 (|TriplesSameSubject/TriplesSameSubject.2.5| (ATN-PARSER::INDEX)3975 (%ATN-NODE-BLOCK3976 |TriplesSameSubject/TriplesSameSubject.2.5|3977 (%ATN-EDGE-BLOCK3978 (PUSH |PropertyListNotEmpty|)3979 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3980 (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty| ATN-PARSER::INDEX)3981 (COND (ATN-PARSER::SUCCESS3982 (SETF *ATN-TERM* '|PropertyListNotEmpty|)3983 (LET ((|PropertyListNotEmpty707| |PropertyListNotEmpty|))3984 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3985 (DESTRUCTURING-BIND3986 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3987 ATN-PARSER::RESULT-AND-INDEX3988 (WHEN ATN-PARSER::RESULT3989 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))3990 (|TriplesSameSubject.2| ATN-PARSER::RESULT-INDEX))3991 (SETF |PropertyListNotEmpty| |PropertyListNotEmpty707|))))3992 (T (SETF *ATN-TERM?* '|PropertyListNotEmpty|) NIL))))))3993 (|TriplesSameSubject/TriplesSameSubject.2.6| (ATN-PARSER::INDEX)3994 (%ATN-NODE-BLOCK3995 |TriplesSameSubject/TriplesSameSubject.2.6|3996 (%ATN-EDGE-BLOCK3997 (PUSH |TriplesNode|)3998 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3999 (ATN-PARSE-SUBSTRUCTURE* '|TriplesNode| ATN-PARSER::INDEX)4000 (COND (ATN-PARSER::SUCCESS4001 (SETF *ATN-TERM* '|TriplesNode|)4002 (LET ((|TriplesNode707| |TriplesNode|))4003 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4004 (DESTRUCTURING-BIND4005 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4006 ATN-PARSER::RESULT-AND-INDEX4007 (WHEN ATN-PARSER::RESULT (SETF |TriplesNode| ATN-PARSER::RESULT))4008 (|TriplesSameSubject/TriplesSameSubject.2.7| ATN-PARSER::RESULT-INDEX))4009 (SETF |TriplesNode| |TriplesNode707|))))4010 (T (SETF *ATN-TERM?* '|TriplesNode|) NIL))))))4011 (|TriplesSameSubject/TriplesSameSubject.2.7| (ATN-PARSER::INDEX)4012 (%ATN-NODE-BLOCK4013 |TriplesSameSubject/TriplesSameSubject.2.7|4014 (%ATN-EDGE-BLOCK4015 (PUSH |PropertyList|)4016 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4017 (ATN-PARSE-SUBSTRUCTURE* '|PropertyList| ATN-PARSER::INDEX)4018 (COND (ATN-PARSER::SUCCESS4019 (SETF *ATN-TERM* '|PropertyList|)4020 (LET ((|PropertyList707| |PropertyList|))4021 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4022 (DESTRUCTURING-BIND4023 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4024 ATN-PARSER::RESULT-AND-INDEX4025 (WHEN ATN-PARSER::RESULT (SETF |PropertyList| ATN-PARSER::RESULT))4026 (|TriplesSameSubject.2| ATN-PARSER::RESULT-INDEX))4027 (SETF |PropertyList| |PropertyList707|))))4028 (T (SETF *ATN-TERM?* '|PropertyList|) NIL)))))))4029 (|TriplesSameSubject/start.1| ATN-PARSER::INDEX)4030 (SETF *ATN-NODE NIL)4031 NIL4032 (IF ATN-PARSER::ATN-STRUCTURE4033 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4034 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4035 (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesSameSubject| ATN-PARSER::INDEX *ATN-STACK))))4036 (PROGN (DEFVAR |PropertyListNotEmpty-INDEX|)4037 (DEFUN |PropertyListNotEmpty| (ATN-PARSER::INDEX &AUX (|VerbObjectList| NIL))4038 "{33} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*4039 (|VerbObjectList|)"4040 (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))4041 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PropertyListNotEmpty-INDEX| *ATN-LEVEL))4042 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4043 (IF (< |PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)4044 (LET ((|PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)4045 (*ATN-LEVEL (1+ *ATN-LEVEL))4046 (*ATN-STACK (CONS '|PropertyListNotEmpty| *ATN-STACK))4047 (ATN-PARSER::ATN-STRUCTURE NIL))4048 (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))4049 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4050 (DECLARE (TYPE CONS *ATN-STACK))4051 (SYMBOL-MACROLET4052 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4053 (%ATN-BLOCK |PropertyListNotEmpty|4054 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4055 (SETF *ATN-TERM* '|PropertyListNotEmpty|)4056 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4057 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4058 (|PropertyListNotEmpty.2| (ATN-PARSER::INDEX)4059 (%ATN-NODE-BLOCK4060 |PropertyListNotEmpty.2|4061 (%ATN-EDGE-BLOCK4062 (POP |PropertyListNotEmpty|)4063 (WHEN T4064 (SETF *ATN-TERM* '|PropertyListNotEmpty|)4065 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4066 '|PropertyListNotEmpty|4067 ATN-PARSER::INDEX4068 (LIST '|VerbObjectList| |VerbObjectList|))4069 (LET ((ATN-PARSER::RESULT-STRUCTURE4070 (IF (EQ *ATN-REDUCE* T)4071 (|PropertyListNotEmpty-Constructor| |VerbObjectList|)4072 (IF (EQ *ATN-REDUCE* 'CONS)4073 (CONS '|PropertyListNotEmpty| (DELETE NIL (LIST |VerbObjectList|)))4074 '|PropertyListNotEmpty|))))4075 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4076 (|PropertyListNotEmpty.5| (ATN-PARSER::INDEX)4077 (%ATN-NODE-BLOCK4078 |PropertyListNotEmpty.5|4079 (%ATN-EDGE-BLOCK4080 (ATN-PARSER::JUMP |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)4081 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| ATN-PARSER::INDEX))4082 (%ATN-EDGE-BLOCK4083 (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)4084 (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))4085 (|PropertyListNotEmpty/fail.3| (ATN-PARSER::INDEX)4086 (%ATN-NODE-BLOCK4087 |PropertyListNotEmpty/fail.3|4088 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4089 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4| (ATN-PARSER::INDEX)4090 (%ATN-NODE-BLOCK4091 |PropertyListNotEmpty/PropertyListNotEmpty.2.4|4092 (%ATN-EDGE-BLOCK4093 (ATN-PARSER::JUMP |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)4094 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| ATN-PARSER::INDEX))4095 (%ATN-EDGE-BLOCK4096 (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)4097 (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))4098 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| (ATN-PARSER::INDEX)4099 (%ATN-NODE-BLOCK4100 |PropertyListNotEmpty/PropertyListNotEmpty.5.6|4101 (%ATN-EDGE-BLOCK4102 (ATN-PARSER::WORD SPOCQ.S:\;)4103 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\;)4104 (SETF *ATN-TERM* 'SPOCQ.S:\;)4105 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7| (1+ ATN-PARSER::INDEX)))4106 (T (SETF *ATN-TERM?* 'SPOCQ.S:\;) NIL)))))4107 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7| (ATN-PARSER::INDEX)4108 (%ATN-NODE-BLOCK4109 |PropertyListNotEmpty/PropertyListNotEmpty.5.7|4110 (%ATN-EDGE-BLOCK4111 (PUSH |VerbObjectList|)4112 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4113 (ATN-PARSE-SUBSTRUCTURE* '|VerbObjectList| ATN-PARSER::INDEX)4114 (COND (ATN-PARSER::SUCCESS4115 (SETF *ATN-TERM* '|VerbObjectList|)4116 (LET ((|VerbObjectList707| |VerbObjectList|))4117 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4118 (DESTRUCTURING-BIND4119 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4120 ATN-PARSER::RESULT-AND-INDEX4121 (WHEN ATN-PARSER::RESULT4122 (SETF |VerbObjectList| (CONS ATN-PARSER::RESULT |VerbObjectList|)))4123 (|PropertyListNotEmpty.5| ATN-PARSER::RESULT-INDEX))4124 (SETF |VerbObjectList| |VerbObjectList707|))))4125 (T4126 (SETF *ATN-TERM?* '|VerbObjectList|)4127 (|PropertyListNotEmpty.5| ATN-PARSER::INDEX)))))))4128 (|PropertyListNotEmpty/start.1| (ATN-PARSER::INDEX)4129 (%ATN-NODE-BLOCK4130 |PropertyListNotEmpty/start.1|4131 (%ATN-EDGE-BLOCK4132 (PUSH |VerbObjectList|)4133 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4134 (ATN-PARSE-SUBSTRUCTURE* '|VerbObjectList| ATN-PARSER::INDEX)4135 (COND (ATN-PARSER::SUCCESS4136 (SETF *ATN-TERM* '|VerbObjectList|)4137 (LET ((|VerbObjectList708| |VerbObjectList|))4138 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4139 (DESTRUCTURING-BIND4140 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4141 ATN-PARSER::RESULT-AND-INDEX4142 (WHEN ATN-PARSER::RESULT4143 (SETF |VerbObjectList| (CONS ATN-PARSER::RESULT |VerbObjectList|)))4144 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4|4145 ATN-PARSER::RESULT-INDEX))4146 (SETF |VerbObjectList| |VerbObjectList708|))))4147 (T4148 (SETF *ATN-TERM?* '|VerbObjectList|)4149 (|PropertyListNotEmpty/fail.3| ATN-PARSER::INDEX))))))))4150 (|PropertyListNotEmpty/start.1| ATN-PARSER::INDEX)4151 (SETF *ATN-NODE NIL)4152 NIL4153 (IF ATN-PARSER::ATN-STRUCTURE4154 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4155 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4156 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PropertyListNotEmpty| ATN-PARSER::INDEX *ATN-STACK))))4157 (PROGN (DEFVAR |VerbObjectList-INDEX|)4158 (DEFUN |VerbObjectList| (ATN-PARSER::INDEX &AUX (|ObjectList| NIL) (|Verb| NIL))4159 "VerbObjectList ::= Verb ObjectList4160 (|ObjectList| |Verb|)"4161 (DECLARE (SPECIAL |VerbObjectList-INDEX|))4162 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VerbObjectList-INDEX| *ATN-LEVEL))4163 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4164 (IF (< |VerbObjectList-INDEX| ATN-PARSER::INDEX)4165 (LET ((|VerbObjectList-INDEX| ATN-PARSER::INDEX)4166 (*ATN-LEVEL (1+ *ATN-LEVEL))4167 (*ATN-STACK (CONS '|VerbObjectList| *ATN-STACK))4168 (ATN-PARSER::ATN-STRUCTURE NIL))4169 (DECLARE (SPECIAL |VerbObjectList-INDEX|))4170 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4171 (DECLARE (TYPE CONS *ATN-STACK))4172 (SYMBOL-MACROLET4173 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4174 (%ATN-BLOCK |VerbObjectList|4175 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4176 (SETF *ATN-TERM* '|VerbObjectList|)4177 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4178 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4179 (|VerbObjectList.2| (ATN-PARSER::INDEX)4180 (%ATN-NODE-BLOCK4181 |VerbObjectList.2|4182 (%ATN-EDGE-BLOCK4183 (POP |VerbObjectList|)4184 (WHEN T4185 (SETF *ATN-TERM* '|VerbObjectList|)4186 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4187 '|VerbObjectList|4188 ATN-PARSER::INDEX4189 (LIST '|ObjectList| |ObjectList| '|Verb| |Verb|))4190 (LET ((ATN-PARSER::RESULT-STRUCTURE4191 (IF (EQ *ATN-REDUCE* T)4192 (|VerbObjectList-Constructor| |ObjectList| |Verb|)4193 (IF (EQ *ATN-REDUCE* 'CONS)4194 (CONS '|VerbObjectList| (DELETE NIL (LIST |ObjectList| |Verb|)))4195 '|VerbObjectList|))))4196 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4197 (|VerbObjectList/fail.3| (ATN-PARSER::INDEX)4198 (%ATN-NODE-BLOCK |VerbObjectList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4199 (|VerbObjectList/start.1| (ATN-PARSER::INDEX)4200 (%ATN-NODE-BLOCK4201 |VerbObjectList/start.1|4202 (%ATN-EDGE-BLOCK4203 (PUSH |Verb|)4204 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4205 (ATN-PARSE-SUBSTRUCTURE* '|Verb| ATN-PARSER::INDEX)4206 (COND (ATN-PARSER::SUCCESS4207 (SETF *ATN-TERM* '|Verb|)4208 (LET ((|Verb708| |Verb|))4209 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4210 (DESTRUCTURING-BIND4211 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4212 ATN-PARSER::RESULT-AND-INDEX4213 (WHEN ATN-PARSER::RESULT (SETF |Verb| ATN-PARSER::RESULT))4214 (|VerbObjectList/VerbObjectList.2.4| ATN-PARSER::RESULT-INDEX))4215 (SETF |Verb| |Verb708|))))4216 (T (SETF *ATN-TERM?* '|Verb|) (|VerbObjectList/fail.3| ATN-PARSER::INDEX)))))))4217 (|VerbObjectList/VerbObjectList.2.4| (ATN-PARSER::INDEX)4218 (%ATN-NODE-BLOCK4219 |VerbObjectList/VerbObjectList.2.4|4220 (%ATN-EDGE-BLOCK4221 (PUSH |ObjectList|)4222 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4223 (ATN-PARSE-SUBSTRUCTURE* '|ObjectList| ATN-PARSER::INDEX)4224 (COND (ATN-PARSER::SUCCESS4225 (SETF *ATN-TERM* '|ObjectList|)4226 (LET ((|ObjectList708| |ObjectList|))4227 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4228 (DESTRUCTURING-BIND4229 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4230 ATN-PARSER::RESULT-AND-INDEX4231 (WHEN ATN-PARSER::RESULT (SETF |ObjectList| ATN-PARSER::RESULT))4232 (|VerbObjectList.2| ATN-PARSER::RESULT-INDEX))4233 (SETF |ObjectList| |ObjectList708|))))4234 (T4235 (SETF *ATN-TERM?* '|ObjectList|)4236 (|VerbObjectList/fail.3| ATN-PARSER::INDEX))))))))4237 (|VerbObjectList/start.1| ATN-PARSER::INDEX)4238 (SETF *ATN-NODE NIL)4239 NIL4240 (IF ATN-PARSER::ATN-STRUCTURE4241 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4242 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4243 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VerbObjectList| ATN-PARSER::INDEX *ATN-STACK))))4244 (PROGN (DEFVAR |PropertyList-INDEX|)4245 (DEFUN |PropertyList| (ATN-PARSER::INDEX &AUX (|PropertyListNotEmpty| NIL))4246 "{34} PropertyList ::= PropertyListNotEmpty?4247 (|PropertyListNotEmpty|)"4248 (DECLARE (SPECIAL |PropertyList-INDEX|))4249 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PropertyList-INDEX| *ATN-LEVEL))4250 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4251 (IF (< |PropertyList-INDEX| ATN-PARSER::INDEX)4252 (LET ((|PropertyList-INDEX| ATN-PARSER::INDEX)4253 (*ATN-LEVEL (1+ *ATN-LEVEL))4254 (*ATN-STACK (CONS '|PropertyList| *ATN-STACK))4255 (ATN-PARSER::ATN-STRUCTURE NIL))4256 (DECLARE (SPECIAL |PropertyList-INDEX|))4257 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4258 (DECLARE (TYPE CONS *ATN-STACK))4259 (SYMBOL-MACROLET4260 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4261 (%ATN-BLOCK |PropertyList|4262 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4263 (SETF *ATN-TERM* '|PropertyList|)4264 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4265 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4266 (|PropertyList.2| (ATN-PARSER::INDEX)4267 (%ATN-NODE-BLOCK4268 |PropertyList.2|4269 (%ATN-EDGE-BLOCK4270 (POP |PropertyList|)4271 (WHEN T4272 (SETF *ATN-TERM* '|PropertyList|)4273 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4274 '|PropertyList|4275 ATN-PARSER::INDEX4276 (LIST '|PropertyListNotEmpty| |PropertyListNotEmpty|))4277 (LET ((ATN-PARSER::RESULT-STRUCTURE4278 (IF (EQ *ATN-REDUCE* T)4279 (|PropertyList-Constructor| |PropertyListNotEmpty|)4280 (IF (EQ *ATN-REDUCE* 'CONS)4281 (CONS '|PropertyList| (DELETE NIL (LIST |PropertyListNotEmpty|)))4282 '|PropertyList|))))4283 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4284 (|PropertyList/fail.3| (ATN-PARSER::INDEX)4285 (%ATN-NODE-BLOCK |PropertyList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4286 (|PropertyList/start.1| (ATN-PARSER::INDEX)4287 (%ATN-NODE-BLOCK4288 |PropertyList/start.1|4289 (%ATN-EDGE-BLOCK4290 (PUSH |PropertyListNotEmpty|)4291 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4292 (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty| ATN-PARSER::INDEX)4293 (COND (ATN-PARSER::SUCCESS4294 (SETF *ATN-TERM* '|PropertyListNotEmpty|)4295 (LET ((|PropertyListNotEmpty708| |PropertyListNotEmpty|))4296 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4297 (DESTRUCTURING-BIND4298 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4299 ATN-PARSER::RESULT-AND-INDEX4300 (WHEN ATN-PARSER::RESULT4301 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))4302 (|PropertyList.2| ATN-PARSER::RESULT-INDEX))4303 (SETF |PropertyListNotEmpty| |PropertyListNotEmpty708|))))4304 (T4305 (SETF *ATN-TERM?* '|PropertyListNotEmpty|)4306 (|PropertyList.2| ATN-PARSER::INDEX))))))))4307 (|PropertyList/start.1| ATN-PARSER::INDEX)4308 (SETF *ATN-NODE NIL)4309 NIL4310 (IF ATN-PARSER::ATN-STRUCTURE4311 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4312 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4313 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PropertyList| ATN-PARSER::INDEX *ATN-STACK))))4314 (PROGN (DEFVAR |ObjectList-INDEX|)4315 (DEFUN |ObjectList| (ATN-PARSER::INDEX &AUX (|Object| NIL))4316 "{35} ObjectList ::= Object (',' Object)*4317 (|Object|)"4318 (DECLARE (SPECIAL |ObjectList-INDEX|))4319 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ObjectList-INDEX| *ATN-LEVEL))4320 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4321 (IF (< |ObjectList-INDEX| ATN-PARSER::INDEX)4322 (LET ((|ObjectList-INDEX| ATN-PARSER::INDEX)4323 (*ATN-LEVEL (1+ *ATN-LEVEL))4324 (*ATN-STACK (CONS '|ObjectList| *ATN-STACK))4325 (ATN-PARSER::ATN-STRUCTURE NIL))4326 (DECLARE (SPECIAL |ObjectList-INDEX|))4327 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4328 (DECLARE (TYPE CONS *ATN-STACK))4329 (SYMBOL-MACROLET4330 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4331 (%ATN-BLOCK |ObjectList|4332 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4333 (SETF *ATN-TERM* '|ObjectList|)4334 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4335 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4336 (|ObjectList.2| (ATN-PARSER::INDEX)4337 (%ATN-NODE-BLOCK4338 |ObjectList.2|4339 (%ATN-EDGE-BLOCK4340 (POP |ObjectList|)4341 (WHEN T4342 (SETF *ATN-TERM* '|ObjectList|)4343 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4344 '|ObjectList|4345 ATN-PARSER::INDEX4346 (LIST '|Object| |Object|))4347 (LET ((ATN-PARSER::RESULT-STRUCTURE4348 (IF (EQ *ATN-REDUCE* T)4349 (|ObjectList-Constructor| |Object|)4350 (IF (EQ *ATN-REDUCE* 'CONS)4351 (CONS '|ObjectList| (DELETE NIL (LIST |Object|)))4352 '|ObjectList|))))4353 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4354 (|ObjectList.5| (ATN-PARSER::INDEX)4355 (%ATN-NODE-BLOCK4356 |ObjectList.5|4357 (%ATN-EDGE-BLOCK4358 (ATN-PARSER::JUMP |ObjectList/ObjectList.5.6|)4359 (|ObjectList/ObjectList.5.6| ATN-PARSER::INDEX))4360 (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ObjectList.2|) (|ObjectList.2| ATN-PARSER::INDEX))))4361 (|ObjectList/fail.3| (ATN-PARSER::INDEX)4362 (%ATN-NODE-BLOCK |ObjectList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4363 (|ObjectList/ObjectList.2.4| (ATN-PARSER::INDEX)4364 (%ATN-NODE-BLOCK4365 |ObjectList/ObjectList.2.4|4366 (%ATN-EDGE-BLOCK4367 (ATN-PARSER::JUMP |ObjectList/ObjectList.5.6|)4368 (|ObjectList/ObjectList.5.6| ATN-PARSER::INDEX))4369 (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ObjectList.2|) (|ObjectList.2| ATN-PARSER::INDEX))))4370 (|ObjectList/ObjectList.5.6| (ATN-PARSER::INDEX)4371 (%ATN-NODE-BLOCK4372 |ObjectList/ObjectList.5.6|4373 (%ATN-EDGE-BLOCK4374 (ATN-PARSER::WORD SPOCQ.S:\,)4375 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)4376 (SETF *ATN-TERM* 'SPOCQ.S:\,)4377 (|ObjectList/ObjectList.5.7| (1+ ATN-PARSER::INDEX)))4378 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))4379 (|ObjectList/ObjectList.5.7| (ATN-PARSER::INDEX)4380 (%ATN-NODE-BLOCK4381 |ObjectList/ObjectList.5.7|4382 (%ATN-EDGE-BLOCK4383 (PUSH |Object|)4384 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4385 (ATN-PARSE-SUBSTRUCTURE* '|Object| ATN-PARSER::INDEX)4386 (COND (ATN-PARSER::SUCCESS4387 (SETF *ATN-TERM* '|Object|)4388 (LET ((|Object708| |Object|))4389 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4390 (DESTRUCTURING-BIND4391 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4392 ATN-PARSER::RESULT-AND-INDEX4393 (WHEN ATN-PARSER::RESULT4394 (SETF |Object| (CONS ATN-PARSER::RESULT |Object|)))4395 (|ObjectList.5| ATN-PARSER::RESULT-INDEX))4396 (SETF |Object| |Object708|))))4397 (T (SETF *ATN-TERM?* '|Object|) NIL))))))4398 (|ObjectList/start.1| (ATN-PARSER::INDEX)4399 (%ATN-NODE-BLOCK4400 |ObjectList/start.1|4401 (%ATN-EDGE-BLOCK4402 (PUSH |Object|)4403 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4404 (ATN-PARSE-SUBSTRUCTURE* '|Object| ATN-PARSER::INDEX)4405 (COND (ATN-PARSER::SUCCESS4406 (SETF *ATN-TERM* '|Object|)4407 (LET ((|Object709| |Object|))4408 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4409 (DESTRUCTURING-BIND4410 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4411 ATN-PARSER::RESULT-AND-INDEX4412 (WHEN ATN-PARSER::RESULT4413 (SETF |Object| (CONS ATN-PARSER::RESULT |Object|)))4414 (|ObjectList/ObjectList.2.4| ATN-PARSER::RESULT-INDEX))4415 (SETF |Object| |Object709|))))4416 (T (SETF *ATN-TERM?* '|Object|) (|ObjectList/fail.3| ATN-PARSER::INDEX))))))))4417 (|ObjectList/start.1| ATN-PARSER::INDEX)4418 (SETF *ATN-NODE NIL)4419 NIL4420 (IF ATN-PARSER::ATN-STRUCTURE4421 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4422 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4423 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ObjectList| ATN-PARSER::INDEX *ATN-STACK))))4424 (PROGN (DEFVAR |Object-INDEX|)4425 (DEFUN |Object| (ATN-PARSER::INDEX &AUX (|GraphNode| NIL))4426 "{36} Object ::= GraphNode4427 (|GraphNode|)"4428 (DECLARE (SPECIAL |Object-INDEX|))4429 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Object-INDEX| *ATN-LEVEL))4430 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4431 (IF (< |Object-INDEX| ATN-PARSER::INDEX)4432 (LET ((|Object-INDEX| ATN-PARSER::INDEX)4433 (*ATN-LEVEL (1+ *ATN-LEVEL))4434 (*ATN-STACK (CONS '|Object| *ATN-STACK))4435 (ATN-PARSER::ATN-STRUCTURE NIL))4436 (DECLARE (SPECIAL |Object-INDEX|))4437 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4438 (DECLARE (TYPE CONS *ATN-STACK))4439 (SYMBOL-MACROLET4440 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4441 (%ATN-BLOCK |Object|4442 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4443 (SETF *ATN-TERM* '|Object|)4444 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4445 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4446 (|Object.2| (ATN-PARSER::INDEX)4447 (%ATN-NODE-BLOCK4448 |Object.2|4449 (%ATN-EDGE-BLOCK4450 (POP |Object|)4451 (WHEN T4452 (SETF *ATN-TERM* '|Object|)4453 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4454 '|Object|4455 ATN-PARSER::INDEX4456 (LIST '|GraphNode| |GraphNode|))4457 (LET ((ATN-PARSER::RESULT-STRUCTURE4458 (IF (EQ *ATN-REDUCE* T)4459 (|Object-Constructor| |GraphNode|)4460 (IF (EQ *ATN-REDUCE* 'CONS)4461 (CONS '|Object| (DELETE NIL (LIST |GraphNode|)))4462 '|Object|))))4463 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4464 (|Object/fail.3| (ATN-PARSER::INDEX)4465 (%ATN-NODE-BLOCK |Object/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4466 (|Object/start.1| (ATN-PARSER::INDEX)4467 (%ATN-NODE-BLOCK4468 |Object/start.1|4469 (%ATN-EDGE-BLOCK4470 (PUSH |GraphNode|)4471 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4472 (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)4473 (COND (ATN-PARSER::SUCCESS4474 (SETF *ATN-TERM* '|GraphNode|)4475 (LET ((|GraphNode709| |GraphNode|))4476 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4477 (DESTRUCTURING-BIND4478 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4479 ATN-PARSER::RESULT-AND-INDEX4480 (WHEN ATN-PARSER::RESULT (SETF |GraphNode| ATN-PARSER::RESULT))4481 (|Object.2| ATN-PARSER::RESULT-INDEX))4482 (SETF |GraphNode| |GraphNode709|))))4483 (T (SETF *ATN-TERM?* '|GraphNode|) (|Object/fail.3| ATN-PARSER::INDEX))))))))4484 (|Object/start.1| ATN-PARSER::INDEX)4485 (SETF *ATN-NODE NIL)4486 NIL4487 (IF ATN-PARSER::ATN-STRUCTURE4488 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4489 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4490 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Object| ATN-PARSER::INDEX *ATN-STACK))))4491 (PROGN (DEFVAR |Verb-INDEX|)4492 (DEFUN |Verb| (ATN-PARSER::INDEX &AUX (|VarOrIRIref| NIL))4493 "{37} Verb ::= (VarOrIRIref | 'a')4494 (|VarOrIRIref|)"4495 (DECLARE (SPECIAL |Verb-INDEX|))4496 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Verb-INDEX| *ATN-LEVEL))4497 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4498 (IF (< |Verb-INDEX| ATN-PARSER::INDEX)4499 (LET ((|Verb-INDEX| ATN-PARSER::INDEX)4500 (*ATN-LEVEL (1+ *ATN-LEVEL))4501 (*ATN-STACK (CONS '|Verb| *ATN-STACK))4502 (ATN-PARSER::ATN-STRUCTURE NIL))4503 (DECLARE (SPECIAL |Verb-INDEX|))4504 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4505 (DECLARE (TYPE CONS *ATN-STACK))4506 (SYMBOL-MACROLET4507 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4508 (%ATN-BLOCK |Verb|4509 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4510 (SETF *ATN-TERM* '|Verb|)4511 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4512 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4513 (|Verb.2| (ATN-PARSER::INDEX)4514 (%ATN-NODE-BLOCK4515 |Verb.2|4516 (%ATN-EDGE-BLOCK4517 (POP |Verb|)4518 (WHEN T4519 (SETF *ATN-TERM* '|Verb|)4520 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4521 '|Verb|4522 ATN-PARSER::INDEX4523 (LIST '|VarOrIRIref| |VarOrIRIref|))4524 (LET ((ATN-PARSER::RESULT-STRUCTURE4525 (IF (EQ *ATN-REDUCE* T)4526 (|Verb-Constructor| |VarOrIRIref|)4527 (IF (EQ *ATN-REDUCE* 'CONS)4528 (CONS '|Verb| (DELETE NIL (LIST |VarOrIRIref|)))4529 '|Verb|))))4530 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4531 (|Verb/fail.3| (ATN-PARSER::INDEX)4532 (%ATN-NODE-BLOCK |Verb/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4533 (|Verb/start.1| (ATN-PARSER::INDEX)4534 (%ATN-NODE-BLOCK4535 |Verb/start.1|4536 (%ATN-EDGE-BLOCK4537 OR4538 (PROGN (%ATN-EDGE-BLOCK4539 (PUSH |VarOrIRIref|)4540 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4541 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)4542 (COND (ATN-PARSER::SUCCESS4543 (SETF *ATN-TERM* '|VarOrIRIref|)4544 (LET ((|VarOrIRIref709| |VarOrIRIref|))4545 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4546 (DESTRUCTURING-BIND4547 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4548 ATN-PARSER::RESULT-AND-INDEX4549 (WHEN ATN-PARSER::RESULT4550 (SETF |VarOrIRIref| ATN-PARSER::RESULT))4551 (|Verb.2| ATN-PARSER::RESULT-INDEX))4552 (SETF |VarOrIRIref| |VarOrIRIref709|))))4553 (T (SETF *ATN-TERM?* '|VarOrIRIref|) NIL))))4554 (%ATN-EDGE-BLOCK4555 (ATN-PARSER::WORD SPOCQ.S:\a)4556 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\a)4557 (SETF *ATN-TERM* 'SPOCQ.S:\a)4558 (|Verb.2| (1+ ATN-PARSER::INDEX)))4559 (T (SETF *ATN-TERM?* 'SPOCQ.S:\a) NIL)))4560 (|Verb/fail.3| ATN-PARSER::INDEX))))))4561 (|Verb/start.1| ATN-PARSER::INDEX)4562 (SETF *ATN-NODE NIL)4563 NIL4564 (IF ATN-PARSER::ATN-STRUCTURE4565 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4566 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4567 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Verb| ATN-PARSER::INDEX *ATN-STACK))))4568 (PROGN (DEFVAR |TriplesNode-INDEX|)4569 (DEFUN |TriplesNode| (ATN-PARSER::INDEX &AUX (|BlankNodePropertyList| NIL) (|Collection| NIL))4570 "{38} TriplesNode ::= (Collection | BlankNodePropertyList)4571 (|BlankNodePropertyList| |Collection|)"4572 (DECLARE (SPECIAL |TriplesNode-INDEX|))4573 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesNode-INDEX| *ATN-LEVEL))4574 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4575 (IF (< |TriplesNode-INDEX| ATN-PARSER::INDEX)4576 (LET ((|TriplesNode-INDEX| ATN-PARSER::INDEX)4577 (*ATN-LEVEL (1+ *ATN-LEVEL))4578 (*ATN-STACK (CONS '|TriplesNode| *ATN-STACK))4579 (ATN-PARSER::ATN-STRUCTURE NIL))4580 (DECLARE (SPECIAL |TriplesNode-INDEX|))4581 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4582 (DECLARE (TYPE CONS *ATN-STACK))4583 (SYMBOL-MACROLET4584 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4585 (%ATN-BLOCK |TriplesNode|4586 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4587 (SETF *ATN-TERM* '|TriplesNode|)4588 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4589 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4590 (|TriplesNode.2| (ATN-PARSER::INDEX)4591 (%ATN-NODE-BLOCK4592 |TriplesNode.2|4593 (%ATN-EDGE-BLOCK4594 (POP |TriplesNode|)4595 (WHEN T4596 (SETF *ATN-TERM* '|TriplesNode|)4597 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4598 '|TriplesNode|4599 ATN-PARSER::INDEX4600 (LIST '|BlankNodePropertyList|4601 |BlankNodePropertyList|4602 '|Collection|4603 |Collection|))4604 (LET ((ATN-PARSER::RESULT-STRUCTURE4605 (IF (EQ *ATN-REDUCE* T)4606 (|TriplesNode-Constructor| |BlankNodePropertyList| |Collection|)4607 (IF (EQ *ATN-REDUCE* 'CONS)4608 (CONS '|TriplesNode|4609 (DELETE NIL (LIST |BlankNodePropertyList| |Collection|)))4610 '|TriplesNode|))))4611 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4612 (|TriplesNode/fail.3| (ATN-PARSER::INDEX)4613 (%ATN-NODE-BLOCK |TriplesNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4614 (|TriplesNode/start.1| (ATN-PARSER::INDEX)4615 (%ATN-NODE-BLOCK4616 |TriplesNode/start.1|4617 (%ATN-EDGE-BLOCK4618 OR4619 (PROGN (%ATN-EDGE-BLOCK4620 (PUSH |Collection|)4621 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4622 (ATN-PARSE-SUBSTRUCTURE* '|Collection| ATN-PARSER::INDEX)4623 (COND (ATN-PARSER::SUCCESS4624 (SETF *ATN-TERM* '|Collection|)4625 (LET ((|Collection709| |Collection|))4626 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4627 (DESTRUCTURING-BIND4628 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4629 ATN-PARSER::RESULT-AND-INDEX4630 (WHEN ATN-PARSER::RESULT4631 (SETF |Collection| ATN-PARSER::RESULT))4632 (|TriplesNode.2| ATN-PARSER::RESULT-INDEX))4633 (SETF |Collection| |Collection709|))))4634 (T (SETF *ATN-TERM?* '|Collection|) NIL))))4635 (%ATN-EDGE-BLOCK4636 (PUSH |BlankNodePropertyList|)4637 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4638 (ATN-PARSE-SUBSTRUCTURE* '|BlankNodePropertyList| ATN-PARSER::INDEX)4639 (COND (ATN-PARSER::SUCCESS4640 (SETF *ATN-TERM* '|BlankNodePropertyList|)4641 (LET ((|BlankNodePropertyList709| |BlankNodePropertyList|))4642 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4643 (DESTRUCTURING-BIND4644 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4645 ATN-PARSER::RESULT-AND-INDEX4646 (WHEN ATN-PARSER::RESULT4647 (SETF |BlankNodePropertyList| ATN-PARSER::RESULT))4648 (|TriplesNode.2| ATN-PARSER::RESULT-INDEX))4649 (SETF |BlankNodePropertyList| |BlankNodePropertyList709|))))4650 (T (SETF *ATN-TERM?* '|BlankNodePropertyList|) NIL))))4651 (|TriplesNode/fail.3| ATN-PARSER::INDEX))))))4652 (|TriplesNode/start.1| ATN-PARSER::INDEX)4653 (SETF *ATN-NODE NIL)4654 NIL4655 (IF ATN-PARSER::ATN-STRUCTURE4656 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4657 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4658 (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesNode| ATN-PARSER::INDEX *ATN-STACK))))4659 (PROGN (DEFVAR |BlankNodePropertyList-INDEX|)4660 (DEFUN |BlankNodePropertyList| (ATN-PARSER::INDEX &AUX (|PropertyListNotEmpty| NIL))4661 "{39} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'4662 (|PropertyListNotEmpty|)"4663 (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))4664 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNodePropertyList-INDEX| *ATN-LEVEL))4665 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4666 (IF (< |BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)4667 (LET ((|BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)4668 (*ATN-LEVEL (1+ *ATN-LEVEL))4669 (*ATN-STACK (CONS '|BlankNodePropertyList| *ATN-STACK))4670 (ATN-PARSER::ATN-STRUCTURE NIL))4671 (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))4672 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4673 (DECLARE (TYPE CONS *ATN-STACK))4674 (SYMBOL-MACROLET4675 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4676 (%ATN-BLOCK |BlankNodePropertyList|4677 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4678 (SETF *ATN-TERM* '|BlankNodePropertyList|)4679 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4680 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4681 (|BlankNodePropertyList.2| (ATN-PARSER::INDEX)4682 (%ATN-NODE-BLOCK4683 |BlankNodePropertyList.2|4684 (%ATN-EDGE-BLOCK4685 (POP |BlankNodePropertyList|)4686 (WHEN T4687 (SETF *ATN-TERM* '|BlankNodePropertyList|)4688 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4689 '|BlankNodePropertyList|4690 ATN-PARSER::INDEX4691 (LIST '|PropertyListNotEmpty| |PropertyListNotEmpty|))4692 (LET ((ATN-PARSER::RESULT-STRUCTURE4693 (IF (EQ *ATN-REDUCE* T)4694 (|BlankNodePropertyList-Constructor| |PropertyListNotEmpty|)4695 (IF (EQ *ATN-REDUCE* 'CONS)4696 (CONS '|BlankNodePropertyList|4697 (DELETE NIL (LIST |PropertyListNotEmpty|)))4698 '|BlankNodePropertyList|))))4699 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4700 (|BlankNodePropertyList/BlankNodePropertyList.2.4| (ATN-PARSER::INDEX)4701 (%ATN-NODE-BLOCK4702 |BlankNodePropertyList/BlankNodePropertyList.2.4|4703 (%ATN-EDGE-BLOCK4704 (PUSH |PropertyListNotEmpty|)4705 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4706 (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty| ATN-PARSER::INDEX)4707 (COND (ATN-PARSER::SUCCESS4708 (SETF *ATN-TERM* '|PropertyListNotEmpty|)4709 (LET ((|PropertyListNotEmpty709| |PropertyListNotEmpty|))4710 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4711 (DESTRUCTURING-BIND4712 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4713 ATN-PARSER::RESULT-AND-INDEX4714 (WHEN ATN-PARSER::RESULT4715 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))4716 (|BlankNodePropertyList/BlankNodePropertyList.2.5|4717 ATN-PARSER::RESULT-INDEX))4718 (SETF |PropertyListNotEmpty| |PropertyListNotEmpty709|))))4719 (T4720 (SETF *ATN-TERM?* '|PropertyListNotEmpty|)4721 (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX)))))))4722 (|BlankNodePropertyList/BlankNodePropertyList.2.5| (ATN-PARSER::INDEX)4723 (%ATN-NODE-BLOCK4724 |BlankNodePropertyList/BlankNodePropertyList.2.5|4725 (%ATN-EDGE-BLOCK4726 (ATN-PARSER::WORD SPOCQ.S:])4727 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:])4728 (SETF *ATN-TERM* 'SPOCQ.S:])4729 (|BlankNodePropertyList.2| (1+ ATN-PARSER::INDEX)))4730 (T4731 (SETF *ATN-TERM?* 'SPOCQ.S:])4732 (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX))))))4733 (|BlankNodePropertyList/fail.3| (ATN-PARSER::INDEX)4734 (%ATN-NODE-BLOCK4735 |BlankNodePropertyList/fail.3|4736 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4737 (|BlankNodePropertyList/start.1| (ATN-PARSER::INDEX)4738 (%ATN-NODE-BLOCK4739 |BlankNodePropertyList/start.1|4740 (%ATN-EDGE-BLOCK4741 (ATN-PARSER::WORD SPOCQ.S:[)4742 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:[)4743 (SETF *ATN-TERM* 'SPOCQ.S:[)4744 (|BlankNodePropertyList/BlankNodePropertyList.2.4| (1+ ATN-PARSER::INDEX)))4745 (T4746 (SETF *ATN-TERM?* 'SPOCQ.S:[)4747 (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX)))))))4748 (|BlankNodePropertyList/start.1| ATN-PARSER::INDEX)4749 (SETF *ATN-NODE NIL)4750 NIL4751 (IF ATN-PARSER::ATN-STRUCTURE4752 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4753 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4754 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNodePropertyList| ATN-PARSER::INDEX *ATN-STACK))))4755 (PROGN (DEFVAR |Collection-INDEX|)4756 (DEFUN |Collection| (ATN-PARSER::INDEX &AUX (|GraphNode| NIL))4757 "{40} Collection ::= '(' GraphNode+ ')'4758 (|GraphNode|)"4759 (DECLARE (SPECIAL |Collection-INDEX|))4760 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Collection-INDEX| *ATN-LEVEL))4761 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4762 (IF (< |Collection-INDEX| ATN-PARSER::INDEX)4763 (LET ((|Collection-INDEX| ATN-PARSER::INDEX)4764 (*ATN-LEVEL (1+ *ATN-LEVEL))4765 (*ATN-STACK (CONS '|Collection| *ATN-STACK))4766 (ATN-PARSER::ATN-STRUCTURE NIL))4767 (DECLARE (SPECIAL |Collection-INDEX|))4768 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4769 (DECLARE (TYPE CONS *ATN-STACK))4770 (SYMBOL-MACROLET4771 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4772 (%ATN-BLOCK |Collection|4773 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4774 (SETF *ATN-TERM* '|Collection|)4775 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4776 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4777 (|Collection.2| (ATN-PARSER::INDEX)4778 (%ATN-NODE-BLOCK4779 |Collection.2|4780 (%ATN-EDGE-BLOCK4781 (POP |Collection|)4782 (WHEN T4783 (SETF *ATN-TERM* '|Collection|)4784 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4785 '|Collection|4786 ATN-PARSER::INDEX4787 (LIST '|GraphNode| |GraphNode|))4788 (LET ((ATN-PARSER::RESULT-STRUCTURE4789 (IF (EQ *ATN-REDUCE* T)4790 (|Collection-Constructor| |GraphNode|)4791 (IF (EQ *ATN-REDUCE* 'CONS)4792 (CONS '|Collection| (DELETE NIL (LIST |GraphNode|)))4793 '|Collection|))))4794 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4795 (|Collection.6| (ATN-PARSER::INDEX)4796 (%ATN-NODE-BLOCK4797 |Collection.6|4798 (%ATN-EDGE-BLOCK4799 (PUSH |GraphNode|)4800 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4801 (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)4802 (COND (ATN-PARSER::SUCCESS4803 (SETF *ATN-TERM* '|GraphNode|)4804 (LET ((|GraphNode711| |GraphNode|))4805 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4806 (DESTRUCTURING-BIND4807 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4808 ATN-PARSER::RESULT-AND-INDEX4809 (WHEN ATN-PARSER::RESULT4810 (SETF |GraphNode| (CONS ATN-PARSER::RESULT |GraphNode|)))4811 (|Collection.6| ATN-PARSER::RESULT-INDEX))4812 (SETF |GraphNode| |GraphNode711|))))4813 (T4814 (SETF *ATN-TERM?* '|GraphNode|)4815 (|Collection/Collection.2.5| ATN-PARSER::INDEX)))))))4816 (|Collection/Collection.2.4| (ATN-PARSER::INDEX)4817 (%ATN-NODE-BLOCK4818 |Collection/Collection.2.4|4819 (%ATN-EDGE-BLOCK4820 (PUSH |GraphNode|)4821 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4822 (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)4823 (COND (ATN-PARSER::SUCCESS4824 (SETF *ATN-TERM* '|GraphNode|)4825 (LET ((|GraphNode710| |GraphNode|))4826 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4827 (DESTRUCTURING-BIND4828 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4829 ATN-PARSER::RESULT-AND-INDEX4830 (WHEN ATN-PARSER::RESULT4831 (SETF |GraphNode| (CONS ATN-PARSER::RESULT |GraphNode|)))4832 (|Collection.6| ATN-PARSER::RESULT-INDEX))4833 (SETF |GraphNode| |GraphNode710|))))4834 (T4835 (SETF *ATN-TERM?* '|GraphNode|)4836 (|Collection/fail.3| ATN-PARSER::INDEX)))))))4837 (|Collection/Collection.2.5| (ATN-PARSER::INDEX)4838 (%ATN-NODE-BLOCK4839 |Collection/Collection.2.5|4840 (%ATN-EDGE-BLOCK4841 (ATN-PARSER::WORD SPOCQ.S:\))4842 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))4843 (SETF *ATN-TERM* 'SPOCQ.S:\))4844 (|Collection.2| (1+ ATN-PARSER::INDEX)))4845 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|Collection/fail.3| ATN-PARSER::INDEX))))))4846 (|Collection/fail.3| (ATN-PARSER::INDEX)4847 (%ATN-NODE-BLOCK |Collection/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4848 (|Collection/start.1| (ATN-PARSER::INDEX)4849 (%ATN-NODE-BLOCK4850 |Collection/start.1|4851 (%ATN-EDGE-BLOCK4852 (ATN-PARSER::WORD SPOCQ.S:\()4853 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()4854 (SETF *ATN-TERM* 'SPOCQ.S:\()4855 (|Collection/Collection.2.4| (1+ ATN-PARSER::INDEX)))4856 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|Collection/fail.3| ATN-PARSER::INDEX)))))))4857 (|Collection/start.1| ATN-PARSER::INDEX)4858 (SETF *ATN-NODE NIL)4859 NIL4860 (IF ATN-PARSER::ATN-STRUCTURE4861 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4862 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4863 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Collection| ATN-PARSER::INDEX *ATN-STACK))))4864 (PROGN (DEFVAR |GraphNode-INDEX|)4865 (DEFUN |GraphNode| (ATN-PARSER::INDEX &AUX (|TriplesNode| NIL) (|VarOrTerm| NIL))4866 "{41} GraphNode ::= (VarOrTerm | TriplesNode)4867 (|TriplesNode| |VarOrTerm|)"4868 (DECLARE (SPECIAL |GraphNode-INDEX|))4869 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphNode-INDEX| *ATN-LEVEL))4870 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4871 (IF (< |GraphNode-INDEX| ATN-PARSER::INDEX)4872 (LET ((|GraphNode-INDEX| ATN-PARSER::INDEX)4873 (*ATN-LEVEL (1+ *ATN-LEVEL))4874 (*ATN-STACK (CONS '|GraphNode| *ATN-STACK))4875 (ATN-PARSER::ATN-STRUCTURE NIL))4876 (DECLARE (SPECIAL |GraphNode-INDEX|))4877 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4878 (DECLARE (TYPE CONS *ATN-STACK))4879 (SYMBOL-MACROLET4880 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4881 (%ATN-BLOCK |GraphNode|4882 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4883 (SETF *ATN-TERM* '|GraphNode|)4884 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4885 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4886 (|GraphNode.2| (ATN-PARSER::INDEX)4887 (%ATN-NODE-BLOCK4888 |GraphNode.2|4889 (%ATN-EDGE-BLOCK4890 (POP |GraphNode|)4891 (WHEN T4892 (SETF *ATN-TERM* '|GraphNode|)4893 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4894 '|GraphNode|4895 ATN-PARSER::INDEX4896 (LIST '|TriplesNode| |TriplesNode| '|VarOrTerm| |VarOrTerm|))4897 (LET ((ATN-PARSER::RESULT-STRUCTURE4898 (IF (EQ *ATN-REDUCE* T)4899 (|GraphNode-Constructor| |TriplesNode| |VarOrTerm|)4900 (IF (EQ *ATN-REDUCE* 'CONS)4901 (CONS '|GraphNode| (DELETE NIL (LIST |TriplesNode| |VarOrTerm|)))4902 '|GraphNode|))))4903 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4904 (|GraphNode/fail.3| (ATN-PARSER::INDEX)4905 (%ATN-NODE-BLOCK |GraphNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4906 (|GraphNode/start.1| (ATN-PARSER::INDEX)4907 (%ATN-NODE-BLOCK4908 |GraphNode/start.1|4909 (%ATN-EDGE-BLOCK4910 OR4911 (PROGN (%ATN-EDGE-BLOCK4912 (PUSH |VarOrTerm|)4913 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4914 (ATN-PARSE-SUBSTRUCTURE* '|VarOrTerm| ATN-PARSER::INDEX)4915 (COND (ATN-PARSER::SUCCESS4916 (SETF *ATN-TERM* '|VarOrTerm|)4917 (LET ((|VarOrTerm711| |VarOrTerm|))4918 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4919 (DESTRUCTURING-BIND4920 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4921 ATN-PARSER::RESULT-AND-INDEX4922 (WHEN ATN-PARSER::RESULT (SETF |VarOrTerm| ATN-PARSER::RESULT))4923 (|GraphNode.2| ATN-PARSER::RESULT-INDEX))4924 (SETF |VarOrTerm| |VarOrTerm711|))))4925 (T (SETF *ATN-TERM?* '|VarOrTerm|) NIL))))4926 (%ATN-EDGE-BLOCK4927 (PUSH |TriplesNode|)4928 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4929 (ATN-PARSE-SUBSTRUCTURE* '|TriplesNode| ATN-PARSER::INDEX)4930 (COND (ATN-PARSER::SUCCESS4931 (SETF *ATN-TERM* '|TriplesNode|)4932 (LET ((|TriplesNode711| |TriplesNode|))4933 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4934 (DESTRUCTURING-BIND4935 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4936 ATN-PARSER::RESULT-AND-INDEX4937 (WHEN ATN-PARSER::RESULT4938 (SETF |TriplesNode| ATN-PARSER::RESULT))4939 (|GraphNode.2| ATN-PARSER::RESULT-INDEX))4940 (SETF |TriplesNode| |TriplesNode711|))))4941 (T (SETF *ATN-TERM?* '|TriplesNode|) NIL))))4942 (|GraphNode/fail.3| ATN-PARSER::INDEX))))))4943 (|GraphNode/start.1| ATN-PARSER::INDEX)4944 (SETF *ATN-NODE NIL)4945 NIL4946 (IF ATN-PARSER::ATN-STRUCTURE4947 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4948 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4949 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphNode| ATN-PARSER::INDEX *ATN-STACK))))4950 (PROGN (DEFVAR |VarOrTerm-INDEX|)4951 (DEFUN |VarOrTerm| (ATN-PARSER::INDEX &AUX (|GraphTerm| NIL) (|Var| NIL))4952 "{42} VarOrTerm ::= (Var | GraphTerm)4953 (|GraphTerm| |Var|)"4954 (DECLARE (SPECIAL |VarOrTerm-INDEX|))4955 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VarOrTerm-INDEX| *ATN-LEVEL))4956 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4957 (IF (< |VarOrTerm-INDEX| ATN-PARSER::INDEX)4958 (LET ((|VarOrTerm-INDEX| ATN-PARSER::INDEX)4959 (*ATN-LEVEL (1+ *ATN-LEVEL))4960 (*ATN-STACK (CONS '|VarOrTerm| *ATN-STACK))4961 (ATN-PARSER::ATN-STRUCTURE NIL))4962 (DECLARE (SPECIAL |VarOrTerm-INDEX|))4963 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4964 (DECLARE (TYPE CONS *ATN-STACK))4965 (SYMBOL-MACROLET4966 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4967 (%ATN-BLOCK |VarOrTerm|4968 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4969 (SETF *ATN-TERM* '|VarOrTerm|)4970 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4971 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4972 (|VarOrTerm.2| (ATN-PARSER::INDEX)4973 (%ATN-NODE-BLOCK4974 |VarOrTerm.2|4975 (%ATN-EDGE-BLOCK4976 (POP |VarOrTerm|)4977 (WHEN T4978 (SETF *ATN-TERM* '|VarOrTerm|)4979 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4980 '|VarOrTerm|4981 ATN-PARSER::INDEX4982 (LIST '|GraphTerm| |GraphTerm| '|Var| |Var|))4983 (LET ((ATN-PARSER::RESULT-STRUCTURE4984 (IF (EQ *ATN-REDUCE* T)4985 (|VarOrTerm-Constructor| |GraphTerm| |Var|)4986 (IF (EQ *ATN-REDUCE* 'CONS)4987 (CONS '|VarOrTerm| (DELETE NIL (LIST |GraphTerm| |Var|)))4988 '|VarOrTerm|))))4989 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4990 (|VarOrTerm/fail.3| (ATN-PARSER::INDEX)4991 (%ATN-NODE-BLOCK |VarOrTerm/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4992 (|VarOrTerm/start.1| (ATN-PARSER::INDEX)4993 (%ATN-NODE-BLOCK4994 |VarOrTerm/start.1|4995 (%ATN-EDGE-BLOCK4996 OR4997 (PROGN (%ATN-EDGE-BLOCK4998 (TEST |Var|)4999 (COND ((|IS-Var| ATN-PARSER::|item|)5000 (SETF *ATN-TERM* '|Var|)5001 (SETF |Var|5002 (IF (EQ *ATN-REDUCE* T)5003 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)5004 (IF (EQ *ATN-REDUCE* 'CONS)5005 (LIST '|Var| ATN-PARSER::|item|)5006 '|Var|)))5007 (|VarOrTerm.2| (1+ ATN-PARSER::INDEX)))5008 (T (SETF *ATN-TERM?* '|Var|) NIL)))5009 (%ATN-EDGE-BLOCK5010 (PUSH |GraphTerm|)5011 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5012 (ATN-PARSE-SUBSTRUCTURE* '|GraphTerm| ATN-PARSER::INDEX)5013 (COND (ATN-PARSER::SUCCESS5014 (SETF *ATN-TERM* '|GraphTerm|)5015 (LET ((|GraphTerm711| |GraphTerm|))5016 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5017 (DESTRUCTURING-BIND5018 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5019 ATN-PARSER::RESULT-AND-INDEX5020 (WHEN ATN-PARSER::RESULT (SETF |GraphTerm| ATN-PARSER::RESULT))5021 (|VarOrTerm.2| ATN-PARSER::RESULT-INDEX))5022 (SETF |GraphTerm| |GraphTerm711|))))5023 (T (SETF *ATN-TERM?* '|GraphTerm|) NIL))))5024 (|VarOrTerm/fail.3| ATN-PARSER::INDEX))))))5025 (|VarOrTerm/start.1| ATN-PARSER::INDEX)5026 (SETF *ATN-NODE NIL)5027 NIL5028 (IF ATN-PARSER::ATN-STRUCTURE5029 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5030 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5031 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VarOrTerm| ATN-PARSER::INDEX *ATN-STACK))))5032 (PROGN (DEFVAR |VarOrIRIref-INDEX|)5033 (DEFUN |VarOrIRIref| (ATN-PARSER::INDEX &AUX (|IRIref| NIL) (|Var| NIL))5034 "{43} VarOrIRIref ::= (Var | IRIref)5035 (|IRIref| |Var|)"5036 (DECLARE (SPECIAL |VarOrIRIref-INDEX|))5037 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VarOrIRIref-INDEX| *ATN-LEVEL))5038 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5039 (IF (< |VarOrIRIref-INDEX| ATN-PARSER::INDEX)5040 (LET ((|VarOrIRIref-INDEX| ATN-PARSER::INDEX)5041 (*ATN-LEVEL (1+ *ATN-LEVEL))5042 (*ATN-STACK (CONS '|VarOrIRIref| *ATN-STACK))5043 (ATN-PARSER::ATN-STRUCTURE NIL))5044 (DECLARE (SPECIAL |VarOrIRIref-INDEX|))5045 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5046 (DECLARE (TYPE CONS *ATN-STACK))5047 (SYMBOL-MACROLET5048 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5049 (%ATN-BLOCK |VarOrIRIref|5050 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5051 (SETF *ATN-TERM* '|VarOrIRIref|)5052 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5053 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5054 (|VarOrIRIref.2| (ATN-PARSER::INDEX)5055 (%ATN-NODE-BLOCK5056 |VarOrIRIref.2|5057 (%ATN-EDGE-BLOCK5058 (POP |VarOrIRIref|)5059 (WHEN T5060 (SETF *ATN-TERM* '|VarOrIRIref|)5061 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5062 '|VarOrIRIref|5063 ATN-PARSER::INDEX5064 (LIST '|IRIref| |IRIref| '|Var| |Var|))5065 (LET ((ATN-PARSER::RESULT-STRUCTURE5066 (IF (EQ *ATN-REDUCE* T)5067 (|VarOrIRIref-Constructor| |IRIref| |Var|)5068 (IF (EQ *ATN-REDUCE* 'CONS)5069 (CONS '|VarOrIRIref| (DELETE NIL (LIST |IRIref| |Var|)))5070 '|VarOrIRIref|))))5071 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5072 (|VarOrIRIref/fail.3| (ATN-PARSER::INDEX)5073 (%ATN-NODE-BLOCK |VarOrIRIref/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5074 (|VarOrIRIref/start.1| (ATN-PARSER::INDEX)5075 (%ATN-NODE-BLOCK5076 |VarOrIRIref/start.1|5077 (%ATN-EDGE-BLOCK5078 OR5079 (PROGN (%ATN-EDGE-BLOCK5080 (TEST |Var|)5081 (COND ((|IS-Var| ATN-PARSER::|item|)5082 (SETF *ATN-TERM* '|Var|)5083 (SETF |Var|5084 (IF (EQ *ATN-REDUCE* T)5085 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)5086 (IF (EQ *ATN-REDUCE* 'CONS)5087 (LIST '|Var| ATN-PARSER::|item|)5088 '|Var|)))5089 (|VarOrIRIref.2| (1+ ATN-PARSER::INDEX)))5090 (T (SETF *ATN-TERM?* '|Var|) NIL)))5091 (%ATN-EDGE-BLOCK5092 (PUSH |IRIref|)5093 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5094 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)5095 (COND (ATN-PARSER::SUCCESS5096 (SETF *ATN-TERM* '|IRIref|)5097 (LET ((|IRIref711| |IRIref|))5098 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5099 (DESTRUCTURING-BIND5100 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5101 ATN-PARSER::RESULT-AND-INDEX5102 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))5103 (|VarOrIRIref.2| ATN-PARSER::RESULT-INDEX))5104 (SETF |IRIref| |IRIref711|))))5105 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))5106 (|VarOrIRIref/fail.3| ATN-PARSER::INDEX))))))5107 (|VarOrIRIref/start.1| ATN-PARSER::INDEX)5108 (SETF *ATN-NODE NIL)5109 NIL5110 (IF ATN-PARSER::ATN-STRUCTURE5111 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5112 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5113 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VarOrIRIref| ATN-PARSER::INDEX *ATN-STACK))))5114 (PROGN (DEFVAR |GraphTerm-INDEX|)5115 (DEFUN |GraphTerm| (ATN-PARSER::INDEX &AUX (|BlankNode| NIL) (|BooleanLiteral| NIL) (|IRIref| NIL) (NILLIST NIL)5116 (|NumericLiteral| NIL) (|RDFLiteral| NIL))5117 "{45} GraphTerm ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST)5118 (|BlankNode| |BooleanLiteral| |IRIref| NILLIST |NumericLiteral| |RDFLiteral|)"5119 (DECLARE (SPECIAL |GraphTerm-INDEX|))5120 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphTerm-INDEX| *ATN-LEVEL))5121 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5122 (IF (< |GraphTerm-INDEX| ATN-PARSER::INDEX)5123 (LET ((|GraphTerm-INDEX| ATN-PARSER::INDEX)5124 (*ATN-LEVEL (1+ *ATN-LEVEL))5125 (*ATN-STACK (CONS '|GraphTerm| *ATN-STACK))5126 (ATN-PARSER::ATN-STRUCTURE NIL))5127 (DECLARE (SPECIAL |GraphTerm-INDEX|))5128 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5129 (DECLARE (TYPE CONS *ATN-STACK))5130 (SYMBOL-MACROLET5131 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5132 (%ATN-BLOCK |GraphTerm|5133 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5134 (SETF *ATN-TERM* '|GraphTerm|)5135 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5136 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5137 (|GraphTerm.2| (ATN-PARSER::INDEX)5138 (%ATN-NODE-BLOCK5139 |GraphTerm.2|5140 (%ATN-EDGE-BLOCK5141 (POP |GraphTerm|)5142 (WHEN T5143 (SETF *ATN-TERM* '|GraphTerm|)5144 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5145 '|GraphTerm|5146 ATN-PARSER::INDEX5147 (LIST '|BlankNode|5148 |BlankNode|5149 '|BooleanLiteral|5150 |BooleanLiteral|5151 '|IRIref|5152 |IRIref|5153 'NILLIST5154 NILLIST5155 '|NumericLiteral|5156 |NumericLiteral|5157 '|RDFLiteral|5158 |RDFLiteral|))5159 (LET ((ATN-PARSER::RESULT-STRUCTURE5160 (IF (EQ *ATN-REDUCE* T)5161 (|GraphTerm-Constructor|5162 |BlankNode|5163 |BooleanLiteral|5164 |IRIref|5165 NILLIST5166 |NumericLiteral|5167 |RDFLiteral|)5168 (IF (EQ *ATN-REDUCE* 'CONS)5169 (CONS '|GraphTerm|5170 (DELETE NIL5171 (LIST |BlankNode|5172 |BooleanLiteral|5173 |IRIref|5174 NILLIST5175 |NumericLiteral|5176 |RDFLiteral|)))5177 '|GraphTerm|))))5178 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5179 (|GraphTerm/fail.3| (ATN-PARSER::INDEX)5180 (%ATN-NODE-BLOCK |GraphTerm/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5181 (|GraphTerm/start.1| (ATN-PARSER::INDEX)5182 (%ATN-NODE-BLOCK5183 |GraphTerm/start.1|5184 (%ATN-EDGE-BLOCK5185 OR5186 (PROGN (%ATN-EDGE-BLOCK5187 (PUSH |IRIref|)5188 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5189 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)5190 (COND (ATN-PARSER::SUCCESS5191 (SETF *ATN-TERM* '|IRIref|)5192 (LET ((|IRIref712| |IRIref|))5193 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5194 (DESTRUCTURING-BIND5195 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5196 ATN-PARSER::RESULT-AND-INDEX5197 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))5198 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))5199 (SETF |IRIref| |IRIref712|))))5200 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))5201 (%ATN-EDGE-BLOCK5202 (PUSH |RDFLiteral|)5203 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5204 (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral| ATN-PARSER::INDEX)5205 (COND (ATN-PARSER::SUCCESS5206 (SETF *ATN-TERM* '|RDFLiteral|)5207 (LET ((|RDFLiteral712| |RDFLiteral|))5208 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5209 (DESTRUCTURING-BIND5210 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5211 ATN-PARSER::RESULT-AND-INDEX5212 (WHEN ATN-PARSER::RESULT5213 (SETF |RDFLiteral| ATN-PARSER::RESULT))5214 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))5215 (SETF |RDFLiteral| |RDFLiteral712|))))5216 (T (SETF *ATN-TERM?* '|RDFLiteral|) NIL))))5217 (%ATN-EDGE-BLOCK5218 (ATN-PARSER::CAT |NumericLiteral|)5219 (COND ((|IS-NumericLiteral| ATN-PARSER::|item|)5220 (SETF *ATN-TERM* '|NumericLiteral|)5221 (SETF |NumericLiteral|5222 (IF (EQ *ATN-REDUCE* T)5223 (ATN-REDUCE-ITEM5224 #'|NumericLiteral-Constructor|5225 ATN-PARSER::|item|)5226 (IF (EQ *ATN-REDUCE* 'CONS)5227 (LIST '|NumericLiteral| ATN-PARSER::|item|)5228 '|NumericLiteral|)))5229 (|GraphTerm.2| (1+ ATN-PARSER::INDEX)))5230 (T (SETF *ATN-TERM* '|NumericLiteral|) NIL)))5231 (%ATN-EDGE-BLOCK5232 (ATN-PARSER::CAT |BooleanLiteral|)5233 (COND ((|IS-BooleanLiteral| ATN-PARSER::|item|)5234 (SETF *ATN-TERM* '|BooleanLiteral|)5235 (SETF |BooleanLiteral|5236 (IF (EQ *ATN-REDUCE* T)5237 (ATN-REDUCE-ITEM5238 #'|BooleanLiteral-Constructor|5239 ATN-PARSER::|item|)5240 (IF (EQ *ATN-REDUCE* 'CONS)5241 (LIST '|BooleanLiteral| ATN-PARSER::|item|)5242 '|BooleanLiteral|)))5243 (|GraphTerm.2| (1+ ATN-PARSER::INDEX)))5244 (T (SETF *ATN-TERM* '|BooleanLiteral|) NIL)))5245 (%ATN-EDGE-BLOCK5246 (PUSH |BlankNode|)5247 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5248 (ATN-PARSE-SUBSTRUCTURE* '|BlankNode| ATN-PARSER::INDEX)5249 (COND (ATN-PARSER::SUCCESS5250 (SETF *ATN-TERM* '|BlankNode|)5251 (LET ((|BlankNode712| |BlankNode|))5252 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5253 (DESTRUCTURING-BIND5254 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5255 ATN-PARSER::RESULT-AND-INDEX5256 (WHEN ATN-PARSER::RESULT (SETF |BlankNode| ATN-PARSER::RESULT))5257 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))5258 (SETF |BlankNode| |BlankNode712|))))5259 (T (SETF *ATN-TERM?* '|BlankNode|) NIL))))5260 (%ATN-EDGE-BLOCK5261 (PUSH NILLIST)5262 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5263 (ATN-PARSE-SUBSTRUCTURE* 'NILLIST ATN-PARSER::INDEX)5264 (COND (ATN-PARSER::SUCCESS5265 (SETF *ATN-TERM* 'NILLIST)5266 (LET ((NILLIST712 NILLIST))5267 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5268 (DESTRUCTURING-BIND5269 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5270 ATN-PARSER::RESULT-AND-INDEX5271 (WHEN ATN-PARSER::RESULT (SETF NILLIST ATN-PARSER::RESULT))5272 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))5273 (SETF NILLIST NILLIST712))))5274 (T (SETF *ATN-TERM?* 'NILLIST) NIL))))5275 (|GraphTerm/fail.3| ATN-PARSER::INDEX))))))5276 (|GraphTerm/start.1| ATN-PARSER::INDEX)5277 (SETF *ATN-NODE NIL)5278 NIL5279 (IF ATN-PARSER::ATN-STRUCTURE5280 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5281 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5282 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphTerm| ATN-PARSER::INDEX *ATN-STACK))))5283 (PROGN (DEFVAR |Expression-INDEX|)5284 (DEFUN |Expression| (ATN-PARSER::INDEX &AUX (|ConditionalOrExpression| NIL))5285 "{46} Expression ::= ConditionalOrExpression5286 (|ConditionalOrExpression|)"5287 (DECLARE (SPECIAL |Expression-INDEX|))5288 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Expression-INDEX| *ATN-LEVEL))5289 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5290 (IF (< |Expression-INDEX| ATN-PARSER::INDEX)5291 (LET ((|Expression-INDEX| ATN-PARSER::INDEX)5292 (*ATN-LEVEL (1+ *ATN-LEVEL))5293 (*ATN-STACK (CONS '|Expression| *ATN-STACK))5294 (ATN-PARSER::ATN-STRUCTURE NIL))5295 (DECLARE (SPECIAL |Expression-INDEX|))5296 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5297 (DECLARE (TYPE CONS *ATN-STACK))5298 (SYMBOL-MACROLET5299 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5300 (%ATN-BLOCK |Expression|5301 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5302 (SETF *ATN-TERM* '|Expression|)5303 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5304 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5305 (|Expression.2| (ATN-PARSER::INDEX)5306 (%ATN-NODE-BLOCK5307 |Expression.2|5308 (%ATN-EDGE-BLOCK5309 (POP |Expression|)5310 (WHEN T5311 (SETF *ATN-TERM* '|Expression|)5312 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5313 '|Expression|5314 ATN-PARSER::INDEX5315 (LIST '|ConditionalOrExpression| |ConditionalOrExpression|))5316 (LET ((ATN-PARSER::RESULT-STRUCTURE5317 (IF (EQ *ATN-REDUCE* T)5318 (|Expression-Constructor| |ConditionalOrExpression|)5319 (IF (EQ *ATN-REDUCE* 'CONS)5320 (CONS '|Expression| (DELETE NIL (LIST |ConditionalOrExpression|)))5321 '|Expression|))))5322 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5323 (|Expression/fail.3| (ATN-PARSER::INDEX)5324 (%ATN-NODE-BLOCK |Expression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5325 (|Expression/start.1| (ATN-PARSER::INDEX)5326 (%ATN-NODE-BLOCK5327 |Expression/start.1|5328 (%ATN-EDGE-BLOCK5329 (PUSH |ConditionalOrExpression|)5330 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5331 (ATN-PARSE-SUBSTRUCTURE* '|ConditionalOrExpression| ATN-PARSER::INDEX)5332 (COND (ATN-PARSER::SUCCESS5333 (SETF *ATN-TERM* '|ConditionalOrExpression|)5334 (LET ((|ConditionalOrExpression712| |ConditionalOrExpression|))5335 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5336 (DESTRUCTURING-BIND5337 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5338 ATN-PARSER::RESULT-AND-INDEX5339 (WHEN ATN-PARSER::RESULT5340 (SETF |ConditionalOrExpression| ATN-PARSER::RESULT))5341 (|Expression.2| ATN-PARSER::RESULT-INDEX))5342 (SETF |ConditionalOrExpression| |ConditionalOrExpression712|))))5343 (T5344 (SETF *ATN-TERM?* '|ConditionalOrExpression|)5345 (|Expression/fail.3| ATN-PARSER::INDEX))))))))5346 (|Expression/start.1| ATN-PARSER::INDEX)5347 (SETF *ATN-NODE NIL)5348 NIL5349 (IF ATN-PARSER::ATN-STRUCTURE5350 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5351 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5352 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Expression| ATN-PARSER::INDEX *ATN-STACK))))5353 (PROGN (DEFVAR |ConditionalOrExpression-INDEX|)5354 (DEFUN |ConditionalOrExpression| (ATN-PARSER::INDEX &AUX (|ConditionalAndExpression| NIL))5355 "{47} ConditionalOrExpression ::= ConditionalAndExpression ('||'5356 ConditionalAndExpression)*5357 (|ConditionalAndExpression|)"5358 (DECLARE (SPECIAL |ConditionalOrExpression-INDEX|))5359 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConditionalOrExpression-INDEX| *ATN-LEVEL))5360 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5361 (IF (< |ConditionalOrExpression-INDEX| ATN-PARSER::INDEX)5362 (LET ((|ConditionalOrExpression-INDEX| ATN-PARSER::INDEX)5363 (*ATN-LEVEL (1+ *ATN-LEVEL))5364 (*ATN-STACK (CONS '|ConditionalOrExpression| *ATN-STACK))5365 (ATN-PARSER::ATN-STRUCTURE NIL))5366 (DECLARE (SPECIAL |ConditionalOrExpression-INDEX|))5367 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5368 (DECLARE (TYPE CONS *ATN-STACK))5369 (SYMBOL-MACROLET5370 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5371 (%ATN-BLOCK |ConditionalOrExpression|5372 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5373 (SETF *ATN-TERM* '|ConditionalOrExpression|)5374 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5375 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5376 (|ConditionalOrExpression.2| (ATN-PARSER::INDEX)5377 (%ATN-NODE-BLOCK5378 |ConditionalOrExpression.2|5379 (%ATN-EDGE-BLOCK5380 (POP |ConditionalOrExpression|)5381 (WHEN T5382 (SETF *ATN-TERM* '|ConditionalOrExpression|)5383 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5384 '|ConditionalOrExpression|5385 ATN-PARSER::INDEX5386 (LIST '|ConditionalAndExpression| |ConditionalAndExpression|))5387 (LET ((ATN-PARSER::RESULT-STRUCTURE5388 (IF (EQ *ATN-REDUCE* T)5389 (|ConditionalOrExpression-Constructor| |ConditionalAndExpression|)5390 (IF (EQ *ATN-REDUCE* 'CONS)5391 (CONS '|ConditionalOrExpression|5392 (DELETE NIL (LIST |ConditionalAndExpression|)))5393 '|ConditionalOrExpression|))))5394 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5395 (|ConditionalOrExpression.5| (ATN-PARSER::INDEX)5396 (%ATN-NODE-BLOCK5397 |ConditionalOrExpression.5|5398 (%ATN-EDGE-BLOCK5399 (ATN-PARSER::JUMP |ConditionalOrExpression/ConditionalOrExpression.5.6|)5400 (|ConditionalOrExpression/ConditionalOrExpression.5.6| ATN-PARSER::INDEX))5401 (%ATN-EDGE-BLOCK5402 (ATN-PARSER::JUMP |ConditionalOrExpression.2|)5403 (|ConditionalOrExpression.2| ATN-PARSER::INDEX))))5404 (|ConditionalOrExpression/ConditionalOrExpression.2.4| (ATN-PARSER::INDEX)5405 (%ATN-NODE-BLOCK5406 |ConditionalOrExpression/ConditionalOrExpression.2.4|5407 (%ATN-EDGE-BLOCK5408 (ATN-PARSER::JUMP |ConditionalOrExpression/ConditionalOrExpression.5.6|)5409 (|ConditionalOrExpression/ConditionalOrExpression.5.6| ATN-PARSER::INDEX))5410 (%ATN-EDGE-BLOCK5411 (ATN-PARSER::JUMP |ConditionalOrExpression.2|)5412 (|ConditionalOrExpression.2| ATN-PARSER::INDEX))))5413 (|ConditionalOrExpression/ConditionalOrExpression.5.6| (ATN-PARSER::INDEX)5414 (%ATN-NODE-BLOCK5415 |ConditionalOrExpression/ConditionalOrExpression.5.6|5416 (%ATN-EDGE-BLOCK5417 (ATN-PARSER::WORD SPOCQ.S:|\|\||)5418 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|\|\||)5419 (SETF *ATN-TERM* 'SPOCQ.S:|\|\||)5420 (|ConditionalOrExpression/ConditionalOrExpression.5.7| (1+ ATN-PARSER::INDEX)))5421 (T (SETF *ATN-TERM?* 'SPOCQ.S:|\|\||) NIL)))))5422 (|ConditionalOrExpression/ConditionalOrExpression.5.7| (ATN-PARSER::INDEX)5423 (%ATN-NODE-BLOCK5424 |ConditionalOrExpression/ConditionalOrExpression.5.7|5425 (%ATN-EDGE-BLOCK5426 (PUSH |ConditionalAndExpression|)5427 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5428 (ATN-PARSE-SUBSTRUCTURE* '|ConditionalAndExpression| ATN-PARSER::INDEX)5429 (COND (ATN-PARSER::SUCCESS5430 (SETF *ATN-TERM* '|ConditionalAndExpression|)5431 (LET ((|ConditionalAndExpression712| |ConditionalAndExpression|))5432 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5433 (DESTRUCTURING-BIND5434 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5435 ATN-PARSER::RESULT-AND-INDEX5436 (WHEN ATN-PARSER::RESULT5437 (SETF |ConditionalAndExpression|5438 (CONS ATN-PARSER::RESULT |ConditionalAndExpression|)))5439 (|ConditionalOrExpression.5| ATN-PARSER::RESULT-INDEX))5440 (SETF |ConditionalAndExpression| |ConditionalAndExpression712|))))5441 (T (SETF *ATN-TERM?* '|ConditionalAndExpression|) NIL))))))5442 (|ConditionalOrExpression/fail.3| (ATN-PARSER::INDEX)5443 (%ATN-NODE-BLOCK5444 |ConditionalOrExpression/fail.3|5445 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5446 (|ConditionalOrExpression/start.1| (ATN-PARSER::INDEX)5447 (%ATN-NODE-BLOCK5448 |ConditionalOrExpression/start.1|5449 (%ATN-EDGE-BLOCK5450 (PUSH |ConditionalAndExpression|)5451 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5452 (ATN-PARSE-SUBSTRUCTURE* '|ConditionalAndExpression| ATN-PARSER::INDEX)5453 (COND (ATN-PARSER::SUCCESS5454 (SETF *ATN-TERM* '|ConditionalAndExpression|)5455 (LET ((|ConditionalAndExpression713| |ConditionalAndExpression|))5456 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5457 (DESTRUCTURING-BIND5458 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5459 ATN-PARSER::RESULT-AND-INDEX5460 (WHEN ATN-PARSER::RESULT5461 (SETF |ConditionalAndExpression|5462 (CONS ATN-PARSER::RESULT |ConditionalAndExpression|)))5463 (|ConditionalOrExpression/ConditionalOrExpression.2.4|5464 ATN-PARSER::RESULT-INDEX))5465 (SETF |ConditionalAndExpression| |ConditionalAndExpression713|))))5466 (T5467 (SETF *ATN-TERM?* '|ConditionalAndExpression|)5468 (|ConditionalOrExpression/fail.3| ATN-PARSER::INDEX))))))))5469 (|ConditionalOrExpression/start.1| ATN-PARSER::INDEX)5470 (SETF *ATN-NODE NIL)5471 NIL5472 (IF ATN-PARSER::ATN-STRUCTURE5473 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5474 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5475 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConditionalOrExpression| ATN-PARSER::INDEX *ATN-STACK))))5476 (PROGN (DEFVAR |ConditionalAndExpression-INDEX|)5477 (DEFUN |ConditionalAndExpression| (ATN-PARSER::INDEX &AUX (|ValueLogical| NIL))5478 "{48} ConditionalAndExpression ::= ValueLogical ('&&' ValueLogical)*5479 (|ValueLogical|)"5480 (DECLARE (SPECIAL |ConditionalAndExpression-INDEX|))5481 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConditionalAndExpression-INDEX| *ATN-LEVEL))5482 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5483 (IF (< |ConditionalAndExpression-INDEX| ATN-PARSER::INDEX)5484 (LET ((|ConditionalAndExpression-INDEX| ATN-PARSER::INDEX)5485 (*ATN-LEVEL (1+ *ATN-LEVEL))5486 (*ATN-STACK (CONS '|ConditionalAndExpression| *ATN-STACK))5487 (ATN-PARSER::ATN-STRUCTURE NIL))5488 (DECLARE (SPECIAL |ConditionalAndExpression-INDEX|))5489 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5490 (DECLARE (TYPE CONS *ATN-STACK))5491 (SYMBOL-MACROLET5492 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5493 (%ATN-BLOCK |ConditionalAndExpression|5494 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5495 (SETF *ATN-TERM* '|ConditionalAndExpression|)5496 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5497 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5498 (|ConditionalAndExpression.2| (ATN-PARSER::INDEX)5499 (%ATN-NODE-BLOCK5500 |ConditionalAndExpression.2|5501 (%ATN-EDGE-BLOCK5502 (POP |ConditionalAndExpression|)5503 (WHEN T5504 (SETF *ATN-TERM* '|ConditionalAndExpression|)5505 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5506 '|ConditionalAndExpression|5507 ATN-PARSER::INDEX5508 (LIST '|ValueLogical| |ValueLogical|))5509 (LET ((ATN-PARSER::RESULT-STRUCTURE5510 (IF (EQ *ATN-REDUCE* T)5511 (|ConditionalAndExpression-Constructor| |ValueLogical|)5512 (IF (EQ *ATN-REDUCE* 'CONS)5513 (CONS '|ConditionalAndExpression| (DELETE NIL (LIST |ValueLogical|)))5514 '|ConditionalAndExpression|))))5515 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5516 (|ConditionalAndExpression.5| (ATN-PARSER::INDEX)5517 (%ATN-NODE-BLOCK5518 |ConditionalAndExpression.5|5519 (%ATN-EDGE-BLOCK5520 (ATN-PARSER::JUMP |ConditionalAndExpression/ConditionalAndExpression.5.6|)5521 (|ConditionalAndExpression/ConditionalAndExpression.5.6| ATN-PARSER::INDEX))5522 (%ATN-EDGE-BLOCK5523 (ATN-PARSER::JUMP |ConditionalAndExpression.2|)5524 (|ConditionalAndExpression.2| ATN-PARSER::INDEX))))5525 (|ConditionalAndExpression/ConditionalAndExpression.2.4| (ATN-PARSER::INDEX)5526 (%ATN-NODE-BLOCK5527 |ConditionalAndExpression/ConditionalAndExpression.2.4|5528 (%ATN-EDGE-BLOCK5529 (ATN-PARSER::JUMP |ConditionalAndExpression/ConditionalAndExpression.5.6|)5530 (|ConditionalAndExpression/ConditionalAndExpression.5.6| ATN-PARSER::INDEX))5531 (%ATN-EDGE-BLOCK5532 (ATN-PARSER::JUMP |ConditionalAndExpression.2|)5533 (|ConditionalAndExpression.2| ATN-PARSER::INDEX))))5534 (|ConditionalAndExpression/ConditionalAndExpression.5.6| (ATN-PARSER::INDEX)5535 (%ATN-NODE-BLOCK5536 |ConditionalAndExpression/ConditionalAndExpression.5.6|5537 (%ATN-EDGE-BLOCK5538 (ATN-PARSER::WORD SPOCQ.S:&&)5539 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:&&)5540 (SETF *ATN-TERM* 'SPOCQ.S:&&)5541 (|ConditionalAndExpression/ConditionalAndExpression.5.7|5542 (1+ ATN-PARSER::INDEX)))5543 (T (SETF *ATN-TERM?* 'SPOCQ.S:&&) NIL)))))5544 (|ConditionalAndExpression/ConditionalAndExpression.5.7| (ATN-PARSER::INDEX)5545 (%ATN-NODE-BLOCK5546 |ConditionalAndExpression/ConditionalAndExpression.5.7|5547 (%ATN-EDGE-BLOCK5548 (PUSH |ValueLogical|)5549 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5550 (ATN-PARSE-SUBSTRUCTURE* '|ValueLogical| ATN-PARSER::INDEX)5551 (COND (ATN-PARSER::SUCCESS5552 (SETF *ATN-TERM* '|ValueLogical|)5553 (LET ((|ValueLogical713| |ValueLogical|))5554 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5555 (DESTRUCTURING-BIND5556 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5557 ATN-PARSER::RESULT-AND-INDEX5558 (WHEN ATN-PARSER::RESULT5559 (SETF |ValueLogical| (CONS ATN-PARSER::RESULT |ValueLogical|)))5560 (|ConditionalAndExpression.5| ATN-PARSER::RESULT-INDEX))5561 (SETF |ValueLogical| |ValueLogical713|))))5562 (T (SETF *ATN-TERM?* '|ValueLogical|) NIL))))))5563 (|ConditionalAndExpression/fail.3| (ATN-PARSER::INDEX)5564 (%ATN-NODE-BLOCK5565 |ConditionalAndExpression/fail.3|5566 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5567 (|ConditionalAndExpression/start.1| (ATN-PARSER::INDEX)5568 (%ATN-NODE-BLOCK5569 |ConditionalAndExpression/start.1|5570 (%ATN-EDGE-BLOCK5571 (PUSH |ValueLogical|)5572 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5573 (ATN-PARSE-SUBSTRUCTURE* '|ValueLogical| ATN-PARSER::INDEX)5574 (COND (ATN-PARSER::SUCCESS5575 (SETF *ATN-TERM* '|ValueLogical|)5576 (LET ((|ValueLogical714| |ValueLogical|))5577 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5578 (DESTRUCTURING-BIND5579 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5580 ATN-PARSER::RESULT-AND-INDEX5581 (WHEN ATN-PARSER::RESULT5582 (SETF |ValueLogical| (CONS ATN-PARSER::RESULT |ValueLogical|)))5583 (|ConditionalAndExpression/ConditionalAndExpression.2.4|5584 ATN-PARSER::RESULT-INDEX))5585 (SETF |ValueLogical| |ValueLogical714|))))5586 (T5587 (SETF *ATN-TERM?* '|ValueLogical|)5588 (|ConditionalAndExpression/fail.3| ATN-PARSER::INDEX))))))))5589 (|ConditionalAndExpression/start.1| ATN-PARSER::INDEX)5590 (SETF *ATN-NODE NIL)5591 NIL5592 (IF ATN-PARSER::ATN-STRUCTURE5593 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5594 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5595 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConditionalAndExpression| ATN-PARSER::INDEX *ATN-STACK))))5596 (PROGN (DEFVAR |ValueLogical-INDEX|)5597 (DEFUN |ValueLogical| (ATN-PARSER::INDEX &AUX (|RelationalExpression| NIL))5598 "{49} ValueLogical ::= RelationalExpression5599 (|RelationalExpression|)"5600 (DECLARE (SPECIAL |ValueLogical-INDEX|))5601 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ValueLogical-INDEX| *ATN-LEVEL))5602 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5603 (IF (< |ValueLogical-INDEX| ATN-PARSER::INDEX)5604 (LET ((|ValueLogical-INDEX| ATN-PARSER::INDEX)5605 (*ATN-LEVEL (1+ *ATN-LEVEL))5606 (*ATN-STACK (CONS '|ValueLogical| *ATN-STACK))5607 (ATN-PARSER::ATN-STRUCTURE NIL))5608 (DECLARE (SPECIAL |ValueLogical-INDEX|))5609 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5610 (DECLARE (TYPE CONS *ATN-STACK))5611 (SYMBOL-MACROLET5612 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5613 (%ATN-BLOCK |ValueLogical|5614 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5615 (SETF *ATN-TERM* '|ValueLogical|)5616 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5617 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5618 (|ValueLogical.2| (ATN-PARSER::INDEX)5619 (%ATN-NODE-BLOCK5620 |ValueLogical.2|5621 (%ATN-EDGE-BLOCK5622 (POP |ValueLogical|)5623 (WHEN T5624 (SETF *ATN-TERM* '|ValueLogical|)5625 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5626 '|ValueLogical|5627 ATN-PARSER::INDEX5628 (LIST '|RelationalExpression| |RelationalExpression|))5629 (LET ((ATN-PARSER::RESULT-STRUCTURE5630 (IF (EQ *ATN-REDUCE* T)5631 (|ValueLogical-Constructor| |RelationalExpression|)5632 (IF (EQ *ATN-REDUCE* 'CONS)5633 (CONS '|ValueLogical| (DELETE NIL (LIST |RelationalExpression|)))5634 '|ValueLogical|))))5635 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5636 (|ValueLogical/fail.3| (ATN-PARSER::INDEX)5637 (%ATN-NODE-BLOCK |ValueLogical/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5638 (|ValueLogical/start.1| (ATN-PARSER::INDEX)5639 (%ATN-NODE-BLOCK5640 |ValueLogical/start.1|5641 (%ATN-EDGE-BLOCK5642 (PUSH |RelationalExpression|)5643 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5644 (ATN-PARSE-SUBSTRUCTURE* '|RelationalExpression| ATN-PARSER::INDEX)5645 (COND (ATN-PARSER::SUCCESS5646 (SETF *ATN-TERM* '|RelationalExpression|)5647 (LET ((|RelationalExpression714| |RelationalExpression|))5648 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5649 (DESTRUCTURING-BIND5650 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5651 ATN-PARSER::RESULT-AND-INDEX5652 (WHEN ATN-PARSER::RESULT5653 (SETF |RelationalExpression| ATN-PARSER::RESULT))5654 (|ValueLogical.2| ATN-PARSER::RESULT-INDEX))5655 (SETF |RelationalExpression| |RelationalExpression714|))))5656 (T5657 (SETF *ATN-TERM?* '|RelationalExpression|)5658 (|ValueLogical/fail.3| ATN-PARSER::INDEX))))))))5659 (|ValueLogical/start.1| ATN-PARSER::INDEX)5660 (SETF *ATN-NODE NIL)5661 NIL5662 (IF ATN-PARSER::ATN-STRUCTURE5663 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5664 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5665 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ValueLogical| ATN-PARSER::INDEX *ATN-STACK))))5666 (PROGN (DEFVAR |RelationalExpression-INDEX|)5667 (DEFUN |RelationalExpression| (ATN-PARSER::INDEX &AUX (|NumericExpression| NIL) (|RelatedNumeric| NIL))5668 "{50} RelationalExpression ::= NumericExpression RelatedNumeric?5669 (|NumericExpression| |RelatedNumeric|)"5670 (DECLARE (SPECIAL |RelationalExpression-INDEX|))5671 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RelationalExpression-INDEX| *ATN-LEVEL))5672 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5673 (IF (< |RelationalExpression-INDEX| ATN-PARSER::INDEX)5674 (LET ((|RelationalExpression-INDEX| ATN-PARSER::INDEX)5675 (*ATN-LEVEL (1+ *ATN-LEVEL))5676 (*ATN-STACK (CONS '|RelationalExpression| *ATN-STACK))5677 (ATN-PARSER::ATN-STRUCTURE NIL))5678 (DECLARE (SPECIAL |RelationalExpression-INDEX|))5679 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5680 (DECLARE (TYPE CONS *ATN-STACK))5681 (SYMBOL-MACROLET5682 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5683 (%ATN-BLOCK |RelationalExpression|5684 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5685 (SETF *ATN-TERM* '|RelationalExpression|)5686 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5687 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5688 (|RelationalExpression.2| (ATN-PARSER::INDEX)5689 (%ATN-NODE-BLOCK5690 |RelationalExpression.2|5691 (%ATN-EDGE-BLOCK5692 (POP |RelationalExpression|)5693 (WHEN T5694 (SETF *ATN-TERM* '|RelationalExpression|)5695 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5696 '|RelationalExpression|5697 ATN-PARSER::INDEX5698 (LIST '|NumericExpression|5699 |NumericExpression|5700 '|RelatedNumeric|5701 |RelatedNumeric|))5702 (LET ((ATN-PARSER::RESULT-STRUCTURE5703 (IF (EQ *ATN-REDUCE* T)5704 (|RelationalExpression-Constructor| |NumericExpression| |RelatedNumeric|)5705 (IF (EQ *ATN-REDUCE* 'CONS)5706 (CONS '|RelationalExpression|5707 (DELETE NIL (LIST |NumericExpression| |RelatedNumeric|)))5708 '|RelationalExpression|))))5709 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5710 (|RelationalExpression/fail.3| (ATN-PARSER::INDEX)5711 (%ATN-NODE-BLOCK5712 |RelationalExpression/fail.3|5713 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5714 (|RelationalExpression/RelationalExpression.2.4| (ATN-PARSER::INDEX)5715 (%ATN-NODE-BLOCK5716 |RelationalExpression/RelationalExpression.2.4|5717 (%ATN-EDGE-BLOCK5718 (PUSH |RelatedNumeric|)5719 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5720 (ATN-PARSE-SUBSTRUCTURE* '|RelatedNumeric| ATN-PARSER::INDEX)5721 (COND (ATN-PARSER::SUCCESS5722 (SETF *ATN-TERM* '|RelatedNumeric|)5723 (LET ((|RelatedNumeric714| |RelatedNumeric|))5724 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5725 (DESTRUCTURING-BIND5726 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5727 ATN-PARSER::RESULT-AND-INDEX5728 (WHEN ATN-PARSER::RESULT (SETF |RelatedNumeric| ATN-PARSER::RESULT))5729 (|RelationalExpression.2| ATN-PARSER::RESULT-INDEX))5730 (SETF |RelatedNumeric| |RelatedNumeric714|))))5731 (T5732 (SETF *ATN-TERM?* '|RelatedNumeric|)5733 (|RelationalExpression.2| ATN-PARSER::INDEX)))))))5734 (|RelationalExpression/start.1| (ATN-PARSER::INDEX)5735 (%ATN-NODE-BLOCK5736 |RelationalExpression/start.1|5737 (%ATN-EDGE-BLOCK5738 (PUSH |NumericExpression|)5739 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5740 (ATN-PARSE-SUBSTRUCTURE* '|NumericExpression| ATN-PARSER::INDEX)5741 (COND (ATN-PARSER::SUCCESS5742 (SETF *ATN-TERM* '|NumericExpression|)5743 (LET ((|NumericExpression714| |NumericExpression|))5744 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5745 (DESTRUCTURING-BIND5746 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5747 ATN-PARSER::RESULT-AND-INDEX5748 (WHEN ATN-PARSER::RESULT (SETF |NumericExpression| ATN-PARSER::RESULT))5749 (|RelationalExpression/RelationalExpression.2.4|5750 ATN-PARSER::RESULT-INDEX))5751 (SETF |NumericExpression| |NumericExpression714|))))5752 (T5753 (SETF *ATN-TERM?* '|NumericExpression|)5754 (|RelationalExpression/fail.3| ATN-PARSER::INDEX))))))))5755 (|RelationalExpression/start.1| ATN-PARSER::INDEX)5756 (SETF *ATN-NODE NIL)5757 NIL5758 (IF ATN-PARSER::ATN-STRUCTURE5759 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5760 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5761 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RelationalExpression| ATN-PARSER::INDEX *ATN-STACK))))5762 (PROGN (DEFVAR |RelatedNumeric-INDEX|)5763 (DEFUN |RelatedNumeric| (ATN-PARSER::INDEX &AUX (|NumericExpression| NIL) (|RelationalOperator| NIL))5764 "RelatedNumeric ::= RelationalOperator NumericExpression5765 (|NumericExpression| |RelationalOperator|)"5766 (DECLARE (SPECIAL |RelatedNumeric-INDEX|))5767 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RelatedNumeric-INDEX| *ATN-LEVEL))5768 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5769 (IF (< |RelatedNumeric-INDEX| ATN-PARSER::INDEX)5770 (LET ((|RelatedNumeric-INDEX| ATN-PARSER::INDEX)5771 (*ATN-LEVEL (1+ *ATN-LEVEL))5772 (*ATN-STACK (CONS '|RelatedNumeric| *ATN-STACK))5773 (ATN-PARSER::ATN-STRUCTURE NIL))5774 (DECLARE (SPECIAL |RelatedNumeric-INDEX|))5775 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5776 (DECLARE (TYPE CONS *ATN-STACK))5777 (SYMBOL-MACROLET5778 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5779 (%ATN-BLOCK |RelatedNumeric|5780 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5781 (SETF *ATN-TERM* '|RelatedNumeric|)5782 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5783 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5784 (|RelatedNumeric.2| (ATN-PARSER::INDEX)5785 (%ATN-NODE-BLOCK5786 |RelatedNumeric.2|5787 (%ATN-EDGE-BLOCK5788 (POP |RelatedNumeric|)5789 (WHEN T5790 (SETF *ATN-TERM* '|RelatedNumeric|)5791 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5792 '|RelatedNumeric|5793 ATN-PARSER::INDEX5794 (LIST '|NumericExpression|5795 |NumericExpression|5796 '|RelationalOperator|5797 |RelationalOperator|))5798 (LET ((ATN-PARSER::RESULT-STRUCTURE5799 (IF (EQ *ATN-REDUCE* T)5800 (|RelatedNumeric-Constructor| |NumericExpression| |RelationalOperator|)5801 (IF (EQ *ATN-REDUCE* 'CONS)5802 (CONS '|RelatedNumeric|5803 (DELETE NIL (LIST |NumericExpression| |RelationalOperator|)))5804 '|RelatedNumeric|))))5805 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5806 (|RelatedNumeric/fail.3| (ATN-PARSER::INDEX)5807 (%ATN-NODE-BLOCK |RelatedNumeric/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5808 (|RelatedNumeric/RelatedNumeric.2.4| (ATN-PARSER::INDEX)5809 (%ATN-NODE-BLOCK5810 |RelatedNumeric/RelatedNumeric.2.4|5811 (%ATN-EDGE-BLOCK5812 (PUSH |NumericExpression|)5813 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5814 (ATN-PARSE-SUBSTRUCTURE* '|NumericExpression| ATN-PARSER::INDEX)5815 (COND (ATN-PARSER::SUCCESS5816 (SETF *ATN-TERM* '|NumericExpression|)5817 (LET ((|NumericExpression715| |NumericExpression|))5818 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5819 (DESTRUCTURING-BIND5820 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5821 ATN-PARSER::RESULT-AND-INDEX5822 (WHEN ATN-PARSER::RESULT (SETF |NumericExpression| ATN-PARSER::RESULT))5823 (|RelatedNumeric.2| ATN-PARSER::RESULT-INDEX))5824 (SETF |NumericExpression| |NumericExpression715|))))5825 (T5826 (SETF *ATN-TERM?* '|NumericExpression|)5827 (|RelatedNumeric/fail.3| ATN-PARSER::INDEX)))))))5828 (|RelatedNumeric/start.1| (ATN-PARSER::INDEX)5829 (%ATN-NODE-BLOCK5830 |RelatedNumeric/start.1|5831 (%ATN-EDGE-BLOCK5832 (ATN-PARSER::CAT |RelationalOperator|)5833 (COND ((|IS-RelationalOperator| ATN-PARSER::|item|)5834 (SETF *ATN-TERM* '|RelationalOperator|)5835 (SETF |RelationalOperator|5836 (IF (EQ *ATN-REDUCE* T)5837 (ATN-REDUCE-ITEM5838 #'|RelationalOperator-Constructor|5839 ATN-PARSER::|item|)5840 (IF (EQ *ATN-REDUCE* 'CONS)5841 (LIST '|RelationalOperator| ATN-PARSER::|item|)5842 '|RelationalOperator|)))5843 (|RelatedNumeric/RelatedNumeric.2.4| (1+ ATN-PARSER::INDEX)))5844 (T5845 (SETF *ATN-TERM* '|RelationalOperator|)5846 (|RelatedNumeric/fail.3| ATN-PARSER::INDEX)))))))5847 (|RelatedNumeric/start.1| ATN-PARSER::INDEX)5848 (SETF *ATN-NODE NIL)5849 NIL5850 (IF ATN-PARSER::ATN-STRUCTURE5851 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5852 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5853 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RelatedNumeric| ATN-PARSER::INDEX *ATN-STACK))))5854 (PROGN (DEFVAR |NumericExpression-INDEX|)5855 (DEFUN |NumericExpression| (ATN-PARSER::INDEX &AUX (|AdditiveExpression| NIL))5856 "{51} NumericExpression ::= AdditiveExpression5857 (|AdditiveExpression|)"5858 (DECLARE (SPECIAL |NumericExpression-INDEX|))5859 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NumericExpression-INDEX| *ATN-LEVEL))5860 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5861 (IF (< |NumericExpression-INDEX| ATN-PARSER::INDEX)5862 (LET ((|NumericExpression-INDEX| ATN-PARSER::INDEX)5863 (*ATN-LEVEL (1+ *ATN-LEVEL))5864 (*ATN-STACK (CONS '|NumericExpression| *ATN-STACK))5865 (ATN-PARSER::ATN-STRUCTURE NIL))5866 (DECLARE (SPECIAL |NumericExpression-INDEX|))5867 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5868 (DECLARE (TYPE CONS *ATN-STACK))5869 (SYMBOL-MACROLET5870 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5871 (%ATN-BLOCK |NumericExpression|5872 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5873 (SETF *ATN-TERM* '|NumericExpression|)5874 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5875 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5876 (|NumericExpression.2| (ATN-PARSER::INDEX)5877 (%ATN-NODE-BLOCK5878 |NumericExpression.2|5879 (%ATN-EDGE-BLOCK5880 (POP |NumericExpression|)5881 (WHEN T5882 (SETF *ATN-TERM* '|NumericExpression|)5883 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5884 '|NumericExpression|5885 ATN-PARSER::INDEX5886 (LIST '|AdditiveExpression| |AdditiveExpression|))5887 (LET ((ATN-PARSER::RESULT-STRUCTURE5888 (IF (EQ *ATN-REDUCE* T)5889 (|NumericExpression-Constructor| |AdditiveExpression|)5890 (IF (EQ *ATN-REDUCE* 'CONS)5891 (CONS '|NumericExpression| (DELETE NIL (LIST |AdditiveExpression|)))5892 '|NumericExpression|))))5893 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5894 (|NumericExpression/fail.3| (ATN-PARSER::INDEX)5895 (%ATN-NODE-BLOCK |NumericExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5896 (|NumericExpression/start.1| (ATN-PARSER::INDEX)5897 (%ATN-NODE-BLOCK5898 |NumericExpression/start.1|5899 (%ATN-EDGE-BLOCK5900 (PUSH |AdditiveExpression|)5901 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5902 (ATN-PARSE-SUBSTRUCTURE* '|AdditiveExpression| ATN-PARSER::INDEX)5903 (COND (ATN-PARSER::SUCCESS5904 (SETF *ATN-TERM* '|AdditiveExpression|)5905 (LET ((|AdditiveExpression715| |AdditiveExpression|))5906 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5907 (DESTRUCTURING-BIND5908 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5909 ATN-PARSER::RESULT-AND-INDEX5910 (WHEN ATN-PARSER::RESULT (SETF |AdditiveExpression| ATN-PARSER::RESULT))5911 (|NumericExpression.2| ATN-PARSER::RESULT-INDEX))5912 (SETF |AdditiveExpression| |AdditiveExpression715|))))5913 (T5914 (SETF *ATN-TERM?* '|AdditiveExpression|)5915 (|NumericExpression/fail.3| ATN-PARSER::INDEX))))))))5916 (|NumericExpression/start.1| ATN-PARSER::INDEX)5917 (SETF *ATN-NODE NIL)5918 NIL5919 (IF ATN-PARSER::ATN-STRUCTURE5920 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5921 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5922 (WARN "recursive grammar: ~s @ position ~s: ~s" '|NumericExpression| ATN-PARSER::INDEX *ATN-STACK))))5923 (PROGN (DEFVAR |AdditiveExpression-INDEX|)5924 (DEFUN |AdditiveExpression| (ATN-PARSER::INDEX &AUX (|AddedMultiplicative| NIL) (|MultiplicativeExpression| NIL))5925 "{52} AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*5926 (|AddedMultiplicative| |MultiplicativeExpression|)"5927 (DECLARE (SPECIAL |AdditiveExpression-INDEX|))5928 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AdditiveExpression-INDEX| *ATN-LEVEL))5929 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5930 (IF (< |AdditiveExpression-INDEX| ATN-PARSER::INDEX)5931 (LET ((|AdditiveExpression-INDEX| ATN-PARSER::INDEX)5932 (*ATN-LEVEL (1+ *ATN-LEVEL))5933 (*ATN-STACK (CONS '|AdditiveExpression| *ATN-STACK))5934 (ATN-PARSER::ATN-STRUCTURE NIL))5935 (DECLARE (SPECIAL |AdditiveExpression-INDEX|))5936 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5937 (DECLARE (TYPE CONS *ATN-STACK))5938 (SYMBOL-MACROLET5939 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5940 (%ATN-BLOCK |AdditiveExpression|5941 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5942 (SETF *ATN-TERM* '|AdditiveExpression|)5943 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5944 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5945 (|AdditiveExpression.2| (ATN-PARSER::INDEX)5946 (%ATN-NODE-BLOCK5947 |AdditiveExpression.2|5948 (%ATN-EDGE-BLOCK5949 (POP |AdditiveExpression|)5950 (WHEN T5951 (SETF *ATN-TERM* '|AdditiveExpression|)5952 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5953 '|AdditiveExpression|5954 ATN-PARSER::INDEX5955 (LIST '|AddedMultiplicative|5956 |AddedMultiplicative|5957 '|MultiplicativeExpression|5958 |MultiplicativeExpression|))5959 (LET ((ATN-PARSER::RESULT-STRUCTURE5960 (IF (EQ *ATN-REDUCE* T)5961 (|AdditiveExpression-Constructor|5962 |AddedMultiplicative|5963 |MultiplicativeExpression|)5964 (IF (EQ *ATN-REDUCE* 'CONS)5965 (CONS '|AdditiveExpression|5966 (DELETE NIL5967 (LIST |AddedMultiplicative|5968 |MultiplicativeExpression|)))5969 '|AdditiveExpression|))))5970 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5971 (|AdditiveExpression.5| (ATN-PARSER::INDEX)5972 (%ATN-NODE-BLOCK5973 |AdditiveExpression.5|5974 (%ATN-EDGE-BLOCK5975 (PUSH |AddedMultiplicative|)5976 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5977 (ATN-PARSE-SUBSTRUCTURE* '|AddedMultiplicative| ATN-PARSER::INDEX)5978 (COND (ATN-PARSER::SUCCESS5979 (SETF *ATN-TERM* '|AddedMultiplicative|)5980 (LET ((|AddedMultiplicative716| |AddedMultiplicative|))5981 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5982 (DESTRUCTURING-BIND5983 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5984 ATN-PARSER::RESULT-AND-INDEX5985 (WHEN ATN-PARSER::RESULT5986 (SETF |AddedMultiplicative|5987 (CONS ATN-PARSER::RESULT |AddedMultiplicative|)))5988 (|AdditiveExpression.5| ATN-PARSER::RESULT-INDEX))5989 (SETF |AddedMultiplicative| |AddedMultiplicative716|))))5990 (T5991 (SETF *ATN-TERM?* '|AddedMultiplicative|)5992 (|AdditiveExpression.2| ATN-PARSER::INDEX)))))))5993 (|AdditiveExpression/AdditiveExpression.2.4| (ATN-PARSER::INDEX)5994 (%ATN-NODE-BLOCK5995 |AdditiveExpression/AdditiveExpression.2.4|5996 (%ATN-EDGE-BLOCK5997 (PUSH |AddedMultiplicative|)5998 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5999 (ATN-PARSE-SUBSTRUCTURE* '|AddedMultiplicative| ATN-PARSER::INDEX)6000 (COND (ATN-PARSER::SUCCESS6001 (SETF *ATN-TERM* '|AddedMultiplicative|)6002 (LET ((|AddedMultiplicative715| |AddedMultiplicative|))6003 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6004 (DESTRUCTURING-BIND6005 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6006 ATN-PARSER::RESULT-AND-INDEX6007 (WHEN ATN-PARSER::RESULT6008 (SETF |AddedMultiplicative|6009 (CONS ATN-PARSER::RESULT |AddedMultiplicative|)))6010 (|AdditiveExpression.5| ATN-PARSER::RESULT-INDEX))6011 (SETF |AddedMultiplicative| |AddedMultiplicative715|))))6012 (T6013 (SETF *ATN-TERM?* '|AddedMultiplicative|)6014 (|AdditiveExpression.2| ATN-PARSER::INDEX)))))))6015 (|AdditiveExpression/fail.3| (ATN-PARSER::INDEX)6016 (%ATN-NODE-BLOCK |AdditiveExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6017 (|AdditiveExpression/start.1| (ATN-PARSER::INDEX)6018 (%ATN-NODE-BLOCK6019 |AdditiveExpression/start.1|6020 (%ATN-EDGE-BLOCK6021 (PUSH |MultiplicativeExpression|)6022 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6023 (ATN-PARSE-SUBSTRUCTURE* '|MultiplicativeExpression| ATN-PARSER::INDEX)6024 (COND (ATN-PARSER::SUCCESS6025 (SETF *ATN-TERM* '|MultiplicativeExpression|)6026 (LET ((|MultiplicativeExpression716| |MultiplicativeExpression|))6027 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6028 (DESTRUCTURING-BIND6029 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6030 ATN-PARSER::RESULT-AND-INDEX6031 (WHEN ATN-PARSER::RESULT6032 (SETF |MultiplicativeExpression| ATN-PARSER::RESULT))6033 (|AdditiveExpression/AdditiveExpression.2.4| ATN-PARSER::RESULT-INDEX))6034 (SETF |MultiplicativeExpression| |MultiplicativeExpression716|))))6035 (T6036 (SETF *ATN-TERM?* '|MultiplicativeExpression|)6037 (|AdditiveExpression/fail.3| ATN-PARSER::INDEX))))))))6038 (|AdditiveExpression/start.1| ATN-PARSER::INDEX)6039 (SETF *ATN-NODE NIL)6040 NIL6041 (IF ATN-PARSER::ATN-STRUCTURE6042 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6043 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6044 (WARN "recursive grammar: ~s @ position ~s: ~s" '|AdditiveExpression| ATN-PARSER::INDEX *ATN-STACK))))6045 (PROGN (DEFVAR |AddedMultiplicative-INDEX|)6046 (DEFUN |AddedMultiplicative| (ATN-PARSER::INDEX &AUX (|AdditiveOperator| NIL) (|MultiplicativeExpression| NIL))6047 "AddedMultiplicative ::= AdditiveOperator MultiplicativeExpression6048 (|AdditiveOperator| |MultiplicativeExpression|)"6049 (DECLARE (SPECIAL |AddedMultiplicative-INDEX|))6050 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AddedMultiplicative-INDEX| *ATN-LEVEL))6051 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6052 (IF (< |AddedMultiplicative-INDEX| ATN-PARSER::INDEX)6053 (LET ((|AddedMultiplicative-INDEX| ATN-PARSER::INDEX)6054 (*ATN-LEVEL (1+ *ATN-LEVEL))6055 (*ATN-STACK (CONS '|AddedMultiplicative| *ATN-STACK))6056 (ATN-PARSER::ATN-STRUCTURE NIL))6057 (DECLARE (SPECIAL |AddedMultiplicative-INDEX|))6058 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6059 (DECLARE (TYPE CONS *ATN-STACK))6060 (SYMBOL-MACROLET6061 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6062 (%ATN-BLOCK |AddedMultiplicative|6063 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6064 (SETF *ATN-TERM* '|AddedMultiplicative|)6065 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6066 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6067 (|AddedMultiplicative.2| (ATN-PARSER::INDEX)6068 (%ATN-NODE-BLOCK6069 |AddedMultiplicative.2|6070 (%ATN-EDGE-BLOCK6071 (POP |AddedMultiplicative|)6072 (WHEN T6073 (SETF *ATN-TERM* '|AddedMultiplicative|)6074 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6075 '|AddedMultiplicative|6076 ATN-PARSER::INDEX6077 (LIST '|AdditiveOperator|6078 |AdditiveOperator|6079 '|MultiplicativeExpression|6080 |MultiplicativeExpression|))6081 (LET ((ATN-PARSER::RESULT-STRUCTURE6082 (IF (EQ *ATN-REDUCE* T)6083 (|AddedMultiplicative-Constructor|6084 |AdditiveOperator|6085 |MultiplicativeExpression|)6086 (IF (EQ *ATN-REDUCE* 'CONS)6087 (CONS '|AddedMultiplicative|6088 (DELETE NIL6089 (LIST |AdditiveOperator| |MultiplicativeExpression|)))6090 '|AddedMultiplicative|))))6091 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6092 (|AddedMultiplicative/AddedMultiplicative.2.4| (ATN-PARSER::INDEX)6093 (%ATN-NODE-BLOCK6094 |AddedMultiplicative/AddedMultiplicative.2.4|6095 (%ATN-EDGE-BLOCK6096 (PUSH |MultiplicativeExpression|)6097 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6098 (ATN-PARSE-SUBSTRUCTURE* '|MultiplicativeExpression| ATN-PARSER::INDEX)6099 (COND (ATN-PARSER::SUCCESS6100 (SETF *ATN-TERM* '|MultiplicativeExpression|)6101 (LET ((|MultiplicativeExpression717| |MultiplicativeExpression|))6102 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6103 (DESTRUCTURING-BIND6104 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6105 ATN-PARSER::RESULT-AND-INDEX6106 (WHEN ATN-PARSER::RESULT6107 (SETF |MultiplicativeExpression| ATN-PARSER::RESULT))6108 (|AddedMultiplicative.2| ATN-PARSER::RESULT-INDEX))6109 (SETF |MultiplicativeExpression| |MultiplicativeExpression717|))))6110 (T6111 (SETF *ATN-TERM?* '|MultiplicativeExpression|)6112 (|AddedMultiplicative/fail.3| ATN-PARSER::INDEX)))))))6113 (|AddedMultiplicative/fail.3| (ATN-PARSER::INDEX)6114 (%ATN-NODE-BLOCK6115 |AddedMultiplicative/fail.3|6116 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6117 (|AddedMultiplicative/start.1| (ATN-PARSER::INDEX)6118 (%ATN-NODE-BLOCK6119 |AddedMultiplicative/start.1|6120 (%ATN-EDGE-BLOCK6121 (ATN-PARSER::CAT |AdditiveOperator|)6122 (COND ((|IS-AdditiveOperator| ATN-PARSER::|item|)6123 (SETF *ATN-TERM* '|AdditiveOperator|)6124 (SETF |AdditiveOperator|6125 (IF (EQ *ATN-REDUCE* T)6126 (ATN-REDUCE-ITEM #'|AdditiveOperator-Constructor| ATN-PARSER::|item|)6127 (IF (EQ *ATN-REDUCE* 'CONS)6128 (LIST '|AdditiveOperator| ATN-PARSER::|item|)6129 '|AdditiveOperator|)))6130 (|AddedMultiplicative/AddedMultiplicative.2.4| (1+ ATN-PARSER::INDEX)))6131 (T6132 (SETF *ATN-TERM* '|AdditiveOperator|)6133 (|AddedMultiplicative/fail.3| ATN-PARSER::INDEX)))))))6134 (|AddedMultiplicative/start.1| ATN-PARSER::INDEX)6135 (SETF *ATN-NODE NIL)6136 NIL6137 (IF ATN-PARSER::ATN-STRUCTURE6138 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6139 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6140 (WARN "recursive grammar: ~s @ position ~s: ~s" '|AddedMultiplicative| ATN-PARSER::INDEX *ATN-STACK))))6141 (PROGN (DEFVAR |MultiplicativeExpression-INDEX|)6142 (DEFUN |MultiplicativeExpression| (ATN-PARSER::INDEX &AUX (|MultipliedUnary| NIL) (|UnaryExpression| NIL))6143 "{53} MultiplicativeExpression ::= UnaryExpression MultipliedUnary*6144 (|MultipliedUnary| |UnaryExpression|)"6145 (DECLARE (SPECIAL |MultiplicativeExpression-INDEX|))6146 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MultiplicativeExpression-INDEX| *ATN-LEVEL))6147 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6148 (IF (< |MultiplicativeExpression-INDEX| ATN-PARSER::INDEX)6149 (LET ((|MultiplicativeExpression-INDEX| ATN-PARSER::INDEX)6150 (*ATN-LEVEL (1+ *ATN-LEVEL))6151 (*ATN-STACK (CONS '|MultiplicativeExpression| *ATN-STACK))6152 (ATN-PARSER::ATN-STRUCTURE NIL))6153 (DECLARE (SPECIAL |MultiplicativeExpression-INDEX|))6154 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6155 (DECLARE (TYPE CONS *ATN-STACK))6156 (SYMBOL-MACROLET6157 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6158 (%ATN-BLOCK |MultiplicativeExpression|6159 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6160 (SETF *ATN-TERM* '|MultiplicativeExpression|)6161 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6162 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6163 (|MultiplicativeExpression.2| (ATN-PARSER::INDEX)6164 (%ATN-NODE-BLOCK6165 |MultiplicativeExpression.2|6166 (%ATN-EDGE-BLOCK6167 (POP |MultiplicativeExpression|)6168 (WHEN T6169 (SETF *ATN-TERM* '|MultiplicativeExpression|)6170 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6171 '|MultiplicativeExpression|6172 ATN-PARSER::INDEX6173 (LIST '|MultipliedUnary|6174 |MultipliedUnary|6175 '|UnaryExpression|6176 |UnaryExpression|))6177 (LET ((ATN-PARSER::RESULT-STRUCTURE6178 (IF (EQ *ATN-REDUCE* T)6179 (|MultiplicativeExpression-Constructor|6180 |MultipliedUnary|6181 |UnaryExpression|)6182 (IF (EQ *ATN-REDUCE* 'CONS)6183 (CONS '|MultiplicativeExpression|6184 (DELETE NIL (LIST |MultipliedUnary| |UnaryExpression|)))6185 '|MultiplicativeExpression|))))6186 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6187 (|MultiplicativeExpression.5| (ATN-PARSER::INDEX)6188 (%ATN-NODE-BLOCK6189 |MultiplicativeExpression.5|6190 (%ATN-EDGE-BLOCK6191 (PUSH |MultipliedUnary|)6192 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6193 (ATN-PARSE-SUBSTRUCTURE* '|MultipliedUnary| ATN-PARSER::INDEX)6194 (COND (ATN-PARSER::SUCCESS6195 (SETF *ATN-TERM* '|MultipliedUnary|)6196 (LET ((|MultipliedUnary718| |MultipliedUnary|))6197 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6198 (DESTRUCTURING-BIND6199 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6200 ATN-PARSER::RESULT-AND-INDEX6201 (WHEN ATN-PARSER::RESULT6202 (SETF |MultipliedUnary| (CONS ATN-PARSER::RESULT |MultipliedUnary|)))6203 (|MultiplicativeExpression.5| ATN-PARSER::RESULT-INDEX))6204 (SETF |MultipliedUnary| |MultipliedUnary718|))))6205 (T6206 (SETF *ATN-TERM?* '|MultipliedUnary|)6207 (|MultiplicativeExpression.2| ATN-PARSER::INDEX)))))))6208 (|MultiplicativeExpression/fail.3| (ATN-PARSER::INDEX)6209 (%ATN-NODE-BLOCK6210 |MultiplicativeExpression/fail.3|6211 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6212 (|MultiplicativeExpression/MultiplicativeExpression.2.4| (ATN-PARSER::INDEX)6213 (%ATN-NODE-BLOCK6214 |MultiplicativeExpression/MultiplicativeExpression.2.4|6215 (%ATN-EDGE-BLOCK6216 (PUSH |MultipliedUnary|)6217 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6218 (ATN-PARSE-SUBSTRUCTURE* '|MultipliedUnary| ATN-PARSER::INDEX)6219 (COND (ATN-PARSER::SUCCESS6220 (SETF *ATN-TERM* '|MultipliedUnary|)6221 (LET ((|MultipliedUnary717| |MultipliedUnary|))6222 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6223 (DESTRUCTURING-BIND6224 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6225 ATN-PARSER::RESULT-AND-INDEX6226 (WHEN ATN-PARSER::RESULT6227 (SETF |MultipliedUnary| (CONS ATN-PARSER::RESULT |MultipliedUnary|)))6228 (|MultiplicativeExpression.5| ATN-PARSER::RESULT-INDEX))6229 (SETF |MultipliedUnary| |MultipliedUnary717|))))6230 (T6231 (SETF *ATN-TERM?* '|MultipliedUnary|)6232 (|MultiplicativeExpression.2| ATN-PARSER::INDEX)))))))6233 (|MultiplicativeExpression/start.1| (ATN-PARSER::INDEX)6234 (%ATN-NODE-BLOCK6235 |MultiplicativeExpression/start.1|6236 (%ATN-EDGE-BLOCK6237 (PUSH |UnaryExpression|)6238 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6239 (ATN-PARSE-SUBSTRUCTURE* '|UnaryExpression| ATN-PARSER::INDEX)6240 (COND (ATN-PARSER::SUCCESS6241 (SETF *ATN-TERM* '|UnaryExpression|)6242 (LET ((|UnaryExpression718| |UnaryExpression|))6243 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6244 (DESTRUCTURING-BIND6245 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6246 ATN-PARSER::RESULT-AND-INDEX6247 (WHEN ATN-PARSER::RESULT (SETF |UnaryExpression| ATN-PARSER::RESULT))6248 (|MultiplicativeExpression/MultiplicativeExpression.2.4|6249 ATN-PARSER::RESULT-INDEX))6250 (SETF |UnaryExpression| |UnaryExpression718|))))6251 (T6252 (SETF *ATN-TERM?* '|UnaryExpression|)6253 (|MultiplicativeExpression/fail.3| ATN-PARSER::INDEX))))))))6254 (|MultiplicativeExpression/start.1| ATN-PARSER::INDEX)6255 (SETF *ATN-NODE NIL)6256 NIL6257 (IF ATN-PARSER::ATN-STRUCTURE6258 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6259 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6260 (WARN "recursive grammar: ~s @ position ~s: ~s" '|MultiplicativeExpression| ATN-PARSER::INDEX *ATN-STACK))))6261 (PROGN (DEFVAR |MultipliedUnary-INDEX|)6262 (DEFUN |MultipliedUnary| (ATN-PARSER::INDEX &AUX (|MultiplicativeOperator| NIL) (|UnaryExpression| NIL))6263 "MultipliedUnary ::= MultiplicativeOperator UnaryExpression6264 (|MultiplicativeOperator| |UnaryExpression|)"6265 (DECLARE (SPECIAL |MultipliedUnary-INDEX|))6266 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MultipliedUnary-INDEX| *ATN-LEVEL))6267 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6268 (IF (< |MultipliedUnary-INDEX| ATN-PARSER::INDEX)6269 (LET ((|MultipliedUnary-INDEX| ATN-PARSER::INDEX)6270 (*ATN-LEVEL (1+ *ATN-LEVEL))6271 (*ATN-STACK (CONS '|MultipliedUnary| *ATN-STACK))6272 (ATN-PARSER::ATN-STRUCTURE NIL))6273 (DECLARE (SPECIAL |MultipliedUnary-INDEX|))6274 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6275 (DECLARE (TYPE CONS *ATN-STACK))6276 (SYMBOL-MACROLET6277 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6278 (%ATN-BLOCK |MultipliedUnary|6279 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6280 (SETF *ATN-TERM* '|MultipliedUnary|)6281 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6282 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6283 (|MultipliedUnary.2| (ATN-PARSER::INDEX)6284 (%ATN-NODE-BLOCK6285 |MultipliedUnary.2|6286 (%ATN-EDGE-BLOCK6287 (POP |MultipliedUnary|)6288 (WHEN T6289 (SETF *ATN-TERM* '|MultipliedUnary|)6290 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6291 '|MultipliedUnary|6292 ATN-PARSER::INDEX6293 (LIST '|MultiplicativeOperator|6294 |MultiplicativeOperator|6295 '|UnaryExpression|6296 |UnaryExpression|))6297 (LET ((ATN-PARSER::RESULT-STRUCTURE6298 (IF (EQ *ATN-REDUCE* T)6299 (|MultipliedUnary-Constructor| |MultiplicativeOperator| |UnaryExpression|)6300 (IF (EQ *ATN-REDUCE* 'CONS)6301 (CONS '|MultipliedUnary|6302 (DELETE NIL (LIST |MultiplicativeOperator| |UnaryExpression|)))6303 '|MultipliedUnary|))))6304 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6305 (|MultipliedUnary/fail.3| (ATN-PARSER::INDEX)6306 (%ATN-NODE-BLOCK |MultipliedUnary/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6307 (|MultipliedUnary/MultipliedUnary.2.4| (ATN-PARSER::INDEX)6308 (%ATN-NODE-BLOCK6309 |MultipliedUnary/MultipliedUnary.2.4|6310 (%ATN-EDGE-BLOCK6311 (PUSH |UnaryExpression|)6312 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6313 (ATN-PARSE-SUBSTRUCTURE* '|UnaryExpression| ATN-PARSER::INDEX)6314 (COND (ATN-PARSER::SUCCESS6315 (SETF *ATN-TERM* '|UnaryExpression|)6316 (LET ((|UnaryExpression719| |UnaryExpression|))6317 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6318 (DESTRUCTURING-BIND6319 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6320 ATN-PARSER::RESULT-AND-INDEX6321 (WHEN ATN-PARSER::RESULT (SETF |UnaryExpression| ATN-PARSER::RESULT))6322 (|MultipliedUnary.2| ATN-PARSER::RESULT-INDEX))6323 (SETF |UnaryExpression| |UnaryExpression719|))))6324 (T6325 (SETF *ATN-TERM?* '|UnaryExpression|)6326 (|MultipliedUnary/fail.3| ATN-PARSER::INDEX)))))))6327 (|MultipliedUnary/start.1| (ATN-PARSER::INDEX)6328 (%ATN-NODE-BLOCK6329 |MultipliedUnary/start.1|6330 (%ATN-EDGE-BLOCK6331 (ATN-PARSER::CAT |MultiplicativeOperator|)6332 (COND ((|IS-MultiplicativeOperator| ATN-PARSER::|item|)6333 (SETF *ATN-TERM* '|MultiplicativeOperator|)6334 (SETF |MultiplicativeOperator|6335 (IF (EQ *ATN-REDUCE* T)6336 (ATN-REDUCE-ITEM6337 #'|MultiplicativeOperator-Constructor|6338 ATN-PARSER::|item|)6339 (IF (EQ *ATN-REDUCE* 'CONS)6340 (LIST '|MultiplicativeOperator| ATN-PARSER::|item|)6341 '|MultiplicativeOperator|)))6342 (|MultipliedUnary/MultipliedUnary.2.4| (1+ ATN-PARSER::INDEX)))6343 (T6344 (SETF *ATN-TERM* '|MultiplicativeOperator|)6345 (|MultipliedUnary/fail.3| ATN-PARSER::INDEX)))))))6346 (|MultipliedUnary/start.1| ATN-PARSER::INDEX)6347 (SETF *ATN-NODE NIL)6348 NIL6349 (IF ATN-PARSER::ATN-STRUCTURE6350 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6351 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6352 (WARN "recursive grammar: ~s @ position ~s: ~s" '|MultipliedUnary| ATN-PARSER::INDEX *ATN-STACK))))6353 (PROGN (DEFVAR |UnaryExpression-INDEX|)6354 (DEFUN |UnaryExpression| (ATN-PARSER::INDEX &AUX (|PrimaryExpression| NIL) (|UnaryOperator| NIL))6355 "{54} UnaryExpression ::= ((UnaryOperator PrimaryExpression) | PrimaryExpression)6356 (|PrimaryExpression| |UnaryOperator|)"6357 (DECLARE (SPECIAL |UnaryExpression-INDEX|))6358 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |UnaryExpression-INDEX| *ATN-LEVEL))6359 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6360 (IF (< |UnaryExpression-INDEX| ATN-PARSER::INDEX)6361 (LET ((|UnaryExpression-INDEX| ATN-PARSER::INDEX)6362 (*ATN-LEVEL (1+ *ATN-LEVEL))6363 (*ATN-STACK (CONS '|UnaryExpression| *ATN-STACK))6364 (ATN-PARSER::ATN-STRUCTURE NIL))6365 (DECLARE (SPECIAL |UnaryExpression-INDEX|))6366 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6367 (DECLARE (TYPE CONS *ATN-STACK))6368 (SYMBOL-MACROLET6369 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6370 (%ATN-BLOCK |UnaryExpression|6371 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6372 (SETF *ATN-TERM* '|UnaryExpression|)6373 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6374 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6375 (|UnaryExpression.2| (ATN-PARSER::INDEX)6376 (%ATN-NODE-BLOCK6377 |UnaryExpression.2|6378 (%ATN-EDGE-BLOCK6379 (POP |UnaryExpression|)6380 (WHEN T6381 (SETF *ATN-TERM* '|UnaryExpression|)6382 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6383 '|UnaryExpression|6384 ATN-PARSER::INDEX6385 (LIST '|PrimaryExpression|6386 |PrimaryExpression|6387 '|UnaryOperator|6388 |UnaryOperator|))6389 (LET ((ATN-PARSER::RESULT-STRUCTURE6390 (IF (EQ *ATN-REDUCE* T)6391 (|UnaryExpression-Constructor| |PrimaryExpression| |UnaryOperator|)6392 (IF (EQ *ATN-REDUCE* 'CONS)6393 (CONS '|UnaryExpression|6394 (DELETE NIL (LIST |PrimaryExpression| |UnaryOperator|)))6395 '|UnaryExpression|))))6396 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6397 (|UnaryExpression/fail.3| (ATN-PARSER::INDEX)6398 (%ATN-NODE-BLOCK |UnaryExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6399 (|UnaryExpression/start.1| (ATN-PARSER::INDEX)6400 (%ATN-NODE-BLOCK6401 |UnaryExpression/start.1|6402 (%ATN-EDGE-BLOCK6403 OR6404 (PROGN (%ATN-EDGE-BLOCK6405 (ATN-PARSER::JUMP |UnaryExpression/UnaryExpression.2.4|)6406 (|UnaryExpression/UnaryExpression.2.4| ATN-PARSER::INDEX))6407 (%ATN-EDGE-BLOCK6408 (PUSH |PrimaryExpression|)6409 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6410 (ATN-PARSE-SUBSTRUCTURE* '|PrimaryExpression| ATN-PARSER::INDEX)6411 (COND (ATN-PARSER::SUCCESS6412 (SETF *ATN-TERM* '|PrimaryExpression|)6413 (LET ((|PrimaryExpression719| |PrimaryExpression|))6414 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6415 (DESTRUCTURING-BIND6416 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6417 ATN-PARSER::RESULT-AND-INDEX6418 (WHEN ATN-PARSER::RESULT6419 (SETF |PrimaryExpression| ATN-PARSER::RESULT))6420 (|UnaryExpression.2| ATN-PARSER::RESULT-INDEX))6421 (SETF |PrimaryExpression| |PrimaryExpression719|))))6422 (T (SETF *ATN-TERM?* '|PrimaryExpression|) NIL))))6423 (|UnaryExpression/fail.3| ATN-PARSER::INDEX)))))6424 (|UnaryExpression/UnaryExpression.2.4| (ATN-PARSER::INDEX)6425 (%ATN-NODE-BLOCK6426 |UnaryExpression/UnaryExpression.2.4|6427 (%ATN-EDGE-BLOCK6428 (ATN-PARSER::CAT |UnaryOperator|)6429 (COND ((|IS-UnaryOperator| ATN-PARSER::|item|)6430 (SETF *ATN-TERM* '|UnaryOperator|)6431 (SETF |UnaryOperator|6432 (IF (EQ *ATN-REDUCE* T)6433 (ATN-REDUCE-ITEM #'|UnaryOperator-Constructor| ATN-PARSER::|item|)6434 (IF (EQ *ATN-REDUCE* 'CONS)6435 (LIST '|UnaryOperator| ATN-PARSER::|item|)6436 '|UnaryOperator|)))6437 (|UnaryExpression/UnaryExpression.2.5| (1+ ATN-PARSER::INDEX)))6438 (T (SETF *ATN-TERM* '|UnaryOperator|) NIL)))))6439 (|UnaryExpression/UnaryExpression.2.5| (ATN-PARSER::INDEX)6440 (%ATN-NODE-BLOCK6441 |UnaryExpression/UnaryExpression.2.5|6442 (%ATN-EDGE-BLOCK6443 (PUSH |PrimaryExpression|)6444 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6445 (ATN-PARSE-SUBSTRUCTURE* '|PrimaryExpression| ATN-PARSER::INDEX)6446 (COND (ATN-PARSER::SUCCESS6447 (SETF *ATN-TERM* '|PrimaryExpression|)6448 (LET ((|PrimaryExpression720| |PrimaryExpression|))6449 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6450 (DESTRUCTURING-BIND6451 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6452 ATN-PARSER::RESULT-AND-INDEX6453 (WHEN ATN-PARSER::RESULT (SETF |PrimaryExpression| ATN-PARSER::RESULT))6454 (|UnaryExpression.2| ATN-PARSER::RESULT-INDEX))6455 (SETF |PrimaryExpression| |PrimaryExpression720|))))6456 (T (SETF *ATN-TERM?* '|PrimaryExpression|) NIL)))))))6457 (|UnaryExpression/start.1| ATN-PARSER::INDEX)6458 (SETF *ATN-NODE NIL)6459 NIL6460 (IF ATN-PARSER::ATN-STRUCTURE6461 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6462 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6463 (WARN "recursive grammar: ~s @ position ~s: ~s" '|UnaryExpression| ATN-PARSER::INDEX *ATN-STACK))))6464 (PROGN (DEFVAR |PrimaryExpression-INDEX|)6465 (DEFUN |PrimaryExpression| (ATN-PARSER::INDEX &AUX (|Aggregate| NIL) (|BooleanLiteral| NIL) (|BrackettedExpression| NIL)6466 (|BuiltInCall| NIL) (|IRIrefOrFunction| NIL) (|NumericLiteral| NIL) (|RDFLiteral| NIL)6467 (|Var| NIL))6468 "{55} PrimaryExpression ::= (BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var | Aggregate)6469 (|Aggregate| |BooleanLiteral| |BrackettedExpression| |BuiltInCall| |IRIrefOrFunction| |NumericLiteral| |RDFLiteral| |Var|)"6470 (DECLARE (SPECIAL |PrimaryExpression-INDEX|))6471 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PrimaryExpression-INDEX| *ATN-LEVEL))6472 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6473 (IF (< |PrimaryExpression-INDEX| ATN-PARSER::INDEX)6474 (LET ((|PrimaryExpression-INDEX| ATN-PARSER::INDEX)6475 (*ATN-LEVEL (1+ *ATN-LEVEL))6476 (*ATN-STACK (CONS '|PrimaryExpression| *ATN-STACK))6477 (ATN-PARSER::ATN-STRUCTURE NIL))6478 (DECLARE (SPECIAL |PrimaryExpression-INDEX|))6479 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6480 (DECLARE (TYPE CONS *ATN-STACK))6481 (SYMBOL-MACROLET6482 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6483 (%ATN-BLOCK |PrimaryExpression|6484 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6485 (SETF *ATN-TERM* '|PrimaryExpression|)6486 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6487 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6488 (|PrimaryExpression.2| (ATN-PARSER::INDEX)6489 (%ATN-NODE-BLOCK6490 |PrimaryExpression.2|6491 (%ATN-EDGE-BLOCK6492 (POP |PrimaryExpression|)6493 (WHEN T6494 (SETF *ATN-TERM* '|PrimaryExpression|)6495 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6496 '|PrimaryExpression|6497 ATN-PARSER::INDEX6498 (LIST '|Aggregate|6499 |Aggregate|6500 '|BooleanLiteral|6501 |BooleanLiteral|6502 '|BrackettedExpression|6503 |BrackettedExpression|6504 '|BuiltInCall|6505 |BuiltInCall|6506 '|IRIrefOrFunction|6507 |IRIrefOrFunction|6508 '|NumericLiteral|6509 |NumericLiteral|6510 '|RDFLiteral|6511 |RDFLiteral|6512 '|Var|6513 |Var|))6514 (LET ((ATN-PARSER::RESULT-STRUCTURE6515 (IF (EQ *ATN-REDUCE* T)6516 (|PrimaryExpression-Constructor|6517 |Aggregate|6518 |BooleanLiteral|6519 |BrackettedExpression|6520 |BuiltInCall|6521 |IRIrefOrFunction|6522 |NumericLiteral|6523 |RDFLiteral|6524 |Var|)6525 (IF (EQ *ATN-REDUCE* 'CONS)6526 (CONS '|PrimaryExpression|6527 (DELETE NIL6528 (LIST |Aggregate|6529 |BooleanLiteral|6530 |BrackettedExpression|6531 |BuiltInCall|6532 |IRIrefOrFunction|6533 |NumericLiteral|6534 |RDFLiteral|6535 |Var|)))6536 '|PrimaryExpression|))))6537 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6538 (|PrimaryExpression/fail.3| (ATN-PARSER::INDEX)6539 (%ATN-NODE-BLOCK |PrimaryExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6540 (|PrimaryExpression/start.1| (ATN-PARSER::INDEX)6541 (%ATN-NODE-BLOCK6542 |PrimaryExpression/start.1|6543 (%ATN-EDGE-BLOCK6544 OR6545 (PROGN (%ATN-EDGE-BLOCK6546 (PUSH |BrackettedExpression|)6547 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6548 (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression| ATN-PARSER::INDEX)6549 (COND (ATN-PARSER::SUCCESS6550 (SETF *ATN-TERM* '|BrackettedExpression|)6551 (LET ((|BrackettedExpression720| |BrackettedExpression|))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 |BrackettedExpression| ATN-PARSER::RESULT))6558 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))6559 (SETF |BrackettedExpression| |BrackettedExpression720|))))6560 (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))6561 (%ATN-EDGE-BLOCK6562 (PUSH |BuiltInCall|)6563 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6564 (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall| ATN-PARSER::INDEX)6565 (COND (ATN-PARSER::SUCCESS6566 (SETF *ATN-TERM* '|BuiltInCall|)6567 (LET ((|BuiltInCall720| |BuiltInCall|))6568 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6569 (DESTRUCTURING-BIND6570 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6571 ATN-PARSER::RESULT-AND-INDEX6572 (WHEN ATN-PARSER::RESULT6573 (SETF |BuiltInCall| ATN-PARSER::RESULT))6574 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))6575 (SETF |BuiltInCall| |BuiltInCall720|))))6576 (T (SETF *ATN-TERM?* '|BuiltInCall|) NIL))))6577 (%ATN-EDGE-BLOCK6578 (PUSH |IRIrefOrFunction|)6579 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6580 (ATN-PARSE-SUBSTRUCTURE* '|IRIrefOrFunction| ATN-PARSER::INDEX)6581 (COND (ATN-PARSER::SUCCESS6582 (SETF *ATN-TERM* '|IRIrefOrFunction|)6583 (LET ((|IRIrefOrFunction720| |IRIrefOrFunction|))6584 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6585 (DESTRUCTURING-BIND6586 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6587 ATN-PARSER::RESULT-AND-INDEX6588 (WHEN ATN-PARSER::RESULT6589 (SETF |IRIrefOrFunction| ATN-PARSER::RESULT))6590 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))6591 (SETF |IRIrefOrFunction| |IRIrefOrFunction720|))))6592 (T (SETF *ATN-TERM?* '|IRIrefOrFunction|) NIL))))6593 (%ATN-EDGE-BLOCK6594 (PUSH |RDFLiteral|)6595 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6596 (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral| ATN-PARSER::INDEX)6597 (COND (ATN-PARSER::SUCCESS6598 (SETF *ATN-TERM* '|RDFLiteral|)6599 (LET ((|RDFLiteral720| |RDFLiteral|))6600 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6601 (DESTRUCTURING-BIND6602 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6603 ATN-PARSER::RESULT-AND-INDEX6604 (WHEN ATN-PARSER::RESULT6605 (SETF |RDFLiteral| ATN-PARSER::RESULT))6606 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))6607 (SETF |RDFLiteral| |RDFLiteral720|))))6608 (T (SETF *ATN-TERM?* '|RDFLiteral|) NIL))))6609 (%ATN-EDGE-BLOCK6610 (ATN-PARSER::CAT |NumericLiteral|)6611 (COND ((|IS-NumericLiteral| ATN-PARSER::|item|)6612 (SETF *ATN-TERM* '|NumericLiteral|)6613 (SETF |NumericLiteral|6614 (IF (EQ *ATN-REDUCE* T)6615 (ATN-REDUCE-ITEM6616 #'|NumericLiteral-Constructor|6617 ATN-PARSER::|item|)6618 (IF (EQ *ATN-REDUCE* 'CONS)6619 (LIST '|NumericLiteral| ATN-PARSER::|item|)6620 '|NumericLiteral|)))6621 (|PrimaryExpression.2| (1+ ATN-PARSER::INDEX)))6622 (T (SETF *ATN-TERM* '|NumericLiteral|) NIL)))6623 (%ATN-EDGE-BLOCK6624 (ATN-PARSER::CAT |BooleanLiteral|)6625 (COND ((|IS-BooleanLiteral| ATN-PARSER::|item|)6626 (SETF *ATN-TERM* '|BooleanLiteral|)6627 (SETF |BooleanLiteral|6628 (IF (EQ *ATN-REDUCE* T)6629 (ATN-REDUCE-ITEM6630 #'|BooleanLiteral-Constructor|6631 ATN-PARSER::|item|)6632 (IF (EQ *ATN-REDUCE* 'CONS)6633 (LIST '|BooleanLiteral| ATN-PARSER::|item|)6634 '|BooleanLiteral|)))6635 (|PrimaryExpression.2| (1+ ATN-PARSER::INDEX)))6636 (T (SETF *ATN-TERM* '|BooleanLiteral|) NIL)))6637 (%ATN-EDGE-BLOCK6638 (TEST |Var|)6639 (COND ((|IS-Var| ATN-PARSER::|item|)6640 (SETF *ATN-TERM* '|Var|)6641 (SETF |Var|6642 (IF (EQ *ATN-REDUCE* T)6643 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)6644 (IF (EQ *ATN-REDUCE* 'CONS)6645 (LIST '|Var| ATN-PARSER::|item|)6646 '|Var|)))6647 (|PrimaryExpression.2| (1+ ATN-PARSER::INDEX)))6648 (T (SETF *ATN-TERM?* '|Var|) NIL)))6649 (%ATN-EDGE-BLOCK6650 (PUSH |Aggregate|)6651 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6652 (ATN-PARSE-SUBSTRUCTURE* '|Aggregate| ATN-PARSER::INDEX)6653 (COND (ATN-PARSER::SUCCESS6654 (SETF *ATN-TERM* '|Aggregate|)6655 (LET ((|Aggregate720| |Aggregate|))6656 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6657 (DESTRUCTURING-BIND6658 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6659 ATN-PARSER::RESULT-AND-INDEX6660 (WHEN ATN-PARSER::RESULT (SETF |Aggregate| ATN-PARSER::RESULT))6661 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))6662 (SETF |Aggregate| |Aggregate720|))))6663 (T (SETF *ATN-TERM?* '|Aggregate|) NIL))))6664 (|PrimaryExpression/fail.3| ATN-PARSER::INDEX))))))6665 (|PrimaryExpression/start.1| ATN-PARSER::INDEX)6666 (SETF *ATN-NODE NIL)6667 NIL6668 (IF ATN-PARSER::ATN-STRUCTURE6669 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6670 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6671 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PrimaryExpression| ATN-PARSER::INDEX *ATN-STACK))))6672 (PROGN (DEFVAR |BrackettedExpression-INDEX|)6673 (DEFUN |BrackettedExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))6674 "{56} BrackettedExpression ::= '(' Expression ')'6675 (|Expression|)"6676 (DECLARE (SPECIAL |BrackettedExpression-INDEX|))6677 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BrackettedExpression-INDEX| *ATN-LEVEL))6678 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6679 (IF (< |BrackettedExpression-INDEX| ATN-PARSER::INDEX)6680 (LET ((|BrackettedExpression-INDEX| ATN-PARSER::INDEX)6681 (*ATN-LEVEL (1+ *ATN-LEVEL))6682 (*ATN-STACK (CONS '|BrackettedExpression| *ATN-STACK))6683 (ATN-PARSER::ATN-STRUCTURE NIL))6684 (DECLARE (SPECIAL |BrackettedExpression-INDEX|))6685 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6686 (DECLARE (TYPE CONS *ATN-STACK))6687 (SYMBOL-MACROLET6688 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6689 (%ATN-BLOCK |BrackettedExpression|6690 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6691 (SETF *ATN-TERM* '|BrackettedExpression|)6692 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6693 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6694 (|BrackettedExpression.2| (ATN-PARSER::INDEX)6695 (%ATN-NODE-BLOCK6696 |BrackettedExpression.2|6697 (%ATN-EDGE-BLOCK6698 (POP |BrackettedExpression|)6699 (WHEN T6700 (SETF *ATN-TERM* '|BrackettedExpression|)6701 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6702 '|BrackettedExpression|6703 ATN-PARSER::INDEX6704 (LIST '|Expression| |Expression|))6705 (LET ((ATN-PARSER::RESULT-STRUCTURE6706 (IF (EQ *ATN-REDUCE* T)6707 (|BrackettedExpression-Constructor| |Expression|)6708 (IF (EQ *ATN-REDUCE* 'CONS)6709 (CONS '|BrackettedExpression| (DELETE NIL (LIST |Expression|)))6710 '|BrackettedExpression|))))6711 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6712 (|BrackettedExpression/BrackettedExpression.2.4| (ATN-PARSER::INDEX)6713 (%ATN-NODE-BLOCK6714 |BrackettedExpression/BrackettedExpression.2.4|6715 (%ATN-EDGE-BLOCK6716 (PUSH |Expression|)6717 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6718 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)6719 (COND (ATN-PARSER::SUCCESS6720 (SETF *ATN-TERM* '|Expression|)6721 (LET ((|Expression720| |Expression|))6722 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6723 (DESTRUCTURING-BIND6724 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6725 ATN-PARSER::RESULT-AND-INDEX6726 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))6727 (|BrackettedExpression/BrackettedExpression.2.5|6728 ATN-PARSER::RESULT-INDEX))6729 (SETF |Expression| |Expression720|))))6730 (T6731 (SETF *ATN-TERM?* '|Expression|)6732 (|BrackettedExpression/fail.3| ATN-PARSER::INDEX)))))))6733 (|BrackettedExpression/BrackettedExpression.2.5| (ATN-PARSER::INDEX)6734 (%ATN-NODE-BLOCK6735 |BrackettedExpression/BrackettedExpression.2.5|6736 (%ATN-EDGE-BLOCK6737 (ATN-PARSER::WORD SPOCQ.S:\))6738 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))6739 (SETF *ATN-TERM* 'SPOCQ.S:\))6740 (|BrackettedExpression.2| (1+ ATN-PARSER::INDEX)))6741 (T6742 (SETF *ATN-TERM?* 'SPOCQ.S:\))6743 (|BrackettedExpression/fail.3| ATN-PARSER::INDEX))))))6744 (|BrackettedExpression/fail.3| (ATN-PARSER::INDEX)6745 (%ATN-NODE-BLOCK6746 |BrackettedExpression/fail.3|6747 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6748 (|BrackettedExpression/start.1| (ATN-PARSER::INDEX)6749 (%ATN-NODE-BLOCK6750 |BrackettedExpression/start.1|6751 (%ATN-EDGE-BLOCK6752 (ATN-PARSER::WORD SPOCQ.S:\()6753 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()6754 (SETF *ATN-TERM* 'SPOCQ.S:\()6755 (|BrackettedExpression/BrackettedExpression.2.4| (1+ ATN-PARSER::INDEX)))6756 (T6757 (SETF *ATN-TERM?* 'SPOCQ.S:\()6758 (|BrackettedExpression/fail.3| ATN-PARSER::INDEX)))))))6759 (|BrackettedExpression/start.1| ATN-PARSER::INDEX)6760 (SETF *ATN-NODE NIL)6761 NIL6762 (IF ATN-PARSER::ATN-STRUCTURE6763 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6764 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6765 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BrackettedExpression| ATN-PARSER::INDEX *ATN-STACK))))6766 (PROGN (DEFVAR |BuiltInCall-INDEX|)6767 (DEFUN |BuiltInCall| (ATN-PARSER::INDEX &AUX (|BuiltinBinaryCall| NIL) (|BuiltinUnaryCall| NIL) (|RegexExpression| NIL))6768 "{57} BuiltInCall ::= (BuiltinBinaryCall | BuiltinUnaryCall | RegexExpression)6769 (|BuiltinBinaryCall| |BuiltinUnaryCall| |RegexExpression|)"6770 (DECLARE (SPECIAL |BuiltInCall-INDEX|))6771 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltInCall-INDEX| *ATN-LEVEL))6772 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6773 (IF (< |BuiltInCall-INDEX| ATN-PARSER::INDEX)6774 (LET ((|BuiltInCall-INDEX| ATN-PARSER::INDEX)6775 (*ATN-LEVEL (1+ *ATN-LEVEL))6776 (*ATN-STACK (CONS '|BuiltInCall| *ATN-STACK))6777 (ATN-PARSER::ATN-STRUCTURE NIL))6778 (DECLARE (SPECIAL |BuiltInCall-INDEX|))6779 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6780 (DECLARE (TYPE CONS *ATN-STACK))6781 (SYMBOL-MACROLET6782 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6783 (%ATN-BLOCK |BuiltInCall|6784 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6785 (SETF *ATN-TERM* '|BuiltInCall|)6786 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6787 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6788 (|BuiltInCall.2| (ATN-PARSER::INDEX)6789 (%ATN-NODE-BLOCK6790 |BuiltInCall.2|6791 (%ATN-EDGE-BLOCK6792 (POP |BuiltInCall|)6793 (WHEN T6794 (SETF *ATN-TERM* '|BuiltInCall|)6795 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6796 '|BuiltInCall|6797 ATN-PARSER::INDEX6798 (LIST '|BuiltinBinaryCall|6799 |BuiltinBinaryCall|6800 '|BuiltinUnaryCall|6801 |BuiltinUnaryCall|6802 '|RegexExpression|6803 |RegexExpression|))6804 (LET ((ATN-PARSER::RESULT-STRUCTURE6805 (IF (EQ *ATN-REDUCE* T)6806 (|BuiltInCall-Constructor|6807 |BuiltinBinaryCall|6808 |BuiltinUnaryCall|6809 |RegexExpression|)6810 (IF (EQ *ATN-REDUCE* 'CONS)6811 (CONS '|BuiltInCall|6812 (DELETE NIL6813 (LIST |BuiltinBinaryCall|6814 |BuiltinUnaryCall|6815 |RegexExpression|)))6816 '|BuiltInCall|))))6817 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6818 (|BuiltInCall/fail.3| (ATN-PARSER::INDEX)6819 (%ATN-NODE-BLOCK |BuiltInCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6820 (|BuiltInCall/start.1| (ATN-PARSER::INDEX)6821 (%ATN-NODE-BLOCK6822 |BuiltInCall/start.1|6823 (%ATN-EDGE-BLOCK6824 OR6825 (PROGN (%ATN-EDGE-BLOCK6826 (PUSH |BuiltinBinaryCall|)6827 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6828 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinBinaryCall| ATN-PARSER::INDEX)6829 (COND (ATN-PARSER::SUCCESS6830 (SETF *ATN-TERM* '|BuiltinBinaryCall|)6831 (LET ((|BuiltinBinaryCall720| |BuiltinBinaryCall|))6832 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6833 (DESTRUCTURING-BIND6834 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6835 ATN-PARSER::RESULT-AND-INDEX6836 (WHEN ATN-PARSER::RESULT6837 (SETF |BuiltinBinaryCall| ATN-PARSER::RESULT))6838 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))6839 (SETF |BuiltinBinaryCall| |BuiltinBinaryCall720|))))6840 (T (SETF *ATN-TERM?* '|BuiltinBinaryCall|) NIL))))6841 (%ATN-EDGE-BLOCK6842 (PUSH |BuiltinUnaryCall|)6843 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6844 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinUnaryCall| ATN-PARSER::INDEX)6845 (COND (ATN-PARSER::SUCCESS6846 (SETF *ATN-TERM* '|BuiltinUnaryCall|)6847 (LET ((|BuiltinUnaryCall720| |BuiltinUnaryCall|))6848 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6849 (DESTRUCTURING-BIND6850 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6851 ATN-PARSER::RESULT-AND-INDEX6852 (WHEN ATN-PARSER::RESULT6853 (SETF |BuiltinUnaryCall| ATN-PARSER::RESULT))6854 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))6855 (SETF |BuiltinUnaryCall| |BuiltinUnaryCall720|))))6856 (T (SETF *ATN-TERM?* '|BuiltinUnaryCall|) NIL))))6857 (%ATN-EDGE-BLOCK6858 (PUSH |RegexExpression|)6859 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6860 (ATN-PARSE-SUBSTRUCTURE* '|RegexExpression| ATN-PARSER::INDEX)6861 (COND (ATN-PARSER::SUCCESS6862 (SETF *ATN-TERM* '|RegexExpression|)6863 (LET ((|RegexExpression720| |RegexExpression|))6864 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6865 (DESTRUCTURING-BIND6866 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6867 ATN-PARSER::RESULT-AND-INDEX6868 (WHEN ATN-PARSER::RESULT6869 (SETF |RegexExpression| ATN-PARSER::RESULT))6870 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))6871 (SETF |RegexExpression| |RegexExpression720|))))6872 (T (SETF *ATN-TERM?* '|RegexExpression|) NIL))))6873 (|BuiltInCall/fail.3| ATN-PARSER::INDEX))))))6874 (|BuiltInCall/start.1| ATN-PARSER::INDEX)6875 (SETF *ATN-NODE NIL)6876 NIL6877 (IF ATN-PARSER::ATN-STRUCTURE6878 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6879 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6880 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltInCall| ATN-PARSER::INDEX *ATN-STACK))))6881 (PROGN (DEFVAR |BuiltinUnaryCall-INDEX|)6882 (DEFUN |BuiltinUnaryCall| (ATN-PARSER::INDEX &AUX (|BuiltinUnaryOperator| NIL) (|Expression| NIL))6883 "{57} BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'6884 (|BuiltinUnaryOperator| |Expression|)"6885 (DECLARE (SPECIAL |BuiltinUnaryCall-INDEX|))6886 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinUnaryCall-INDEX| *ATN-LEVEL))6887 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6888 (IF (< |BuiltinUnaryCall-INDEX| ATN-PARSER::INDEX)6889 (LET ((|BuiltinUnaryCall-INDEX| ATN-PARSER::INDEX)6890 (*ATN-LEVEL (1+ *ATN-LEVEL))6891 (*ATN-STACK (CONS '|BuiltinUnaryCall| *ATN-STACK))6892 (ATN-PARSER::ATN-STRUCTURE NIL))6893 (DECLARE (SPECIAL |BuiltinUnaryCall-INDEX|))6894 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6895 (DECLARE (TYPE CONS *ATN-STACK))6896 (SYMBOL-MACROLET6897 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6898 (%ATN-BLOCK |BuiltinUnaryCall|6899 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6900 (SETF *ATN-TERM* '|BuiltinUnaryCall|)6901 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6902 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6903 (|BuiltinUnaryCall.2| (ATN-PARSER::INDEX)6904 (%ATN-NODE-BLOCK6905 |BuiltinUnaryCall.2|6906 (%ATN-EDGE-BLOCK6907 (POP |BuiltinUnaryCall|)6908 (WHEN T6909 (SETF *ATN-TERM* '|BuiltinUnaryCall|)6910 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6911 '|BuiltinUnaryCall|6912 ATN-PARSER::INDEX6913 (LIST '|BuiltinUnaryOperator|6914 |BuiltinUnaryOperator|6915 '|Expression|6916 |Expression|))6917 (LET ((ATN-PARSER::RESULT-STRUCTURE6918 (IF (EQ *ATN-REDUCE* T)6919 (|BuiltinUnaryCall-Constructor| |BuiltinUnaryOperator| |Expression|)6920 (IF (EQ *ATN-REDUCE* 'CONS)6921 (CONS '|BuiltinUnaryCall|6922 (DELETE NIL (LIST |BuiltinUnaryOperator| |Expression|)))6923 '|BuiltinUnaryCall|))))6924 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6925 (|BuiltinUnaryCall/BuiltinUnaryCall.2.4| (ATN-PARSER::INDEX)6926 (%ATN-NODE-BLOCK6927 |BuiltinUnaryCall/BuiltinUnaryCall.2.4|6928 (%ATN-EDGE-BLOCK6929 (ATN-PARSER::WORD SPOCQ.S:\()6930 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()6931 (SETF *ATN-TERM* 'SPOCQ.S:\()6932 (|BuiltinUnaryCall/BuiltinUnaryCall.2.5| (1+ ATN-PARSER::INDEX)))6933 (T6934 (SETF *ATN-TERM?* 'SPOCQ.S:\()6935 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX))))))6936 (|BuiltinUnaryCall/BuiltinUnaryCall.2.5| (ATN-PARSER::INDEX)6937 (%ATN-NODE-BLOCK6938 |BuiltinUnaryCall/BuiltinUnaryCall.2.5|6939 (%ATN-EDGE-BLOCK6940 (PUSH |Expression|)6941 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6942 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)6943 (COND (ATN-PARSER::SUCCESS6944 (SETF *ATN-TERM* '|Expression|)6945 (LET ((|Expression721| |Expression|))6946 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6947 (DESTRUCTURING-BIND6948 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6949 ATN-PARSER::RESULT-AND-INDEX6950 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))6951 (|BuiltinUnaryCall/BuiltinUnaryCall.2.6| ATN-PARSER::RESULT-INDEX))6952 (SETF |Expression| |Expression721|))))6953 (T6954 (SETF *ATN-TERM?* '|Expression|)6955 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX)))))))6956 (|BuiltinUnaryCall/BuiltinUnaryCall.2.6| (ATN-PARSER::INDEX)6957 (%ATN-NODE-BLOCK6958 |BuiltinUnaryCall/BuiltinUnaryCall.2.6|6959 (%ATN-EDGE-BLOCK6960 (ATN-PARSER::WORD SPOCQ.S:\))6961 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))6962 (SETF *ATN-TERM* 'SPOCQ.S:\))6963 (|BuiltinUnaryCall.2| (1+ ATN-PARSER::INDEX)))6964 (T6965 (SETF *ATN-TERM?* 'SPOCQ.S:\))6966 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX))))))6967 (|BuiltinUnaryCall/fail.3| (ATN-PARSER::INDEX)6968 (%ATN-NODE-BLOCK |BuiltinUnaryCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6969 (|BuiltinUnaryCall/start.1| (ATN-PARSER::INDEX)6970 (%ATN-NODE-BLOCK6971 |BuiltinUnaryCall/start.1|6972 (%ATN-EDGE-BLOCK6973 (ATN-PARSER::CAT |BuiltinUnaryOperator|)6974 (COND ((|IS-BuiltinUnaryOperator| ATN-PARSER::|item|)6975 (SETF *ATN-TERM* '|BuiltinUnaryOperator|)6976 (SETF |BuiltinUnaryOperator|6977 (IF (EQ *ATN-REDUCE* T)6978 (ATN-REDUCE-ITEM6979 #'|BuiltinUnaryOperator-Constructor|6980 ATN-PARSER::|item|)6981 (IF (EQ *ATN-REDUCE* 'CONS)6982 (LIST '|BuiltinUnaryOperator| ATN-PARSER::|item|)6983 '|BuiltinUnaryOperator|)))6984 (|BuiltinUnaryCall/BuiltinUnaryCall.2.4| (1+ ATN-PARSER::INDEX)))6985 (T6986 (SETF *ATN-TERM* '|BuiltinUnaryOperator|)6987 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX)))))))6988 (|BuiltinUnaryCall/start.1| ATN-PARSER::INDEX)6989 (SETF *ATN-NODE NIL)6990 NIL6991 (IF ATN-PARSER::ATN-STRUCTURE6992 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6993 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6994 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinUnaryCall| ATN-PARSER::INDEX *ATN-STACK))))6995 (PROGN (DEFVAR |BuiltinBinaryCall-INDEX|)6996 (DEFUN |BuiltinBinaryCall| (ATN-PARSER::INDEX &AUX (|BuiltinBinaryOperator| NIL) (|Expression| NIL))6997 "{57} BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'6998 (|BuiltinBinaryOperator| |Expression|)"6999 (DECLARE (SPECIAL |BuiltinBinaryCall-INDEX|))7000 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinBinaryCall-INDEX| *ATN-LEVEL))7001 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7002 (IF (< |BuiltinBinaryCall-INDEX| ATN-PARSER::INDEX)7003 (LET ((|BuiltinBinaryCall-INDEX| ATN-PARSER::INDEX)7004 (*ATN-LEVEL (1+ *ATN-LEVEL))7005 (*ATN-STACK (CONS '|BuiltinBinaryCall| *ATN-STACK))7006 (ATN-PARSER::ATN-STRUCTURE NIL))7007 (DECLARE (SPECIAL |BuiltinBinaryCall-INDEX|))7008 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7009 (DECLARE (TYPE CONS *ATN-STACK))7010 (SYMBOL-MACROLET7011 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7012 (%ATN-BLOCK |BuiltinBinaryCall|7013 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7014 (SETF *ATN-TERM* '|BuiltinBinaryCall|)7015 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7016 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7017 (|BuiltinBinaryCall.2| (ATN-PARSER::INDEX)7018 (%ATN-NODE-BLOCK7019 |BuiltinBinaryCall.2|7020 (%ATN-EDGE-BLOCK7021 (POP |BuiltinBinaryCall|)7022 (WHEN T7023 (SETF *ATN-TERM* '|BuiltinBinaryCall|)7024 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7025 '|BuiltinBinaryCall|7026 ATN-PARSER::INDEX7027 (LIST '|BuiltinBinaryOperator|7028 |BuiltinBinaryOperator|7029 '|Expression|7030 |Expression|))7031 (LET ((ATN-PARSER::RESULT-STRUCTURE7032 (IF (EQ *ATN-REDUCE* T)7033 (|BuiltinBinaryCall-Constructor| |BuiltinBinaryOperator| |Expression|)7034 (IF (EQ *ATN-REDUCE* 'CONS)7035 (CONS '|BuiltinBinaryCall|7036 (DELETE NIL (LIST |BuiltinBinaryOperator| |Expression|)))7037 '|BuiltinBinaryCall|))))7038 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7039 (|BuiltinBinaryCall/BuiltinBinaryCall.2.4| (ATN-PARSER::INDEX)7040 (%ATN-NODE-BLOCK7041 |BuiltinBinaryCall/BuiltinBinaryCall.2.4|7042 (%ATN-EDGE-BLOCK7043 (ATN-PARSER::WORD SPOCQ.S:\()7044 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()7045 (SETF *ATN-TERM* 'SPOCQ.S:\()7046 (|BuiltinBinaryCall/BuiltinBinaryCall.2.5| (1+ ATN-PARSER::INDEX)))7047 (T7048 (SETF *ATN-TERM?* 'SPOCQ.S:\()7049 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))7050 (|BuiltinBinaryCall/BuiltinBinaryCall.2.5| (ATN-PARSER::INDEX)7051 (%ATN-NODE-BLOCK7052 |BuiltinBinaryCall/BuiltinBinaryCall.2.5|7053 (%ATN-EDGE-BLOCK7054 (PUSH |Expression|)7055 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7056 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)7057 (COND (ATN-PARSER::SUCCESS7058 (SETF *ATN-TERM* '|Expression|)7059 (LET ((|Expression723| |Expression|))7060 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7061 (DESTRUCTURING-BIND7062 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7063 ATN-PARSER::RESULT-AND-INDEX7064 (WHEN ATN-PARSER::RESULT7065 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))7066 (|BuiltinBinaryCall/BuiltinBinaryCall.2.6| ATN-PARSER::RESULT-INDEX))7067 (SETF |Expression| |Expression723|))))7068 (T7069 (SETF *ATN-TERM?* '|Expression|)7070 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))7071 (|BuiltinBinaryCall/BuiltinBinaryCall.2.6| (ATN-PARSER::INDEX)7072 (%ATN-NODE-BLOCK7073 |BuiltinBinaryCall/BuiltinBinaryCall.2.6|7074 (%ATN-EDGE-BLOCK7075 (ATN-PARSER::WORD SPOCQ.S:\,)7076 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)7077 (SETF *ATN-TERM* 'SPOCQ.S:\,)7078 (|BuiltinBinaryCall/BuiltinBinaryCall.2.7| (1+ ATN-PARSER::INDEX)))7079 (T7080 (SETF *ATN-TERM?* 'SPOCQ.S:\,)7081 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))7082 (|BuiltinBinaryCall/BuiltinBinaryCall.2.7| (ATN-PARSER::INDEX)7083 (%ATN-NODE-BLOCK7084 |BuiltinBinaryCall/BuiltinBinaryCall.2.7|7085 (%ATN-EDGE-BLOCK7086 (PUSH |Expression|)7087 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7088 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)7089 (COND (ATN-PARSER::SUCCESS7090 (SETF *ATN-TERM* '|Expression|)7091 (LET ((|Expression722| |Expression|))7092 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7093 (DESTRUCTURING-BIND7094 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7095 ATN-PARSER::RESULT-AND-INDEX7096 (WHEN ATN-PARSER::RESULT7097 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))7098 (|BuiltinBinaryCall/BuiltinBinaryCall.2.8| ATN-PARSER::RESULT-INDEX))7099 (SETF |Expression| |Expression722|))))7100 (T7101 (SETF *ATN-TERM?* '|Expression|)7102 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))7103 (|BuiltinBinaryCall/BuiltinBinaryCall.2.8| (ATN-PARSER::INDEX)7104 (%ATN-NODE-BLOCK7105 |BuiltinBinaryCall/BuiltinBinaryCall.2.8|7106 (%ATN-EDGE-BLOCK7107 (ATN-PARSER::WORD SPOCQ.S:\))7108 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))7109 (SETF *ATN-TERM* 'SPOCQ.S:\))7110 (|BuiltinBinaryCall.2| (1+ ATN-PARSER::INDEX)))7111 (T7112 (SETF *ATN-TERM?* 'SPOCQ.S:\))7113 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))7114 (|BuiltinBinaryCall/fail.3| (ATN-PARSER::INDEX)7115 (%ATN-NODE-BLOCK |BuiltinBinaryCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7116 (|BuiltinBinaryCall/start.1| (ATN-PARSER::INDEX)7117 (%ATN-NODE-BLOCK7118 |BuiltinBinaryCall/start.1|7119 (%ATN-EDGE-BLOCK7120 (ATN-PARSER::CAT |BuiltinBinaryOperator|)7121 (COND ((|IS-BuiltinBinaryOperator| ATN-PARSER::|item|)7122 (SETF *ATN-TERM* '|BuiltinBinaryOperator|)7123 (SETF |BuiltinBinaryOperator|7124 (IF (EQ *ATN-REDUCE* T)7125 (ATN-REDUCE-ITEM7126 #'|BuiltinBinaryOperator-Constructor|7127 ATN-PARSER::|item|)7128 (IF (EQ *ATN-REDUCE* 'CONS)7129 (LIST '|BuiltinBinaryOperator| ATN-PARSER::|item|)7130 '|BuiltinBinaryOperator|)))7131 (|BuiltinBinaryCall/BuiltinBinaryCall.2.4| (1+ ATN-PARSER::INDEX)))7132 (T7133 (SETF *ATN-TERM* '|BuiltinBinaryOperator|)7134 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))7135 (|BuiltinBinaryCall/start.1| ATN-PARSER::INDEX)7136 (SETF *ATN-NODE NIL)7137 NIL7138 (IF ATN-PARSER::ATN-STRUCTURE7139 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7140 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7141 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinBinaryCall| ATN-PARSER::INDEX *ATN-STACK))))7142 (PROGN (DEFVAR |RegexExpression-INDEX|)7143 (DEFUN |RegexExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))7144 "{58} RegexExpression ::= 'REGEX' '(' Expression ',' Expression (','7145 Expression)? ')'7146 (|Expression|)"7147 (DECLARE (SPECIAL |RegexExpression-INDEX|))7148 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RegexExpression-INDEX| *ATN-LEVEL))7149 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7150 (IF (< |RegexExpression-INDEX| ATN-PARSER::INDEX)7151 (LET ((|RegexExpression-INDEX| ATN-PARSER::INDEX)7152 (*ATN-LEVEL (1+ *ATN-LEVEL))7153 (*ATN-STACK (CONS '|RegexExpression| *ATN-STACK))7154 (ATN-PARSER::ATN-STRUCTURE NIL))7155 (DECLARE (SPECIAL |RegexExpression-INDEX|))7156 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7157 (DECLARE (TYPE CONS *ATN-STACK))7158 (SYMBOL-MACROLET7159 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7160 (%ATN-BLOCK |RegexExpression|7161 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7162 (SETF *ATN-TERM* '|RegexExpression|)7163 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7164 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7165 (|RegexExpression.2| (ATN-PARSER::INDEX)7166 (%ATN-NODE-BLOCK7167 |RegexExpression.2|7168 (%ATN-EDGE-BLOCK7169 (POP |RegexExpression|)7170 (WHEN T7171 (SETF *ATN-TERM* '|RegexExpression|)7172 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7173 '|RegexExpression|7174 ATN-PARSER::INDEX7175 (LIST '|Expression| |Expression|))7176 (LET ((ATN-PARSER::RESULT-STRUCTURE7177 (IF (EQ *ATN-REDUCE* T)7178 (|RegexExpression-Constructor| |Expression|)7179 (IF (EQ *ATN-REDUCE* 'CONS)7180 (CONS '|RegexExpression| (DELETE NIL (LIST |Expression|)))7181 '|RegexExpression|))))7182 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7183 (|RegexExpression/fail.3| (ATN-PARSER::INDEX)7184 (%ATN-NODE-BLOCK |RegexExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7185 (|RegexExpression/RegexExpression.2.4| (ATN-PARSER::INDEX)7186 (%ATN-NODE-BLOCK7187 |RegexExpression/RegexExpression.2.4|7188 (%ATN-EDGE-BLOCK7189 (ATN-PARSER::WORD SPOCQ.S:\()7190 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()7191 (SETF *ATN-TERM* 'SPOCQ.S:\()7192 (|RegexExpression/RegexExpression.2.5| (1+ ATN-PARSER::INDEX)))7193 (T7194 (SETF *ATN-TERM?* 'SPOCQ.S:\()7195 (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))7196 (|RegexExpression/RegexExpression.2.5| (ATN-PARSER::INDEX)7197 (%ATN-NODE-BLOCK7198 |RegexExpression/RegexExpression.2.5|7199 (%ATN-EDGE-BLOCK7200 (PUSH |Expression|)7201 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7202 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)7203 (COND (ATN-PARSER::SUCCESS7204 (SETF *ATN-TERM* '|Expression|)7205 (LET ((|Expression726| |Expression|))7206 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7207 (DESTRUCTURING-BIND7208 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7209 ATN-PARSER::RESULT-AND-INDEX7210 (WHEN ATN-PARSER::RESULT7211 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))7212 (|RegexExpression/RegexExpression.2.6| ATN-PARSER::RESULT-INDEX))7213 (SETF |Expression| |Expression726|))))7214 (T7215 (SETF *ATN-TERM?* '|Expression|)7216 (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))7217 (|RegexExpression/RegexExpression.2.6| (ATN-PARSER::INDEX)7218 (%ATN-NODE-BLOCK7219 |RegexExpression/RegexExpression.2.6|7220 (%ATN-EDGE-BLOCK7221 (ATN-PARSER::WORD SPOCQ.S:\,)7222 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)7223 (SETF *ATN-TERM* 'SPOCQ.S:\,)7224 (|RegexExpression/RegexExpression.2.7| (1+ ATN-PARSER::INDEX)))7225 (T7226 (SETF *ATN-TERM?* 'SPOCQ.S:\,)7227 (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))7228 (|RegexExpression/RegexExpression.2.7| (ATN-PARSER::INDEX)7229 (%ATN-NODE-BLOCK7230 |RegexExpression/RegexExpression.2.7|7231 (%ATN-EDGE-BLOCK7232 (PUSH |Expression|)7233 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7234 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)7235 (COND (ATN-PARSER::SUCCESS7236 (SETF *ATN-TERM* '|Expression|)7237 (LET ((|Expression725| |Expression|))7238 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7239 (DESTRUCTURING-BIND7240 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7241 ATN-PARSER::RESULT-AND-INDEX7242 (WHEN ATN-PARSER::RESULT7243 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))7244 (|RegexExpression/RegexExpression.2.8| ATN-PARSER::RESULT-INDEX))7245 (SETF |Expression| |Expression725|))))7246 (T7247 (SETF *ATN-TERM?* '|Expression|)7248 (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))7249 (|RegexExpression/RegexExpression.2.8| (ATN-PARSER::INDEX)7250 (%ATN-NODE-BLOCK7251 |RegexExpression/RegexExpression.2.8|7252 (%ATN-EDGE-BLOCK7253 (ATN-PARSER::JUMP |RegexExpression/RegexExpression/RegexExpression.2.9.10|)7254 (|RegexExpression/RegexExpression/RegexExpression.2.9.10| ATN-PARSER::INDEX))7255 (%ATN-EDGE-BLOCK7256 (ATN-PARSER::JUMP |RegexExpression/RegexExpression.2.9|)7257 (|RegexExpression/RegexExpression.2.9| ATN-PARSER::INDEX))))7258 (|RegexExpression/RegexExpression.2.9| (ATN-PARSER::INDEX)7259 (%ATN-NODE-BLOCK7260 |RegexExpression/RegexExpression.2.9|7261 (%ATN-EDGE-BLOCK7262 (ATN-PARSER::WORD SPOCQ.S:\))7263 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))7264 (SETF *ATN-TERM* 'SPOCQ.S:\))7265 (|RegexExpression.2| (1+ ATN-PARSER::INDEX)))7266 (T7267 (SETF *ATN-TERM?* 'SPOCQ.S:\))7268 (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))7269 (|RegexExpression/RegexExpression/RegexExpression.2.9.10| (ATN-PARSER::INDEX)7270 (%ATN-NODE-BLOCK7271 |RegexExpression/RegexExpression/RegexExpression.2.9.10|7272 (%ATN-EDGE-BLOCK7273 (ATN-PARSER::WORD SPOCQ.S:\,)7274 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)7275 (SETF *ATN-TERM* 'SPOCQ.S:\,)7276 (|RegexExpression/RegexExpression/RegexExpression.2.9.11|7277 (1+ ATN-PARSER::INDEX)))7278 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))7279 (|RegexExpression/RegexExpression/RegexExpression.2.9.11| (ATN-PARSER::INDEX)7280 (%ATN-NODE-BLOCK7281 |RegexExpression/RegexExpression/RegexExpression.2.9.11|7282 (%ATN-EDGE-BLOCK7283 (PUSH |Expression|)7284 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7285 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)7286 (COND (ATN-PARSER::SUCCESS7287 (SETF *ATN-TERM* '|Expression|)7288 (LET ((|Expression724| |Expression|))7289 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7290 (DESTRUCTURING-BIND7291 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7292 ATN-PARSER::RESULT-AND-INDEX7293 (WHEN ATN-PARSER::RESULT7294 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))7295 (|RegexExpression/RegexExpression.2.9| ATN-PARSER::RESULT-INDEX))7296 (SETF |Expression| |Expression724|))))7297 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))7298 (|RegexExpression/start.1| (ATN-PARSER::INDEX)7299 (%ATN-NODE-BLOCK7300 |RegexExpression/start.1|7301 (%ATN-EDGE-BLOCK7302 (ATN-PARSER::WORD SPOCQ.S:REGEX)7303 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:REGEX)7304 (SETF *ATN-TERM* 'SPOCQ.S:REGEX)7305 (|RegexExpression/RegexExpression.2.4| (1+ ATN-PARSER::INDEX)))7306 (T7307 (SETF *ATN-TERM?* 'SPOCQ.S:REGEX)7308 (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))7309 (|RegexExpression/start.1| ATN-PARSER::INDEX)7310 (SETF *ATN-NODE NIL)7311 NIL7312 (IF ATN-PARSER::ATN-STRUCTURE7313 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7314 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7315 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RegexExpression| ATN-PARSER::INDEX *ATN-STACK))))7316 (PROGN (DEFVAR |IRIrefOrFunction-INDEX|)7317 (DEFUN |IRIrefOrFunction| (ATN-PARSER::INDEX &AUX (|ArgList| NIL) (|IRIref| NIL))7318 "{59} IRIrefOrFunction ::= IRIref ArgList?7319 (|ArgList| |IRIref|)"7320 (DECLARE (SPECIAL |IRIrefOrFunction-INDEX|))7321 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IRIrefOrFunction-INDEX| *ATN-LEVEL))7322 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7323 (IF (< |IRIrefOrFunction-INDEX| ATN-PARSER::INDEX)7324 (LET ((|IRIrefOrFunction-INDEX| ATN-PARSER::INDEX)7325 (*ATN-LEVEL (1+ *ATN-LEVEL))7326 (*ATN-STACK (CONS '|IRIrefOrFunction| *ATN-STACK))7327 (ATN-PARSER::ATN-STRUCTURE NIL))7328 (DECLARE (SPECIAL |IRIrefOrFunction-INDEX|))7329 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7330 (DECLARE (TYPE CONS *ATN-STACK))7331 (SYMBOL-MACROLET7332 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7333 (%ATN-BLOCK |IRIrefOrFunction|7334 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7335 (SETF *ATN-TERM* '|IRIrefOrFunction|)7336 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7337 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7338 (|IRIrefOrFunction.2| (ATN-PARSER::INDEX)7339 (%ATN-NODE-BLOCK7340 |IRIrefOrFunction.2|7341 (%ATN-EDGE-BLOCK7342 (POP |IRIrefOrFunction|)7343 (WHEN T7344 (SETF *ATN-TERM* '|IRIrefOrFunction|)7345 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7346 '|IRIrefOrFunction|7347 ATN-PARSER::INDEX7348 (LIST '|ArgList| |ArgList| '|IRIref| |IRIref|))7349 (LET ((ATN-PARSER::RESULT-STRUCTURE7350 (IF (EQ *ATN-REDUCE* T)7351 (|IRIrefOrFunction-Constructor| |ArgList| |IRIref|)7352 (IF (EQ *ATN-REDUCE* 'CONS)7353 (CONS '|IRIrefOrFunction| (DELETE NIL (LIST |ArgList| |IRIref|)))7354 '|IRIrefOrFunction|))))7355 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7356 (|IRIrefOrFunction/fail.3| (ATN-PARSER::INDEX)7357 (%ATN-NODE-BLOCK |IRIrefOrFunction/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7358 (|IRIrefOrFunction/IRIrefOrFunction.2.4| (ATN-PARSER::INDEX)7359 (%ATN-NODE-BLOCK7360 |IRIrefOrFunction/IRIrefOrFunction.2.4|7361 (%ATN-EDGE-BLOCK7362 (PUSH |ArgList|)7363 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7364 (ATN-PARSE-SUBSTRUCTURE* '|ArgList| ATN-PARSER::INDEX)7365 (COND (ATN-PARSER::SUCCESS7366 (SETF *ATN-TERM* '|ArgList|)7367 (LET ((|ArgList726| |ArgList|))7368 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7369 (DESTRUCTURING-BIND7370 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7371 ATN-PARSER::RESULT-AND-INDEX7372 (WHEN ATN-PARSER::RESULT (SETF |ArgList| ATN-PARSER::RESULT))7373 (|IRIrefOrFunction.2| ATN-PARSER::RESULT-INDEX))7374 (SETF |ArgList| |ArgList726|))))7375 (T (SETF *ATN-TERM?* '|ArgList|) (|IRIrefOrFunction.2| ATN-PARSER::INDEX)))))))7376 (|IRIrefOrFunction/start.1| (ATN-PARSER::INDEX)7377 (%ATN-NODE-BLOCK7378 |IRIrefOrFunction/start.1|7379 (%ATN-EDGE-BLOCK7380 (PUSH |IRIref|)7381 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7382 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)7383 (COND (ATN-PARSER::SUCCESS7384 (SETF *ATN-TERM* '|IRIref|)7385 (LET ((|IRIref726| |IRIref|))7386 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7387 (DESTRUCTURING-BIND7388 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7389 ATN-PARSER::RESULT-AND-INDEX7390 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))7391 (|IRIrefOrFunction/IRIrefOrFunction.2.4| ATN-PARSER::RESULT-INDEX))7392 (SETF |IRIref| |IRIref726|))))7393 (T7394 (SETF *ATN-TERM?* '|IRIref|)7395 (|IRIrefOrFunction/fail.3| ATN-PARSER::INDEX))))))))7396 (|IRIrefOrFunction/start.1| ATN-PARSER::INDEX)7397 (SETF *ATN-NODE NIL)7398 NIL7399 (IF ATN-PARSER::ATN-STRUCTURE7400 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7401 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7402 (WARN "recursive grammar: ~s @ position ~s: ~s" '|IRIrefOrFunction| ATN-PARSER::INDEX *ATN-STACK))))7403 (PROGN (DEFVAR |RDFLiteral-INDEX|)7404 (DEFUN |RDFLiteral| (ATN-PARSER::INDEX &AUX (|IRIref| NIL) (LANGTAG NIL) (|String| NIL))7405 "{60} RDFLiteral ::= String ((LANGTAG | ('^^' IRIref)))?7406 (|IRIref| LANGTAG |String|)"7407 (DECLARE (SPECIAL |RDFLiteral-INDEX|))7408 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RDFLiteral-INDEX| *ATN-LEVEL))7409 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7410 (IF (< |RDFLiteral-INDEX| ATN-PARSER::INDEX)7411 (LET ((|RDFLiteral-INDEX| ATN-PARSER::INDEX)7412 (*ATN-LEVEL (1+ *ATN-LEVEL))7413 (*ATN-STACK (CONS '|RDFLiteral| *ATN-STACK))7414 (ATN-PARSER::ATN-STRUCTURE NIL))7415 (DECLARE (SPECIAL |RDFLiteral-INDEX|))7416 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7417 (DECLARE (TYPE CONS *ATN-STACK))7418 (SYMBOL-MACROLET7419 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7420 (%ATN-BLOCK |RDFLiteral|7421 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7422 (SETF *ATN-TERM* '|RDFLiteral|)7423 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7424 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7425 (|RDFLiteral.2| (ATN-PARSER::INDEX)7426 (%ATN-NODE-BLOCK7427 |RDFLiteral.2|7428 (%ATN-EDGE-BLOCK7429 (POP |RDFLiteral|)7430 (WHEN T7431 (SETF *ATN-TERM* '|RDFLiteral|)7432 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7433 '|RDFLiteral|7434 ATN-PARSER::INDEX7435 (LIST '|IRIref| |IRIref| 'LANGTAG LANGTAG '|String| |String|))7436 (LET ((ATN-PARSER::RESULT-STRUCTURE7437 (IF (EQ *ATN-REDUCE* T)7438 (|RDFLiteral-Constructor| |IRIref| LANGTAG |String|)7439 (IF (EQ *ATN-REDUCE* 'CONS)7440 (CONS '|RDFLiteral| (DELETE NIL (LIST |IRIref| LANGTAG |String|)))7441 '|RDFLiteral|))))7442 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7443 (|RDFLiteral/fail.3| (ATN-PARSER::INDEX)7444 (%ATN-NODE-BLOCK |RDFLiteral/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7445 (|RDFLiteral/RDFLiteral.2.4| (ATN-PARSER::INDEX)7446 (%ATN-NODE-BLOCK7447 |RDFLiteral/RDFLiteral.2.4|7448 (%ATN-EDGE-BLOCK7449 OR7450 (PROGN (%ATN-EDGE-BLOCK7451 (TEST LANGTAG)7452 (COND ((IS-LANGTAG ATN-PARSER::|item|)7453 (SETF *ATN-TERM* 'LANGTAG)7454 (SETF LANGTAG7455 (IF (EQ *ATN-REDUCE* T)7456 (ATN-REDUCE-ITEM #'|LANGTAG-Constructor| ATN-PARSER::|item|)7457 (IF (EQ *ATN-REDUCE* 'CONS)7458 (LIST 'LANGTAG ATN-PARSER::|item|)7459 'LANGTAG)))7460 (|RDFLiteral.2| (1+ ATN-PARSER::INDEX)))7461 (T (SETF *ATN-TERM?* 'LANGTAG) NIL)))7462 (%ATN-EDGE-BLOCK7463 (ATN-PARSER::JUMP |RDFLiteral/RDFLiteral.2.5|)7464 (|RDFLiteral/RDFLiteral.2.5| ATN-PARSER::INDEX))7465 (|RDFLiteral.2| ATN-PARSER::INDEX)))))7466 (|RDFLiteral/RDFLiteral.2.5| (ATN-PARSER::INDEX)7467 (%ATN-NODE-BLOCK7468 |RDFLiteral/RDFLiteral.2.5|7469 (%ATN-EDGE-BLOCK7470 (ATN-PARSER::WORD SPOCQ.S:^^)7471 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:^^)7472 (SETF *ATN-TERM* 'SPOCQ.S:^^)7473 (|RDFLiteral/RDFLiteral.2.6| (1+ ATN-PARSER::INDEX)))7474 (T (SETF *ATN-TERM?* 'SPOCQ.S:^^) NIL)))))7475 (|RDFLiteral/RDFLiteral.2.6| (ATN-PARSER::INDEX)7476 (%ATN-NODE-BLOCK7477 |RDFLiteral/RDFLiteral.2.6|7478 (%ATN-EDGE-BLOCK7479 (PUSH |IRIref|)7480 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7481 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)7482 (COND (ATN-PARSER::SUCCESS7483 (SETF *ATN-TERM* '|IRIref|)7484 (LET ((|IRIref727| |IRIref|))7485 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7486 (DESTRUCTURING-BIND7487 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7488 ATN-PARSER::RESULT-AND-INDEX7489 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))7490 (|RDFLiteral.2| ATN-PARSER::RESULT-INDEX))7491 (SETF |IRIref| |IRIref727|))))7492 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))))7493 (|RDFLiteral/start.1| (ATN-PARSER::INDEX)7494 (%ATN-NODE-BLOCK7495 |RDFLiteral/start.1|7496 (%ATN-EDGE-BLOCK7497 (ATN-PARSER::CAT |String|)7498 (COND ((|IS-String| ATN-PARSER::|item|)7499 (SETF *ATN-TERM* '|String|)7500 (SETF |String|7501 (IF (EQ *ATN-REDUCE* T)7502 (ATN-REDUCE-ITEM #'|String-Constructor| ATN-PARSER::|item|)7503 (IF (EQ *ATN-REDUCE* 'CONS)7504 (LIST '|String| ATN-PARSER::|item|)7505 '|String|)))7506 (|RDFLiteral/RDFLiteral.2.4| (1+ ATN-PARSER::INDEX)))7507 (T (SETF *ATN-TERM* '|String|) (|RDFLiteral/fail.3| ATN-PARSER::INDEX)))))))7508 (|RDFLiteral/start.1| ATN-PARSER::INDEX)7509 (SETF *ATN-NODE NIL)7510 NIL7511 (IF ATN-PARSER::ATN-STRUCTURE7512 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7513 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7514 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RDFLiteral| ATN-PARSER::INDEX *ATN-STACK))))7515 (PROGN (DEFVAR |IRIref-INDEX|)7516 (DEFUN |IRIref| (ATN-PARSER::INDEX &AUX (IRI_REF NIL) (|PrefixedName| NIL))7517 "{67} IRIref ::= (IRI_REF | PrefixedName)7518 (IRI_REF |PrefixedName|)"7519 (DECLARE (SPECIAL |IRIref-INDEX|))7520 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IRIref-INDEX| *ATN-LEVEL))7521 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7522 (IF (< |IRIref-INDEX| ATN-PARSER::INDEX)7523 (LET ((|IRIref-INDEX| ATN-PARSER::INDEX)7524 (*ATN-LEVEL (1+ *ATN-LEVEL))7525 (*ATN-STACK (CONS '|IRIref| *ATN-STACK))7526 (ATN-PARSER::ATN-STRUCTURE NIL))7527 (DECLARE (SPECIAL |IRIref-INDEX|))7528 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7529 (DECLARE (TYPE CONS *ATN-STACK))7530 (SYMBOL-MACROLET7531 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7532 (%ATN-BLOCK |IRIref|7533 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7534 (SETF *ATN-TERM* '|IRIref|)7535 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7536 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7537 (|IRIref.2| (ATN-PARSER::INDEX)7538 (%ATN-NODE-BLOCK7539 |IRIref.2|7540 (%ATN-EDGE-BLOCK7541 (POP |IRIref|)7542 (WHEN T7543 (SETF *ATN-TERM* '|IRIref|)7544 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7545 '|IRIref|7546 ATN-PARSER::INDEX7547 (LIST 'IRI_REF IRI_REF '|PrefixedName| |PrefixedName|))7548 (LET ((ATN-PARSER::RESULT-STRUCTURE7549 (IF (EQ *ATN-REDUCE* T)7550 (|IRIref-Constructor| IRI_REF |PrefixedName|)7551 (IF (EQ *ATN-REDUCE* 'CONS)7552 (CONS '|IRIref| (DELETE NIL (LIST IRI_REF |PrefixedName|)))7553 '|IRIref|))))7554 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7555 (|IRIref/fail.3| (ATN-PARSER::INDEX)7556 (%ATN-NODE-BLOCK |IRIref/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7557 (|IRIref/start.1| (ATN-PARSER::INDEX)7558 (%ATN-NODE-BLOCK7559 |IRIref/start.1|7560 (%ATN-EDGE-BLOCK7561 OR7562 (PROGN (%ATN-EDGE-BLOCK7563 (PUSH IRI_REF)7564 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7565 (ATN-PARSE-SUBSTRUCTURE* 'IRI_REF ATN-PARSER::INDEX)7566 (COND (ATN-PARSER::SUCCESS7567 (SETF *ATN-TERM* 'IRI_REF)7568 (LET ((IRI_REF727 IRI_REF))7569 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7570 (DESTRUCTURING-BIND7571 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7572 ATN-PARSER::RESULT-AND-INDEX7573 (WHEN ATN-PARSER::RESULT (SETF IRI_REF ATN-PARSER::RESULT))7574 (|IRIref.2| ATN-PARSER::RESULT-INDEX))7575 (SETF IRI_REF IRI_REF727))))7576 (T (SETF *ATN-TERM?* 'IRI_REF) NIL))))7577 (%ATN-EDGE-BLOCK7578 (ATN-PARSER::CAT |PrefixedName|)7579 (COND ((|IS-PrefixedName| ATN-PARSER::|item|)7580 (SETF *ATN-TERM* '|PrefixedName|)7581 (SETF |PrefixedName|7582 (IF (EQ *ATN-REDUCE* T)7583 (ATN-REDUCE-ITEM7584 #'|PrefixedName-Constructor|7585 ATN-PARSER::|item|)7586 (IF (EQ *ATN-REDUCE* 'CONS)7587 (LIST '|PrefixedName| ATN-PARSER::|item|)7588 '|PrefixedName|)))7589 (|IRIref.2| (1+ ATN-PARSER::INDEX)))7590 (T (SETF *ATN-TERM* '|PrefixedName|) NIL)))7591 (|IRIref/fail.3| ATN-PARSER::INDEX))))))7592 (|IRIref/start.1| ATN-PARSER::INDEX)7593 (SETF *ATN-NODE NIL)7594 NIL7595 (IF ATN-PARSER::ATN-STRUCTURE7596 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7597 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7598 (WARN "recursive grammar: ~s @ position ~s: ~s" '|IRIref| ATN-PARSER::INDEX *ATN-STACK))))7599 (PROGN (DEFVAR |BlankNode-INDEX|)7600 (DEFUN |BlankNode| (ATN-PARSER::INDEX &AUX (ANON NIL) (BLANK_NODE_LABEL NIL))7601 "{69} BlankNode ::= (BLANK_NODE_LABEL | ANON)7602 (ANON BLANK_NODE_LABEL)"7603 (DECLARE (SPECIAL |BlankNode-INDEX|))7604 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNode-INDEX| *ATN-LEVEL))7605 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7606 (IF (< |BlankNode-INDEX| ATN-PARSER::INDEX)7607 (LET ((|BlankNode-INDEX| ATN-PARSER::INDEX)7608 (*ATN-LEVEL (1+ *ATN-LEVEL))7609 (*ATN-STACK (CONS '|BlankNode| *ATN-STACK))7610 (ATN-PARSER::ATN-STRUCTURE NIL))7611 (DECLARE (SPECIAL |BlankNode-INDEX|))7612 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7613 (DECLARE (TYPE CONS *ATN-STACK))7614 (SYMBOL-MACROLET7615 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7616 (%ATN-BLOCK |BlankNode|7617 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7618 (SETF *ATN-TERM* '|BlankNode|)7619 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7620 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7621 (|BlankNode.2| (ATN-PARSER::INDEX)7622 (%ATN-NODE-BLOCK7623 |BlankNode.2|7624 (%ATN-EDGE-BLOCK7625 (POP |BlankNode|)7626 (WHEN T7627 (SETF *ATN-TERM* '|BlankNode|)7628 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7629 '|BlankNode|7630 ATN-PARSER::INDEX7631 (LIST 'ANON ANON 'BLANK_NODE_LABEL BLANK_NODE_LABEL))7632 (LET ((ATN-PARSER::RESULT-STRUCTURE7633 (IF (EQ *ATN-REDUCE* T)7634 (|BlankNode-Constructor| ANON BLANK_NODE_LABEL)7635 (IF (EQ *ATN-REDUCE* 'CONS)7636 (CONS '|BlankNode| (DELETE NIL (LIST ANON BLANK_NODE_LABEL)))7637 '|BlankNode|))))7638 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7639 (|BlankNode/fail.3| (ATN-PARSER::INDEX)7640 (%ATN-NODE-BLOCK |BlankNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7641 (|BlankNode/start.1| (ATN-PARSER::INDEX)7642 (%ATN-NODE-BLOCK7643 |BlankNode/start.1|7644 (%ATN-EDGE-BLOCK7645 OR7646 (PROGN (%ATN-EDGE-BLOCK7647 (PUSH BLANK_NODE_LABEL)7648 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7649 (ATN-PARSE-SUBSTRUCTURE* 'BLANK_NODE_LABEL ATN-PARSER::INDEX)7650 (COND (ATN-PARSER::SUCCESS7651 (SETF *ATN-TERM* 'BLANK_NODE_LABEL)7652 (LET ((BLANK_NODE_LABEL727 BLANK_NODE_LABEL))7653 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7654 (DESTRUCTURING-BIND7655 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7656 ATN-PARSER::RESULT-AND-INDEX7657 (WHEN ATN-PARSER::RESULT7658 (SETF BLANK_NODE_LABEL ATN-PARSER::RESULT))7659 (|BlankNode.2| ATN-PARSER::RESULT-INDEX))7660 (SETF BLANK_NODE_LABEL BLANK_NODE_LABEL727))))7661 (T (SETF *ATN-TERM?* 'BLANK_NODE_LABEL) NIL))))7662 (%ATN-EDGE-BLOCK7663 (PUSH ANON)7664 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7665 (ATN-PARSE-SUBSTRUCTURE* 'ANON ATN-PARSER::INDEX)7666 (COND (ATN-PARSER::SUCCESS7667 (SETF *ATN-TERM* 'ANON)7668 (LET ((ANON727 ANON))7669 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7670 (DESTRUCTURING-BIND7671 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7672 ATN-PARSER::RESULT-AND-INDEX7673 (WHEN ATN-PARSER::RESULT (SETF ANON ATN-PARSER::RESULT))7674 (|BlankNode.2| ATN-PARSER::RESULT-INDEX))7675 (SETF ANON ANON727))))7676 (T (SETF *ATN-TERM?* 'ANON) NIL))))7677 (|BlankNode/fail.3| ATN-PARSER::INDEX))))))7678 (|BlankNode/start.1| ATN-PARSER::INDEX)7679 (SETF *ATN-NODE NIL)7680 NIL7681 (IF ATN-PARSER::ATN-STRUCTURE7682 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7683 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7684 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNode| ATN-PARSER::INDEX *ATN-STACK))))7685 (PROGN (DEFVAR IRI_REF-INDEX)7686 (DEFUN IRI_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))7687 "{70} IRI_REF ::= '<' IRI_NAMESTRING? '>'7688 (IRI_NAMESTRING)"7689 (DECLARE (SPECIAL IRI_REF-INDEX))7690 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX IRI_REF-INDEX *ATN-LEVEL))7691 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7692 (IF (< IRI_REF-INDEX ATN-PARSER::INDEX)7693 (LET ((IRI_REF-INDEX ATN-PARSER::INDEX)7694 (*ATN-LEVEL (1+ *ATN-LEVEL))7695 (*ATN-STACK (CONS 'IRI_REF *ATN-STACK))7696 (ATN-PARSER::ATN-STRUCTURE NIL))7697 (DECLARE (SPECIAL IRI_REF-INDEX))7698 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7699 (DECLARE (TYPE CONS *ATN-STACK))7700 (SYMBOL-MACROLET7701 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7702 (%ATN-BLOCK IRI_REF7703 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7704 (SETF *ATN-TERM* 'IRI_REF)7705 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7706 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7707 (IRI_REF.2 (ATN-PARSER::INDEX)7708 (%ATN-NODE-BLOCK7709 IRI_REF.27710 (%ATN-EDGE-BLOCK7711 (POP IRI_REF)7712 (WHEN T7713 (SETF *ATN-TERM* 'IRI_REF)7714 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7715 'IRI_REF7716 ATN-PARSER::INDEX7717 (LIST 'IRI_NAMESTRING IRI_NAMESTRING))7718 (LET ((ATN-PARSER::RESULT-STRUCTURE7719 (IF (EQ *ATN-REDUCE* T)7720 (|IRI_REF-Constructor| IRI_NAMESTRING)7721 (IF (EQ *ATN-REDUCE* 'CONS)7722 (CONS 'IRI_REF (DELETE NIL (LIST IRI_NAMESTRING)))7723 'IRI_REF))))7724 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7725 (|IRI_REF/fail.3| (ATN-PARSER::INDEX)7726 (%ATN-NODE-BLOCK |IRI_REF/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7727 (IRI_REF/IRI_REF.2.4 (ATN-PARSER::INDEX)7728 (%ATN-NODE-BLOCK7729 IRI_REF/IRI_REF.2.47730 (%ATN-EDGE-BLOCK7731 (TEST IRI_NAMESTRING)7732 (COND ((IS-IRI_NAMESTRING ATN-PARSER::|item|)7733 (SETF *ATN-TERM* 'IRI_NAMESTRING)7734 (SETF IRI_NAMESTRING7735 (IF (EQ *ATN-REDUCE* T)7736 (ATN-REDUCE-ITEM #'|IRI_NAMESTRING-Constructor| ATN-PARSER::|item|)7737 (IF (EQ *ATN-REDUCE* 'CONS)7738 (LIST 'IRI_NAMESTRING ATN-PARSER::|item|)7739 'IRI_NAMESTRING)))7740 (IRI_REF/IRI_REF.2.5 (1+ ATN-PARSER::INDEX)))7741 (T7742 (SETF *ATN-TERM?* 'IRI_NAMESTRING)7743 (IRI_REF/IRI_REF.2.5 ATN-PARSER::INDEX))))))7744 (IRI_REF/IRI_REF.2.5 (ATN-PARSER::INDEX)7745 (%ATN-NODE-BLOCK7746 IRI_REF/IRI_REF.2.57747 (%ATN-EDGE-BLOCK7748 (ATN-PARSER::WORD SPOCQ.S:>)7749 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:>)7750 (SETF *ATN-TERM* 'SPOCQ.S:>)7751 (IRI_REF.2 (1+ ATN-PARSER::INDEX)))7752 (T (SETF *ATN-TERM?* 'SPOCQ.S:>) (|IRI_REF/fail.3| ATN-PARSER::INDEX))))))7753 (|IRI_REF/start.1| (ATN-PARSER::INDEX)7754 (%ATN-NODE-BLOCK7755 |IRI_REF/start.1|7756 (%ATN-EDGE-BLOCK7757 (ATN-PARSER::WORD SPOCQ.S:<)7758 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:<)7759 (SETF *ATN-TERM* 'SPOCQ.S:<)7760 (IRI_REF/IRI_REF.2.4 (1+ ATN-PARSER::INDEX)))7761 (T (SETF *ATN-TERM?* 'SPOCQ.S:<) (|IRI_REF/fail.3| ATN-PARSER::INDEX)))))))7762 (|IRI_REF/start.1| ATN-PARSER::INDEX)7763 (SETF *ATN-NODE NIL)7764 NIL7765 (IF ATN-PARSER::ATN-STRUCTURE7766 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7767 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7768 (WARN "recursive grammar: ~s @ position ~s: ~s" 'IRI_REF ATN-PARSER::INDEX *ATN-STACK))))7769 (PROGN (DEFVAR NAMESPACE_REF-INDEX)7770 (DEFUN NAMESPACE_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))7771 "{70} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'7772 (IRI_NAMESTRING)"7773 (DECLARE (SPECIAL NAMESPACE_REF-INDEX))7774 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX NAMESPACE_REF-INDEX *ATN-LEVEL))7775 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7776 (IF (< NAMESPACE_REF-INDEX ATN-PARSER::INDEX)7777 (LET ((NAMESPACE_REF-INDEX ATN-PARSER::INDEX)7778 (*ATN-LEVEL (1+ *ATN-LEVEL))7779 (*ATN-STACK (CONS 'NAMESPACE_REF *ATN-STACK))7780 (ATN-PARSER::ATN-STRUCTURE NIL))7781 (DECLARE (SPECIAL NAMESPACE_REF-INDEX))7782 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7783 (DECLARE (TYPE CONS *ATN-STACK))7784 (SYMBOL-MACROLET7785 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7786 (%ATN-BLOCK NAMESPACE_REF7787 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7788 (SETF *ATN-TERM* 'NAMESPACE_REF)7789 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7790 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7791 (NAMESPACE_REF.2 (ATN-PARSER::INDEX)7792 (%ATN-NODE-BLOCK7793 NAMESPACE_REF.27794 (%ATN-EDGE-BLOCK7795 (POP NAMESPACE_REF)7796 (WHEN T7797 (SETF *ATN-TERM* 'NAMESPACE_REF)7798 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7799 'NAMESPACE_REF7800 ATN-PARSER::INDEX7801 (LIST 'IRI_NAMESTRING IRI_NAMESTRING))7802 (LET ((ATN-PARSER::RESULT-STRUCTURE7803 (IF (EQ *ATN-REDUCE* T)7804 (|NAMESPACE_REF-Constructor| IRI_NAMESTRING)7805 (IF (EQ *ATN-REDUCE* 'CONS)7806 (CONS 'NAMESPACE_REF (DELETE NIL (LIST IRI_NAMESTRING)))7807 'NAMESPACE_REF))))7808 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7809 (|NAMESPACE_REF/fail.3| (ATN-PARSER::INDEX)7810 (%ATN-NODE-BLOCK |NAMESPACE_REF/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7811 (NAMESPACE_REF/NAMESPACE_REF.2.4 (ATN-PARSER::INDEX)7812 (%ATN-NODE-BLOCK7813 NAMESPACE_REF/NAMESPACE_REF.2.47814 (%ATN-EDGE-BLOCK7815 (TEST IRI_NAMESTRING)7816 (COND ((IS-IRI_NAMESTRING ATN-PARSER::|item|)7817 (SETF *ATN-TERM* 'IRI_NAMESTRING)7818 (SETF IRI_NAMESTRING7819 (IF (EQ *ATN-REDUCE* T)7820 (ATN-REDUCE-ITEM #'|IRI_NAMESTRING-Constructor| ATN-PARSER::|item|)7821 (IF (EQ *ATN-REDUCE* 'CONS)7822 (LIST 'IRI_NAMESTRING ATN-PARSER::|item|)7823 'IRI_NAMESTRING)))7824 (NAMESPACE_REF/NAMESPACE_REF.2.5 (1+ ATN-PARSER::INDEX)))7825 (T7826 (SETF *ATN-TERM?* 'IRI_NAMESTRING)7827 (NAMESPACE_REF/NAMESPACE_REF.2.5 ATN-PARSER::INDEX))))))7828 (NAMESPACE_REF/NAMESPACE_REF.2.5 (ATN-PARSER::INDEX)7829 (%ATN-NODE-BLOCK7830 NAMESPACE_REF/NAMESPACE_REF.2.57831 (%ATN-EDGE-BLOCK7832 (ATN-PARSER::WORD SPOCQ.S:>)7833 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:>)7834 (SETF *ATN-TERM* 'SPOCQ.S:>)7835 (NAMESPACE_REF.2 (1+ ATN-PARSER::INDEX)))7836 (T (SETF *ATN-TERM?* 'SPOCQ.S:>) (|NAMESPACE_REF/fail.3| ATN-PARSER::INDEX))))))7837 (|NAMESPACE_REF/start.1| (ATN-PARSER::INDEX)7838 (%ATN-NODE-BLOCK7839 |NAMESPACE_REF/start.1|7840 (%ATN-EDGE-BLOCK7841 (ATN-PARSER::WORD SPOCQ.S:<)7842 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:<)7843 (SETF *ATN-TERM* 'SPOCQ.S:<)7844 (NAMESPACE_REF/NAMESPACE_REF.2.4 (1+ ATN-PARSER::INDEX)))7845 (T (SETF *ATN-TERM?* 'SPOCQ.S:<) (|NAMESPACE_REF/fail.3| ATN-PARSER::INDEX)))))))7846 (|NAMESPACE_REF/start.1| ATN-PARSER::INDEX)7847 (SETF *ATN-NODE NIL)7848 NIL7849 (IF ATN-PARSER::ATN-STRUCTURE7850 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7851 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7852 (WARN "recursive grammar: ~s @ position ~s: ~s" 'NAMESPACE_REF ATN-PARSER::INDEX *ATN-STACK))))7853 (PROGN (DEFVAR BLANK_NODE_LABEL-INDEX)7854 (DEFUN BLANK_NODE_LABEL (ATN-PARSER::INDEX &AUX (PN_LOCAL NIL))7855 "{73} BLANK_NODE_LABEL ::= '_:' PN_LOCAL7856 (PN_LOCAL)"7857 (DECLARE (SPECIAL BLANK_NODE_LABEL-INDEX))7858 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX BLANK_NODE_LABEL-INDEX *ATN-LEVEL))7859 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7860 (IF (< BLANK_NODE_LABEL-INDEX ATN-PARSER::INDEX)7861 (LET ((BLANK_NODE_LABEL-INDEX ATN-PARSER::INDEX)7862 (*ATN-LEVEL (1+ *ATN-LEVEL))7863 (*ATN-STACK (CONS 'BLANK_NODE_LABEL *ATN-STACK))7864 (ATN-PARSER::ATN-STRUCTURE NIL))7865 (DECLARE (SPECIAL BLANK_NODE_LABEL-INDEX))7866 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7867 (DECLARE (TYPE CONS *ATN-STACK))7868 (SYMBOL-MACROLET7869 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7870 (%ATN-BLOCK BLANK_NODE_LABEL7871 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7872 (SETF *ATN-TERM* 'BLANK_NODE_LABEL)7873 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7874 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7875 (BLANK_NODE_LABEL.2 (ATN-PARSER::INDEX)7876 (%ATN-NODE-BLOCK7877 BLANK_NODE_LABEL.27878 (%ATN-EDGE-BLOCK7879 (POP BLANK_NODE_LABEL)7880 (WHEN T7881 (SETF *ATN-TERM* 'BLANK_NODE_LABEL)7882 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7883 'BLANK_NODE_LABEL7884 ATN-PARSER::INDEX7885 (LIST 'PN_LOCAL PN_LOCAL))7886 (LET ((ATN-PARSER::RESULT-STRUCTURE7887 (IF (EQ *ATN-REDUCE* T)7888 (|BLANK_NODE_LABEL-Constructor| PN_LOCAL)7889 (IF (EQ *ATN-REDUCE* 'CONS)7890 (CONS 'BLANK_NODE_LABEL (DELETE NIL (LIST PN_LOCAL)))7891 'BLANK_NODE_LABEL))))7892 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7893 (BLANK_NODE_LABEL/BLANK_NODE_LABEL.2.4 (ATN-PARSER::INDEX)7894 (%ATN-NODE-BLOCK7895 BLANK_NODE_LABEL/BLANK_NODE_LABEL.2.47896 (%ATN-EDGE-BLOCK7897 (TEST PN_LOCAL)7898 (COND ((IS-PN_LOCAL ATN-PARSER::|item|)7899 (SETF *ATN-TERM* 'PN_LOCAL)7900 (SETF PN_LOCAL7901 (IF (EQ *ATN-REDUCE* T)7902 (ATN-REDUCE-ITEM #'|PN_LOCAL-Constructor| ATN-PARSER::|item|)7903 (IF (EQ *ATN-REDUCE* 'CONS)7904 (LIST 'PN_LOCAL ATN-PARSER::|item|)7905 'PN_LOCAL)))7906 (BLANK_NODE_LABEL.2 (1+ ATN-PARSER::INDEX)))7907 (T7908 (SETF *ATN-TERM?* 'PN_LOCAL)7909 (|BLANK_NODE_LABEL/fail.3| ATN-PARSER::INDEX))))))7910 (|BLANK_NODE_LABEL/fail.3| (ATN-PARSER::INDEX)7911 (%ATN-NODE-BLOCK |BLANK_NODE_LABEL/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7912 (|BLANK_NODE_LABEL/start.1| (ATN-PARSER::INDEX)7913 (%ATN-NODE-BLOCK7914 |BLANK_NODE_LABEL/start.1|7915 (%ATN-EDGE-BLOCK7916 (ATN-PARSER::WORD SPOCQ.S:|_:|)7917 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|_:|)7918 (SETF *ATN-TERM* 'SPOCQ.S:|_:|)7919 (BLANK_NODE_LABEL/BLANK_NODE_LABEL.2.4 (1+ ATN-PARSER::INDEX)))7920 (T7921 (SETF *ATN-TERM?* 'SPOCQ.S:|_:|)7922 (|BLANK_NODE_LABEL/fail.3| ATN-PARSER::INDEX)))))))7923 (|BLANK_NODE_LABEL/start.1| ATN-PARSER::INDEX)7924 (SETF *ATN-NODE NIL)7925 NIL7926 (IF ATN-PARSER::ATN-STRUCTURE7927 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7928 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7929 (WARN "recursive grammar: ~s @ position ~s: ~s" 'BLANK_NODE_LABEL ATN-PARSER::INDEX *ATN-STACK))))7930 (PROGN (DEFVAR NILLIST-INDEX)7931 (DEFUN NILLIST (ATN-PARSER::INDEX &AUX)7932 "{92} NILLIST ::= '(' ')'7933 NIL"7934 (DECLARE (SPECIAL NILLIST-INDEX))7935 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX NILLIST-INDEX *ATN-LEVEL))7936 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7937 (IF (< NILLIST-INDEX ATN-PARSER::INDEX)7938 (LET ((NILLIST-INDEX ATN-PARSER::INDEX)7939 (*ATN-LEVEL (1+ *ATN-LEVEL))7940 (*ATN-STACK (CONS 'NILLIST *ATN-STACK))7941 (ATN-PARSER::ATN-STRUCTURE NIL))7942 (DECLARE (SPECIAL NILLIST-INDEX))7943 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7944 (DECLARE (TYPE CONS *ATN-STACK))7945 (SYMBOL-MACROLET7946 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7947 (%ATN-BLOCK NILLIST7948 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7949 (SETF *ATN-TERM* 'NILLIST)7950 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7951 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7952 (NILLIST.2 (ATN-PARSER::INDEX)7953 (%ATN-NODE-BLOCK7954 NILLIST.27955 (%ATN-EDGE-BLOCK7956 (POP NILLIST)7957 (WHEN T7958 (SETF *ATN-TERM* 'NILLIST)7959 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" 'NILLIST ATN-PARSER::INDEX (LIST))7960 (LET ((ATN-PARSER::RESULT-STRUCTURE7961 (IF (EQ *ATN-REDUCE* T)7962 (|NILLIST-Constructor|)7963 (IF (EQ *ATN-REDUCE* 'CONS)7964 (CONS 'NILLIST (DELETE NIL (LIST)))7965 'NILLIST))))7966 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7967 (|NILLIST/fail.3| (ATN-PARSER::INDEX)7968 (%ATN-NODE-BLOCK |NILLIST/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7969 (NILLIST/NILLIST.2.4 (ATN-PARSER::INDEX)7970 (%ATN-NODE-BLOCK7971 NILLIST/NILLIST.2.47972 (%ATN-EDGE-BLOCK7973 (ATN-PARSER::WORD SPOCQ.S:\))7974 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))7975 (SETF *ATN-TERM* 'SPOCQ.S:\))7976 (NILLIST.2 (1+ ATN-PARSER::INDEX)))7977 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|NILLIST/fail.3| ATN-PARSER::INDEX))))))7978 (|NILLIST/start.1| (ATN-PARSER::INDEX)7979 (%ATN-NODE-BLOCK7980 |NILLIST/start.1|7981 (%ATN-EDGE-BLOCK7982 (ATN-PARSER::WORD SPOCQ.S:\()7983 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()7984 (SETF *ATN-TERM* 'SPOCQ.S:\()7985 (NILLIST/NILLIST.2.4 (1+ ATN-PARSER::INDEX)))7986 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|NILLIST/fail.3| ATN-PARSER::INDEX)))))))7987 (|NILLIST/start.1| ATN-PARSER::INDEX)7988 (SETF *ATN-NODE NIL)7989 NIL7990 (IF ATN-PARSER::ATN-STRUCTURE7991 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7992 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7993 (WARN "recursive grammar: ~s @ position ~s: ~s" 'NILLIST ATN-PARSER::INDEX *ATN-STACK))))7994 (PROGN (DEFVAR ANON-INDEX)7995 (DEFUN ANON (ATN-PARSER::INDEX &AUX)7996 "{94} ANON ::= '[' ']'7997 NIL"7998 (DECLARE (SPECIAL ANON-INDEX))7999 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX ANON-INDEX *ATN-LEVEL))8000 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8001 (IF (< ANON-INDEX ATN-PARSER::INDEX)8002 (LET ((ANON-INDEX ATN-PARSER::INDEX)8003 (*ATN-LEVEL (1+ *ATN-LEVEL))8004 (*ATN-STACK (CONS 'ANON *ATN-STACK))8005 (ATN-PARSER::ATN-STRUCTURE NIL))8006 (DECLARE (SPECIAL ANON-INDEX))8007 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8008 (DECLARE (TYPE CONS *ATN-STACK))8009 (SYMBOL-MACROLET8010 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8011 (%ATN-BLOCK ANON8012 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8013 (SETF *ATN-TERM* 'ANON)8014 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8015 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8016 (ANON.2 (ATN-PARSER::INDEX)8017 (%ATN-NODE-BLOCK8018 ANON.28019 (%ATN-EDGE-BLOCK8020 (POP ANON)8021 (WHEN T8022 (SETF *ATN-TERM* 'ANON)8023 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" 'ANON ATN-PARSER::INDEX (LIST))8024 (LET ((ATN-PARSER::RESULT-STRUCTURE8025 (IF (EQ *ATN-REDUCE* T)8026 (|ANON-Constructor|)8027 (IF (EQ *ATN-REDUCE* 'CONS) (CONS 'ANON (DELETE NIL (LIST))) 'ANON))))8028 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8029 (ANON/ANON.2.4 (ATN-PARSER::INDEX)8030 (%ATN-NODE-BLOCK8031 ANON/ANON.2.48032 (%ATN-EDGE-BLOCK8033 (ATN-PARSER::WORD SPOCQ.S:])8034 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:])8035 (SETF *ATN-TERM* 'SPOCQ.S:])8036 (ANON.2 (1+ ATN-PARSER::INDEX)))8037 (T (SETF *ATN-TERM?* 'SPOCQ.S:]) (|ANON/fail.3| ATN-PARSER::INDEX))))))8038 (|ANON/fail.3| (ATN-PARSER::INDEX)8039 (%ATN-NODE-BLOCK |ANON/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8040 (|ANON/start.1| (ATN-PARSER::INDEX)8041 (%ATN-NODE-BLOCK8042 |ANON/start.1|8043 (%ATN-EDGE-BLOCK8044 (ATN-PARSER::WORD SPOCQ.S:[)8045 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:[)8046 (SETF *ATN-TERM* 'SPOCQ.S:[)8047 (ANON/ANON.2.4 (1+ ATN-PARSER::INDEX)))8048 (T (SETF *ATN-TERM?* 'SPOCQ.S:[) (|ANON/fail.3| ATN-PARSER::INDEX)))))))8049 (|ANON/start.1| ATN-PARSER::INDEX)8050 (SETF *ATN-NODE NIL)8051 NIL8052 (IF ATN-PARSER::ATN-STRUCTURE8053 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8054 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8055 (WARN "recursive grammar: ~s @ position ~s: ~s" 'ANON ATN-PARSER::INDEX *ATN-STACK))))8056 (PROGN (DEFVAR |Aggregate-INDEX|)8057 (DEFUN |Aggregate| (ATN-PARSER::INDEX &AUX (|ArithmeticAggregate| NIL) (|ConcatAggregate| NIL) (|CountAggregate| NIL))8058 "{110} Aggregate ::= (CountAggregate | ArithmeticAggregate | ConcatAggregate)8059 (|ArithmeticAggregate| |ConcatAggregate| |CountAggregate|)"8060 (DECLARE (SPECIAL |Aggregate-INDEX|))8061 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Aggregate-INDEX| *ATN-LEVEL))8062 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8063 (IF (< |Aggregate-INDEX| ATN-PARSER::INDEX)8064 (LET ((|Aggregate-INDEX| ATN-PARSER::INDEX)8065 (*ATN-LEVEL (1+ *ATN-LEVEL))8066 (*ATN-STACK (CONS '|Aggregate| *ATN-STACK))8067 (ATN-PARSER::ATN-STRUCTURE NIL))8068 (DECLARE (SPECIAL |Aggregate-INDEX|))8069 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8070 (DECLARE (TYPE CONS *ATN-STACK))8071 (SYMBOL-MACROLET8072 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8073 (%ATN-BLOCK |Aggregate|8074 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8075 (SETF *ATN-TERM* '|Aggregate|)8076 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8077 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8078 (|Aggregate.2| (ATN-PARSER::INDEX)8079 (%ATN-NODE-BLOCK8080 |Aggregate.2|8081 (%ATN-EDGE-BLOCK8082 (POP |Aggregate|)8083 (WHEN T8084 (SETF *ATN-TERM* '|Aggregate|)8085 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8086 '|Aggregate|8087 ATN-PARSER::INDEX8088 (LIST '|ArithmeticAggregate|8089 |ArithmeticAggregate|8090 '|ConcatAggregate|8091 |ConcatAggregate|8092 '|CountAggregate|8093 |CountAggregate|))8094 (LET ((ATN-PARSER::RESULT-STRUCTURE8095 (IF (EQ *ATN-REDUCE* T)8096 (|Aggregate-Constructor|8097 |ArithmeticAggregate|8098 |ConcatAggregate|8099 |CountAggregate|)8100 (IF (EQ *ATN-REDUCE* 'CONS)8101 (CONS '|Aggregate|8102 (DELETE NIL8103 (LIST |ArithmeticAggregate|8104 |ConcatAggregate|8105 |CountAggregate|)))8106 '|Aggregate|))))8107 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8108 (|Aggregate/fail.3| (ATN-PARSER::INDEX)8109 (%ATN-NODE-BLOCK |Aggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8110 (|Aggregate/start.1| (ATN-PARSER::INDEX)8111 (%ATN-NODE-BLOCK8112 |Aggregate/start.1|8113 (%ATN-EDGE-BLOCK8114 OR8115 (PROGN (%ATN-EDGE-BLOCK8116 (PUSH |CountAggregate|)8117 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8118 (ATN-PARSE-SUBSTRUCTURE* '|CountAggregate| ATN-PARSER::INDEX)8119 (COND (ATN-PARSER::SUCCESS8120 (SETF *ATN-TERM* '|CountAggregate|)8121 (LET ((|CountAggregate727| |CountAggregate|))8122 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8123 (DESTRUCTURING-BIND8124 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8125 ATN-PARSER::RESULT-AND-INDEX8126 (WHEN ATN-PARSER::RESULT8127 (SETF |CountAggregate| ATN-PARSER::RESULT))8128 (|Aggregate.2| ATN-PARSER::RESULT-INDEX))8129 (SETF |CountAggregate| |CountAggregate727|))))8130 (T (SETF *ATN-TERM?* '|CountAggregate|) NIL))))8131 (%ATN-EDGE-BLOCK8132 (PUSH |ArithmeticAggregate|)8133 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8134 (ATN-PARSE-SUBSTRUCTURE* '|ArithmeticAggregate| ATN-PARSER::INDEX)8135 (COND (ATN-PARSER::SUCCESS8136 (SETF *ATN-TERM* '|ArithmeticAggregate|)8137 (LET ((|ArithmeticAggregate727| |ArithmeticAggregate|))8138 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8139 (DESTRUCTURING-BIND8140 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8141 ATN-PARSER::RESULT-AND-INDEX8142 (WHEN ATN-PARSER::RESULT8143 (SETF |ArithmeticAggregate| ATN-PARSER::RESULT))8144 (|Aggregate.2| ATN-PARSER::RESULT-INDEX))8145 (SETF |ArithmeticAggregate| |ArithmeticAggregate727|))))8146 (T (SETF *ATN-TERM?* '|ArithmeticAggregate|) NIL))))8147 (%ATN-EDGE-BLOCK8148 (PUSH |ConcatAggregate|)8149 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8150 (ATN-PARSE-SUBSTRUCTURE* '|ConcatAggregate| ATN-PARSER::INDEX)8151 (COND (ATN-PARSER::SUCCESS8152 (SETF *ATN-TERM* '|ConcatAggregate|)8153 (LET ((|ConcatAggregate727| |ConcatAggregate|))8154 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8155 (DESTRUCTURING-BIND8156 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8157 ATN-PARSER::RESULT-AND-INDEX8158 (WHEN ATN-PARSER::RESULT8159 (SETF |ConcatAggregate| ATN-PARSER::RESULT))8160 (|Aggregate.2| ATN-PARSER::RESULT-INDEX))8161 (SETF |ConcatAggregate| |ConcatAggregate727|))))8162 (T (SETF *ATN-TERM?* '|ConcatAggregate|) NIL))))8163 (|Aggregate/fail.3| ATN-PARSER::INDEX))))))8164 (|Aggregate/start.1| ATN-PARSER::INDEX)8165 (SETF *ATN-NODE NIL)8166 NIL8167 (IF ATN-PARSER::ATN-STRUCTURE8168 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8169 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8170 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Aggregate| ATN-PARSER::INDEX *ATN-STACK))))8171 (PROGN (DEFVAR |CountAggregate-INDEX|)8172 (DEFUN |CountAggregate| (ATN-PARSER::INDEX &AUX (|Distinctness| NIL) (|Expression| NIL) (|Wild| NIL))8173 "{110} CountAggregate ::= 'COUNT' '(' Distinctness? ((Wild | Expression)) ')'8174 (|Distinctness| |Expression| |Wild|)"8175 (DECLARE (SPECIAL |CountAggregate-INDEX|))8176 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |CountAggregate-INDEX| *ATN-LEVEL))8177 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8178 (IF (< |CountAggregate-INDEX| ATN-PARSER::INDEX)8179 (LET ((|CountAggregate-INDEX| ATN-PARSER::INDEX)8180 (*ATN-LEVEL (1+ *ATN-LEVEL))8181 (*ATN-STACK (CONS '|CountAggregate| *ATN-STACK))8182 (ATN-PARSER::ATN-STRUCTURE NIL))8183 (DECLARE (SPECIAL |CountAggregate-INDEX|))8184 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8185 (DECLARE (TYPE CONS *ATN-STACK))8186 (SYMBOL-MACROLET8187 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8188 (%ATN-BLOCK |CountAggregate|8189 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8190 (SETF *ATN-TERM* '|CountAggregate|)8191 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8192 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8193 (|CountAggregate.2| (ATN-PARSER::INDEX)8194 (%ATN-NODE-BLOCK8195 |CountAggregate.2|8196 (%ATN-EDGE-BLOCK8197 (POP |CountAggregate|)8198 (WHEN T8199 (SETF *ATN-TERM* '|CountAggregate|)8200 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8201 '|CountAggregate|8202 ATN-PARSER::INDEX8203 (LIST '|Distinctness|8204 |Distinctness|8205 '|Expression|8206 |Expression|8207 '|Wild|8208 |Wild|))8209 (LET ((ATN-PARSER::RESULT-STRUCTURE8210 (IF (EQ *ATN-REDUCE* T)8211 (|CountAggregate-Constructor| |Distinctness| |Expression| |Wild|)8212 (IF (EQ *ATN-REDUCE* 'CONS)8213 (CONS '|CountAggregate|8214 (DELETE NIL (LIST |Distinctness| |Expression| |Wild|)))8215 '|CountAggregate|))))8216 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8217 (|CountAggregate/CountAggregate.2.4| (ATN-PARSER::INDEX)8218 (%ATN-NODE-BLOCK8219 |CountAggregate/CountAggregate.2.4|8220 (%ATN-EDGE-BLOCK8221 (ATN-PARSER::WORD SPOCQ.S:\()8222 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()8223 (SETF *ATN-TERM* 'SPOCQ.S:\()8224 (|CountAggregate/CountAggregate.2.5| (1+ ATN-PARSER::INDEX)))8225 (T8226 (SETF *ATN-TERM?* 'SPOCQ.S:\()8227 (|CountAggregate/fail.3| ATN-PARSER::INDEX))))))8228 (|CountAggregate/CountAggregate.2.5| (ATN-PARSER::INDEX)8229 (%ATN-NODE-BLOCK8230 |CountAggregate/CountAggregate.2.5|8231 (%ATN-EDGE-BLOCK8232 (ATN-PARSER::CAT |Distinctness|)8233 (COND ((|IS-Distinctness| ATN-PARSER::|item|)8234 (SETF *ATN-TERM* '|Distinctness|)8235 (SETF |Distinctness|8236 (IF (EQ *ATN-REDUCE* T)8237 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)8238 (IF (EQ *ATN-REDUCE* 'CONS)8239 (LIST '|Distinctness| ATN-PARSER::|item|)8240 '|Distinctness|)))8241 (|CountAggregate/CountAggregate.2.6| (1+ ATN-PARSER::INDEX)))8242 (T8243 (SETF *ATN-TERM* '|Distinctness|)8244 (|CountAggregate/CountAggregate.2.6| ATN-PARSER::INDEX))))))8245 (|CountAggregate/CountAggregate.2.6| (ATN-PARSER::INDEX)8246 (%ATN-NODE-BLOCK8247 |CountAggregate/CountAggregate.2.6|8248 (%ATN-EDGE-BLOCK8249 OR8250 (PROGN (%ATN-EDGE-BLOCK8251 (ATN-PARSER::CAT |Wild|)8252 (COND ((|IS-Wild| ATN-PARSER::|item|)8253 (SETF *ATN-TERM* '|Wild|)8254 (SETF |Wild|8255 (IF (EQ *ATN-REDUCE* T)8256 (ATN-REDUCE-ITEM #'|Wild-Constructor| ATN-PARSER::|item|)8257 (IF (EQ *ATN-REDUCE* 'CONS)8258 (LIST '|Wild| ATN-PARSER::|item|)8259 '|Wild|)))8260 (|CountAggregate/CountAggregate.2.7| (1+ ATN-PARSER::INDEX)))8261 (T (SETF *ATN-TERM* '|Wild|) NIL)))8262 (%ATN-EDGE-BLOCK8263 (PUSH |Expression|)8264 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8265 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)8266 (COND (ATN-PARSER::SUCCESS8267 (SETF *ATN-TERM* '|Expression|)8268 (LET ((|Expression727| |Expression|))8269 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8270 (DESTRUCTURING-BIND8271 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8272 ATN-PARSER::RESULT-AND-INDEX8273 (WHEN ATN-PARSER::RESULT8274 (SETF |Expression| ATN-PARSER::RESULT))8275 (|CountAggregate/CountAggregate.2.7| ATN-PARSER::RESULT-INDEX))8276 (SETF |Expression| |Expression727|))))8277 (T (SETF *ATN-TERM?* '|Expression|) NIL))))8278 (|CountAggregate/fail.3| ATN-PARSER::INDEX)))))8279 (|CountAggregate/CountAggregate.2.7| (ATN-PARSER::INDEX)8280 (%ATN-NODE-BLOCK8281 |CountAggregate/CountAggregate.2.7|8282 (%ATN-EDGE-BLOCK8283 (ATN-PARSER::WORD SPOCQ.S:\))8284 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))8285 (SETF *ATN-TERM* 'SPOCQ.S:\))8286 (|CountAggregate.2| (1+ ATN-PARSER::INDEX)))8287 (T8288 (SETF *ATN-TERM?* 'SPOCQ.S:\))8289 (|CountAggregate/fail.3| ATN-PARSER::INDEX))))))8290 (|CountAggregate/fail.3| (ATN-PARSER::INDEX)8291 (%ATN-NODE-BLOCK |CountAggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8292 (|CountAggregate/start.1| (ATN-PARSER::INDEX)8293 (%ATN-NODE-BLOCK8294 |CountAggregate/start.1|8295 (%ATN-EDGE-BLOCK8296 (ATN-PARSER::WORD SPOCQ.S:COUNT)8297 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:COUNT)8298 (SETF *ATN-TERM* 'SPOCQ.S:COUNT)8299 (|CountAggregate/CountAggregate.2.4| (1+ ATN-PARSER::INDEX)))8300 (T8301 (SETF *ATN-TERM?* 'SPOCQ.S:COUNT)8302 (|CountAggregate/fail.3| ATN-PARSER::INDEX)))))))8303 (|CountAggregate/start.1| ATN-PARSER::INDEX)8304 (SETF *ATN-NODE NIL)8305 NIL8306 (IF ATN-PARSER::ATN-STRUCTURE8307 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8308 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8309 (WARN "recursive grammar: ~s @ position ~s: ~s" '|CountAggregate| ATN-PARSER::INDEX *ATN-STACK))))8310 (PROGN (DEFVAR |ArithmeticAggregate-INDEX|)8311 (DEFUN |ArithmeticAggregate| (ATN-PARSER::INDEX &AUX (|ArithmeticAggregateOperator| NIL) (|Distinctness| NIL)8312 (|Expression| NIL))8313 "{110} ArithmeticAggregate ::= ArithmeticAggregateOperator '(' Distinctness? Expression ')'8314 (|ArithmeticAggregateOperator| |Distinctness| |Expression|)"8315 (DECLARE (SPECIAL |ArithmeticAggregate-INDEX|))8316 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ArithmeticAggregate-INDEX| *ATN-LEVEL))8317 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8318 (IF (< |ArithmeticAggregate-INDEX| ATN-PARSER::INDEX)8319 (LET ((|ArithmeticAggregate-INDEX| ATN-PARSER::INDEX)8320 (*ATN-LEVEL (1+ *ATN-LEVEL))8321 (*ATN-STACK (CONS '|ArithmeticAggregate| *ATN-STACK))8322 (ATN-PARSER::ATN-STRUCTURE NIL))8323 (DECLARE (SPECIAL |ArithmeticAggregate-INDEX|))8324 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8325 (DECLARE (TYPE CONS *ATN-STACK))8326 (SYMBOL-MACROLET8327 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8328 (%ATN-BLOCK |ArithmeticAggregate|8329 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8330 (SETF *ATN-TERM* '|ArithmeticAggregate|)8331 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8332 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8333 (|ArithmeticAggregate.2| (ATN-PARSER::INDEX)8334 (%ATN-NODE-BLOCK8335 |ArithmeticAggregate.2|8336 (%ATN-EDGE-BLOCK8337 (POP |ArithmeticAggregate|)8338 (WHEN T8339 (SETF *ATN-TERM* '|ArithmeticAggregate|)8340 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8341 '|ArithmeticAggregate|8342 ATN-PARSER::INDEX8343 (LIST '|ArithmeticAggregateOperator|8344 |ArithmeticAggregateOperator|8345 '|Distinctness|8346 |Distinctness|8347 '|Expression|8348 |Expression|))8349 (LET ((ATN-PARSER::RESULT-STRUCTURE8350 (IF (EQ *ATN-REDUCE* T)8351 (|ArithmeticAggregate-Constructor|8352 |ArithmeticAggregateOperator|8353 |Distinctness|8354 |Expression|)8355 (IF (EQ *ATN-REDUCE* 'CONS)8356 (CONS '|ArithmeticAggregate|8357 (DELETE NIL8358 (LIST |ArithmeticAggregateOperator|8359 |Distinctness|8360 |Expression|)))8361 '|ArithmeticAggregate|))))8362 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8363 (|ArithmeticAggregate/ArithmeticAggregate.2.4| (ATN-PARSER::INDEX)8364 (%ATN-NODE-BLOCK8365 |ArithmeticAggregate/ArithmeticAggregate.2.4|8366 (%ATN-EDGE-BLOCK8367 (ATN-PARSER::WORD SPOCQ.S:\()8368 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()8369 (SETF *ATN-TERM* 'SPOCQ.S:\()8370 (|ArithmeticAggregate/ArithmeticAggregate.2.5| (1+ ATN-PARSER::INDEX)))8371 (T8372 (SETF *ATN-TERM?* 'SPOCQ.S:\()8373 (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX))))))8374 (|ArithmeticAggregate/ArithmeticAggregate.2.5| (ATN-PARSER::INDEX)8375 (%ATN-NODE-BLOCK8376 |ArithmeticAggregate/ArithmeticAggregate.2.5|8377 (%ATN-EDGE-BLOCK8378 (ATN-PARSER::CAT |Distinctness|)8379 (COND ((|IS-Distinctness| ATN-PARSER::|item|)8380 (SETF *ATN-TERM* '|Distinctness|)8381 (SETF |Distinctness|8382 (IF (EQ *ATN-REDUCE* T)8383 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)8384 (IF (EQ *ATN-REDUCE* 'CONS)8385 (LIST '|Distinctness| ATN-PARSER::|item|)8386 '|Distinctness|)))8387 (|ArithmeticAggregate/ArithmeticAggregate.2.6| (1+ ATN-PARSER::INDEX)))8388 (T8389 (SETF *ATN-TERM* '|Distinctness|)8390 (|ArithmeticAggregate/ArithmeticAggregate.2.6| ATN-PARSER::INDEX))))))8391 (|ArithmeticAggregate/ArithmeticAggregate.2.6| (ATN-PARSER::INDEX)8392 (%ATN-NODE-BLOCK8393 |ArithmeticAggregate/ArithmeticAggregate.2.6|8394 (%ATN-EDGE-BLOCK8395 (PUSH |Expression|)8396 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8397 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)8398 (COND (ATN-PARSER::SUCCESS8399 (SETF *ATN-TERM* '|Expression|)8400 (LET ((|Expression728| |Expression|))8401 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8402 (DESTRUCTURING-BIND8403 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8404 ATN-PARSER::RESULT-AND-INDEX8405 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))8406 (|ArithmeticAggregate/ArithmeticAggregate.2.7|8407 ATN-PARSER::RESULT-INDEX))8408 (SETF |Expression| |Expression728|))))8409 (T8410 (SETF *ATN-TERM?* '|Expression|)8411 (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX)))))))8412 (|ArithmeticAggregate/ArithmeticAggregate.2.7| (ATN-PARSER::INDEX)8413 (%ATN-NODE-BLOCK8414 |ArithmeticAggregate/ArithmeticAggregate.2.7|8415 (%ATN-EDGE-BLOCK8416 (ATN-PARSER::WORD SPOCQ.S:\))8417 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))8418 (SETF *ATN-TERM* 'SPOCQ.S:\))8419 (|ArithmeticAggregate.2| (1+ ATN-PARSER::INDEX)))8420 (T8421 (SETF *ATN-TERM?* 'SPOCQ.S:\))8422 (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX))))))8423 (|ArithmeticAggregate/fail.3| (ATN-PARSER::INDEX)8424 (%ATN-NODE-BLOCK8425 |ArithmeticAggregate/fail.3|8426 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8427 (|ArithmeticAggregate/start.1| (ATN-PARSER::INDEX)8428 (%ATN-NODE-BLOCK8429 |ArithmeticAggregate/start.1|8430 (%ATN-EDGE-BLOCK8431 (ATN-PARSER::CAT |ArithmeticAggregateOperator|)8432 (COND ((|IS-ArithmeticAggregateOperator| ATN-PARSER::|item|)8433 (SETF *ATN-TERM* '|ArithmeticAggregateOperator|)8434 (SETF |ArithmeticAggregateOperator|8435 (IF (EQ *ATN-REDUCE* T)8436 (ATN-REDUCE-ITEM8437 #'|ArithmeticAggregateOperator-Constructor|8438 ATN-PARSER::|item|)8439 (IF (EQ *ATN-REDUCE* 'CONS)8440 (LIST '|ArithmeticAggregateOperator| ATN-PARSER::|item|)8441 '|ArithmeticAggregateOperator|)))8442 (|ArithmeticAggregate/ArithmeticAggregate.2.4| (1+ ATN-PARSER::INDEX)))8443 (T8444 (SETF *ATN-TERM* '|ArithmeticAggregateOperator|)8445 (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX)))))))8446 (|ArithmeticAggregate/start.1| ATN-PARSER::INDEX)8447 (SETF *ATN-NODE NIL)8448 NIL8449 (IF ATN-PARSER::ATN-STRUCTURE8450 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8451 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8452 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ArithmeticAggregate| ATN-PARSER::INDEX *ATN-STACK))))8453 (PROGN (DEFVAR |ConcatAggregate-INDEX|)8454 (DEFUN |ConcatAggregate| (ATN-PARSER::INDEX &AUX (|Distinctness| NIL) (|Expression| NIL) (|String| NIL))8455 "{110} ConcatAggregate ::= 'GROUP_CONCAT' '(' Distinctness? Expression (';'8456 'SEPARATOR'8457 '='8458 String)? ')'8459 (|Distinctness| |Expression| |String|)"8460 (DECLARE (SPECIAL |ConcatAggregate-INDEX|))8461 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConcatAggregate-INDEX| *ATN-LEVEL))8462 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8463 (IF (< |ConcatAggregate-INDEX| ATN-PARSER::INDEX)8464 (LET ((|ConcatAggregate-INDEX| ATN-PARSER::INDEX)8465 (*ATN-LEVEL (1+ *ATN-LEVEL))8466 (*ATN-STACK (CONS '|ConcatAggregate| *ATN-STACK))8467 (ATN-PARSER::ATN-STRUCTURE NIL))8468 (DECLARE (SPECIAL |ConcatAggregate-INDEX|))8469 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8470 (DECLARE (TYPE CONS *ATN-STACK))8471 (SYMBOL-MACROLET8472 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8473 (%ATN-BLOCK |ConcatAggregate|8474 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8475 (SETF *ATN-TERM* '|ConcatAggregate|)8476 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8477 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8478 (|ConcatAggregate.2| (ATN-PARSER::INDEX)8479 (%ATN-NODE-BLOCK8480 |ConcatAggregate.2|8481 (%ATN-EDGE-BLOCK8482 (POP |ConcatAggregate|)8483 (WHEN T8484 (SETF *ATN-TERM* '|ConcatAggregate|)8485 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8486 '|ConcatAggregate|8487 ATN-PARSER::INDEX8488 (LIST '|Distinctness|8489 |Distinctness|8490 '|Expression|8491 |Expression|8492 '|String|8493 |String|))8494 (LET ((ATN-PARSER::RESULT-STRUCTURE8495 (IF (EQ *ATN-REDUCE* T)8496 (|ConcatAggregate-Constructor| |Distinctness| |Expression| |String|)8497 (IF (EQ *ATN-REDUCE* 'CONS)8498 (CONS '|ConcatAggregate|8499 (DELETE NIL (LIST |Distinctness| |Expression| |String|)))8500 '|ConcatAggregate|))))8501 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8502 (|ConcatAggregate/ConcatAggregate.2.4| (ATN-PARSER::INDEX)8503 (%ATN-NODE-BLOCK8504 |ConcatAggregate/ConcatAggregate.2.4|8505 (%ATN-EDGE-BLOCK8506 (ATN-PARSER::WORD SPOCQ.S:\()8507 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()8508 (SETF *ATN-TERM* 'SPOCQ.S:\()8509 (|ConcatAggregate/ConcatAggregate.2.5| (1+ ATN-PARSER::INDEX)))8510 (T8511 (SETF *ATN-TERM?* 'SPOCQ.S:\()8512 (|ConcatAggregate/fail.3| ATN-PARSER::INDEX))))))8513 (|ConcatAggregate/ConcatAggregate.2.5| (ATN-PARSER::INDEX)8514 (%ATN-NODE-BLOCK8515 |ConcatAggregate/ConcatAggregate.2.5|8516 (%ATN-EDGE-BLOCK8517 (ATN-PARSER::CAT |Distinctness|)8518 (COND ((|IS-Distinctness| ATN-PARSER::|item|)8519 (SETF *ATN-TERM* '|Distinctness|)8520 (SETF |Distinctness|8521 (IF (EQ *ATN-REDUCE* T)8522 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)8523 (IF (EQ *ATN-REDUCE* 'CONS)8524 (LIST '|Distinctness| ATN-PARSER::|item|)8525 '|Distinctness|)))8526 (|ConcatAggregate/ConcatAggregate.2.6| (1+ ATN-PARSER::INDEX)))8527 (T8528 (SETF *ATN-TERM* '|Distinctness|)8529 (|ConcatAggregate/ConcatAggregate.2.6| ATN-PARSER::INDEX))))))8530 (|ConcatAggregate/ConcatAggregate.2.6| (ATN-PARSER::INDEX)8531 (%ATN-NODE-BLOCK8532 |ConcatAggregate/ConcatAggregate.2.6|8533 (%ATN-EDGE-BLOCK8534 (PUSH |Expression|)8535 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8536 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)8537 (COND (ATN-PARSER::SUCCESS8538 (SETF *ATN-TERM* '|Expression|)8539 (LET ((|Expression729| |Expression|))8540 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8541 (DESTRUCTURING-BIND8542 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8543 ATN-PARSER::RESULT-AND-INDEX8544 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))8545 (|ConcatAggregate/ConcatAggregate.2.7| ATN-PARSER::RESULT-INDEX))8546 (SETF |Expression| |Expression729|))))8547 (T8548 (SETF *ATN-TERM?* '|Expression|)8549 (|ConcatAggregate/fail.3| ATN-PARSER::INDEX)))))))8550 (|ConcatAggregate/ConcatAggregate.2.7| (ATN-PARSER::INDEX)8551 (%ATN-NODE-BLOCK8552 |ConcatAggregate/ConcatAggregate.2.7|8553 (%ATN-EDGE-BLOCK8554 (ATN-PARSER::JUMP |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9|)8555 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9| ATN-PARSER::INDEX))8556 (%ATN-EDGE-BLOCK8557 (ATN-PARSER::JUMP |ConcatAggregate/ConcatAggregate.2.8|)8558 (|ConcatAggregate/ConcatAggregate.2.8| ATN-PARSER::INDEX))))8559 (|ConcatAggregate/ConcatAggregate.2.8| (ATN-PARSER::INDEX)8560 (%ATN-NODE-BLOCK8561 |ConcatAggregate/ConcatAggregate.2.8|8562 (%ATN-EDGE-BLOCK8563 (ATN-PARSER::WORD SPOCQ.S:\))8564 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))8565 (SETF *ATN-TERM* 'SPOCQ.S:\))8566 (|ConcatAggregate.2| (1+ ATN-PARSER::INDEX)))8567 (T8568 (SETF *ATN-TERM?* 'SPOCQ.S:\))8569 (|ConcatAggregate/fail.3| ATN-PARSER::INDEX))))))8570 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.10| (ATN-PARSER::INDEX)8571 (%ATN-NODE-BLOCK8572 |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.10|8573 (%ATN-EDGE-BLOCK8574 (ATN-PARSER::WORD SPOCQ.S:SEPARATOR)8575 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:SEPARATOR)8576 (SETF *ATN-TERM* 'SPOCQ.S:SEPARATOR)8577 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.11|8578 (1+ ATN-PARSER::INDEX)))8579 (T (SETF *ATN-TERM?* 'SPOCQ.S:SEPARATOR) NIL)))))8580 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.11| (ATN-PARSER::INDEX)8581 (%ATN-NODE-BLOCK8582 |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.11|8583 (%ATN-EDGE-BLOCK8584 (ATN-PARSER::WORD SPOCQ.S:=)8585 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:=)8586 (SETF *ATN-TERM* 'SPOCQ.S:=)8587 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.12|8588 (1+ ATN-PARSER::INDEX)))8589 (T (SETF *ATN-TERM?* 'SPOCQ.S:=) NIL)))))8590 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.12| (ATN-PARSER::INDEX)8591 (%ATN-NODE-BLOCK8592 |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.12|8593 (%ATN-EDGE-BLOCK8594 (ATN-PARSER::CAT |String|)8595 (COND ((|IS-String| ATN-PARSER::|item|)8596 (SETF *ATN-TERM* '|String|)8597 (SETF |String|8598 (IF (EQ *ATN-REDUCE* T)8599 (ATN-REDUCE-ITEM #'|String-Constructor| ATN-PARSER::|item|)8600 (IF (EQ *ATN-REDUCE* 'CONS)8601 (LIST '|String| ATN-PARSER::|item|)8602 '|String|)))8603 (|ConcatAggregate/ConcatAggregate.2.8| (1+ ATN-PARSER::INDEX)))8604 (T (SETF *ATN-TERM* '|String|) NIL)))))8605 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9| (ATN-PARSER::INDEX)8606 (%ATN-NODE-BLOCK8607 |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9|8608 (%ATN-EDGE-BLOCK8609 (ATN-PARSER::WORD SPOCQ.S:\;)8610 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\;)8611 (SETF *ATN-TERM* 'SPOCQ.S:\;)8612 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.10|8613 (1+ ATN-PARSER::INDEX)))8614 (T (SETF *ATN-TERM?* 'SPOCQ.S:\;) NIL)))))8615 (|ConcatAggregate/fail.3| (ATN-PARSER::INDEX)8616 (%ATN-NODE-BLOCK |ConcatAggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8617 (|ConcatAggregate/start.1| (ATN-PARSER::INDEX)8618 (%ATN-NODE-BLOCK8619 |ConcatAggregate/start.1|8620 (%ATN-EDGE-BLOCK8621 (ATN-PARSER::WORD SPOCQ.S:GROUP_CONCAT)8622 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:GROUP_CONCAT)8623 (SETF *ATN-TERM* 'SPOCQ.S:GROUP_CONCAT)8624 (|ConcatAggregate/ConcatAggregate.2.4| (1+ ATN-PARSER::INDEX)))8625 (T8626 (SETF *ATN-TERM?* 'SPOCQ.S:GROUP_CONCAT)8627 (|ConcatAggregate/fail.3| ATN-PARSER::INDEX)))))))8628 (|ConcatAggregate/start.1| ATN-PARSER::INDEX)8629 (SETF *ATN-NODE NIL)8630 NIL8631 (IF ATN-PARSER::ATN-STRUCTURE8632 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8633 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8634 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConcatAggregate| ATN-PARSER::INDEX *ATN-STACK))))8635 (SETF (GET '|Query| :PRODUCTION) "8636 {1 } Query ::= Prologue ((SelectQuery | ConstructQuery | DescribeQuery | AskQuery))")8637 (SETF (GET '|Prologue| :PRODUCTION) "8638 {2 } Prologue ::= BaseDecl? PrefixDecl*")8639 (SETF (GET '|BaseDecl| :PRODUCTION) "8640 {3 } BaseDecl ::= 'BASE' IRI_REF")8641 (SETF (GET '|PrefixDecl| :PRODUCTION) "8642 {4 } PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF")8643 (SETF (GET '|SelectQuery| :PRODUCTION) "8644 {5 } SelectQuery ::= 'SELECT' Distinctness? (((VariableOrBinding)+ | Wild)) DatasetClause* WhereClause SolutionModifier")8645 (SETF (GET '|VariableOrBinding| :PRODUCTION) "8646 {5 } VariableOrBinding ::= (Var | ('(' Expression 'AS' Var ')'))")8647 (SETF (GET '|ConstructQuery| :PRODUCTION) "8648 {6 } ConstructQuery ::= 'CONSTRUCT' ConstructTemplate DatasetClause* WhereClause SolutionModifier")8649 (SETF (GET '|DescribeQuery| :PRODUCTION) "8650 {7 } DescribeQuery ::= 'DESCRIBE' ((VarOrIRIref+ | '*')) DatasetClause* WhereClause? SolutionModifier")8651 (SETF (GET '|AskQuery| :PRODUCTION) "8652 {8 } AskQuery ::= 'ASK' DatasetClause* WhereClause")8653 (SETF (GET '|DatasetClause| :PRODUCTION) "8654 {9 } DatasetClause ::= 'FROM' ((DefaultGraphClause | NamedGraphClause))")8655 (SETF (GET '|DefaultGraphClause| :PRODUCTION) "8656 {10} DefaultGraphClause ::= SourceSelector")8657 (SETF (GET '|NamedGraphClause| :PRODUCTION) "8658 {11} NamedGraphClause ::= 'NAMED' SourceSelector")8659 (SETF (GET '|SourceSelector| :PRODUCTION) "8660 {12} SourceSelector ::= IRIref")8661 (SETF (GET '|WhereClause| :PRODUCTION) "8662 {13} WhereClause ::= 'WHERE'? GroupGraphPattern")8663 (SETF (GET '|SolutionModifier| :PRODUCTION) "8664 {14} SolutionModifier ::= OrderClause? LimitOffsetClauses?")8665 (SETF (GET '|LimitOffsetClauses| :PRODUCTION) "8666 {15} LimitOffsetClauses ::= (((LimitClause OffsetClause?) | (OffsetClause8667 LimitClause?)))")8668 (SETF (GET '|OrderClause| :PRODUCTION) "8669 {16} OrderClause ::= 'ORDER' 'BY' OrderCondition+")8670 (SETF (GET '|OrderCondition| :PRODUCTION) "8671 {17} OrderCondition ::= ((OrderDirection8672 BrackettedExpression) | Constraint | Var)")8673 (SETF (GET '|LimitClause| :PRODUCTION) "8674 {18} LimitClause ::= 'LIMIT' INTEGER")8675 (SETF (GET '|OffsetClause| :PRODUCTION) "8676 {19} OffsetClause ::= 'OFFSET' INTEGER")8677 (SETF (GET '|GroupGraphPattern| :PRODUCTION) "8678 {20} GroupGraphPattern ::= '{' TriplesBlock? GroupGraphPatternRest* '}'")8679 (SETF (GET '|GroupGraphPatternRest| :PRODUCTION) "8680 GroupGraphPatternRest ::= ((GraphPatternNotTriples | Filter)) '.'? TriplesBlock?")8681 (SETF (GET '|TriplesBlock| :PRODUCTION) "8682 {21} TriplesBlock ::= TriplesSameSubject ('.' TriplesBlock?)?")8683 (SETF (GET '|GraphPatternNotTriples| :PRODUCTION) "8684 {22} GraphPatternNotTriples ::= (OptionalGraphPattern | GroupOrUnionGraphPattern | GraphGraphPattern)")8685 (SETF (GET '|OptionalGraphPattern| :PRODUCTION) "8686 {23} OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern")8687 (SETF (GET '|GraphGraphPattern| :PRODUCTION) "8688 {24} GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern")8689 (SETF (GET '|GroupOrUnionGraphPattern| :PRODUCTION) "8690 {25} GroupOrUnionGraphPattern ::= GroupGraphPattern ('UNION' GroupGraphPattern)*")8691 (SETF (GET '|Filter| :PRODUCTION) "8692 {26} Filter ::= 'FILTER' Constraint")8693 (SETF (GET '|Constraint| :PRODUCTION) "8694 {27} Constraint ::= (BrackettedExpression | BuiltInCall | FunctionCall)")8695 (SETF (GET '|FunctionCall| :PRODUCTION) "8696 {28} FunctionCall ::= IRIref ArgList")8697 (SETF (GET '|ArgList| :PRODUCTION) "8698 {29} ArgList ::= ((NILLIST | ('(' Expression (',' Expression)* ')')))")8699 (SETF (GET '|ConstructTemplate| :PRODUCTION) "8700 {30} ConstructTemplate ::= '{' ConstructTriples? '}'")8701 (SETF (GET '|ConstructTriples| :PRODUCTION) "8702 {31} ConstructTriples ::= TriplesSameSubject ('.' ConstructTriples?)?")8703 (SETF (GET '|TriplesSameSubject| :PRODUCTION) "8704 {32} TriplesSameSubject ::= ((VarOrTerm PropertyListNotEmpty) | (TriplesNode8705 PropertyList))")8706 (SETF (GET '|PropertyListNotEmpty| :PRODUCTION) "8707 {33} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*")8708 (SETF (GET '|VerbObjectList| :PRODUCTION) "8709 VerbObjectList ::= Verb ObjectList")8710 (SETF (GET '|PropertyList| :PRODUCTION) "8711 {34} PropertyList ::= PropertyListNotEmpty?")8712 (SETF (GET '|ObjectList| :PRODUCTION) "8713 {35} ObjectList ::= Object (',' Object)*")8714 (SETF (GET '|Object| :PRODUCTION) "8715 {36} Object ::= GraphNode")8716 (SETF (GET '|Verb| :PRODUCTION) "8717 {37} Verb ::= (VarOrIRIref | 'a')")8718 (SETF (GET '|TriplesNode| :PRODUCTION) "8719 {38} TriplesNode ::= (Collection | BlankNodePropertyList)")8720 (SETF (GET '|BlankNodePropertyList| :PRODUCTION) "8721 {39} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'")8722 (SETF (GET '|Collection| :PRODUCTION) "8723 {40} Collection ::= '(' GraphNode+ ')'")8724 (SETF (GET '|GraphNode| :PRODUCTION) "8725 {41} GraphNode ::= (VarOrTerm | TriplesNode)")8726 (SETF (GET '|VarOrTerm| :PRODUCTION) "8727 {42} VarOrTerm ::= (Var | GraphTerm)")8728 (SETF (GET '|VarOrIRIref| :PRODUCTION) "8729 {43} VarOrIRIref ::= (Var | IRIref)")8730 (SETF (GET '|GraphTerm| :PRODUCTION) "8731 {45} GraphTerm ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST)")8732 (SETF (GET '|Expression| :PRODUCTION) "8733 {46} Expression ::= ConditionalOrExpression")8734 (SETF (GET '|ConditionalOrExpression| :PRODUCTION) "8735 {47} ConditionalOrExpression ::= ConditionalAndExpression ('||'8736 ConditionalAndExpression)*")8737 (SETF (GET '|ConditionalAndExpression| :PRODUCTION) "8738 {48} ConditionalAndExpression ::= ValueLogical ('&&' ValueLogical)*")8739 (SETF (GET '|ValueLogical| :PRODUCTION) "8740 {49} ValueLogical ::= RelationalExpression")8741 (SETF (GET '|RelationalExpression| :PRODUCTION) "8742 {50} RelationalExpression ::= NumericExpression RelatedNumeric?")8743 (SETF (GET '|RelatedNumeric| :PRODUCTION) "8744 RelatedNumeric ::= RelationalOperator NumericExpression")8745 (SETF (GET '|NumericExpression| :PRODUCTION) "8746 {51} NumericExpression ::= AdditiveExpression")8747 (SETF (GET '|AdditiveExpression| :PRODUCTION) "8748 {52} AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*")8749 (SETF (GET '|AddedMultiplicative| :PRODUCTION) "8750 AddedMultiplicative ::= AdditiveOperator MultiplicativeExpression")8751 (SETF (GET '|MultiplicativeExpression| :PRODUCTION) "8752 {53} MultiplicativeExpression ::= UnaryExpression MultipliedUnary*")8753 (SETF (GET '|MultipliedUnary| :PRODUCTION) "8754 MultipliedUnary ::= MultiplicativeOperator UnaryExpression")8755 (SETF (GET '|UnaryExpression| :PRODUCTION) "8756 {54} UnaryExpression ::= ((UnaryOperator PrimaryExpression) | PrimaryExpression)")8757 (SETF (GET '|PrimaryExpression| :PRODUCTION) "8758 {55} PrimaryExpression ::= (BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var | Aggregate)")8759 (SETF (GET '|BrackettedExpression| :PRODUCTION) "8760 {56} BrackettedExpression ::= '(' Expression ')'")8761 (SETF (GET '|BuiltInCall| :PRODUCTION) "8762 {57} BuiltInCall ::= (BuiltinBinaryCall | BuiltinUnaryCall | RegexExpression)")8763 (SETF (GET '|BuiltinUnaryCall| :PRODUCTION) "8764 {57} BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'")8765 (SETF (GET '|BuiltinBinaryCall| :PRODUCTION) "8766 {57} BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'")8767 (SETF (GET '|RegexExpression| :PRODUCTION) "8768 {58} RegexExpression ::= 'REGEX' '(' Expression ',' Expression (','8769 Expression)? ')'")8770 (SETF (GET '|IRIrefOrFunction| :PRODUCTION) "8771 {59} IRIrefOrFunction ::= IRIref ArgList?")8772 (SETF (GET '|RDFLiteral| :PRODUCTION) "8773 {60} RDFLiteral ::= String ((LANGTAG | ('^^' IRIref)))?")8774 (SETF (GET '|IRIref| :PRODUCTION) "8775 {67} IRIref ::= (IRI_REF | PrefixedName)")8776 (SETF (GET '|BlankNode| :PRODUCTION) "8777 {69} BlankNode ::= (BLANK_NODE_LABEL | ANON)")8778 (SETF (GET 'IRI_REF :PRODUCTION) "8779 {70} IRI_REF ::= '<' IRI_NAMESTRING? '>'")8780 (SETF (GET 'NAMESPACE_REF :PRODUCTION) "8781 {70} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'")8782 (SETF (GET 'BLANK_NODE_LABEL :PRODUCTION) "8783 {73} BLANK_NODE_LABEL ::= '_:' PN_LOCAL")8784 (SETF (GET 'NILLIST :PRODUCTION) "8785 {92} NILLIST ::= '(' ')'")8786 (SETF (GET 'ANON :PRODUCTION) "8787 {94} ANON ::= '[' ']'")8788 (SETF (GET '|Aggregate| :PRODUCTION) "8789 {110} Aggregate ::= (CountAggregate | ArithmeticAggregate | ConcatAggregate)")8790 (SETF (GET '|CountAggregate| :PRODUCTION) "8791 {110} CountAggregate ::= 'COUNT' '(' Distinctness? ((Wild | Expression)) ')'")8792 (SETF (GET '|ArithmeticAggregate| :PRODUCTION) "8793 {110} ArithmeticAggregate ::= ArithmeticAggregateOperator '(' Distinctness? Expression ')'")8794 (SETF (GET '|ConcatAggregate| :PRODUCTION) "8795 {110} ConcatAggregate ::= 'GROUP_CONCAT' '(' Distinctness? Expression (';'8796 'SEPARATOR'8797 '='8798 String)? ')'")8799 (DEFUN |Query-Parser| (ATN-PARSER::*ATN-INPUT &KEY ((:TRACE *ATN-TRACE*) *ATN-TRACE*)8800 ((:TRACE-NETS *ATN-TRACE-NETS*) *ATN-TRACE-NETS*) ((:START-NAME ATN-PARSER::*ATN-START-NAME) '|Query|)8801 ((:MODE ATN-PARSER::*ATN-MODE) :MULTIPLE) ((:REDUCE *ATN-REDUCE*) T)8802 ((:REGISTER-WORDS *ATN-REGISTER-WORDS) NIL)8803 (ATN-PARSER::ATN-WFST (MAKE-ARRAY 8 :ADJUSTABLE T :ELEMENT-TYPE 'LIST :INITIAL-ELEMENT NIL)8804 ATN-PARSER::AW-S)8805 &ALLOW-OTHER-KEYS &AUX)8806 "// generated 2011.06.21T08:19:42 based on \"P-LIBRARY:org;datagraph;spocq;src;core;encoding;sparql-1-0-1.bnf\" from 2011.06.05T18:46:08.8807 // 1.0.1 adds aggregation expressions and select as bindings8808 [[1]] Query ::= Prologue ( SelectQuery | ConstructQuery | DescribeQuery | AskQuery )8809 [[2]] Prologue ::= BaseDecl? PrefixDecl*8810 [[3]] BaseDecl ::= 'BASE' IRI_REF8811 [[4]] PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF8812 // [[5]] SelectQuery ::= 'SELECT' Distinctness? ( Var+ | '*' ) DatasetClause* WhereClause SolutionModifier8813 [[5]] SelectQuery ::= 'SELECT' Distinctness? ( ( VariableOrBinding )+ | Wild ) DatasetClause* WhereClause SolutionModifier8814 [[5]] Distinctness ::= 'DISTINCT' | 'REDUCED'8815 [[5]] VariableOrBinding ::= Var | ( '(' Expression 'AS' Var ')' )8816 [[5]] Wild ::= '*'8817 [[6]] ConstructQuery ::= 'CONSTRUCT' ConstructTemplate DatasetClause* WhereClause SolutionModifier8818 [[7]] DescribeQuery ::= 'DESCRIBE' ( VarOrIRIref+ | '*' ) DatasetClause* WhereClause? SolutionModifier8819 [[8]] AskQuery ::= 'ASK' DatasetClause* WhereClause8820 [[9]] DatasetClause ::= 'FROM' ( DefaultGraphClause | NamedGraphClause )8821 [[10]] DefaultGraphClause ::= SourceSelector8822 [[11]] NamedGraphClause ::= 'NAMED' SourceSelector8823 [[12]] SourceSelector ::= IRIref8824 [[13]] WhereClause ::= 'WHERE'? GroupGraphPattern8825 [[14]] SolutionModifier ::= OrderClause? LimitOffsetClauses?8826 [[15]] LimitOffsetClauses ::= ( ( LimitClause OffsetClause?) | (OffsetClause LimitClause?) )8827 [[16]] OrderClause ::= 'ORDER' 'BY' OrderCondition+8828 [[17]] OrderCondition ::= ( OrderDirection BrackettedExpression ) | Constraint | Var8829 OrderDirection ::= 'ASC' | 'DESC'8830 [[18]] LimitClause ::= 'LIMIT' INTEGER8831 [[19]] OffsetClause ::= 'OFFSET' INTEGER8832 [[20]] GroupGraphPattern ::= '{' TriplesBlock? GroupGraphPatternRest* '}'8833 GroupGraphPatternRest ::= ( GraphPatternNotTriples | Filter ) '.'? TriplesBlock?8834 [[21]] TriplesBlock ::= TriplesSameSubject ( '.' TriplesBlock? )?8835 [[22]] GraphPatternNotTriples ::= OptionalGraphPattern | GroupOrUnionGraphPattern | GraphGraphPattern8836 [[23]] OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern8837 [[24]] GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern8838 [[25]] GroupOrUnionGraphPattern ::= GroupGraphPattern ( 'UNION' GroupGraphPattern )*8839 [[26]] Filter ::= 'FILTER' Constraint8840 [[27]] Constraint ::= BrackettedExpression | BuiltInCall | FunctionCall8841 [[28]] FunctionCall ::= IRIref ArgList8842 [[29]] ArgList ::= ( NILLIST | ( '(' Expression ( ',' Expression )* ')' ) )8843 [[30]] ConstructTemplate ::= '{' ConstructTriples? '}'8844 [[31]] ConstructTriples ::= TriplesSameSubject ( '.' ConstructTriples? )?8845 [[32]] TriplesSameSubject ::= ( VarOrTerm PropertyListNotEmpty ) | ( TriplesNode PropertyList )8846 [[33]] PropertyListNotEmpty ::= VerbObjectList ( ';' VerbObjectList? )* 8847 VerbObjectList ::= Verb ObjectList8848 [[34]] PropertyList ::= PropertyListNotEmpty?8849 [[35]] ObjectList ::= Object ( ',' Object )*8850 [[36]] Object ::= GraphNode8851 [[37]] Verb ::= VarOrIRIref | 'a'8852 [[38]] TriplesNode ::= Collection | BlankNodePropertyList8853 [[39]] BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'8854 [[40]] Collection ::= '(' GraphNode+ ')'8855 [[41]] GraphNode ::= VarOrTerm | TriplesNode8856 [[42]] VarOrTerm ::= Var | GraphTerm8857 [[43]] VarOrIRIref ::= Var | IRIref8858 // [[44]] Var ::= VAR1 | VAR28859 [[45]] GraphTerm ::= IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST8860 [[46]] Expression ::= ConditionalOrExpression8861 [[47]] ConditionalOrExpression ::= ConditionalAndExpression ( '||' ConditionalAndExpression )*8862 [[48]] ConditionalAndExpression ::= ValueLogical ( '&&' ValueLogical )*8863 [[49]] ValueLogical ::= RelationalExpression8864 [[50]] RelationalExpression ::= NumericExpression RelatedNumeric ?8865 RelationalOperator ::= '=' | '!=' | '<' | '>' | '<=' | '>='8866 RelatedNumeric ::= RelationalOperator NumericExpression8867 [[51]] NumericExpression ::= AdditiveExpression8868 [[52]] AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*8869 AdditiveOperator ::= '+' | '-'8870 AddedMultiplicative :: AdditiveOperator MultiplicativeExpression8871 // | NumericLiteralPositive | NumericLiteralNegative already appear through primary expression8872 [[53]] MultiplicativeExpression ::= UnaryExpression MultipliedUnary*8873 MultiplicativeOperator ::= '*' | '/'8874 MultipliedUnary ::= MultiplicativeOperator UnaryExpression8875 [[54]] UnaryExpression ::= ( UnaryOperator PrimaryExpression ) | PrimaryExpression8876 UnaryOperator ::= '!' | '+' | '-'8877 [[55]] PrimaryExpression ::= BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var | Aggregate8878 [[56]] BrackettedExpression ::= '(' Expression ')'8879 [[57]] BuiltInCall ::= BuiltinBinaryCall | BuiltinUnaryCall | RegexExpression8880 [[57]] BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'8881 [[57]] BuiltinUnaryOperator ::= 'STR' | 'LANG' | 'DATATYPE' | 'BOUND' | 'isIRI' | 'isURI' | 'isBlank' | 'isLiteral'8882 [[57]] BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'8883 [[57]] BuiltinBinaryOperator ::= 'LANGMATCHES' | 'sameTerm'8884 [[58]] RegexExpression ::= 'REGEX' '(' Expression ',' Expression ( ',' Expression )? ')'8885 [[59]] IRIrefOrFunction ::= IRIref ArgList?8886 [[60]] RDFLiteral ::= String ( LANGTAG | ( '^^' IRIref ) )?8887 [[61]] NumericLiteral ::= NumericLiteralUnsigned | NumericLiteralPositive | NumericLiteralNegative8888 [[62]] NumericLiteralUnsigned ::= INTEGER | DECIMAL | DOUBLE8889 [[63]] NumericLiteralPositive ::= INTEGER_POSITIVE | DECIMAL_POSITIVE | DOUBLE_POSITIVE8890 [[64]] NumericLiteralNegative ::= INTEGER_NEGATIVE | DECIMAL_NEGATIVE | DOUBLE_NEGATIVE8891 [[65]] BooleanLiteral ::= 'true' | 'false'8892 [[66]] String ::= STRING_LITERAL1 | STRING_LITERAL2 | STRING_LITERAL_LONG1 | STRING_LITERAL_LONG28893 [[67]] IRIref ::= IRI_REF | PrefixedName8894 [[68]] PrefixedName ::= PNAME_LN | PNAME_NS8895 [[69]] BlankNode ::= BLANK_NODE_LABEL | ANON8896 // [[70]] IRI_REF ::= '<' ([^<>\"{}|^`\\]-[#x00-#x20])* '>'8897 [[70]] IRI_REF ::= '<' IRI_NAMESTRING? '>'8898 [[70]] NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'8899 // [[71]] PNAME_NS ::= PN_PREFIX? ':'8900 // [[72]] PNAME_LN ::= PNAME_NS PN_LOCAL8901 [[73]] BLANK_NODE_LABEL ::= '_:' PN_LOCAL8902 // [[74]] VAR1 ::= '?' VARNAME8903 // [[75]] VAR2 ::= '$' VARNAME8904 // [[76]] LANGTAG ::= '@' [a-zA-Z]+ ('-' [a-zA-Z0-9]+)*8905 // [[77]] INTEGER ::= [0-9]+8906 // [[78]] DECIMAL ::= [0-9]+ '.' [0-9]* | '.' [0-9]+8907 // [[79]] DOUBLE ::= [0-9]+ '.' [0-9]* EXPONENT | '.' ([0-9])+ EXPONENT | ([0-9])+ EXPONENT8908 // [[80]] INTEGER_POSITIVE ::= '+' INTEGER8909 // [[81]] DECIMAL_POSITIVE ::= '+' DECIMAL8910 // [[82]] DOUBLE_POSITIVE ::= '+' DOUBLE8911 // [[83]] INTEGER_NEGATIVE ::= '-' INTEGER8912 // [[84]] DECIMAL_NEGATIVE ::= '-' DECIMAL8913 // [[85]] DOUBLE_NEGATIVE ::= '-' DOUBLE8914 // [[86]] EXPONENT ::= [eE] [+-]? [0-9]+8915 // [[87]] STRING_LITERAL1 ::= \"'\" ( ([^#x27#x5C#xA#xD]) | ECHAR )* \"'\"8916 // [[88]] STRING_LITERAL2 ::= '\"' ( ([^#x22#x5C#xA#xD]) | ECHAR )* '\"'8917 // [[89]] STRING_LITERAL_LONG1 ::= \"'''\" ( ( \"'\" | \"''\" )? ( [^'\\] | ECHAR ) )* \"'''\"8918 // [[90]] STRING_LITERAL_LONG2 ::= '\"\"\"' ( ( '\"' | '\"\"' )? ( [^\"\\] | ECHAR ) )* '\"\"\"'8919 // [[91]] ECHAR ::= '\\' [tbnrf\\\"']8920 [[92]] NILLIST ::= '(' ')'8921 // [[93]] WS ::= #x20 | #x9 | #xD | #xA8922 [[94]] ANON ::= '[' ']'8923 // [[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]8924 // [[96]] PN_CHARS_U ::= PN_CHARS_BASE | '_'8925 // [[97]] VARNAME ::= ( PN_CHARS_U | [0-9] ) ( PN_CHARS_U | [0-9] | #x00B7 | [#x0300-#x036F] | [#x203F-#x2040] )*8926 // [[98]] PN_CHARS ::= PN_CHARS_U | '-' | [0-9] | #x00B7 | [#x0300-#x036F] | [#x203F-#x2040]8927 // [[99]] PN_PREFIX ::= PN_CHARS_BASE ((PN_CHARS|'.')* PN_CHARS)?8928 // [[100]] PN_LOCAL ::= ( PN_CHARS_U | [0-9] ) ((PN_CHARS|'.')* PN_CHARS)?8929 8930 8931 // 1.0.1 additions8932 [[110]] Aggregate ::= CountAggregate | ArithmeticAggregate | ConcatAggregate8933 [[110]] CountAggregate ::= 'COUNT' '(' Distinctness? ( Wild | Expression ) ')'8934 [[110]] ArithmeticAggregate ::= ArithmeticAggregateOperator '(' Distinctness? Expression ')'8935 [[110]] ArithmeticAggregateOperator ::= 'MIN' | 'MAX' | 'AVG' | 'SAMPLE' | 'SUM'8936 [[110]] ConcatAggregate ::= 'GROUP_CONCAT' '(' Distinctness? Expression ( ';' 'SEPARATOR' '=' String )? ')'8937 8938 "8939 (DECLARE (SPECIAL *ATN-REDUCE* ATN-PARSER::*ATN-MODE ATN-PARSER::*ATN-INPUT))8940 (WHEN ATN-PARSER::AW-S (|wfst-initialize| ATN-PARSER::ATN-WFST))8941 (LET ((*ATN-LEVEL 0)8942 (*ATN-WFST ATN-PARSER::ATN-WFST)8943 (*ATN-STACK '(|Query-Parser|))8944 (*ATN-NODE NIL)8945 (*ATN-PROPERTIES NIL)8946 (*ATN-CLASS NIL)8947 (|Query-INDEX| -1)8948 (|Prologue-INDEX| -1)8949 (|BaseDecl-INDEX| -1)8950 (|PrefixDecl-INDEX| -1)8951 (|SelectQuery-INDEX| -1)8952 (|VariableOrBinding-INDEX| -1)8953 (|ConstructQuery-INDEX| -1)8954 (|DescribeQuery-INDEX| -1)8955 (|AskQuery-INDEX| -1)8956 (|DatasetClause-INDEX| -1)8957 (|DefaultGraphClause-INDEX| -1)8958 (|NamedGraphClause-INDEX| -1)8959 (|SourceSelector-INDEX| -1)8960 (|WhereClause-INDEX| -1)8961 (|SolutionModifier-INDEX| -1)8962 (|LimitOffsetClauses-INDEX| -1)8963 (|OrderClause-INDEX| -1)8964 (|OrderCondition-INDEX| -1)8965 (|LimitClause-INDEX| -1)8966 (|OffsetClause-INDEX| -1)8967 (|GroupGraphPattern-INDEX| -1)8968 (|GroupGraphPatternRest-INDEX| -1)8969 (|TriplesBlock-INDEX| -1)8970 (|GraphPatternNotTriples-INDEX| -1)8971 (|OptionalGraphPattern-INDEX| -1)8972 (|GraphGraphPattern-INDEX| -1)8973 (|GroupOrUnionGraphPattern-INDEX| -1)8974 (|Filter-INDEX| -1)8975 (|Constraint-INDEX| -1)8976 (|FunctionCall-INDEX| -1)8977 (|ArgList-INDEX| -1)8978 (|ConstructTemplate-INDEX| -1)8979 (|ConstructTriples-INDEX| -1)8980 (|TriplesSameSubject-INDEX| -1)8981 (|PropertyListNotEmpty-INDEX| -1)8982 (|VerbObjectList-INDEX| -1)8983 (|PropertyList-INDEX| -1)8984 (|ObjectList-INDEX| -1)8985 (|Object-INDEX| -1)8986 (|Verb-INDEX| -1)8987 (|TriplesNode-INDEX| -1)8988 (|BlankNodePropertyList-INDEX| -1)8989 (|Collection-INDEX| -1)8990 (|GraphNode-INDEX| -1)8991 (|VarOrTerm-INDEX| -1)8992 (|VarOrIRIref-INDEX| -1)8993 (|GraphTerm-INDEX| -1)8994 (|Expression-INDEX| -1)8995 (|ConditionalOrExpression-INDEX| -1)8996 (|ConditionalAndExpression-INDEX| -1)8997 (|ValueLogical-INDEX| -1)8998 (|RelationalExpression-INDEX| -1)8999 (|RelatedNumeric-INDEX| -1)9000 (|NumericExpression-INDEX| -1)9001 (|AdditiveExpression-INDEX| -1)9002 (|AddedMultiplicative-INDEX| -1)9003 (|MultiplicativeExpression-INDEX| -1)9004 (|MultipliedUnary-INDEX| -1)9005 (|UnaryExpression-INDEX| -1)9006 (|PrimaryExpression-INDEX| -1)9007 (|BrackettedExpression-INDEX| -1)9008 (|BuiltInCall-INDEX| -1)9009 (|BuiltinUnaryCall-INDEX| -1)9010 (|BuiltinBinaryCall-INDEX| -1)9011 (|RegexExpression-INDEX| -1)9012 (|IRIrefOrFunction-INDEX| -1)9013 (|RDFLiteral-INDEX| -1)9014 (|IRIref-INDEX| -1)9015 (|BlankNode-INDEX| -1)9016 (IRI_REF-INDEX -1)9017 (NAMESPACE_REF-INDEX -1)9018 (BLANK_NODE_LABEL-INDEX -1)9019 (NILLIST-INDEX -1)9020 (ANON-INDEX -1)9021 (|Aggregate-INDEX| -1)9022 (|CountAggregate-INDEX| -1)9023 (|ArithmeticAggregate-INDEX| -1)9024 (|ConcatAggregate-INDEX| -1)9025 (ATN-PARSER::ATN-NET-NAMES9026 '(|Query| |Prologue|9027 |BaseDecl|9028 |PrefixDecl|9029 |SelectQuery|9030 |VariableOrBinding|9031 |ConstructQuery|9032 |DescribeQuery|9033 |AskQuery|9034 |DatasetClause|9035 |DefaultGraphClause|9036 |NamedGraphClause|9037 |SourceSelector|9038 |WhereClause|9039 |SolutionModifier|9040 |LimitOffsetClauses|9041 |OrderClause|9042 |OrderCondition|9043 |LimitClause|9044 |OffsetClause|9045 |GroupGraphPattern|9046 |GroupGraphPatternRest|9047 |TriplesBlock|9048 |GraphPatternNotTriples|9049 |OptionalGraphPattern|9050 |GraphGraphPattern|9051 |GroupOrUnionGraphPattern|9052 |Filter|9053 |Constraint|9054 |FunctionCall|9055 |ArgList|9056 |ConstructTemplate|9057 |ConstructTriples|9058 |TriplesSameSubject|9059 |PropertyListNotEmpty|9060 |VerbObjectList|9061 |PropertyList|9062 |ObjectList|9063 |Object|9064 |Verb|9065 |TriplesNode|9066 |BlankNodePropertyList|9067 |Collection|9068 |GraphNode|9069 |VarOrTerm|9070 |VarOrIRIref|9071 |GraphTerm|9072 |Expression|9073 |ConditionalOrExpression|9074 |ConditionalAndExpression|9075 |ValueLogical|9076 |RelationalExpression|9077 |RelatedNumeric|9078 |NumericExpression|9079 |AdditiveExpression|9080 |AddedMultiplicative|9081 |MultiplicativeExpression|9082 |MultipliedUnary|9083 |UnaryExpression|9084 |PrimaryExpression|9085 |BrackettedExpression|9086 |BuiltInCall|9087 |BuiltinUnaryCall|9088 |BuiltinBinaryCall|9089 |RegexExpression|9090 |IRIrefOrFunction|9091 |RDFLiteral|9092 |IRIref|9093 |BlankNode|9094 IRI_REF9095 NAMESPACE_REF9096 BLANK_NODE_LABEL9097 NILLIST9098 ANON9099 |Aggregate|9100 |CountAggregate|9101 |ArithmeticAggregate|9102 |ConcatAggregate|)))9103 (DECLARE9104 (SPECIAL |Query-INDEX| |Prologue-INDEX| |BaseDecl-INDEX| |PrefixDecl-INDEX| |SelectQuery-INDEX| |VariableOrBinding-INDEX|9105 |ConstructQuery-INDEX| |DescribeQuery-INDEX| |AskQuery-INDEX| |DatasetClause-INDEX| |DefaultGraphClause-INDEX|9106 |NamedGraphClause-INDEX| |SourceSelector-INDEX| |WhereClause-INDEX| |SolutionModifier-INDEX| |LimitOffsetClauses-INDEX|9107 |OrderClause-INDEX| |OrderCondition-INDEX| |LimitClause-INDEX| |OffsetClause-INDEX| |GroupGraphPattern-INDEX|9108 |GroupGraphPatternRest-INDEX| |TriplesBlock-INDEX| |GraphPatternNotTriples-INDEX| |OptionalGraphPattern-INDEX|9109 |GraphGraphPattern-INDEX| |GroupOrUnionGraphPattern-INDEX| |Filter-INDEX| |Constraint-INDEX| |FunctionCall-INDEX|9110 |ArgList-INDEX| |ConstructTemplate-INDEX| |ConstructTriples-INDEX| |TriplesSameSubject-INDEX| |PropertyListNotEmpty-INDEX|9111 |VerbObjectList-INDEX| |PropertyList-INDEX| |ObjectList-INDEX| |Object-INDEX| |Verb-INDEX| |TriplesNode-INDEX|9112 |BlankNodePropertyList-INDEX| |Collection-INDEX| |GraphNode-INDEX| |VarOrTerm-INDEX| |VarOrIRIref-INDEX| |GraphTerm-INDEX|9113 |Expression-INDEX| |ConditionalOrExpression-INDEX| |ConditionalAndExpression-INDEX| |ValueLogical-INDEX|9114 |RelationalExpression-INDEX| |RelatedNumeric-INDEX| |NumericExpression-INDEX| |AdditiveExpression-INDEX|9115 |AddedMultiplicative-INDEX| |MultiplicativeExpression-INDEX| |MultipliedUnary-INDEX| |UnaryExpression-INDEX|9116 |PrimaryExpression-INDEX| |BrackettedExpression-INDEX| |BuiltInCall-INDEX| |BuiltinUnaryCall-INDEX| |BuiltinBinaryCall-INDEX|9117 |RegexExpression-INDEX| |IRIrefOrFunction-INDEX| |RDFLiteral-INDEX| |IRIref-INDEX| |BlankNode-INDEX| IRI_REF-INDEX9118 NAMESPACE_REF-INDEX BLANK_NODE_LABEL-INDEX NILLIST-INDEX ANON-INDEX |Aggregate-INDEX| |CountAggregate-INDEX|9119 |ArithmeticAggregate-INDEX| |ConcatAggregate-INDEX|))9120 (UNLESS (FIND ATN-PARSER::*ATN-START-NAME ATN-PARSER::ATN-NET-NAMES)9121 (ERROR "production not defined in system: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|Query-Parser|))9122 (UNLESS (FBOUNDP ATN-PARSER::*ATN-START-NAME)9123 (ERROR "parse function missing: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|Query-Parser|))9124 (HANDLER-BIND ((CONTINUABLE-PARSER-ERROR #'(LAMBDA (CONDITION) (SIGNAL CONDITION)))9125 (TERMINAL-PARSER-ERROR9126 #'(LAMBDA (CONDITION &AUX (ATN-PARSER::ACTION (CONDITION-ACTION CONDITION)))9127 (ETYPECASE ATN-PARSER::ACTION9128 (NULL)9129 (KEYWORD9130 (ECASE ATN-PARSER::ACTION9131 (:ABORT9132 (WHEN *ATN-TRACE*9133 (WARN "terminating parse on condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))9134 (RETURN-FROM |Query-Parser| (VALUES NIL CONDITION NIL)))9135 (:CONTINUE9136 (WHEN *ATN-TRACE*9137 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))9138 (CONTINUE CONDITION))9139 (:SIGNAL9140 (WHEN *ATN-TRACE*9141 (WARN "signaling parse condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))9142 (SIGNAL CONDITION)9143 (WHEN *ATN-TRACE*9144 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))9145 (CONTINUE CONDITION))))9146 #'(FUNCALL ATN-PARSER::ACTION))))9147 (ERROR #'(LAMBDA (CONDITION) (WHEN *ATN-TRACE* (WARN "parse raised condition: ~a." CONDITION)) NIL)))9148 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9149 (ATN-PARSE-SUBSTRUCTURE* ATN-PARSER::*ATN-START-NAME 0)9150 (COND (ATN-PARSER::SUCCESS9151 (RETURN-FROM |Query-Parser|9152 (PROGN (WHEN (CDR ATN-PARSER::RESULT)9153 (WHEN *ATN-TRACE* (WARN "ambiguous results for term: ~s." ATN-PARSER::*ATN-START-NAME))9154 (SETF ATN-PARSER::RESULT (SORT ATN-PARSER::RESULT #'> :KEY #'REST)))9155 (DESTRUCTURING-BIND9156 (ATN-PARSER::RESULT . ATN-PARSER::INDEX)9157 (FIRST ATN-PARSER::RESULT)9158 (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX (INPUT-EOF? ATN-PARSER::INDEX))))))9159 (T9160 (RETURN-FROM |Query-Parser|9161 (VALUES NIL (REDUCE #'MAX ATN-PARSER::RESULT :KEY #'REST :INITIAL-VALUE 0) NIL))))))))