| Kind | Covered | All | % |
| expression | 0 | 10871 | 0.0 |
| branch | 0 | 728 | 0.0 |
1 2 (IN-PACKAGE "ORG.DATAGRAPH.SPOCQ.SPARQL-1-0") 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-OrderDirection|)) 11 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-RelationalOperator|)) 12 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-AdditiveOperator|)) 13 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-MultiplicativeOperator|)) 14 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-UnaryOperator|)) 15 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinUnaryOperator|)) 16 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinBinaryOperator|)) 17 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BooleanLiteral|)) 18 (DECLAIM (FTYPE (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES T T T)) |Query-Parser|)) 19 (DEFUN |IS-NumericLiteral| (ATN-PARSER::ITEM)20 (%ATN-TRACE-FORM21 (AND ATN-PARSER::ITEM22 (OR (|IS-NumericLiteralUnsigned| ATN-PARSER::ITEM)23 (|IS-NumericLiteralPositive| ATN-PARSER::ITEM)24 (|IS-NumericLiteralNegative| ATN-PARSER::ITEM)))))25 (DEFUN |IS-NumericLiteralUnsigned| (ATN-PARSER::ITEM)26 (%ATN-TRACE-FORM27 (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM) (IS-DECIMAL ATN-PARSER::ITEM) (IS-DOUBLE ATN-PARSER::ITEM)))))28 (DEFUN |IS-NumericLiteralPositive| (ATN-PARSER::ITEM)29 (%ATN-TRACE-FORM30 (AND ATN-PARSER::ITEM31 (OR (IS-INTEGER_POSITIVE ATN-PARSER::ITEM) (IS-DECIMAL_POSITIVE ATN-PARSER::ITEM) (IS-DOUBLE_POSITIVE ATN-PARSER::ITEM)))))32 (DEFUN |IS-NumericLiteralNegative| (ATN-PARSER::ITEM)33 (%ATN-TRACE-FORM34 (AND ATN-PARSER::ITEM35 (OR (IS-INTEGER_NEGATIVE ATN-PARSER::ITEM) (IS-DECIMAL_NEGATIVE ATN-PARSER::ITEM) (IS-DOUBLE_NEGATIVE ATN-PARSER::ITEM)))))36 (DEFUN |IS-String| (ATN-PARSER::ITEM)37 (%ATN-TRACE-FORM38 (AND ATN-PARSER::ITEM39 (OR (IS-STRING_LITERAL1 ATN-PARSER::ITEM)40 (IS-STRING_LITERAL2 ATN-PARSER::ITEM)41 (IS-STRING_LITERAL_LONG1 ATN-PARSER::ITEM)42 (IS-STRING_LITERAL_LONG2 ATN-PARSER::ITEM)))))43 (DEFUN |IS-PrefixedName| (ATN-PARSER::ITEM)44 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-PNAME_LN ATN-PARSER::ITEM) (IS-PNAME_NS ATN-PARSER::ITEM)))))45 (DEFUN |IS-Distinctness| (ATN-PARSER::ITEM)46 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:DISTINCT) (EQ ATN-PARSER::ITEM 'SPOCQ.S:REDUCED)))))47 (DEFUN |IS-OrderDirection| (ATN-PARSER::ITEM)48 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:ASC) (EQ ATN-PARSER::ITEM 'SPOCQ.S:DESC)))))49 (DEFUN |IS-RelationalOperator| (ATN-PARSER::ITEM)50 (%ATN-TRACE-FORM51 (AND ATN-PARSER::ITEM52 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:=)53 (EQ ATN-PARSER::ITEM 'SPOCQ.S:!=)54 (EQ ATN-PARSER::ITEM 'SPOCQ.S:<)55 (EQ ATN-PARSER::ITEM 'SPOCQ.S:>)56 (EQ ATN-PARSER::ITEM 'SPOCQ.S:<=)57 (EQ ATN-PARSER::ITEM 'SPOCQ.S:>=)))))58 (DEFUN |IS-AdditiveOperator| (ATN-PARSER::ITEM)59 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:+) (EQ ATN-PARSER::ITEM 'SPOCQ.S:-)))))60 (DEFUN |IS-MultiplicativeOperator| (ATN-PARSER::ITEM)61 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:*) (EQ ATN-PARSER::ITEM 'SPOCQ.S:/)))))62 (DEFUN |IS-UnaryOperator| (ATN-PARSER::ITEM)63 (%ATN-TRACE-FORM64 (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:!) (EQ ATN-PARSER::ITEM 'SPOCQ.S:+) (EQ ATN-PARSER::ITEM 'SPOCQ.S:-)))))65 (DEFUN |IS-BuiltinUnaryOperator| (ATN-PARSER::ITEM)66 (%ATN-TRACE-FORM67 (AND ATN-PARSER::ITEM68 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:STR)69 (EQ ATN-PARSER::ITEM 'SPOCQ.S:LANG)70 (EQ ATN-PARSER::ITEM 'SPOCQ.S:DATATYPE)71 (EQ ATN-PARSER::ITEM 'SPOCQ.S:BOUND)72 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isIRI|)73 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isURI|)74 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isBlank|)75 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isLiteral|)))))76 (DEFUN |IS-BuiltinBinaryOperator| (ATN-PARSER::ITEM)77 (%ATN-TRACE-FORM78 (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:LANGMATCHES) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|sameTerm|)))))79 (DEFUN |IS-BooleanLiteral| (ATN-PARSER::ITEM)80 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:|true|) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|false|)))))81 (PROGN (DEFVAR |Query-INDEX|)82 (DEFUN |Query| (ATN-PARSER::INDEX &AUX (|AskQuery| NIL) (|ConstructQuery| NIL) (|DescribeQuery| NIL) (|Prologue| NIL)83 (|SelectQuery| NIL))84 "{1 } Query ::= Prologue ((SelectQuery | ConstructQuery | DescribeQuery | AskQuery))85 (|AskQuery| |ConstructQuery| |DescribeQuery| |Prologue| |SelectQuery|)"86 (DECLARE (SPECIAL |Query-INDEX|))87 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Query-INDEX| *ATN-LEVEL))88 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))89 (IF (< |Query-INDEX| ATN-PARSER::INDEX)90 (LET ((|Query-INDEX| ATN-PARSER::INDEX)91 (*ATN-LEVEL (1+ *ATN-LEVEL))92 (*ATN-STACK (CONS '|Query| *ATN-STACK))93 (ATN-PARSER::ATN-STRUCTURE NIL))94 (DECLARE (SPECIAL |Query-INDEX|))95 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))96 (DECLARE (TYPE CONS *ATN-STACK))97 (SYMBOL-MACROLET98 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))99 (%ATN-BLOCK |Query|100 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)101 (SETF *ATN-TERM* '|Query|)102 (WHEN (INPUT-EOF? ATN-PARSER::INDEX)103 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE)))104 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)105 (|Query.2| (ATN-PARSER::INDEX)106 (%ATN-NODE-BLOCK107 |Query.2|108 (%ATN-EDGE-BLOCK109 (POP |Query|)110 (WHEN T111 (SETF *ATN-TERM* '|Query|)112 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"113 '|Query|114 ATN-PARSER::INDEX115 (LIST '|AskQuery|116 |AskQuery|117 '|ConstructQuery|118 |ConstructQuery|119 '|DescribeQuery|120 |DescribeQuery|121 '|Prologue|122 |Prologue|123 '|SelectQuery|124 |SelectQuery|))125 (LET ((ATN-PARSER::RESULT-STRUCTURE126 (IF (EQ *ATN-REDUCE* T)127 (|Query-Constructor|128 |AskQuery|129 |ConstructQuery|130 |DescribeQuery|131 |Prologue|132 |SelectQuery|)133 (IF (EQ *ATN-REDUCE* 'CONS)134 (CONS '|Query|135 (DELETE NIL136 (LIST |AskQuery|137 |ConstructQuery|138 |DescribeQuery|139 |Prologue|140 |SelectQuery|)))141 '|Query|))))142 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))143 (|Query/fail.3| (ATN-PARSER::INDEX)144 (%ATN-NODE-BLOCK |Query/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))145 (|Query/Query.2.4| (ATN-PARSER::INDEX)146 (%ATN-NODE-BLOCK147 |Query/Query.2.4|148 (%ATN-EDGE-BLOCK149 OR150 (PROGN (%ATN-EDGE-BLOCK151 (PUSH |SelectQuery|)152 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)153 (ATN-PARSE-SUBSTRUCTURE* '|SelectQuery| ATN-PARSER::INDEX)154 (COND (ATN-PARSER::SUCCESS155 (SETF *ATN-TERM* '|SelectQuery|)156 (LET ((|SelectQuery890| |SelectQuery|))157 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)158 (DESTRUCTURING-BIND159 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)160 ATN-PARSER::RESULT-AND-INDEX161 (WHEN ATN-PARSER::RESULT162 (SETF |SelectQuery| ATN-PARSER::RESULT))163 (|Query.2| ATN-PARSER::RESULT-INDEX))164 (SETF |SelectQuery| |SelectQuery890|))))165 (T (SETF *ATN-TERM?* '|SelectQuery|) NIL))))166 (%ATN-EDGE-BLOCK167 (PUSH |ConstructQuery|)168 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)169 (ATN-PARSE-SUBSTRUCTURE* '|ConstructQuery| ATN-PARSER::INDEX)170 (COND (ATN-PARSER::SUCCESS171 (SETF *ATN-TERM* '|ConstructQuery|)172 (LET ((|ConstructQuery890| |ConstructQuery|))173 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)174 (DESTRUCTURING-BIND175 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)176 ATN-PARSER::RESULT-AND-INDEX177 (WHEN ATN-PARSER::RESULT178 (SETF |ConstructQuery| ATN-PARSER::RESULT))179 (|Query.2| ATN-PARSER::RESULT-INDEX))180 (SETF |ConstructQuery| |ConstructQuery890|))))181 (T (SETF *ATN-TERM?* '|ConstructQuery|) NIL))))182 (%ATN-EDGE-BLOCK183 (PUSH |DescribeQuery|)184 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)185 (ATN-PARSE-SUBSTRUCTURE* '|DescribeQuery| ATN-PARSER::INDEX)186 (COND (ATN-PARSER::SUCCESS187 (SETF *ATN-TERM* '|DescribeQuery|)188 (LET ((|DescribeQuery890| |DescribeQuery|))189 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)190 (DESTRUCTURING-BIND191 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)192 ATN-PARSER::RESULT-AND-INDEX193 (WHEN ATN-PARSER::RESULT194 (SETF |DescribeQuery| ATN-PARSER::RESULT))195 (|Query.2| ATN-PARSER::RESULT-INDEX))196 (SETF |DescribeQuery| |DescribeQuery890|))))197 (T (SETF *ATN-TERM?* '|DescribeQuery|) NIL))))198 (%ATN-EDGE-BLOCK199 (PUSH |AskQuery|)200 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)201 (ATN-PARSE-SUBSTRUCTURE* '|AskQuery| ATN-PARSER::INDEX)202 (COND (ATN-PARSER::SUCCESS203 (SETF *ATN-TERM* '|AskQuery|)204 (LET ((|AskQuery890| |AskQuery|))205 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)206 (DESTRUCTURING-BIND207 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)208 ATN-PARSER::RESULT-AND-INDEX209 (WHEN ATN-PARSER::RESULT (SETF |AskQuery| ATN-PARSER::RESULT))210 (|Query.2| ATN-PARSER::RESULT-INDEX))211 (SETF |AskQuery| |AskQuery890|))))212 (T (SETF *ATN-TERM?* '|AskQuery|) NIL))))213 (|Query/fail.3| ATN-PARSER::INDEX)))))214 (|Query/start.1| (ATN-PARSER::INDEX)215 (%ATN-NODE-BLOCK216 |Query/start.1|217 (%ATN-EDGE-BLOCK218 (PUSH |Prologue|)219 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)220 (ATN-PARSE-SUBSTRUCTURE* '|Prologue| ATN-PARSER::INDEX)221 (COND (ATN-PARSER::SUCCESS222 (SETF *ATN-TERM* '|Prologue|)223 (LET ((|Prologue890| |Prologue|))224 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)225 (DESTRUCTURING-BIND226 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)227 ATN-PARSER::RESULT-AND-INDEX228 (WHEN ATN-PARSER::RESULT (SETF |Prologue| ATN-PARSER::RESULT))229 (|Query/Query.2.4| ATN-PARSER::RESULT-INDEX))230 (SETF |Prologue| |Prologue890|))))231 (T (SETF *ATN-TERM?* '|Prologue|) (|Query/fail.3| ATN-PARSER::INDEX))))))))232 (|Query/start.1| ATN-PARSER::INDEX)233 (SETF *ATN-NODE NIL)234 NIL235 (IF ATN-PARSER::ATN-STRUCTURE236 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)237 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))238 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Query| ATN-PARSER::INDEX *ATN-STACK))))239 (PROGN (DEFVAR |Prologue-INDEX|)240 (DEFUN |Prologue| (ATN-PARSER::INDEX &AUX (|BaseDecl| NIL) (|PrefixDecl| NIL))241 "{2 } Prologue ::= BaseDecl? PrefixDecl*242 (|BaseDecl| |PrefixDecl|)"243 (DECLARE (SPECIAL |Prologue-INDEX|))244 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Prologue-INDEX| *ATN-LEVEL))245 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))246 (IF (< |Prologue-INDEX| ATN-PARSER::INDEX)247 (LET ((|Prologue-INDEX| ATN-PARSER::INDEX)248 (*ATN-LEVEL (1+ *ATN-LEVEL))249 (*ATN-STACK (CONS '|Prologue| *ATN-STACK))250 (ATN-PARSER::ATN-STRUCTURE NIL))251 (DECLARE (SPECIAL |Prologue-INDEX|))252 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))253 (DECLARE (TYPE CONS *ATN-STACK))254 (SYMBOL-MACROLET255 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))256 (%ATN-BLOCK |Prologue|257 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)258 (SETF *ATN-TERM* '|Prologue|)259 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))260 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)261 (|Prologue.2| (ATN-PARSER::INDEX)262 (%ATN-NODE-BLOCK263 |Prologue.2|264 (%ATN-EDGE-BLOCK265 (POP |Prologue|)266 (WHEN T267 (SETF *ATN-TERM* '|Prologue|)268 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"269 '|Prologue|270 ATN-PARSER::INDEX271 (LIST '|BaseDecl| |BaseDecl| '|PrefixDecl| |PrefixDecl|))272 (LET ((ATN-PARSER::RESULT-STRUCTURE273 (IF (EQ *ATN-REDUCE* T)274 (|Prologue-Constructor| |BaseDecl| |PrefixDecl|)275 (IF (EQ *ATN-REDUCE* 'CONS)276 (CONS '|Prologue| (DELETE NIL (LIST |BaseDecl| |PrefixDecl|)))277 '|Prologue|))))278 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))279 (|Prologue.5| (ATN-PARSER::INDEX)280 (%ATN-NODE-BLOCK281 |Prologue.5|282 (%ATN-EDGE-BLOCK283 (PUSH |PrefixDecl|)284 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)285 (ATN-PARSE-SUBSTRUCTURE* '|PrefixDecl| ATN-PARSER::INDEX)286 (COND (ATN-PARSER::SUCCESS287 (SETF *ATN-TERM* '|PrefixDecl|)288 (LET ((|PrefixDecl891| |PrefixDecl|))289 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)290 (DESTRUCTURING-BIND291 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)292 ATN-PARSER::RESULT-AND-INDEX293 (WHEN ATN-PARSER::RESULT294 (SETF |PrefixDecl| (CONS ATN-PARSER::RESULT |PrefixDecl|)))295 (|Prologue.5| ATN-PARSER::RESULT-INDEX))296 (SETF |PrefixDecl| |PrefixDecl891|))))297 (T (SETF *ATN-TERM?* '|PrefixDecl|) (|Prologue.2| ATN-PARSER::INDEX)))))))298 (|Prologue/fail.3| (ATN-PARSER::INDEX)299 (%ATN-NODE-BLOCK |Prologue/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))300 (|Prologue/Prologue.2.4| (ATN-PARSER::INDEX)301 (%ATN-NODE-BLOCK302 |Prologue/Prologue.2.4|303 (%ATN-EDGE-BLOCK304 (PUSH |PrefixDecl|)305 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)306 (ATN-PARSE-SUBSTRUCTURE* '|PrefixDecl| ATN-PARSER::INDEX)307 (COND (ATN-PARSER::SUCCESS308 (SETF *ATN-TERM* '|PrefixDecl|)309 (LET ((|PrefixDecl890| |PrefixDecl|))310 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)311 (DESTRUCTURING-BIND312 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)313 ATN-PARSER::RESULT-AND-INDEX314 (WHEN ATN-PARSER::RESULT315 (SETF |PrefixDecl| (CONS ATN-PARSER::RESULT |PrefixDecl|)))316 (|Prologue.5| ATN-PARSER::RESULT-INDEX))317 (SETF |PrefixDecl| |PrefixDecl890|))))318 (T (SETF *ATN-TERM?* '|PrefixDecl|) (|Prologue.2| ATN-PARSER::INDEX)))))))319 (|Prologue/start.1| (ATN-PARSER::INDEX)320 (%ATN-NODE-BLOCK321 |Prologue/start.1|322 (%ATN-EDGE-BLOCK323 (PUSH |BaseDecl|)324 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)325 (ATN-PARSE-SUBSTRUCTURE* '|BaseDecl| ATN-PARSER::INDEX)326 (COND (ATN-PARSER::SUCCESS327 (SETF *ATN-TERM* '|BaseDecl|)328 (LET ((|BaseDecl891| |BaseDecl|))329 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)330 (DESTRUCTURING-BIND331 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)332 ATN-PARSER::RESULT-AND-INDEX333 (WHEN ATN-PARSER::RESULT (SETF |BaseDecl| ATN-PARSER::RESULT))334 (|Prologue/Prologue.2.4| ATN-PARSER::RESULT-INDEX))335 (SETF |BaseDecl| |BaseDecl891|))))336 (T337 (SETF *ATN-TERM?* '|BaseDecl|)338 (|Prologue/Prologue.2.4| ATN-PARSER::INDEX))))))))339 (|Prologue/start.1| ATN-PARSER::INDEX)340 (SETF *ATN-NODE NIL)341 NIL342 (IF ATN-PARSER::ATN-STRUCTURE343 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)344 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))345 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Prologue| ATN-PARSER::INDEX *ATN-STACK))))346 (PROGN (DEFVAR |BaseDecl-INDEX|)347 (DEFUN |BaseDecl| (ATN-PARSER::INDEX &AUX (IRI_REF NIL))348 "{3 } BaseDecl ::= 'BASE' IRI_REF349 (IRI_REF)"350 (DECLARE (SPECIAL |BaseDecl-INDEX|))351 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BaseDecl-INDEX| *ATN-LEVEL))352 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))353 (IF (< |BaseDecl-INDEX| ATN-PARSER::INDEX)354 (LET ((|BaseDecl-INDEX| ATN-PARSER::INDEX)355 (*ATN-LEVEL (1+ *ATN-LEVEL))356 (*ATN-STACK (CONS '|BaseDecl| *ATN-STACK))357 (ATN-PARSER::ATN-STRUCTURE NIL))358 (DECLARE (SPECIAL |BaseDecl-INDEX|))359 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))360 (DECLARE (TYPE CONS *ATN-STACK))361 (SYMBOL-MACROLET362 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))363 (%ATN-BLOCK |BaseDecl|364 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)365 (SETF *ATN-TERM* '|BaseDecl|)366 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))367 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)368 (|BaseDecl.2| (ATN-PARSER::INDEX)369 (%ATN-NODE-BLOCK370 |BaseDecl.2|371 (%ATN-EDGE-BLOCK372 (POP |BaseDecl|)373 (WHEN T374 (SETF *ATN-TERM* '|BaseDecl|)375 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"376 '|BaseDecl|377 ATN-PARSER::INDEX378 (LIST 'IRI_REF IRI_REF))379 (LET ((ATN-PARSER::RESULT-STRUCTURE380 (IF (EQ *ATN-REDUCE* T)381 (|BaseDecl-Constructor| IRI_REF)382 (IF (EQ *ATN-REDUCE* 'CONS)383 (CONS '|BaseDecl| (DELETE NIL (LIST IRI_REF)))384 '|BaseDecl|))))385 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))386 (|BaseDecl/BaseDecl.2.4| (ATN-PARSER::INDEX)387 (%ATN-NODE-BLOCK388 |BaseDecl/BaseDecl.2.4|389 (%ATN-EDGE-BLOCK390 (PUSH IRI_REF)391 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)392 (ATN-PARSE-SUBSTRUCTURE* 'IRI_REF ATN-PARSER::INDEX)393 (COND (ATN-PARSER::SUCCESS394 (SETF *ATN-TERM* 'IRI_REF)395 (LET ((IRI_REF891 IRI_REF))396 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)397 (DESTRUCTURING-BIND398 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)399 ATN-PARSER::RESULT-AND-INDEX400 (WHEN ATN-PARSER::RESULT (SETF IRI_REF ATN-PARSER::RESULT))401 (|BaseDecl.2| ATN-PARSER::RESULT-INDEX))402 (SETF IRI_REF IRI_REF891))))403 (T (SETF *ATN-TERM?* 'IRI_REF) (|BaseDecl/fail.3| ATN-PARSER::INDEX)))))))404 (|BaseDecl/fail.3| (ATN-PARSER::INDEX)405 (%ATN-NODE-BLOCK |BaseDecl/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))406 (|BaseDecl/start.1| (ATN-PARSER::INDEX)407 (%ATN-NODE-BLOCK408 |BaseDecl/start.1|409 (%ATN-EDGE-BLOCK410 (ATN-PARSER::WORD SPOCQ.S:BASE)411 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BASE)412 (SETF *ATN-TERM* 'SPOCQ.S:BASE)413 (|BaseDecl/BaseDecl.2.4| (1+ ATN-PARSER::INDEX)))414 (T (SETF *ATN-TERM?* 'SPOCQ.S:BASE) (|BaseDecl/fail.3| ATN-PARSER::INDEX)))))))415 (|BaseDecl/start.1| ATN-PARSER::INDEX)416 (SETF *ATN-NODE NIL)417 NIL418 (IF ATN-PARSER::ATN-STRUCTURE419 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)420 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))421 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BaseDecl| ATN-PARSER::INDEX *ATN-STACK))))422 (PROGN (DEFVAR |PrefixDecl-INDEX|)423 (DEFUN |PrefixDecl| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL) (PNAME_NS NIL))424 "{4 } PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF425 (NAMESPACE_REF PNAME_NS)"426 (DECLARE (SPECIAL |PrefixDecl-INDEX|))427 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PrefixDecl-INDEX| *ATN-LEVEL))428 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))429 (IF (< |PrefixDecl-INDEX| ATN-PARSER::INDEX)430 (LET ((|PrefixDecl-INDEX| ATN-PARSER::INDEX)431 (*ATN-LEVEL (1+ *ATN-LEVEL))432 (*ATN-STACK (CONS '|PrefixDecl| *ATN-STACK))433 (ATN-PARSER::ATN-STRUCTURE NIL))434 (DECLARE (SPECIAL |PrefixDecl-INDEX|))435 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))436 (DECLARE (TYPE CONS *ATN-STACK))437 (SYMBOL-MACROLET438 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))439 (%ATN-BLOCK |PrefixDecl|440 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)441 (SETF *ATN-TERM* '|PrefixDecl|)442 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))443 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)444 (|PrefixDecl.2| (ATN-PARSER::INDEX)445 (%ATN-NODE-BLOCK446 |PrefixDecl.2|447 (%ATN-EDGE-BLOCK448 (POP |PrefixDecl|)449 (WHEN T450 (SETF *ATN-TERM* '|PrefixDecl|)451 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"452 '|PrefixDecl|453 ATN-PARSER::INDEX454 (LIST 'NAMESPACE_REF NAMESPACE_REF 'PNAME_NS PNAME_NS))455 (LET ((ATN-PARSER::RESULT-STRUCTURE456 (IF (EQ *ATN-REDUCE* T)457 (|PrefixDecl-Constructor| NAMESPACE_REF PNAME_NS)458 (IF (EQ *ATN-REDUCE* 'CONS)459 (CONS '|PrefixDecl| (DELETE NIL (LIST NAMESPACE_REF PNAME_NS)))460 '|PrefixDecl|))))461 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))462 (|PrefixDecl/fail.3| (ATN-PARSER::INDEX)463 (%ATN-NODE-BLOCK |PrefixDecl/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))464 (|PrefixDecl/PrefixDecl.2.4| (ATN-PARSER::INDEX)465 (%ATN-NODE-BLOCK466 |PrefixDecl/PrefixDecl.2.4|467 (%ATN-EDGE-BLOCK468 (TEST PNAME_NS)469 (COND ((IS-PNAME_NS ATN-PARSER::|item|)470 (SETF *ATN-TERM* 'PNAME_NS)471 (SETF PNAME_NS472 (IF (EQ *ATN-REDUCE* T)473 (ATN-REDUCE-ITEM #'|PNAME_NS-Constructor| ATN-PARSER::|item|)474 (IF (EQ *ATN-REDUCE* 'CONS)475 (LIST 'PNAME_NS ATN-PARSER::|item|)476 'PNAME_NS)))477 (|PrefixDecl/PrefixDecl.2.5| (1+ ATN-PARSER::INDEX)))478 (T (SETF *ATN-TERM?* 'PNAME_NS) (|PrefixDecl/fail.3| ATN-PARSER::INDEX))))))479 (|PrefixDecl/PrefixDecl.2.5| (ATN-PARSER::INDEX)480 (%ATN-NODE-BLOCK481 |PrefixDecl/PrefixDecl.2.5|482 (%ATN-EDGE-BLOCK483 (PUSH NAMESPACE_REF)484 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)485 (ATN-PARSE-SUBSTRUCTURE* 'NAMESPACE_REF ATN-PARSER::INDEX)486 (COND (ATN-PARSER::SUCCESS487 (SETF *ATN-TERM* 'NAMESPACE_REF)488 (LET ((NAMESPACE_REF891 NAMESPACE_REF))489 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)490 (DESTRUCTURING-BIND491 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)492 ATN-PARSER::RESULT-AND-INDEX493 (WHEN ATN-PARSER::RESULT (SETF NAMESPACE_REF ATN-PARSER::RESULT))494 (|PrefixDecl.2| ATN-PARSER::RESULT-INDEX))495 (SETF NAMESPACE_REF NAMESPACE_REF891))))496 (T497 (SETF *ATN-TERM?* 'NAMESPACE_REF)498 (|PrefixDecl/fail.3| ATN-PARSER::INDEX)))))))499 (|PrefixDecl/start.1| (ATN-PARSER::INDEX)500 (%ATN-NODE-BLOCK501 |PrefixDecl/start.1|502 (%ATN-EDGE-BLOCK503 (ATN-PARSER::WORD SPOCQ.S:PREFIX)504 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:PREFIX)505 (SETF *ATN-TERM* 'SPOCQ.S:PREFIX)506 (|PrefixDecl/PrefixDecl.2.4| (1+ ATN-PARSER::INDEX)))507 (T508 (SETF *ATN-TERM?* 'SPOCQ.S:PREFIX)509 (|PrefixDecl/fail.3| ATN-PARSER::INDEX)))))))510 (|PrefixDecl/start.1| ATN-PARSER::INDEX)511 (SETF *ATN-NODE NIL)512 NIL513 (IF ATN-PARSER::ATN-STRUCTURE514 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)515 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))516 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PrefixDecl| ATN-PARSER::INDEX *ATN-STACK))))517 (PROGN (DEFVAR |SelectQuery-INDEX|)518 (DEFUN |SelectQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|Distinctness| NIL) (|SolutionModifier| NIL) (|Var| NIL)519 (|WhereClause| NIL))520 "{5 } SelectQuery ::= 'SELECT' Distinctness? ((Var+ | '*')) DatasetClause* WhereClause SolutionModifier521 (|DatasetClause| |Distinctness| |SolutionModifier| |Var| |WhereClause|)"522 (DECLARE (SPECIAL |SelectQuery-INDEX|))523 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SelectQuery-INDEX| *ATN-LEVEL))524 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))525 (IF (< |SelectQuery-INDEX| ATN-PARSER::INDEX)526 (LET ((|SelectQuery-INDEX| ATN-PARSER::INDEX)527 (*ATN-LEVEL (1+ *ATN-LEVEL))528 (*ATN-STACK (CONS '|SelectQuery| *ATN-STACK))529 (ATN-PARSER::ATN-STRUCTURE NIL))530 (DECLARE (SPECIAL |SelectQuery-INDEX|))531 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))532 (DECLARE (TYPE CONS *ATN-STACK))533 (SYMBOL-MACROLET534 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))535 (%ATN-BLOCK |SelectQuery|536 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)537 (SETF *ATN-TERM* '|SelectQuery|)538 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))539 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)540 (|SelectQuery.10| (ATN-PARSER::INDEX)541 (%ATN-NODE-BLOCK542 |SelectQuery.10|543 (%ATN-EDGE-BLOCK544 (PUSH |DatasetClause|)545 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)546 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)547 (COND (ATN-PARSER::SUCCESS548 (SETF *ATN-TERM* '|DatasetClause|)549 (LET ((|DatasetClause892| |DatasetClause|))550 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)551 (DESTRUCTURING-BIND552 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)553 ATN-PARSER::RESULT-AND-INDEX554 (WHEN ATN-PARSER::RESULT555 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))556 (|SelectQuery.10| ATN-PARSER::RESULT-INDEX))557 (SETF |DatasetClause| |DatasetClause892|))))558 (T559 (SETF *ATN-TERM?* '|DatasetClause|)560 (|SelectQuery/SelectQuery.2.7| ATN-PARSER::INDEX)))))))561 (|SelectQuery.2| (ATN-PARSER::INDEX)562 (%ATN-NODE-BLOCK563 |SelectQuery.2|564 (%ATN-EDGE-BLOCK565 (POP |SelectQuery|)566 (WHEN T567 (SETF *ATN-TERM* '|SelectQuery|)568 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"569 '|SelectQuery|570 ATN-PARSER::INDEX571 (LIST '|DatasetClause|572 |DatasetClause|573 '|Distinctness|574 |Distinctness|575 '|SolutionModifier|576 |SolutionModifier|577 '|Var|578 |Var|579 '|WhereClause|580 |WhereClause|))581 (LET ((ATN-PARSER::RESULT-STRUCTURE582 (IF (EQ *ATN-REDUCE* T)583 (|SelectQuery-Constructor|584 |DatasetClause|585 |Distinctness|586 |SolutionModifier|587 |Var|588 |WhereClause|)589 (IF (EQ *ATN-REDUCE* 'CONS)590 (CONS '|SelectQuery|591 (DELETE NIL592 (LIST |DatasetClause|593 |Distinctness|594 |SolutionModifier|595 |Var|596 |WhereClause|)))597 '|SelectQuery|))))598 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))599 (|SelectQuery.9| (ATN-PARSER::INDEX)600 (%ATN-NODE-BLOCK601 |SelectQuery.9|602 (%ATN-EDGE-BLOCK603 (TEST |Var|)604 (COND ((|IS-Var| ATN-PARSER::|item|)605 (SETF *ATN-TERM* '|Var|)606 (SETF |Var|607 (CONS (IF (EQ *ATN-REDUCE* T)608 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)609 (IF (EQ *ATN-REDUCE* 'CONS)610 (LIST '|Var| ATN-PARSER::|item|)611 '|Var|))612 |Var|))613 (|SelectQuery.9| (1+ ATN-PARSER::INDEX)))614 (T615 (SETF *ATN-TERM?* '|Var|)616 (|SelectQuery/SelectQuery.2.6| ATN-PARSER::INDEX))))))617 (|SelectQuery/fail.3| (ATN-PARSER::INDEX)618 (%ATN-NODE-BLOCK |SelectQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))619 (|SelectQuery/SelectQuery.2.4| (ATN-PARSER::INDEX)620 (%ATN-NODE-BLOCK621 |SelectQuery/SelectQuery.2.4|622 (%ATN-EDGE-BLOCK623 (ATN-PARSER::CAT |Distinctness|)624 (COND ((|IS-Distinctness| ATN-PARSER::|item|)625 (SETF *ATN-TERM* '|Distinctness|)626 (SETF |Distinctness|627 (IF (EQ *ATN-REDUCE* T)628 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)629 (IF (EQ *ATN-REDUCE* 'CONS)630 (LIST '|Distinctness| ATN-PARSER::|item|)631 '|Distinctness|)))632 (|SelectQuery/SelectQuery.2.5| (1+ ATN-PARSER::INDEX)))633 (T634 (SETF *ATN-TERM* '|Distinctness|)635 (|SelectQuery/SelectQuery.2.5| ATN-PARSER::INDEX))))))636 (|SelectQuery/SelectQuery.2.5| (ATN-PARSER::INDEX)637 (%ATN-NODE-BLOCK638 |SelectQuery/SelectQuery.2.5|639 (%ATN-EDGE-BLOCK640 OR641 (PROGN (%ATN-EDGE-BLOCK642 (TEST |Var|)643 (COND ((|IS-Var| ATN-PARSER::|item|)644 (SETF *ATN-TERM* '|Var|)645 (SETF |Var|646 (CONS (IF (EQ *ATN-REDUCE* T)647 (ATN-REDUCE-ITEM648 #'|Var-Constructor|649 ATN-PARSER::|item|)650 (IF (EQ *ATN-REDUCE* 'CONS)651 (LIST '|Var| ATN-PARSER::|item|)652 '|Var|))653 |Var|))654 (|SelectQuery.9| (1+ ATN-PARSER::INDEX)))655 (T (SETF *ATN-TERM?* '|Var|) NIL)))656 (%ATN-EDGE-BLOCK657 (ATN-PARSER::WORD SPOCQ.S:*)658 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:*)659 (SETF *ATN-TERM* 'SPOCQ.S:*)660 (|SelectQuery/SelectQuery.2.6| (1+ ATN-PARSER::INDEX)))661 (T (SETF *ATN-TERM?* 'SPOCQ.S:*) NIL)))662 (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))663 (|SelectQuery/SelectQuery.2.6| (ATN-PARSER::INDEX)664 (%ATN-NODE-BLOCK665 |SelectQuery/SelectQuery.2.6|666 (%ATN-EDGE-BLOCK667 (PUSH |DatasetClause|)668 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)669 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)670 (COND (ATN-PARSER::SUCCESS671 (SETF *ATN-TERM* '|DatasetClause|)672 (LET ((|DatasetClause891| |DatasetClause|))673 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)674 (DESTRUCTURING-BIND675 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)676 ATN-PARSER::RESULT-AND-INDEX677 (WHEN ATN-PARSER::RESULT678 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))679 (|SelectQuery.10| ATN-PARSER::RESULT-INDEX))680 (SETF |DatasetClause| |DatasetClause891|))))681 (T682 (SETF *ATN-TERM?* '|DatasetClause|)683 (|SelectQuery/SelectQuery.2.7| ATN-PARSER::INDEX)))))))684 (|SelectQuery/SelectQuery.2.7| (ATN-PARSER::INDEX)685 (%ATN-NODE-BLOCK686 |SelectQuery/SelectQuery.2.7|687 (%ATN-EDGE-BLOCK688 (PUSH |WhereClause|)689 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)690 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)691 (COND (ATN-PARSER::SUCCESS692 (SETF *ATN-TERM* '|WhereClause|)693 (LET ((|WhereClause891| |WhereClause|))694 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)695 (DESTRUCTURING-BIND696 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)697 ATN-PARSER::RESULT-AND-INDEX698 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))699 (|SelectQuery/SelectQuery.2.8| ATN-PARSER::RESULT-INDEX))700 (SETF |WhereClause| |WhereClause891|))))701 (T702 (SETF *ATN-TERM?* '|WhereClause|)703 (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))))704 (|SelectQuery/SelectQuery.2.8| (ATN-PARSER::INDEX)705 (%ATN-NODE-BLOCK706 |SelectQuery/SelectQuery.2.8|707 (%ATN-EDGE-BLOCK708 (PUSH |SolutionModifier|)709 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)710 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)711 (COND (ATN-PARSER::SUCCESS712 (SETF *ATN-TERM* '|SolutionModifier|)713 (LET ((|SolutionModifier891| |SolutionModifier|))714 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)715 (DESTRUCTURING-BIND716 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)717 ATN-PARSER::RESULT-AND-INDEX718 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))719 (|SelectQuery.2| ATN-PARSER::RESULT-INDEX))720 (SETF |SolutionModifier| |SolutionModifier891|))))721 (T722 (SETF *ATN-TERM?* '|SolutionModifier|)723 (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))))724 (|SelectQuery/start.1| (ATN-PARSER::INDEX)725 (%ATN-NODE-BLOCK726 |SelectQuery/start.1|727 (%ATN-EDGE-BLOCK728 (ATN-PARSER::WORD SPOCQ.S:SELECT)729 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:SELECT)730 (SETF *ATN-TERM* 'SPOCQ.S:SELECT)731 (|SelectQuery/SelectQuery.2.4| (1+ ATN-PARSER::INDEX)))732 (T733 (SETF *ATN-TERM?* 'SPOCQ.S:SELECT)734 (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))))735 (|SelectQuery/start.1| ATN-PARSER::INDEX)736 (SETF *ATN-NODE NIL)737 NIL738 (IF ATN-PARSER::ATN-STRUCTURE739 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)740 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))741 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SelectQuery| ATN-PARSER::INDEX *ATN-STACK))))742 (PROGN (DEFVAR |ConstructQuery-INDEX|)743 (DEFUN |ConstructQuery| (ATN-PARSER::INDEX &AUX (|ConstructTemplate| NIL) (|DatasetClause| NIL) (|SolutionModifier| NIL)744 (|WhereClause| NIL))745 "{6 } ConstructQuery ::= 'CONSTRUCT' ConstructTemplate DatasetClause* WhereClause SolutionModifier746 (|ConstructTemplate| |DatasetClause| |SolutionModifier| |WhereClause|)"747 (DECLARE (SPECIAL |ConstructQuery-INDEX|))748 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructQuery-INDEX| *ATN-LEVEL))749 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))750 (IF (< |ConstructQuery-INDEX| ATN-PARSER::INDEX)751 (LET ((|ConstructQuery-INDEX| ATN-PARSER::INDEX)752 (*ATN-LEVEL (1+ *ATN-LEVEL))753 (*ATN-STACK (CONS '|ConstructQuery| *ATN-STACK))754 (ATN-PARSER::ATN-STRUCTURE NIL))755 (DECLARE (SPECIAL |ConstructQuery-INDEX|))756 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))757 (DECLARE (TYPE CONS *ATN-STACK))758 (SYMBOL-MACROLET759 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))760 (%ATN-BLOCK |ConstructQuery|761 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)762 (SETF *ATN-TERM* '|ConstructQuery|)763 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))764 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)765 (|ConstructQuery.2| (ATN-PARSER::INDEX)766 (%ATN-NODE-BLOCK767 |ConstructQuery.2|768 (%ATN-EDGE-BLOCK769 (POP |ConstructQuery|)770 (WHEN T771 (SETF *ATN-TERM* '|ConstructQuery|)772 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"773 '|ConstructQuery|774 ATN-PARSER::INDEX775 (LIST '|ConstructTemplate|776 |ConstructTemplate|777 '|DatasetClause|778 |DatasetClause|779 '|SolutionModifier|780 |SolutionModifier|781 '|WhereClause|782 |WhereClause|))783 (LET ((ATN-PARSER::RESULT-STRUCTURE784 (IF (EQ *ATN-REDUCE* T)785 (|ConstructQuery-Constructor|786 |ConstructTemplate|787 |DatasetClause|788 |SolutionModifier|789 |WhereClause|)790 (IF (EQ *ATN-REDUCE* 'CONS)791 (CONS '|ConstructQuery|792 (DELETE NIL793 (LIST |ConstructTemplate|794 |DatasetClause|795 |SolutionModifier|796 |WhereClause|)))797 '|ConstructQuery|))))798 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))799 (|ConstructQuery.8| (ATN-PARSER::INDEX)800 (%ATN-NODE-BLOCK801 |ConstructQuery.8|802 (%ATN-EDGE-BLOCK803 (PUSH |DatasetClause|)804 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)805 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)806 (COND (ATN-PARSER::SUCCESS807 (SETF *ATN-TERM* '|DatasetClause|)808 (LET ((|DatasetClause894| |DatasetClause|))809 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)810 (DESTRUCTURING-BIND811 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)812 ATN-PARSER::RESULT-AND-INDEX813 (WHEN ATN-PARSER::RESULT814 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))815 (|ConstructQuery.8| ATN-PARSER::RESULT-INDEX))816 (SETF |DatasetClause| |DatasetClause894|))))817 (T818 (SETF *ATN-TERM?* '|DatasetClause|)819 (|ConstructQuery/ConstructQuery.2.6| ATN-PARSER::INDEX)))))))820 (|ConstructQuery/ConstructQuery.2.4| (ATN-PARSER::INDEX)821 (%ATN-NODE-BLOCK822 |ConstructQuery/ConstructQuery.2.4|823 (%ATN-EDGE-BLOCK824 (PUSH |ConstructTemplate|)825 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)826 (ATN-PARSE-SUBSTRUCTURE* '|ConstructTemplate| ATN-PARSER::INDEX)827 (COND (ATN-PARSER::SUCCESS828 (SETF *ATN-TERM* '|ConstructTemplate|)829 (LET ((|ConstructTemplate894| |ConstructTemplate|))830 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)831 (DESTRUCTURING-BIND832 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)833 ATN-PARSER::RESULT-AND-INDEX834 (WHEN ATN-PARSER::RESULT (SETF |ConstructTemplate| ATN-PARSER::RESULT))835 (|ConstructQuery/ConstructQuery.2.5| ATN-PARSER::RESULT-INDEX))836 (SETF |ConstructTemplate| |ConstructTemplate894|))))837 (T838 (SETF *ATN-TERM?* '|ConstructTemplate|)839 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))840 (|ConstructQuery/ConstructQuery.2.5| (ATN-PARSER::INDEX)841 (%ATN-NODE-BLOCK842 |ConstructQuery/ConstructQuery.2.5|843 (%ATN-EDGE-BLOCK844 (PUSH |DatasetClause|)845 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)846 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)847 (COND (ATN-PARSER::SUCCESS848 (SETF *ATN-TERM* '|DatasetClause|)849 (LET ((|DatasetClause893| |DatasetClause|))850 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)851 (DESTRUCTURING-BIND852 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)853 ATN-PARSER::RESULT-AND-INDEX854 (WHEN ATN-PARSER::RESULT855 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))856 (|ConstructQuery.8| ATN-PARSER::RESULT-INDEX))857 (SETF |DatasetClause| |DatasetClause893|))))858 (T859 (SETF *ATN-TERM?* '|DatasetClause|)860 (|ConstructQuery/ConstructQuery.2.6| ATN-PARSER::INDEX)))))))861 (|ConstructQuery/ConstructQuery.2.6| (ATN-PARSER::INDEX)862 (%ATN-NODE-BLOCK863 |ConstructQuery/ConstructQuery.2.6|864 (%ATN-EDGE-BLOCK865 (PUSH |WhereClause|)866 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)867 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)868 (COND (ATN-PARSER::SUCCESS869 (SETF *ATN-TERM* '|WhereClause|)870 (LET ((|WhereClause892| |WhereClause|))871 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)872 (DESTRUCTURING-BIND873 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)874 ATN-PARSER::RESULT-AND-INDEX875 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))876 (|ConstructQuery/ConstructQuery.2.7| ATN-PARSER::RESULT-INDEX))877 (SETF |WhereClause| |WhereClause892|))))878 (T879 (SETF *ATN-TERM?* '|WhereClause|)880 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))881 (|ConstructQuery/ConstructQuery.2.7| (ATN-PARSER::INDEX)882 (%ATN-NODE-BLOCK883 |ConstructQuery/ConstructQuery.2.7|884 (%ATN-EDGE-BLOCK885 (PUSH |SolutionModifier|)886 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)887 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)888 (COND (ATN-PARSER::SUCCESS889 (SETF *ATN-TERM* '|SolutionModifier|)890 (LET ((|SolutionModifier892| |SolutionModifier|))891 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)892 (DESTRUCTURING-BIND893 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)894 ATN-PARSER::RESULT-AND-INDEX895 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))896 (|ConstructQuery.2| ATN-PARSER::RESULT-INDEX))897 (SETF |SolutionModifier| |SolutionModifier892|))))898 (T899 (SETF *ATN-TERM?* '|SolutionModifier|)900 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))901 (|ConstructQuery/fail.3| (ATN-PARSER::INDEX)902 (%ATN-NODE-BLOCK |ConstructQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))903 (|ConstructQuery/start.1| (ATN-PARSER::INDEX)904 (%ATN-NODE-BLOCK905 |ConstructQuery/start.1|906 (%ATN-EDGE-BLOCK907 (ATN-PARSER::WORD SPOCQ.S:CONSTRUCT)908 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:CONSTRUCT)909 (SETF *ATN-TERM* 'SPOCQ.S:CONSTRUCT)910 (|ConstructQuery/ConstructQuery.2.4| (1+ ATN-PARSER::INDEX)))911 (T912 (SETF *ATN-TERM?* 'SPOCQ.S:CONSTRUCT)913 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))914 (|ConstructQuery/start.1| ATN-PARSER::INDEX)915 (SETF *ATN-NODE NIL)916 NIL917 (IF ATN-PARSER::ATN-STRUCTURE918 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)919 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))920 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructQuery| ATN-PARSER::INDEX *ATN-STACK))))921 (PROGN (DEFVAR |DescribeQuery-INDEX|)922 (DEFUN |DescribeQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|SolutionModifier| NIL) (|VarOrIRIref| NIL)923 (|WhereClause| NIL))924 "{7 } DescribeQuery ::= 'DESCRIBE' ((VarOrIRIref+ | '*')) DatasetClause* WhereClause? SolutionModifier925 (|DatasetClause| |SolutionModifier| |VarOrIRIref| |WhereClause|)"926 (DECLARE (SPECIAL |DescribeQuery-INDEX|))927 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DescribeQuery-INDEX| *ATN-LEVEL))928 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))929 (IF (< |DescribeQuery-INDEX| ATN-PARSER::INDEX)930 (LET ((|DescribeQuery-INDEX| ATN-PARSER::INDEX)931 (*ATN-LEVEL (1+ *ATN-LEVEL))932 (*ATN-STACK (CONS '|DescribeQuery| *ATN-STACK))933 (ATN-PARSER::ATN-STRUCTURE NIL))934 (DECLARE (SPECIAL |DescribeQuery-INDEX|))935 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))936 (DECLARE (TYPE CONS *ATN-STACK))937 (SYMBOL-MACROLET938 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))939 (%ATN-BLOCK |DescribeQuery|940 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)941 (SETF *ATN-TERM* '|DescribeQuery|)942 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))943 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)944 (|DescribeQuery.2| (ATN-PARSER::INDEX)945 (%ATN-NODE-BLOCK946 |DescribeQuery.2|947 (%ATN-EDGE-BLOCK948 (POP |DescribeQuery|)949 (WHEN T950 (SETF *ATN-TERM* '|DescribeQuery|)951 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"952 '|DescribeQuery|953 ATN-PARSER::INDEX954 (LIST '|DatasetClause|955 |DatasetClause|956 '|SolutionModifier|957 |SolutionModifier|958 '|VarOrIRIref|959 |VarOrIRIref|960 '|WhereClause|961 |WhereClause|))962 (LET ((ATN-PARSER::RESULT-STRUCTURE963 (IF (EQ *ATN-REDUCE* T)964 (|DescribeQuery-Constructor|965 |DatasetClause|966 |SolutionModifier|967 |VarOrIRIref|968 |WhereClause|)969 (IF (EQ *ATN-REDUCE* 'CONS)970 (CONS '|DescribeQuery|971 (DELETE NIL972 (LIST |DatasetClause|973 |SolutionModifier|974 |VarOrIRIref|975 |WhereClause|)))976 '|DescribeQuery|))))977 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))978 (|DescribeQuery.8| (ATN-PARSER::INDEX)979 (%ATN-NODE-BLOCK980 |DescribeQuery.8|981 (%ATN-EDGE-BLOCK982 (PUSH |VarOrIRIref|)983 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)984 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)985 (COND (ATN-PARSER::SUCCESS986 (SETF *ATN-TERM* '|VarOrIRIref|)987 (LET ((|VarOrIRIref897| |VarOrIRIref|))988 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)989 (DESTRUCTURING-BIND990 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)991 ATN-PARSER::RESULT-AND-INDEX992 (WHEN ATN-PARSER::RESULT993 (SETF |VarOrIRIref| (CONS ATN-PARSER::RESULT |VarOrIRIref|)))994 (|DescribeQuery.8| ATN-PARSER::RESULT-INDEX))995 (SETF |VarOrIRIref| |VarOrIRIref897|))))996 (T997 (SETF *ATN-TERM?* '|VarOrIRIref|)998 (|DescribeQuery/DescribeQuery.2.5| ATN-PARSER::INDEX)))))))999 (|DescribeQuery.9| (ATN-PARSER::INDEX)1000 (%ATN-NODE-BLOCK1001 |DescribeQuery.9|1002 (%ATN-EDGE-BLOCK1003 (PUSH |DatasetClause|)1004 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1005 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1006 (COND (ATN-PARSER::SUCCESS1007 (SETF *ATN-TERM* '|DatasetClause|)1008 (LET ((|DatasetClause896| |DatasetClause|))1009 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1010 (DESTRUCTURING-BIND1011 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1012 ATN-PARSER::RESULT-AND-INDEX1013 (WHEN ATN-PARSER::RESULT1014 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1015 (|DescribeQuery.9| ATN-PARSER::RESULT-INDEX))1016 (SETF |DatasetClause| |DatasetClause896|))))1017 (T1018 (SETF *ATN-TERM?* '|DatasetClause|)1019 (|DescribeQuery/DescribeQuery.2.6| ATN-PARSER::INDEX)))))))1020 (|DescribeQuery/DescribeQuery.2.4| (ATN-PARSER::INDEX)1021 (%ATN-NODE-BLOCK1022 |DescribeQuery/DescribeQuery.2.4|1023 (%ATN-EDGE-BLOCK1024 OR1025 (PROGN (%ATN-EDGE-BLOCK1026 (PUSH |VarOrIRIref|)1027 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1028 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)1029 (COND (ATN-PARSER::SUCCESS1030 (SETF *ATN-TERM* '|VarOrIRIref|)1031 (LET ((|VarOrIRIref896| |VarOrIRIref|))1032 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1033 (DESTRUCTURING-BIND1034 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1035 ATN-PARSER::RESULT-AND-INDEX1036 (WHEN ATN-PARSER::RESULT1037 (SETF |VarOrIRIref| (CONS ATN-PARSER::RESULT |VarOrIRIref|)))1038 (|DescribeQuery.8| ATN-PARSER::RESULT-INDEX))1039 (SETF |VarOrIRIref| |VarOrIRIref896|))))1040 (T (SETF *ATN-TERM?* '|VarOrIRIref|) NIL))))1041 (%ATN-EDGE-BLOCK1042 (ATN-PARSER::WORD SPOCQ.S:*)1043 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:*)1044 (SETF *ATN-TERM* 'SPOCQ.S:*)1045 (|DescribeQuery/DescribeQuery.2.5| (1+ ATN-PARSER::INDEX)))1046 (T (SETF *ATN-TERM?* 'SPOCQ.S:*) NIL)))1047 (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))1048 (|DescribeQuery/DescribeQuery.2.5| (ATN-PARSER::INDEX)1049 (%ATN-NODE-BLOCK1050 |DescribeQuery/DescribeQuery.2.5|1051 (%ATN-EDGE-BLOCK1052 (PUSH |DatasetClause|)1053 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1054 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1055 (COND (ATN-PARSER::SUCCESS1056 (SETF *ATN-TERM* '|DatasetClause|)1057 (LET ((|DatasetClause895| |DatasetClause|))1058 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1059 (DESTRUCTURING-BIND1060 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1061 ATN-PARSER::RESULT-AND-INDEX1062 (WHEN ATN-PARSER::RESULT1063 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1064 (|DescribeQuery.9| ATN-PARSER::RESULT-INDEX))1065 (SETF |DatasetClause| |DatasetClause895|))))1066 (T1067 (SETF *ATN-TERM?* '|DatasetClause|)1068 (|DescribeQuery/DescribeQuery.2.6| ATN-PARSER::INDEX)))))))1069 (|DescribeQuery/DescribeQuery.2.6| (ATN-PARSER::INDEX)1070 (%ATN-NODE-BLOCK1071 |DescribeQuery/DescribeQuery.2.6|1072 (%ATN-EDGE-BLOCK1073 (PUSH |WhereClause|)1074 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1075 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)1076 (COND (ATN-PARSER::SUCCESS1077 (SETF *ATN-TERM* '|WhereClause|)1078 (LET ((|WhereClause894| |WhereClause|))1079 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1080 (DESTRUCTURING-BIND1081 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1082 ATN-PARSER::RESULT-AND-INDEX1083 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))1084 (|DescribeQuery/DescribeQuery.2.7| ATN-PARSER::RESULT-INDEX))1085 (SETF |WhereClause| |WhereClause894|))))1086 (T1087 (SETF *ATN-TERM?* '|WhereClause|)1088 (|DescribeQuery/DescribeQuery.2.7| ATN-PARSER::INDEX)))))))1089 (|DescribeQuery/DescribeQuery.2.7| (ATN-PARSER::INDEX)1090 (%ATN-NODE-BLOCK1091 |DescribeQuery/DescribeQuery.2.7|1092 (%ATN-EDGE-BLOCK1093 (PUSH |SolutionModifier|)1094 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1095 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)1096 (COND (ATN-PARSER::SUCCESS1097 (SETF *ATN-TERM* '|SolutionModifier|)1098 (LET ((|SolutionModifier894| |SolutionModifier|))1099 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1100 (DESTRUCTURING-BIND1101 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1102 ATN-PARSER::RESULT-AND-INDEX1103 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))1104 (|DescribeQuery.2| ATN-PARSER::RESULT-INDEX))1105 (SETF |SolutionModifier| |SolutionModifier894|))))1106 (T1107 (SETF *ATN-TERM?* '|SolutionModifier|)1108 (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))))1109 (|DescribeQuery/fail.3| (ATN-PARSER::INDEX)1110 (%ATN-NODE-BLOCK |DescribeQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1111 (|DescribeQuery/start.1| (ATN-PARSER::INDEX)1112 (%ATN-NODE-BLOCK1113 |DescribeQuery/start.1|1114 (%ATN-EDGE-BLOCK1115 (ATN-PARSER::WORD SPOCQ.S:DESCRIBE)1116 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:DESCRIBE)1117 (SETF *ATN-TERM* 'SPOCQ.S:DESCRIBE)1118 (|DescribeQuery/DescribeQuery.2.4| (1+ ATN-PARSER::INDEX)))1119 (T1120 (SETF *ATN-TERM?* 'SPOCQ.S:DESCRIBE)1121 (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))))1122 (|DescribeQuery/start.1| ATN-PARSER::INDEX)1123 (SETF *ATN-NODE NIL)1124 NIL1125 (IF ATN-PARSER::ATN-STRUCTURE1126 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1127 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1128 (WARN "recursive grammar: ~s @ position ~s: ~s" '|DescribeQuery| ATN-PARSER::INDEX *ATN-STACK))))1129 (PROGN (DEFVAR |AskQuery-INDEX|)1130 (DEFUN |AskQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|WhereClause| NIL))1131 "{8 } AskQuery ::= 'ASK' DatasetClause* WhereClause1132 (|DatasetClause| |WhereClause|)"1133 (DECLARE (SPECIAL |AskQuery-INDEX|))1134 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AskQuery-INDEX| *ATN-LEVEL))1135 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1136 (IF (< |AskQuery-INDEX| ATN-PARSER::INDEX)1137 (LET ((|AskQuery-INDEX| ATN-PARSER::INDEX)1138 (*ATN-LEVEL (1+ *ATN-LEVEL))1139 (*ATN-STACK (CONS '|AskQuery| *ATN-STACK))1140 (ATN-PARSER::ATN-STRUCTURE NIL))1141 (DECLARE (SPECIAL |AskQuery-INDEX|))1142 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1143 (DECLARE (TYPE CONS *ATN-STACK))1144 (SYMBOL-MACROLET1145 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1146 (%ATN-BLOCK |AskQuery|1147 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1148 (SETF *ATN-TERM* '|AskQuery|)1149 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1150 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1151 (|AskQuery.2| (ATN-PARSER::INDEX)1152 (%ATN-NODE-BLOCK1153 |AskQuery.2|1154 (%ATN-EDGE-BLOCK1155 (POP |AskQuery|)1156 (WHEN T1157 (SETF *ATN-TERM* '|AskQuery|)1158 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1159 '|AskQuery|1160 ATN-PARSER::INDEX1161 (LIST '|DatasetClause| |DatasetClause| '|WhereClause| |WhereClause|))1162 (LET ((ATN-PARSER::RESULT-STRUCTURE1163 (IF (EQ *ATN-REDUCE* T)1164 (|AskQuery-Constructor| |DatasetClause| |WhereClause|)1165 (IF (EQ *ATN-REDUCE* 'CONS)1166 (CONS '|AskQuery| (DELETE NIL (LIST |DatasetClause| |WhereClause|)))1167 '|AskQuery|))))1168 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1169 (|AskQuery.6| (ATN-PARSER::INDEX)1170 (%ATN-NODE-BLOCK1171 |AskQuery.6|1172 (%ATN-EDGE-BLOCK1173 (PUSH |DatasetClause|)1174 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1175 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1176 (COND (ATN-PARSER::SUCCESS1177 (SETF *ATN-TERM* '|DatasetClause|)1178 (LET ((|DatasetClause898| |DatasetClause|))1179 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1180 (DESTRUCTURING-BIND1181 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1182 ATN-PARSER::RESULT-AND-INDEX1183 (WHEN ATN-PARSER::RESULT1184 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1185 (|AskQuery.6| ATN-PARSER::RESULT-INDEX))1186 (SETF |DatasetClause| |DatasetClause898|))))1187 (T1188 (SETF *ATN-TERM?* '|DatasetClause|)1189 (|AskQuery/AskQuery.2.5| ATN-PARSER::INDEX)))))))1190 (|AskQuery/AskQuery.2.4| (ATN-PARSER::INDEX)1191 (%ATN-NODE-BLOCK1192 |AskQuery/AskQuery.2.4|1193 (%ATN-EDGE-BLOCK1194 (PUSH |DatasetClause|)1195 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1196 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1197 (COND (ATN-PARSER::SUCCESS1198 (SETF *ATN-TERM* '|DatasetClause|)1199 (LET ((|DatasetClause897| |DatasetClause|))1200 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1201 (DESTRUCTURING-BIND1202 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1203 ATN-PARSER::RESULT-AND-INDEX1204 (WHEN ATN-PARSER::RESULT1205 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1206 (|AskQuery.6| ATN-PARSER::RESULT-INDEX))1207 (SETF |DatasetClause| |DatasetClause897|))))1208 (T1209 (SETF *ATN-TERM?* '|DatasetClause|)1210 (|AskQuery/AskQuery.2.5| ATN-PARSER::INDEX)))))))1211 (|AskQuery/AskQuery.2.5| (ATN-PARSER::INDEX)1212 (%ATN-NODE-BLOCK1213 |AskQuery/AskQuery.2.5|1214 (%ATN-EDGE-BLOCK1215 (PUSH |WhereClause|)1216 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1217 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)1218 (COND (ATN-PARSER::SUCCESS1219 (SETF *ATN-TERM* '|WhereClause|)1220 (LET ((|WhereClause897| |WhereClause|))1221 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1222 (DESTRUCTURING-BIND1223 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1224 ATN-PARSER::RESULT-AND-INDEX1225 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))1226 (|AskQuery.2| ATN-PARSER::RESULT-INDEX))1227 (SETF |WhereClause| |WhereClause897|))))1228 (T1229 (SETF *ATN-TERM?* '|WhereClause|)1230 (|AskQuery/fail.3| ATN-PARSER::INDEX)))))))1231 (|AskQuery/fail.3| (ATN-PARSER::INDEX)1232 (%ATN-NODE-BLOCK |AskQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1233 (|AskQuery/start.1| (ATN-PARSER::INDEX)1234 (%ATN-NODE-BLOCK1235 |AskQuery/start.1|1236 (%ATN-EDGE-BLOCK1237 (ATN-PARSER::WORD SPOCQ.S:ASK)1238 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:ASK)1239 (SETF *ATN-TERM* 'SPOCQ.S:ASK)1240 (|AskQuery/AskQuery.2.4| (1+ ATN-PARSER::INDEX)))1241 (T (SETF *ATN-TERM?* 'SPOCQ.S:ASK) (|AskQuery/fail.3| ATN-PARSER::INDEX)))))))1242 (|AskQuery/start.1| ATN-PARSER::INDEX)1243 (SETF *ATN-NODE NIL)1244 NIL1245 (IF ATN-PARSER::ATN-STRUCTURE1246 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1247 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1248 (WARN "recursive grammar: ~s @ position ~s: ~s" '|AskQuery| ATN-PARSER::INDEX *ATN-STACK))))1249 (PROGN (DEFVAR |DatasetClause-INDEX|)1250 (DEFUN |DatasetClause| (ATN-PARSER::INDEX &AUX (|DefaultGraphClause| NIL) (|NamedGraphClause| NIL))1251 "{9 } DatasetClause ::= 'FROM' ((DefaultGraphClause | NamedGraphClause))1252 (|DefaultGraphClause| |NamedGraphClause|)"1253 (DECLARE (SPECIAL |DatasetClause-INDEX|))1254 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DatasetClause-INDEX| *ATN-LEVEL))1255 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1256 (IF (< |DatasetClause-INDEX| ATN-PARSER::INDEX)1257 (LET ((|DatasetClause-INDEX| ATN-PARSER::INDEX)1258 (*ATN-LEVEL (1+ *ATN-LEVEL))1259 (*ATN-STACK (CONS '|DatasetClause| *ATN-STACK))1260 (ATN-PARSER::ATN-STRUCTURE NIL))1261 (DECLARE (SPECIAL |DatasetClause-INDEX|))1262 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1263 (DECLARE (TYPE CONS *ATN-STACK))1264 (SYMBOL-MACROLET1265 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1266 (%ATN-BLOCK |DatasetClause|1267 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1268 (SETF *ATN-TERM* '|DatasetClause|)1269 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1270 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1271 (|DatasetClause.2| (ATN-PARSER::INDEX)1272 (%ATN-NODE-BLOCK1273 |DatasetClause.2|1274 (%ATN-EDGE-BLOCK1275 (POP |DatasetClause|)1276 (WHEN T1277 (SETF *ATN-TERM* '|DatasetClause|)1278 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1279 '|DatasetClause|1280 ATN-PARSER::INDEX1281 (LIST '|DefaultGraphClause|1282 |DefaultGraphClause|1283 '|NamedGraphClause|1284 |NamedGraphClause|))1285 (LET ((ATN-PARSER::RESULT-STRUCTURE1286 (IF (EQ *ATN-REDUCE* T)1287 (|DatasetClause-Constructor| |DefaultGraphClause| |NamedGraphClause|)1288 (IF (EQ *ATN-REDUCE* 'CONS)1289 (CONS '|DatasetClause|1290 (DELETE NIL (LIST |DefaultGraphClause| |NamedGraphClause|)))1291 '|DatasetClause|))))1292 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1293 (|DatasetClause/DatasetClause.2.4| (ATN-PARSER::INDEX)1294 (%ATN-NODE-BLOCK1295 |DatasetClause/DatasetClause.2.4|1296 (%ATN-EDGE-BLOCK1297 OR1298 (PROGN (%ATN-EDGE-BLOCK1299 (PUSH |DefaultGraphClause|)1300 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1301 (ATN-PARSE-SUBSTRUCTURE* '|DefaultGraphClause| ATN-PARSER::INDEX)1302 (COND (ATN-PARSER::SUCCESS1303 (SETF *ATN-TERM* '|DefaultGraphClause|)1304 (LET ((|DefaultGraphClause898| |DefaultGraphClause|))1305 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1306 (DESTRUCTURING-BIND1307 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1308 ATN-PARSER::RESULT-AND-INDEX1309 (WHEN ATN-PARSER::RESULT1310 (SETF |DefaultGraphClause| ATN-PARSER::RESULT))1311 (|DatasetClause.2| ATN-PARSER::RESULT-INDEX))1312 (SETF |DefaultGraphClause| |DefaultGraphClause898|))))1313 (T (SETF *ATN-TERM?* '|DefaultGraphClause|) NIL))))1314 (%ATN-EDGE-BLOCK1315 (PUSH |NamedGraphClause|)1316 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1317 (ATN-PARSE-SUBSTRUCTURE* '|NamedGraphClause| ATN-PARSER::INDEX)1318 (COND (ATN-PARSER::SUCCESS1319 (SETF *ATN-TERM* '|NamedGraphClause|)1320 (LET ((|NamedGraphClause898| |NamedGraphClause|))1321 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1322 (DESTRUCTURING-BIND1323 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1324 ATN-PARSER::RESULT-AND-INDEX1325 (WHEN ATN-PARSER::RESULT1326 (SETF |NamedGraphClause| ATN-PARSER::RESULT))1327 (|DatasetClause.2| ATN-PARSER::RESULT-INDEX))1328 (SETF |NamedGraphClause| |NamedGraphClause898|))))1329 (T (SETF *ATN-TERM?* '|NamedGraphClause|) NIL))))1330 (|DatasetClause/fail.3| ATN-PARSER::INDEX)))))1331 (|DatasetClause/fail.3| (ATN-PARSER::INDEX)1332 (%ATN-NODE-BLOCK |DatasetClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1333 (|DatasetClause/start.1| (ATN-PARSER::INDEX)1334 (%ATN-NODE-BLOCK1335 |DatasetClause/start.1|1336 (%ATN-EDGE-BLOCK1337 (ATN-PARSER::WORD SPOCQ.S:FROM)1338 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:FROM)1339 (SETF *ATN-TERM* 'SPOCQ.S:FROM)1340 (|DatasetClause/DatasetClause.2.4| (1+ ATN-PARSER::INDEX)))1341 (T1342 (SETF *ATN-TERM?* 'SPOCQ.S:FROM)1343 (|DatasetClause/fail.3| ATN-PARSER::INDEX)))))))1344 (|DatasetClause/start.1| ATN-PARSER::INDEX)1345 (SETF *ATN-NODE NIL)1346 NIL1347 (IF ATN-PARSER::ATN-STRUCTURE1348 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1349 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1350 (WARN "recursive grammar: ~s @ position ~s: ~s" '|DatasetClause| ATN-PARSER::INDEX *ATN-STACK))))1351 (PROGN (DEFVAR |DefaultGraphClause-INDEX|)1352 (DEFUN |DefaultGraphClause| (ATN-PARSER::INDEX &AUX (|SourceSelector| NIL))1353 "{10} DefaultGraphClause ::= SourceSelector1354 (|SourceSelector|)"1355 (DECLARE (SPECIAL |DefaultGraphClause-INDEX|))1356 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DefaultGraphClause-INDEX| *ATN-LEVEL))1357 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1358 (IF (< |DefaultGraphClause-INDEX| ATN-PARSER::INDEX)1359 (LET ((|DefaultGraphClause-INDEX| ATN-PARSER::INDEX)1360 (*ATN-LEVEL (1+ *ATN-LEVEL))1361 (*ATN-STACK (CONS '|DefaultGraphClause| *ATN-STACK))1362 (ATN-PARSER::ATN-STRUCTURE NIL))1363 (DECLARE (SPECIAL |DefaultGraphClause-INDEX|))1364 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1365 (DECLARE (TYPE CONS *ATN-STACK))1366 (SYMBOL-MACROLET1367 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1368 (%ATN-BLOCK |DefaultGraphClause|1369 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1370 (SETF *ATN-TERM* '|DefaultGraphClause|)1371 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1372 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1373 (|DefaultGraphClause.2| (ATN-PARSER::INDEX)1374 (%ATN-NODE-BLOCK1375 |DefaultGraphClause.2|1376 (%ATN-EDGE-BLOCK1377 (POP |DefaultGraphClause|)1378 (WHEN T1379 (SETF *ATN-TERM* '|DefaultGraphClause|)1380 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1381 '|DefaultGraphClause|1382 ATN-PARSER::INDEX1383 (LIST '|SourceSelector| |SourceSelector|))1384 (LET ((ATN-PARSER::RESULT-STRUCTURE1385 (IF (EQ *ATN-REDUCE* T)1386 (|DefaultGraphClause-Constructor| |SourceSelector|)1387 (IF (EQ *ATN-REDUCE* 'CONS)1388 (CONS '|DefaultGraphClause| (DELETE NIL (LIST |SourceSelector|)))1389 '|DefaultGraphClause|))))1390 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1391 (|DefaultGraphClause/fail.3| (ATN-PARSER::INDEX)1392 (%ATN-NODE-BLOCK |DefaultGraphClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1393 (|DefaultGraphClause/start.1| (ATN-PARSER::INDEX)1394 (%ATN-NODE-BLOCK1395 |DefaultGraphClause/start.1|1396 (%ATN-EDGE-BLOCK1397 (PUSH |SourceSelector|)1398 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1399 (ATN-PARSE-SUBSTRUCTURE* '|SourceSelector| ATN-PARSER::INDEX)1400 (COND (ATN-PARSER::SUCCESS1401 (SETF *ATN-TERM* '|SourceSelector|)1402 (LET ((|SourceSelector898| |SourceSelector|))1403 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1404 (DESTRUCTURING-BIND1405 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1406 ATN-PARSER::RESULT-AND-INDEX1407 (WHEN ATN-PARSER::RESULT (SETF |SourceSelector| ATN-PARSER::RESULT))1408 (|DefaultGraphClause.2| ATN-PARSER::RESULT-INDEX))1409 (SETF |SourceSelector| |SourceSelector898|))))1410 (T1411 (SETF *ATN-TERM?* '|SourceSelector|)1412 (|DefaultGraphClause/fail.3| ATN-PARSER::INDEX))))))))1413 (|DefaultGraphClause/start.1| ATN-PARSER::INDEX)1414 (SETF *ATN-NODE NIL)1415 NIL1416 (IF ATN-PARSER::ATN-STRUCTURE1417 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1418 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1419 (WARN "recursive grammar: ~s @ position ~s: ~s" '|DefaultGraphClause| ATN-PARSER::INDEX *ATN-STACK))))1420 (PROGN (DEFVAR |NamedGraphClause-INDEX|)1421 (DEFUN |NamedGraphClause| (ATN-PARSER::INDEX &AUX (|SourceSelector| NIL))1422 "{11} NamedGraphClause ::= 'NAMED' SourceSelector1423 (|SourceSelector|)"1424 (DECLARE (SPECIAL |NamedGraphClause-INDEX|))1425 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NamedGraphClause-INDEX| *ATN-LEVEL))1426 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1427 (IF (< |NamedGraphClause-INDEX| ATN-PARSER::INDEX)1428 (LET ((|NamedGraphClause-INDEX| ATN-PARSER::INDEX)1429 (*ATN-LEVEL (1+ *ATN-LEVEL))1430 (*ATN-STACK (CONS '|NamedGraphClause| *ATN-STACK))1431 (ATN-PARSER::ATN-STRUCTURE NIL))1432 (DECLARE (SPECIAL |NamedGraphClause-INDEX|))1433 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1434 (DECLARE (TYPE CONS *ATN-STACK))1435 (SYMBOL-MACROLET1436 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1437 (%ATN-BLOCK |NamedGraphClause|1438 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1439 (SETF *ATN-TERM* '|NamedGraphClause|)1440 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1441 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1442 (|NamedGraphClause.2| (ATN-PARSER::INDEX)1443 (%ATN-NODE-BLOCK1444 |NamedGraphClause.2|1445 (%ATN-EDGE-BLOCK1446 (POP |NamedGraphClause|)1447 (WHEN T1448 (SETF *ATN-TERM* '|NamedGraphClause|)1449 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1450 '|NamedGraphClause|1451 ATN-PARSER::INDEX1452 (LIST '|SourceSelector| |SourceSelector|))1453 (LET ((ATN-PARSER::RESULT-STRUCTURE1454 (IF (EQ *ATN-REDUCE* T)1455 (|NamedGraphClause-Constructor| |SourceSelector|)1456 (IF (EQ *ATN-REDUCE* 'CONS)1457 (CONS '|NamedGraphClause| (DELETE NIL (LIST |SourceSelector|)))1458 '|NamedGraphClause|))))1459 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1460 (|NamedGraphClause/fail.3| (ATN-PARSER::INDEX)1461 (%ATN-NODE-BLOCK |NamedGraphClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1462 (|NamedGraphClause/NamedGraphClause.2.4| (ATN-PARSER::INDEX)1463 (%ATN-NODE-BLOCK1464 |NamedGraphClause/NamedGraphClause.2.4|1465 (%ATN-EDGE-BLOCK1466 (PUSH |SourceSelector|)1467 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1468 (ATN-PARSE-SUBSTRUCTURE* '|SourceSelector| ATN-PARSER::INDEX)1469 (COND (ATN-PARSER::SUCCESS1470 (SETF *ATN-TERM* '|SourceSelector|)1471 (LET ((|SourceSelector899| |SourceSelector|))1472 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1473 (DESTRUCTURING-BIND1474 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1475 ATN-PARSER::RESULT-AND-INDEX1476 (WHEN ATN-PARSER::RESULT (SETF |SourceSelector| ATN-PARSER::RESULT))1477 (|NamedGraphClause.2| ATN-PARSER::RESULT-INDEX))1478 (SETF |SourceSelector| |SourceSelector899|))))1479 (T1480 (SETF *ATN-TERM?* '|SourceSelector|)1481 (|NamedGraphClause/fail.3| ATN-PARSER::INDEX)))))))1482 (|NamedGraphClause/start.1| (ATN-PARSER::INDEX)1483 (%ATN-NODE-BLOCK1484 |NamedGraphClause/start.1|1485 (%ATN-EDGE-BLOCK1486 (ATN-PARSER::WORD SPOCQ.S:NAMED)1487 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:NAMED)1488 (SETF *ATN-TERM* 'SPOCQ.S:NAMED)1489 (|NamedGraphClause/NamedGraphClause.2.4| (1+ ATN-PARSER::INDEX)))1490 (T1491 (SETF *ATN-TERM?* 'SPOCQ.S:NAMED)1492 (|NamedGraphClause/fail.3| ATN-PARSER::INDEX)))))))1493 (|NamedGraphClause/start.1| ATN-PARSER::INDEX)1494 (SETF *ATN-NODE NIL)1495 NIL1496 (IF ATN-PARSER::ATN-STRUCTURE1497 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1498 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1499 (WARN "recursive grammar: ~s @ position ~s: ~s" '|NamedGraphClause| ATN-PARSER::INDEX *ATN-STACK))))1500 (PROGN (DEFVAR |SourceSelector-INDEX|)1501 (DEFUN |SourceSelector| (ATN-PARSER::INDEX &AUX (|IRIref| NIL))1502 "{12} SourceSelector ::= IRIref1503 (|IRIref|)"1504 (DECLARE (SPECIAL |SourceSelector-INDEX|))1505 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SourceSelector-INDEX| *ATN-LEVEL))1506 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1507 (IF (< |SourceSelector-INDEX| ATN-PARSER::INDEX)1508 (LET ((|SourceSelector-INDEX| ATN-PARSER::INDEX)1509 (*ATN-LEVEL (1+ *ATN-LEVEL))1510 (*ATN-STACK (CONS '|SourceSelector| *ATN-STACK))1511 (ATN-PARSER::ATN-STRUCTURE NIL))1512 (DECLARE (SPECIAL |SourceSelector-INDEX|))1513 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1514 (DECLARE (TYPE CONS *ATN-STACK))1515 (SYMBOL-MACROLET1516 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1517 (%ATN-BLOCK |SourceSelector|1518 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1519 (SETF *ATN-TERM* '|SourceSelector|)1520 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1521 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1522 (|SourceSelector.2| (ATN-PARSER::INDEX)1523 (%ATN-NODE-BLOCK1524 |SourceSelector.2|1525 (%ATN-EDGE-BLOCK1526 (POP |SourceSelector|)1527 (WHEN T1528 (SETF *ATN-TERM* '|SourceSelector|)1529 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1530 '|SourceSelector|1531 ATN-PARSER::INDEX1532 (LIST '|IRIref| |IRIref|))1533 (LET ((ATN-PARSER::RESULT-STRUCTURE1534 (IF (EQ *ATN-REDUCE* T)1535 (|SourceSelector-Constructor| |IRIref|)1536 (IF (EQ *ATN-REDUCE* 'CONS)1537 (CONS '|SourceSelector| (DELETE NIL (LIST |IRIref|)))1538 '|SourceSelector|))))1539 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1540 (|SourceSelector/fail.3| (ATN-PARSER::INDEX)1541 (%ATN-NODE-BLOCK |SourceSelector/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1542 (|SourceSelector/start.1| (ATN-PARSER::INDEX)1543 (%ATN-NODE-BLOCK1544 |SourceSelector/start.1|1545 (%ATN-EDGE-BLOCK1546 (PUSH |IRIref|)1547 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1548 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)1549 (COND (ATN-PARSER::SUCCESS1550 (SETF *ATN-TERM* '|IRIref|)1551 (LET ((|IRIref899| |IRIref|))1552 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1553 (DESTRUCTURING-BIND1554 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1555 ATN-PARSER::RESULT-AND-INDEX1556 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))1557 (|SourceSelector.2| ATN-PARSER::RESULT-INDEX))1558 (SETF |IRIref| |IRIref899|))))1559 (T1560 (SETF *ATN-TERM?* '|IRIref|)1561 (|SourceSelector/fail.3| ATN-PARSER::INDEX))))))))1562 (|SourceSelector/start.1| ATN-PARSER::INDEX)1563 (SETF *ATN-NODE NIL)1564 NIL1565 (IF ATN-PARSER::ATN-STRUCTURE1566 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1567 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1568 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SourceSelector| ATN-PARSER::INDEX *ATN-STACK))))1569 (PROGN (DEFVAR |WhereClause-INDEX|)1570 (DEFUN |WhereClause| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))1571 "{13} WhereClause ::= 'WHERE'? GroupGraphPattern1572 (|GroupGraphPattern|)"1573 (DECLARE (SPECIAL |WhereClause-INDEX|))1574 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |WhereClause-INDEX| *ATN-LEVEL))1575 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1576 (IF (< |WhereClause-INDEX| ATN-PARSER::INDEX)1577 (LET ((|WhereClause-INDEX| ATN-PARSER::INDEX)1578 (*ATN-LEVEL (1+ *ATN-LEVEL))1579 (*ATN-STACK (CONS '|WhereClause| *ATN-STACK))1580 (ATN-PARSER::ATN-STRUCTURE NIL))1581 (DECLARE (SPECIAL |WhereClause-INDEX|))1582 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1583 (DECLARE (TYPE CONS *ATN-STACK))1584 (SYMBOL-MACROLET1585 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1586 (%ATN-BLOCK |WhereClause|1587 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1588 (SETF *ATN-TERM* '|WhereClause|)1589 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1590 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1591 (|WhereClause.2| (ATN-PARSER::INDEX)1592 (%ATN-NODE-BLOCK1593 |WhereClause.2|1594 (%ATN-EDGE-BLOCK1595 (POP |WhereClause|)1596 (WHEN T1597 (SETF *ATN-TERM* '|WhereClause|)1598 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1599 '|WhereClause|1600 ATN-PARSER::INDEX1601 (LIST '|GroupGraphPattern| |GroupGraphPattern|))1602 (LET ((ATN-PARSER::RESULT-STRUCTURE1603 (IF (EQ *ATN-REDUCE* T)1604 (|WhereClause-Constructor| |GroupGraphPattern|)1605 (IF (EQ *ATN-REDUCE* 'CONS)1606 (CONS '|WhereClause| (DELETE NIL (LIST |GroupGraphPattern|)))1607 '|WhereClause|))))1608 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1609 (|WhereClause/fail.3| (ATN-PARSER::INDEX)1610 (%ATN-NODE-BLOCK |WhereClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1611 (|WhereClause/start.1| (ATN-PARSER::INDEX)1612 (%ATN-NODE-BLOCK1613 |WhereClause/start.1|1614 (%ATN-EDGE-BLOCK1615 (ATN-PARSER::WORD SPOCQ.S:WHERE)1616 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:WHERE)1617 (SETF *ATN-TERM* 'SPOCQ.S:WHERE)1618 (|WhereClause/WhereClause.2.4| (1+ ATN-PARSER::INDEX)))1619 (T1620 (SETF *ATN-TERM?* 'SPOCQ.S:WHERE)1621 (|WhereClause/WhereClause.2.4| ATN-PARSER::INDEX))))))1622 (|WhereClause/WhereClause.2.4| (ATN-PARSER::INDEX)1623 (%ATN-NODE-BLOCK1624 |WhereClause/WhereClause.2.4|1625 (%ATN-EDGE-BLOCK1626 (PUSH |GroupGraphPattern|)1627 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1628 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)1629 (COND (ATN-PARSER::SUCCESS1630 (SETF *ATN-TERM* '|GroupGraphPattern|)1631 (LET ((|GroupGraphPattern899| |GroupGraphPattern|))1632 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1633 (DESTRUCTURING-BIND1634 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1635 ATN-PARSER::RESULT-AND-INDEX1636 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))1637 (|WhereClause.2| ATN-PARSER::RESULT-INDEX))1638 (SETF |GroupGraphPattern| |GroupGraphPattern899|))))1639 (T1640 (SETF *ATN-TERM?* '|GroupGraphPattern|)1641 (|WhereClause/fail.3| ATN-PARSER::INDEX))))))))1642 (|WhereClause/start.1| ATN-PARSER::INDEX)1643 (SETF *ATN-NODE NIL)1644 NIL1645 (IF ATN-PARSER::ATN-STRUCTURE1646 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1647 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1648 (WARN "recursive grammar: ~s @ position ~s: ~s" '|WhereClause| ATN-PARSER::INDEX *ATN-STACK))))1649 (PROGN (DEFVAR |SolutionModifier-INDEX|)1650 (DEFUN |SolutionModifier| (ATN-PARSER::INDEX &AUX (|LimitOffsetClauses| NIL) (|OrderClause| NIL))1651 "{14} SolutionModifier ::= OrderClause? LimitOffsetClauses?1652 (|LimitOffsetClauses| |OrderClause|)"1653 (DECLARE (SPECIAL |SolutionModifier-INDEX|))1654 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SolutionModifier-INDEX| *ATN-LEVEL))1655 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1656 (IF (< |SolutionModifier-INDEX| ATN-PARSER::INDEX)1657 (LET ((|SolutionModifier-INDEX| ATN-PARSER::INDEX)1658 (*ATN-LEVEL (1+ *ATN-LEVEL))1659 (*ATN-STACK (CONS '|SolutionModifier| *ATN-STACK))1660 (ATN-PARSER::ATN-STRUCTURE NIL))1661 (DECLARE (SPECIAL |SolutionModifier-INDEX|))1662 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1663 (DECLARE (TYPE CONS *ATN-STACK))1664 (SYMBOL-MACROLET1665 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1666 (%ATN-BLOCK |SolutionModifier|1667 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1668 (SETF *ATN-TERM* '|SolutionModifier|)1669 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1670 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1671 (|SolutionModifier.2| (ATN-PARSER::INDEX)1672 (%ATN-NODE-BLOCK1673 |SolutionModifier.2|1674 (%ATN-EDGE-BLOCK1675 (POP |SolutionModifier|)1676 (WHEN T1677 (SETF *ATN-TERM* '|SolutionModifier|)1678 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1679 '|SolutionModifier|1680 ATN-PARSER::INDEX1681 (LIST '|LimitOffsetClauses|1682 |LimitOffsetClauses|1683 '|OrderClause|1684 |OrderClause|))1685 (LET ((ATN-PARSER::RESULT-STRUCTURE1686 (IF (EQ *ATN-REDUCE* T)1687 (|SolutionModifier-Constructor| |LimitOffsetClauses| |OrderClause|)1688 (IF (EQ *ATN-REDUCE* 'CONS)1689 (CONS '|SolutionModifier|1690 (DELETE NIL (LIST |LimitOffsetClauses| |OrderClause|)))1691 '|SolutionModifier|))))1692 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1693 (|SolutionModifier/fail.3| (ATN-PARSER::INDEX)1694 (%ATN-NODE-BLOCK |SolutionModifier/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1695 (|SolutionModifier/SolutionModifier.2.4| (ATN-PARSER::INDEX)1696 (%ATN-NODE-BLOCK1697 |SolutionModifier/SolutionModifier.2.4|1698 (%ATN-EDGE-BLOCK1699 (PUSH |LimitOffsetClauses|)1700 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1701 (ATN-PARSE-SUBSTRUCTURE* '|LimitOffsetClauses| ATN-PARSER::INDEX)1702 (COND (ATN-PARSER::SUCCESS1703 (SETF *ATN-TERM* '|LimitOffsetClauses|)1704 (LET ((|LimitOffsetClauses899| |LimitOffsetClauses|))1705 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1706 (DESTRUCTURING-BIND1707 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1708 ATN-PARSER::RESULT-AND-INDEX1709 (WHEN ATN-PARSER::RESULT (SETF |LimitOffsetClauses| ATN-PARSER::RESULT))1710 (|SolutionModifier.2| ATN-PARSER::RESULT-INDEX))1711 (SETF |LimitOffsetClauses| |LimitOffsetClauses899|))))1712 (T1713 (SETF *ATN-TERM?* '|LimitOffsetClauses|)1714 (|SolutionModifier.2| ATN-PARSER::INDEX)))))))1715 (|SolutionModifier/start.1| (ATN-PARSER::INDEX)1716 (%ATN-NODE-BLOCK1717 |SolutionModifier/start.1|1718 (%ATN-EDGE-BLOCK1719 (PUSH |OrderClause|)1720 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1721 (ATN-PARSE-SUBSTRUCTURE* '|OrderClause| ATN-PARSER::INDEX)1722 (COND (ATN-PARSER::SUCCESS1723 (SETF *ATN-TERM* '|OrderClause|)1724 (LET ((|OrderClause899| |OrderClause|))1725 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1726 (DESTRUCTURING-BIND1727 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1728 ATN-PARSER::RESULT-AND-INDEX1729 (WHEN ATN-PARSER::RESULT (SETF |OrderClause| ATN-PARSER::RESULT))1730 (|SolutionModifier/SolutionModifier.2.4| ATN-PARSER::RESULT-INDEX))1731 (SETF |OrderClause| |OrderClause899|))))1732 (T1733 (SETF *ATN-TERM?* '|OrderClause|)1734 (|SolutionModifier/SolutionModifier.2.4| ATN-PARSER::INDEX))))))))1735 (|SolutionModifier/start.1| ATN-PARSER::INDEX)1736 (SETF *ATN-NODE NIL)1737 NIL1738 (IF ATN-PARSER::ATN-STRUCTURE1739 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1740 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1741 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SolutionModifier| ATN-PARSER::INDEX *ATN-STACK))))1742 (PROGN (DEFVAR |LimitOffsetClauses-INDEX|)1743 (DEFUN |LimitOffsetClauses| (ATN-PARSER::INDEX &AUX (|LimitClause| NIL) (|OffsetClause| NIL))1744 "{15} LimitOffsetClauses ::= (((LimitClause OffsetClause?) | (OffsetClause1745 LimitClause?)))1746 (|LimitClause| |OffsetClause|)"1747 (DECLARE (SPECIAL |LimitOffsetClauses-INDEX|))1748 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |LimitOffsetClauses-INDEX| *ATN-LEVEL))1749 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1750 (IF (< |LimitOffsetClauses-INDEX| ATN-PARSER::INDEX)1751 (LET ((|LimitOffsetClauses-INDEX| ATN-PARSER::INDEX)1752 (*ATN-LEVEL (1+ *ATN-LEVEL))1753 (*ATN-STACK (CONS '|LimitOffsetClauses| *ATN-STACK))1754 (ATN-PARSER::ATN-STRUCTURE NIL))1755 (DECLARE (SPECIAL |LimitOffsetClauses-INDEX|))1756 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1757 (DECLARE (TYPE CONS *ATN-STACK))1758 (SYMBOL-MACROLET1759 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1760 (%ATN-BLOCK |LimitOffsetClauses|1761 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1762 (SETF *ATN-TERM* '|LimitOffsetClauses|)1763 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1764 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1765 (|LimitOffsetClauses.2| (ATN-PARSER::INDEX)1766 (%ATN-NODE-BLOCK1767 |LimitOffsetClauses.2|1768 (%ATN-EDGE-BLOCK1769 (POP |LimitOffsetClauses|)1770 (WHEN T1771 (SETF *ATN-TERM* '|LimitOffsetClauses|)1772 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1773 '|LimitOffsetClauses|1774 ATN-PARSER::INDEX1775 (LIST '|LimitClause| |LimitClause| '|OffsetClause| |OffsetClause|))1776 (LET ((ATN-PARSER::RESULT-STRUCTURE1777 (IF (EQ *ATN-REDUCE* T)1778 (|LimitOffsetClauses-Constructor| |LimitClause| |OffsetClause|)1779 (IF (EQ *ATN-REDUCE* 'CONS)1780 (CONS '|LimitOffsetClauses|1781 (DELETE NIL (LIST |LimitClause| |OffsetClause|)))1782 '|LimitOffsetClauses|))))1783 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1784 (|LimitOffsetClauses/fail.3| (ATN-PARSER::INDEX)1785 (%ATN-NODE-BLOCK |LimitOffsetClauses/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1786 (|LimitOffsetClauses/LimitOffsetClauses.2.4| (ATN-PARSER::INDEX)1787 (%ATN-NODE-BLOCK1788 |LimitOffsetClauses/LimitOffsetClauses.2.4|1789 (%ATN-EDGE-BLOCK1790 (PUSH |LimitClause|)1791 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1792 (ATN-PARSE-SUBSTRUCTURE* '|LimitClause| ATN-PARSER::INDEX)1793 (COND (ATN-PARSER::SUCCESS1794 (SETF *ATN-TERM* '|LimitClause|)1795 (LET ((|LimitClause900| |LimitClause|))1796 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1797 (DESTRUCTURING-BIND1798 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1799 ATN-PARSER::RESULT-AND-INDEX1800 (WHEN ATN-PARSER::RESULT (SETF |LimitClause| ATN-PARSER::RESULT))1801 (|LimitOffsetClauses/LimitOffsetClauses.2.5| ATN-PARSER::RESULT-INDEX))1802 (SETF |LimitClause| |LimitClause900|))))1803 (T (SETF *ATN-TERM?* '|LimitClause|) NIL))))))1804 (|LimitOffsetClauses/LimitOffsetClauses.2.5| (ATN-PARSER::INDEX)1805 (%ATN-NODE-BLOCK1806 |LimitOffsetClauses/LimitOffsetClauses.2.5|1807 (%ATN-EDGE-BLOCK1808 (PUSH |OffsetClause|)1809 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1810 (ATN-PARSE-SUBSTRUCTURE* '|OffsetClause| ATN-PARSER::INDEX)1811 (COND (ATN-PARSER::SUCCESS1812 (SETF *ATN-TERM* '|OffsetClause|)1813 (LET ((|OffsetClause900| |OffsetClause|))1814 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1815 (DESTRUCTURING-BIND1816 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1817 ATN-PARSER::RESULT-AND-INDEX1818 (WHEN ATN-PARSER::RESULT (SETF |OffsetClause| ATN-PARSER::RESULT))1819 (|LimitOffsetClauses.2| ATN-PARSER::RESULT-INDEX))1820 (SETF |OffsetClause| |OffsetClause900|))))1821 (T1822 (SETF *ATN-TERM?* '|OffsetClause|)1823 (|LimitOffsetClauses.2| ATN-PARSER::INDEX)))))))1824 (|LimitOffsetClauses/LimitOffsetClauses.2.6| (ATN-PARSER::INDEX)1825 (%ATN-NODE-BLOCK1826 |LimitOffsetClauses/LimitOffsetClauses.2.6|1827 (%ATN-EDGE-BLOCK1828 (PUSH |OffsetClause|)1829 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1830 (ATN-PARSE-SUBSTRUCTURE* '|OffsetClause| ATN-PARSER::INDEX)1831 (COND (ATN-PARSER::SUCCESS1832 (SETF *ATN-TERM* '|OffsetClause|)1833 (LET ((|OffsetClause899| |OffsetClause|))1834 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1835 (DESTRUCTURING-BIND1836 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1837 ATN-PARSER::RESULT-AND-INDEX1838 (WHEN ATN-PARSER::RESULT (SETF |OffsetClause| ATN-PARSER::RESULT))1839 (|LimitOffsetClauses/LimitOffsetClauses.2.7| ATN-PARSER::RESULT-INDEX))1840 (SETF |OffsetClause| |OffsetClause899|))))1841 (T (SETF *ATN-TERM?* '|OffsetClause|) NIL))))))1842 (|LimitOffsetClauses/LimitOffsetClauses.2.7| (ATN-PARSER::INDEX)1843 (%ATN-NODE-BLOCK1844 |LimitOffsetClauses/LimitOffsetClauses.2.7|1845 (%ATN-EDGE-BLOCK1846 (PUSH |LimitClause|)1847 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1848 (ATN-PARSE-SUBSTRUCTURE* '|LimitClause| ATN-PARSER::INDEX)1849 (COND (ATN-PARSER::SUCCESS1850 (SETF *ATN-TERM* '|LimitClause|)1851 (LET ((|LimitClause899| |LimitClause|))1852 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1853 (DESTRUCTURING-BIND1854 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1855 ATN-PARSER::RESULT-AND-INDEX1856 (WHEN ATN-PARSER::RESULT (SETF |LimitClause| ATN-PARSER::RESULT))1857 (|LimitOffsetClauses.2| ATN-PARSER::RESULT-INDEX))1858 (SETF |LimitClause| |LimitClause899|))))1859 (T1860 (SETF *ATN-TERM?* '|LimitClause|)1861 (|LimitOffsetClauses.2| ATN-PARSER::INDEX)))))))1862 (|LimitOffsetClauses/start.1| (ATN-PARSER::INDEX)1863 (%ATN-NODE-BLOCK1864 |LimitOffsetClauses/start.1|1865 (%ATN-EDGE-BLOCK1866 OR1867 (PROGN (%ATN-EDGE-BLOCK1868 (ATN-PARSER::JUMP |LimitOffsetClauses/LimitOffsetClauses.2.4|)1869 (|LimitOffsetClauses/LimitOffsetClauses.2.4| ATN-PARSER::INDEX))1870 (%ATN-EDGE-BLOCK1871 (ATN-PARSER::JUMP |LimitOffsetClauses/LimitOffsetClauses.2.6|)1872 (|LimitOffsetClauses/LimitOffsetClauses.2.6| ATN-PARSER::INDEX))1873 (|LimitOffsetClauses/fail.3| ATN-PARSER::INDEX))))))1874 (|LimitOffsetClauses/start.1| ATN-PARSER::INDEX)1875 (SETF *ATN-NODE NIL)1876 NIL1877 (IF ATN-PARSER::ATN-STRUCTURE1878 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1879 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1880 (WARN "recursive grammar: ~s @ position ~s: ~s" '|LimitOffsetClauses| ATN-PARSER::INDEX *ATN-STACK))))1881 (PROGN (DEFVAR |OrderClause-INDEX|)1882 (DEFUN |OrderClause| (ATN-PARSER::INDEX &AUX (|OrderCondition| NIL))1883 "{16} OrderClause ::= 'ORDER' 'BY' OrderCondition+1884 (|OrderCondition|)"1885 (DECLARE (SPECIAL |OrderClause-INDEX|))1886 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OrderClause-INDEX| *ATN-LEVEL))1887 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1888 (IF (< |OrderClause-INDEX| ATN-PARSER::INDEX)1889 (LET ((|OrderClause-INDEX| ATN-PARSER::INDEX)1890 (*ATN-LEVEL (1+ *ATN-LEVEL))1891 (*ATN-STACK (CONS '|OrderClause| *ATN-STACK))1892 (ATN-PARSER::ATN-STRUCTURE NIL))1893 (DECLARE (SPECIAL |OrderClause-INDEX|))1894 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1895 (DECLARE (TYPE CONS *ATN-STACK))1896 (SYMBOL-MACROLET1897 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1898 (%ATN-BLOCK |OrderClause|1899 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1900 (SETF *ATN-TERM* '|OrderClause|)1901 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1902 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1903 (|OrderClause.2| (ATN-PARSER::INDEX)1904 (%ATN-NODE-BLOCK1905 |OrderClause.2|1906 (%ATN-EDGE-BLOCK1907 (POP |OrderClause|)1908 (WHEN T1909 (SETF *ATN-TERM* '|OrderClause|)1910 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1911 '|OrderClause|1912 ATN-PARSER::INDEX1913 (LIST '|OrderCondition| |OrderCondition|))1914 (LET ((ATN-PARSER::RESULT-STRUCTURE1915 (IF (EQ *ATN-REDUCE* T)1916 (|OrderClause-Constructor| |OrderCondition|)1917 (IF (EQ *ATN-REDUCE* 'CONS)1918 (CONS '|OrderClause| (DELETE NIL (LIST |OrderCondition|)))1919 '|OrderClause|))))1920 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1921 (|OrderClause.6| (ATN-PARSER::INDEX)1922 (%ATN-NODE-BLOCK1923 |OrderClause.6|1924 (%ATN-EDGE-BLOCK1925 (PUSH |OrderCondition|)1926 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1927 (ATN-PARSE-SUBSTRUCTURE* '|OrderCondition| ATN-PARSER::INDEX)1928 (COND (ATN-PARSER::SUCCESS1929 (SETF *ATN-TERM* '|OrderCondition|)1930 (LET ((|OrderCondition901| |OrderCondition|))1931 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1932 (DESTRUCTURING-BIND1933 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1934 ATN-PARSER::RESULT-AND-INDEX1935 (WHEN ATN-PARSER::RESULT1936 (SETF |OrderCondition| (CONS ATN-PARSER::RESULT |OrderCondition|)))1937 (|OrderClause.6| ATN-PARSER::RESULT-INDEX))1938 (SETF |OrderCondition| |OrderCondition901|))))1939 (T1940 (SETF *ATN-TERM?* '|OrderCondition|)1941 (|OrderClause.2| ATN-PARSER::INDEX)))))))1942 (|OrderClause/fail.3| (ATN-PARSER::INDEX)1943 (%ATN-NODE-BLOCK |OrderClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1944 (|OrderClause/OrderClause.2.4| (ATN-PARSER::INDEX)1945 (%ATN-NODE-BLOCK1946 |OrderClause/OrderClause.2.4|1947 (%ATN-EDGE-BLOCK1948 (ATN-PARSER::WORD SPOCQ.S:BY)1949 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BY)1950 (SETF *ATN-TERM* 'SPOCQ.S:BY)1951 (|OrderClause/OrderClause.2.5| (1+ ATN-PARSER::INDEX)))1952 (T (SETF *ATN-TERM?* 'SPOCQ.S:BY) (|OrderClause/fail.3| ATN-PARSER::INDEX))))))1953 (|OrderClause/OrderClause.2.5| (ATN-PARSER::INDEX)1954 (%ATN-NODE-BLOCK1955 |OrderClause/OrderClause.2.5|1956 (%ATN-EDGE-BLOCK1957 (PUSH |OrderCondition|)1958 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1959 (ATN-PARSE-SUBSTRUCTURE* '|OrderCondition| ATN-PARSER::INDEX)1960 (COND (ATN-PARSER::SUCCESS1961 (SETF *ATN-TERM* '|OrderCondition|)1962 (LET ((|OrderCondition900| |OrderCondition|))1963 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1964 (DESTRUCTURING-BIND1965 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1966 ATN-PARSER::RESULT-AND-INDEX1967 (WHEN ATN-PARSER::RESULT1968 (SETF |OrderCondition| (CONS ATN-PARSER::RESULT |OrderCondition|)))1969 (|OrderClause.6| ATN-PARSER::RESULT-INDEX))1970 (SETF |OrderCondition| |OrderCondition900|))))1971 (T1972 (SETF *ATN-TERM?* '|OrderCondition|)1973 (|OrderClause/fail.3| ATN-PARSER::INDEX)))))))1974 (|OrderClause/start.1| (ATN-PARSER::INDEX)1975 (%ATN-NODE-BLOCK1976 |OrderClause/start.1|1977 (%ATN-EDGE-BLOCK1978 (ATN-PARSER::WORD SPOCQ.S:ORDER)1979 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:ORDER)1980 (SETF *ATN-TERM* 'SPOCQ.S:ORDER)1981 (|OrderClause/OrderClause.2.4| (1+ ATN-PARSER::INDEX)))1982 (T1983 (SETF *ATN-TERM?* 'SPOCQ.S:ORDER)1984 (|OrderClause/fail.3| ATN-PARSER::INDEX)))))))1985 (|OrderClause/start.1| ATN-PARSER::INDEX)1986 (SETF *ATN-NODE NIL)1987 NIL1988 (IF ATN-PARSER::ATN-STRUCTURE1989 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1990 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1991 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OrderClause| ATN-PARSER::INDEX *ATN-STACK))))1992 (PROGN (DEFVAR |OrderCondition-INDEX|)1993 (DEFUN |OrderCondition| (ATN-PARSER::INDEX &AUX (|BrackettedExpression| NIL) (|Constraint| NIL) (|OrderDirection| NIL)1994 (|Var| NIL))1995 "{17} OrderCondition ::= ((OrderDirection1996 BrackettedExpression) | Constraint | Var)1997 (|BrackettedExpression| |Constraint| |OrderDirection| |Var|)"1998 (DECLARE (SPECIAL |OrderCondition-INDEX|))1999 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OrderCondition-INDEX| *ATN-LEVEL))2000 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2001 (IF (< |OrderCondition-INDEX| ATN-PARSER::INDEX)2002 (LET ((|OrderCondition-INDEX| ATN-PARSER::INDEX)2003 (*ATN-LEVEL (1+ *ATN-LEVEL))2004 (*ATN-STACK (CONS '|OrderCondition| *ATN-STACK))2005 (ATN-PARSER::ATN-STRUCTURE NIL))2006 (DECLARE (SPECIAL |OrderCondition-INDEX|))2007 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2008 (DECLARE (TYPE CONS *ATN-STACK))2009 (SYMBOL-MACROLET2010 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2011 (%ATN-BLOCK |OrderCondition|2012 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2013 (SETF *ATN-TERM* '|OrderCondition|)2014 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2015 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2016 (|OrderCondition.2| (ATN-PARSER::INDEX)2017 (%ATN-NODE-BLOCK2018 |OrderCondition.2|2019 (%ATN-EDGE-BLOCK2020 (POP |OrderCondition|)2021 (WHEN T2022 (SETF *ATN-TERM* '|OrderCondition|)2023 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2024 '|OrderCondition|2025 ATN-PARSER::INDEX2026 (LIST '|BrackettedExpression|2027 |BrackettedExpression|2028 '|Constraint|2029 |Constraint|2030 '|OrderDirection|2031 |OrderDirection|2032 '|Var|2033 |Var|))2034 (LET ((ATN-PARSER::RESULT-STRUCTURE2035 (IF (EQ *ATN-REDUCE* T)2036 (|OrderCondition-Constructor|2037 |BrackettedExpression|2038 |Constraint|2039 |OrderDirection|2040 |Var|)2041 (IF (EQ *ATN-REDUCE* 'CONS)2042 (CONS '|OrderCondition|2043 (DELETE NIL2044 (LIST |BrackettedExpression|2045 |Constraint|2046 |OrderDirection|2047 |Var|)))2048 '|OrderCondition|))))2049 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2050 (|OrderCondition/fail.3| (ATN-PARSER::INDEX)2051 (%ATN-NODE-BLOCK |OrderCondition/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2052 (|OrderCondition/OrderCondition.2.4| (ATN-PARSER::INDEX)2053 (%ATN-NODE-BLOCK2054 |OrderCondition/OrderCondition.2.4|2055 (%ATN-EDGE-BLOCK2056 (ATN-PARSER::CAT |OrderDirection|)2057 (COND ((|IS-OrderDirection| ATN-PARSER::|item|)2058 (SETF *ATN-TERM* '|OrderDirection|)2059 (SETF |OrderDirection|2060 (IF (EQ *ATN-REDUCE* T)2061 (ATN-REDUCE-ITEM #'|OrderDirection-Constructor| ATN-PARSER::|item|)2062 (IF (EQ *ATN-REDUCE* 'CONS)2063 (LIST '|OrderDirection| ATN-PARSER::|item|)2064 '|OrderDirection|)))2065 (|OrderCondition/OrderCondition.2.5| (1+ ATN-PARSER::INDEX)))2066 (T (SETF *ATN-TERM* '|OrderDirection|) NIL)))))2067 (|OrderCondition/OrderCondition.2.5| (ATN-PARSER::INDEX)2068 (%ATN-NODE-BLOCK2069 |OrderCondition/OrderCondition.2.5|2070 (%ATN-EDGE-BLOCK2071 (PUSH |BrackettedExpression|)2072 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2073 (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression| ATN-PARSER::INDEX)2074 (COND (ATN-PARSER::SUCCESS2075 (SETF *ATN-TERM* '|BrackettedExpression|)2076 (LET ((|BrackettedExpression901| |BrackettedExpression|))2077 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2078 (DESTRUCTURING-BIND2079 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2080 ATN-PARSER::RESULT-AND-INDEX2081 (WHEN ATN-PARSER::RESULT2082 (SETF |BrackettedExpression| ATN-PARSER::RESULT))2083 (|OrderCondition.2| ATN-PARSER::RESULT-INDEX))2084 (SETF |BrackettedExpression| |BrackettedExpression901|))))2085 (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))))2086 (|OrderCondition/start.1| (ATN-PARSER::INDEX)2087 (%ATN-NODE-BLOCK2088 |OrderCondition/start.1|2089 (%ATN-EDGE-BLOCK2090 OR2091 (PROGN (%ATN-EDGE-BLOCK2092 (ATN-PARSER::JUMP |OrderCondition/OrderCondition.2.4|)2093 (|OrderCondition/OrderCondition.2.4| ATN-PARSER::INDEX))2094 (%ATN-EDGE-BLOCK2095 (PUSH |Constraint|)2096 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2097 (ATN-PARSE-SUBSTRUCTURE* '|Constraint| ATN-PARSER::INDEX)2098 (COND (ATN-PARSER::SUCCESS2099 (SETF *ATN-TERM* '|Constraint|)2100 (LET ((|Constraint901| |Constraint|))2101 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2102 (DESTRUCTURING-BIND2103 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2104 ATN-PARSER::RESULT-AND-INDEX2105 (WHEN ATN-PARSER::RESULT2106 (SETF |Constraint| ATN-PARSER::RESULT))2107 (|OrderCondition.2| ATN-PARSER::RESULT-INDEX))2108 (SETF |Constraint| |Constraint901|))))2109 (T (SETF *ATN-TERM?* '|Constraint|) NIL))))2110 (%ATN-EDGE-BLOCK2111 (TEST |Var|)2112 (COND ((|IS-Var| ATN-PARSER::|item|)2113 (SETF *ATN-TERM* '|Var|)2114 (SETF |Var|2115 (IF (EQ *ATN-REDUCE* T)2116 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)2117 (IF (EQ *ATN-REDUCE* 'CONS)2118 (LIST '|Var| ATN-PARSER::|item|)2119 '|Var|)))2120 (|OrderCondition.2| (1+ ATN-PARSER::INDEX)))2121 (T (SETF *ATN-TERM?* '|Var|) NIL)))2122 (|OrderCondition/fail.3| ATN-PARSER::INDEX))))))2123 (|OrderCondition/start.1| ATN-PARSER::INDEX)2124 (SETF *ATN-NODE NIL)2125 NIL2126 (IF ATN-PARSER::ATN-STRUCTURE2127 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2128 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2129 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OrderCondition| ATN-PARSER::INDEX *ATN-STACK))))2130 (PROGN (DEFVAR |LimitClause-INDEX|)2131 (DEFUN |LimitClause| (ATN-PARSER::INDEX &AUX (INTEGER NIL))2132 "{18} LimitClause ::= 'LIMIT' INTEGER2133 (INTEGER)"2134 (DECLARE (SPECIAL |LimitClause-INDEX|))2135 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |LimitClause-INDEX| *ATN-LEVEL))2136 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2137 (IF (< |LimitClause-INDEX| ATN-PARSER::INDEX)2138 (LET ((|LimitClause-INDEX| ATN-PARSER::INDEX)2139 (*ATN-LEVEL (1+ *ATN-LEVEL))2140 (*ATN-STACK (CONS '|LimitClause| *ATN-STACK))2141 (ATN-PARSER::ATN-STRUCTURE NIL))2142 (DECLARE (SPECIAL |LimitClause-INDEX|))2143 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2144 (DECLARE (TYPE CONS *ATN-STACK))2145 (SYMBOL-MACROLET2146 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2147 (%ATN-BLOCK |LimitClause|2148 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2149 (SETF *ATN-TERM* '|LimitClause|)2150 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2151 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2152 (|LimitClause.2| (ATN-PARSER::INDEX)2153 (%ATN-NODE-BLOCK2154 |LimitClause.2|2155 (%ATN-EDGE-BLOCK2156 (POP |LimitClause|)2157 (WHEN T2158 (SETF *ATN-TERM* '|LimitClause|)2159 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2160 '|LimitClause|2161 ATN-PARSER::INDEX2162 (LIST 'INTEGER INTEGER))2163 (LET ((ATN-PARSER::RESULT-STRUCTURE2164 (IF (EQ *ATN-REDUCE* T)2165 (|LimitClause-Constructor| INTEGER)2166 (IF (EQ *ATN-REDUCE* 'CONS)2167 (CONS '|LimitClause| (DELETE NIL (LIST INTEGER)))2168 '|LimitClause|))))2169 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2170 (|LimitClause/fail.3| (ATN-PARSER::INDEX)2171 (%ATN-NODE-BLOCK |LimitClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2172 (|LimitClause/LimitClause.2.4| (ATN-PARSER::INDEX)2173 (%ATN-NODE-BLOCK2174 |LimitClause/LimitClause.2.4|2175 (%ATN-EDGE-BLOCK2176 (TEST INTEGER)2177 (COND ((IS-INTEGER ATN-PARSER::|item|)2178 (SETF *ATN-TERM* 'INTEGER)2179 (SETF INTEGER2180 (IF (EQ *ATN-REDUCE* T)2181 (ATN-REDUCE-ITEM #'|INTEGER-Constructor| ATN-PARSER::|item|)2182 (IF (EQ *ATN-REDUCE* 'CONS)2183 (LIST 'INTEGER ATN-PARSER::|item|)2184 'INTEGER)))2185 (|LimitClause.2| (1+ ATN-PARSER::INDEX)))2186 (T (SETF *ATN-TERM?* 'INTEGER) (|LimitClause/fail.3| ATN-PARSER::INDEX))))))2187 (|LimitClause/start.1| (ATN-PARSER::INDEX)2188 (%ATN-NODE-BLOCK2189 |LimitClause/start.1|2190 (%ATN-EDGE-BLOCK2191 (ATN-PARSER::WORD SPOCQ.S:LIMIT)2192 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:LIMIT)2193 (SETF *ATN-TERM* 'SPOCQ.S:LIMIT)2194 (|LimitClause/LimitClause.2.4| (1+ ATN-PARSER::INDEX)))2195 (T2196 (SETF *ATN-TERM?* 'SPOCQ.S:LIMIT)2197 (|LimitClause/fail.3| ATN-PARSER::INDEX)))))))2198 (|LimitClause/start.1| ATN-PARSER::INDEX)2199 (SETF *ATN-NODE NIL)2200 NIL2201 (IF ATN-PARSER::ATN-STRUCTURE2202 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2203 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2204 (WARN "recursive grammar: ~s @ position ~s: ~s" '|LimitClause| ATN-PARSER::INDEX *ATN-STACK))))2205 (PROGN (DEFVAR |OffsetClause-INDEX|)2206 (DEFUN |OffsetClause| (ATN-PARSER::INDEX &AUX (INTEGER NIL))2207 "{19} OffsetClause ::= 'OFFSET' INTEGER2208 (INTEGER)"2209 (DECLARE (SPECIAL |OffsetClause-INDEX|))2210 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OffsetClause-INDEX| *ATN-LEVEL))2211 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2212 (IF (< |OffsetClause-INDEX| ATN-PARSER::INDEX)2213 (LET ((|OffsetClause-INDEX| ATN-PARSER::INDEX)2214 (*ATN-LEVEL (1+ *ATN-LEVEL))2215 (*ATN-STACK (CONS '|OffsetClause| *ATN-STACK))2216 (ATN-PARSER::ATN-STRUCTURE NIL))2217 (DECLARE (SPECIAL |OffsetClause-INDEX|))2218 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2219 (DECLARE (TYPE CONS *ATN-STACK))2220 (SYMBOL-MACROLET2221 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2222 (%ATN-BLOCK |OffsetClause|2223 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2224 (SETF *ATN-TERM* '|OffsetClause|)2225 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2226 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2227 (|OffsetClause.2| (ATN-PARSER::INDEX)2228 (%ATN-NODE-BLOCK2229 |OffsetClause.2|2230 (%ATN-EDGE-BLOCK2231 (POP |OffsetClause|)2232 (WHEN T2233 (SETF *ATN-TERM* '|OffsetClause|)2234 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2235 '|OffsetClause|2236 ATN-PARSER::INDEX2237 (LIST 'INTEGER INTEGER))2238 (LET ((ATN-PARSER::RESULT-STRUCTURE2239 (IF (EQ *ATN-REDUCE* T)2240 (|OffsetClause-Constructor| INTEGER)2241 (IF (EQ *ATN-REDUCE* 'CONS)2242 (CONS '|OffsetClause| (DELETE NIL (LIST INTEGER)))2243 '|OffsetClause|))))2244 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2245 (|OffsetClause/fail.3| (ATN-PARSER::INDEX)2246 (%ATN-NODE-BLOCK |OffsetClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2247 (|OffsetClause/OffsetClause.2.4| (ATN-PARSER::INDEX)2248 (%ATN-NODE-BLOCK2249 |OffsetClause/OffsetClause.2.4|2250 (%ATN-EDGE-BLOCK2251 (TEST INTEGER)2252 (COND ((IS-INTEGER ATN-PARSER::|item|)2253 (SETF *ATN-TERM* 'INTEGER)2254 (SETF INTEGER2255 (IF (EQ *ATN-REDUCE* T)2256 (ATN-REDUCE-ITEM #'|INTEGER-Constructor| ATN-PARSER::|item|)2257 (IF (EQ *ATN-REDUCE* 'CONS)2258 (LIST 'INTEGER ATN-PARSER::|item|)2259 'INTEGER)))2260 (|OffsetClause.2| (1+ ATN-PARSER::INDEX)))2261 (T (SETF *ATN-TERM?* 'INTEGER) (|OffsetClause/fail.3| ATN-PARSER::INDEX))))))2262 (|OffsetClause/start.1| (ATN-PARSER::INDEX)2263 (%ATN-NODE-BLOCK2264 |OffsetClause/start.1|2265 (%ATN-EDGE-BLOCK2266 (ATN-PARSER::WORD SPOCQ.S:OFFSET)2267 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:OFFSET)2268 (SETF *ATN-TERM* 'SPOCQ.S:OFFSET)2269 (|OffsetClause/OffsetClause.2.4| (1+ ATN-PARSER::INDEX)))2270 (T2271 (SETF *ATN-TERM?* 'SPOCQ.S:OFFSET)2272 (|OffsetClause/fail.3| ATN-PARSER::INDEX)))))))2273 (|OffsetClause/start.1| ATN-PARSER::INDEX)2274 (SETF *ATN-NODE NIL)2275 NIL2276 (IF ATN-PARSER::ATN-STRUCTURE2277 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2278 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2279 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OffsetClause| ATN-PARSER::INDEX *ATN-STACK))))2280 (PROGN (DEFVAR |GroupGraphPattern-INDEX|)2281 (DEFUN |GroupGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPatternRest| NIL) (|TriplesBlock| NIL))2282 "{20} GroupGraphPattern ::= '{' TriplesBlock? GroupGraphPatternRest* '}'2283 (|GroupGraphPatternRest| |TriplesBlock|)"2284 (DECLARE (SPECIAL |GroupGraphPattern-INDEX|))2285 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPattern-INDEX| *ATN-LEVEL))2286 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2287 (IF (< |GroupGraphPattern-INDEX| ATN-PARSER::INDEX)2288 (LET ((|GroupGraphPattern-INDEX| ATN-PARSER::INDEX)2289 (*ATN-LEVEL (1+ *ATN-LEVEL))2290 (*ATN-STACK (CONS '|GroupGraphPattern| *ATN-STACK))2291 (ATN-PARSER::ATN-STRUCTURE NIL))2292 (DECLARE (SPECIAL |GroupGraphPattern-INDEX|))2293 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2294 (DECLARE (TYPE CONS *ATN-STACK))2295 (SYMBOL-MACROLET2296 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2297 (%ATN-BLOCK |GroupGraphPattern|2298 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2299 (SETF *ATN-TERM* '|GroupGraphPattern|)2300 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2301 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2302 (|GroupGraphPattern.2| (ATN-PARSER::INDEX)2303 (%ATN-NODE-BLOCK2304 |GroupGraphPattern.2|2305 (%ATN-EDGE-BLOCK2306 (POP |GroupGraphPattern|)2307 (WHEN T2308 (SETF *ATN-TERM* '|GroupGraphPattern|)2309 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2310 '|GroupGraphPattern|2311 ATN-PARSER::INDEX2312 (LIST '|GroupGraphPatternRest|2313 |GroupGraphPatternRest|2314 '|TriplesBlock|2315 |TriplesBlock|))2316 (LET ((ATN-PARSER::RESULT-STRUCTURE2317 (IF (EQ *ATN-REDUCE* T)2318 (|GroupGraphPattern-Constructor| |GroupGraphPatternRest| |TriplesBlock|)2319 (IF (EQ *ATN-REDUCE* 'CONS)2320 (CONS '|GroupGraphPattern|2321 (DELETE NIL (LIST |GroupGraphPatternRest| |TriplesBlock|)))2322 '|GroupGraphPattern|))))2323 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2324 (|GroupGraphPattern.7| (ATN-PARSER::INDEX)2325 (%ATN-NODE-BLOCK2326 |GroupGraphPattern.7|2327 (%ATN-EDGE-BLOCK2328 (PUSH |GroupGraphPatternRest|)2329 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2330 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPatternRest| ATN-PARSER::INDEX)2331 (COND (ATN-PARSER::SUCCESS2332 (SETF *ATN-TERM* '|GroupGraphPatternRest|)2333 (LET ((|GroupGraphPatternRest902| |GroupGraphPatternRest|))2334 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2335 (DESTRUCTURING-BIND2336 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2337 ATN-PARSER::RESULT-AND-INDEX2338 (WHEN ATN-PARSER::RESULT2339 (SETF |GroupGraphPatternRest|2340 (CONS ATN-PARSER::RESULT |GroupGraphPatternRest|)))2341 (|GroupGraphPattern.7| ATN-PARSER::RESULT-INDEX))2342 (SETF |GroupGraphPatternRest| |GroupGraphPatternRest902|))))2343 (T2344 (SETF *ATN-TERM?* '|GroupGraphPatternRest|)2345 (|GroupGraphPattern/GroupGraphPattern.2.6| ATN-PARSER::INDEX)))))))2346 (|GroupGraphPattern/fail.3| (ATN-PARSER::INDEX)2347 (%ATN-NODE-BLOCK |GroupGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2348 (|GroupGraphPattern/GroupGraphPattern.2.4| (ATN-PARSER::INDEX)2349 (%ATN-NODE-BLOCK2350 |GroupGraphPattern/GroupGraphPattern.2.4|2351 (%ATN-EDGE-BLOCK2352 (PUSH |TriplesBlock|)2353 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2354 (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)2355 (COND (ATN-PARSER::SUCCESS2356 (SETF *ATN-TERM* '|TriplesBlock|)2357 (LET ((|TriplesBlock902| |TriplesBlock|))2358 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2359 (DESTRUCTURING-BIND2360 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2361 ATN-PARSER::RESULT-AND-INDEX2362 (WHEN ATN-PARSER::RESULT (SETF |TriplesBlock| ATN-PARSER::RESULT))2363 (|GroupGraphPattern/GroupGraphPattern.2.5| ATN-PARSER::RESULT-INDEX))2364 (SETF |TriplesBlock| |TriplesBlock902|))))2365 (T2366 (SETF *ATN-TERM?* '|TriplesBlock|)2367 (|GroupGraphPattern/GroupGraphPattern.2.5| ATN-PARSER::INDEX)))))))2368 (|GroupGraphPattern/GroupGraphPattern.2.5| (ATN-PARSER::INDEX)2369 (%ATN-NODE-BLOCK2370 |GroupGraphPattern/GroupGraphPattern.2.5|2371 (%ATN-EDGE-BLOCK2372 (PUSH |GroupGraphPatternRest|)2373 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2374 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPatternRest| ATN-PARSER::INDEX)2375 (COND (ATN-PARSER::SUCCESS2376 (SETF *ATN-TERM* '|GroupGraphPatternRest|)2377 (LET ((|GroupGraphPatternRest901| |GroupGraphPatternRest|))2378 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2379 (DESTRUCTURING-BIND2380 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2381 ATN-PARSER::RESULT-AND-INDEX2382 (WHEN ATN-PARSER::RESULT2383 (SETF |GroupGraphPatternRest|2384 (CONS ATN-PARSER::RESULT |GroupGraphPatternRest|)))2385 (|GroupGraphPattern.7| ATN-PARSER::RESULT-INDEX))2386 (SETF |GroupGraphPatternRest| |GroupGraphPatternRest901|))))2387 (T2388 (SETF *ATN-TERM?* '|GroupGraphPatternRest|)2389 (|GroupGraphPattern/GroupGraphPattern.2.6| ATN-PARSER::INDEX)))))))2390 (|GroupGraphPattern/GroupGraphPattern.2.6| (ATN-PARSER::INDEX)2391 (%ATN-NODE-BLOCK2392 |GroupGraphPattern/GroupGraphPattern.2.6|2393 (%ATN-EDGE-BLOCK2394 (ATN-PARSER::WORD SPOCQ.S:})2395 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:})2396 (SETF *ATN-TERM* 'SPOCQ.S:})2397 (|GroupGraphPattern.2| (1+ ATN-PARSER::INDEX)))2398 (T2399 (SETF *ATN-TERM?* 'SPOCQ.S:})2400 (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX))))))2401 (|GroupGraphPattern/start.1| (ATN-PARSER::INDEX)2402 (%ATN-NODE-BLOCK2403 |GroupGraphPattern/start.1|2404 (%ATN-EDGE-BLOCK2405 (ATN-PARSER::WORD SPOCQ.S:{)2406 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)2407 (SETF *ATN-TERM* 'SPOCQ.S:{)2408 (|GroupGraphPattern/GroupGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))2409 (T2410 (SETF *ATN-TERM?* 'SPOCQ.S:{)2411 (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX)))))))2412 (|GroupGraphPattern/start.1| ATN-PARSER::INDEX)2413 (SETF *ATN-NODE NIL)2414 NIL2415 (IF ATN-PARSER::ATN-STRUCTURE2416 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2417 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2418 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))2419 (PROGN (DEFVAR |GroupGraphPatternRest-INDEX|)2420 (DEFUN |GroupGraphPatternRest| (ATN-PARSER::INDEX &AUX (|Filter| NIL) (|GraphPatternNotTriples| NIL) (|TriplesBlock| NIL))2421 "GroupGraphPatternRest ::= ((GraphPatternNotTriples | Filter)) '.'? TriplesBlock?2422 (|Filter| |GraphPatternNotTriples| |TriplesBlock|)"2423 (DECLARE (SPECIAL |GroupGraphPatternRest-INDEX|))2424 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPatternRest-INDEX| *ATN-LEVEL))2425 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2426 (IF (< |GroupGraphPatternRest-INDEX| ATN-PARSER::INDEX)2427 (LET ((|GroupGraphPatternRest-INDEX| ATN-PARSER::INDEX)2428 (*ATN-LEVEL (1+ *ATN-LEVEL))2429 (*ATN-STACK (CONS '|GroupGraphPatternRest| *ATN-STACK))2430 (ATN-PARSER::ATN-STRUCTURE NIL))2431 (DECLARE (SPECIAL |GroupGraphPatternRest-INDEX|))2432 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2433 (DECLARE (TYPE CONS *ATN-STACK))2434 (SYMBOL-MACROLET2435 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2436 (%ATN-BLOCK |GroupGraphPatternRest|2437 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2438 (SETF *ATN-TERM* '|GroupGraphPatternRest|)2439 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2440 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2441 (|GroupGraphPatternRest.2| (ATN-PARSER::INDEX)2442 (%ATN-NODE-BLOCK2443 |GroupGraphPatternRest.2|2444 (%ATN-EDGE-BLOCK2445 (POP |GroupGraphPatternRest|)2446 (WHEN T2447 (SETF *ATN-TERM* '|GroupGraphPatternRest|)2448 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2449 '|GroupGraphPatternRest|2450 ATN-PARSER::INDEX2451 (LIST '|Filter|2452 |Filter|2453 '|GraphPatternNotTriples|2454 |GraphPatternNotTriples|2455 '|TriplesBlock|2456 |TriplesBlock|))2457 (LET ((ATN-PARSER::RESULT-STRUCTURE2458 (IF (EQ *ATN-REDUCE* T)2459 (|GroupGraphPatternRest-Constructor|2460 |Filter|2461 |GraphPatternNotTriples|2462 |TriplesBlock|)2463 (IF (EQ *ATN-REDUCE* 'CONS)2464 (CONS '|GroupGraphPatternRest|2465 (DELETE NIL2466 (LIST |Filter|2467 |GraphPatternNotTriples|2468 |TriplesBlock|)))2469 '|GroupGraphPatternRest|))))2470 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2471 (|GroupGraphPatternRest/fail.3| (ATN-PARSER::INDEX)2472 (%ATN-NODE-BLOCK2473 |GroupGraphPatternRest/fail.3|2474 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2475 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4| (ATN-PARSER::INDEX)2476 (%ATN-NODE-BLOCK2477 |GroupGraphPatternRest/GroupGraphPatternRest.2.4|2478 (%ATN-EDGE-BLOCK2479 (ATN-PARSER::WORD SPOCQ.S:|.|)2480 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)2481 (SETF *ATN-TERM* 'SPOCQ.S:|.|)2482 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| (1+ ATN-PARSER::INDEX)))2483 (T2484 (SETF *ATN-TERM?* 'SPOCQ.S:|.|)2485 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| ATN-PARSER::INDEX))))))2486 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| (ATN-PARSER::INDEX)2487 (%ATN-NODE-BLOCK2488 |GroupGraphPatternRest/GroupGraphPatternRest.2.5|2489 (%ATN-EDGE-BLOCK2490 (PUSH |TriplesBlock|)2491 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2492 (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)2493 (COND (ATN-PARSER::SUCCESS2494 (SETF *ATN-TERM* '|TriplesBlock|)2495 (LET ((|TriplesBlock903| |TriplesBlock|))2496 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2497 (DESTRUCTURING-BIND2498 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2499 ATN-PARSER::RESULT-AND-INDEX2500 (WHEN ATN-PARSER::RESULT (SETF |TriplesBlock| ATN-PARSER::RESULT))2501 (|GroupGraphPatternRest.2| ATN-PARSER::RESULT-INDEX))2502 (SETF |TriplesBlock| |TriplesBlock903|))))2503 (T2504 (SETF *ATN-TERM?* '|TriplesBlock|)2505 (|GroupGraphPatternRest.2| ATN-PARSER::INDEX)))))))2506 (|GroupGraphPatternRest/start.1| (ATN-PARSER::INDEX)2507 (%ATN-NODE-BLOCK2508 |GroupGraphPatternRest/start.1|2509 (%ATN-EDGE-BLOCK2510 OR2511 (PROGN (%ATN-EDGE-BLOCK2512 (PUSH |GraphPatternNotTriples|)2513 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2514 (ATN-PARSE-SUBSTRUCTURE* '|GraphPatternNotTriples| ATN-PARSER::INDEX)2515 (COND (ATN-PARSER::SUCCESS2516 (SETF *ATN-TERM* '|GraphPatternNotTriples|)2517 (LET ((|GraphPatternNotTriples903| |GraphPatternNotTriples|))2518 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2519 (DESTRUCTURING-BIND2520 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2521 ATN-PARSER::RESULT-AND-INDEX2522 (WHEN ATN-PARSER::RESULT2523 (SETF |GraphPatternNotTriples| ATN-PARSER::RESULT))2524 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|2525 ATN-PARSER::RESULT-INDEX))2526 (SETF |GraphPatternNotTriples| |GraphPatternNotTriples903|))))2527 (T (SETF *ATN-TERM?* '|GraphPatternNotTriples|) NIL))))2528 (%ATN-EDGE-BLOCK2529 (PUSH |Filter|)2530 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2531 (ATN-PARSE-SUBSTRUCTURE* '|Filter| ATN-PARSER::INDEX)2532 (COND (ATN-PARSER::SUCCESS2533 (SETF *ATN-TERM* '|Filter|)2534 (LET ((|Filter903| |Filter|))2535 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2536 (DESTRUCTURING-BIND2537 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2538 ATN-PARSER::RESULT-AND-INDEX2539 (WHEN ATN-PARSER::RESULT (SETF |Filter| ATN-PARSER::RESULT))2540 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|2541 ATN-PARSER::RESULT-INDEX))2542 (SETF |Filter| |Filter903|))))2543 (T (SETF *ATN-TERM?* '|Filter|) NIL))))2544 (|GroupGraphPatternRest/fail.3| ATN-PARSER::INDEX))))))2545 (|GroupGraphPatternRest/start.1| ATN-PARSER::INDEX)2546 (SETF *ATN-NODE NIL)2547 NIL2548 (IF ATN-PARSER::ATN-STRUCTURE2549 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2550 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2551 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPatternRest| ATN-PARSER::INDEX *ATN-STACK))))2552 (PROGN (DEFVAR |TriplesBlock-INDEX|)2553 (DEFUN |TriplesBlock| (ATN-PARSER::INDEX &AUX (|TriplesBlock| NIL) (|TriplesSameSubject| NIL))2554 "{21} TriplesBlock ::= TriplesSameSubject ('.' TriplesBlock?)?2555 (|TriplesBlock| |TriplesSameSubject|)"2556 (DECLARE (SPECIAL |TriplesBlock-INDEX|))2557 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesBlock-INDEX| *ATN-LEVEL))2558 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2559 (IF (< |TriplesBlock-INDEX| ATN-PARSER::INDEX)2560 (LET ((|TriplesBlock-INDEX| ATN-PARSER::INDEX)2561 (*ATN-LEVEL (1+ *ATN-LEVEL))2562 (*ATN-STACK (CONS '|TriplesBlock| *ATN-STACK))2563 (ATN-PARSER::ATN-STRUCTURE NIL))2564 (DECLARE (SPECIAL |TriplesBlock-INDEX|))2565 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2566 (DECLARE (TYPE CONS *ATN-STACK))2567 (SYMBOL-MACROLET2568 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2569 (%ATN-BLOCK |TriplesBlock|2570 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2571 (SETF *ATN-TERM* '|TriplesBlock|)2572 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2573 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2574 (|TriplesBlock.2| (ATN-PARSER::INDEX)2575 (%ATN-NODE-BLOCK2576 |TriplesBlock.2|2577 (%ATN-EDGE-BLOCK2578 (POP |TriplesBlock|)2579 (WHEN T2580 (SETF *ATN-TERM* '|TriplesBlock|)2581 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2582 '|TriplesBlock|2583 ATN-PARSER::INDEX2584 (LIST '|TriplesBlock|2585 |TriplesBlock|2586 '|TriplesSameSubject|2587 |TriplesSameSubject|))2588 (LET ((ATN-PARSER::RESULT-STRUCTURE2589 (IF (EQ *ATN-REDUCE* T)2590 (|TriplesBlock-Constructor| |TriplesBlock| |TriplesSameSubject|)2591 (IF (EQ *ATN-REDUCE* 'CONS)2592 (CONS '|TriplesBlock|2593 (DELETE NIL (LIST |TriplesBlock| |TriplesSameSubject|)))2594 '|TriplesBlock|))))2595 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2596 (|TriplesBlock/fail.3| (ATN-PARSER::INDEX)2597 (%ATN-NODE-BLOCK |TriplesBlock/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2598 (|TriplesBlock/start.1| (ATN-PARSER::INDEX)2599 (%ATN-NODE-BLOCK2600 |TriplesBlock/start.1|2601 (%ATN-EDGE-BLOCK2602 (PUSH |TriplesSameSubject|)2603 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2604 (ATN-PARSE-SUBSTRUCTURE* '|TriplesSameSubject| ATN-PARSER::INDEX)2605 (COND (ATN-PARSER::SUCCESS2606 (SETF *ATN-TERM* '|TriplesSameSubject|)2607 (LET ((|TriplesSameSubject904| |TriplesSameSubject|))2608 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2609 (DESTRUCTURING-BIND2610 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2611 ATN-PARSER::RESULT-AND-INDEX2612 (WHEN ATN-PARSER::RESULT (SETF |TriplesSameSubject| ATN-PARSER::RESULT))2613 (|TriplesBlock/TriplesBlock.2.4| ATN-PARSER::RESULT-INDEX))2614 (SETF |TriplesSameSubject| |TriplesSameSubject904|))))2615 (T2616 (SETF *ATN-TERM?* '|TriplesSameSubject|)2617 (|TriplesBlock/fail.3| ATN-PARSER::INDEX)))))))2618 (|TriplesBlock/TriplesBlock.2.4| (ATN-PARSER::INDEX)2619 (%ATN-NODE-BLOCK2620 |TriplesBlock/TriplesBlock.2.4|2621 (%ATN-EDGE-BLOCK2622 (ATN-PARSER::JUMP |TriplesBlock/TriplesBlock.2.5|)2623 (|TriplesBlock/TriplesBlock.2.5| ATN-PARSER::INDEX))2624 (%ATN-EDGE-BLOCK2625 (ATN-PARSER::JUMP |TriplesBlock.2|)2626 (|TriplesBlock.2| ATN-PARSER::INDEX))))2627 (|TriplesBlock/TriplesBlock.2.5| (ATN-PARSER::INDEX)2628 (%ATN-NODE-BLOCK2629 |TriplesBlock/TriplesBlock.2.5|2630 (%ATN-EDGE-BLOCK2631 (ATN-PARSER::WORD SPOCQ.S:|.|)2632 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)2633 (SETF *ATN-TERM* 'SPOCQ.S:|.|)2634 (|TriplesBlock/TriplesBlock.2.6| (1+ ATN-PARSER::INDEX)))2635 (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|) NIL)))))2636 (|TriplesBlock/TriplesBlock.2.6| (ATN-PARSER::INDEX)2637 (%ATN-NODE-BLOCK2638 |TriplesBlock/TriplesBlock.2.6|2639 (%ATN-EDGE-BLOCK2640 (PUSH |TriplesBlock|)2641 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2642 (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)2643 (COND (ATN-PARSER::SUCCESS2644 (SETF *ATN-TERM* '|TriplesBlock|)2645 (LET ((|TriplesBlock904| |TriplesBlock|))2646 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2647 (DESTRUCTURING-BIND2648 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2649 ATN-PARSER::RESULT-AND-INDEX2650 (WHEN ATN-PARSER::RESULT (SETF |TriplesBlock| ATN-PARSER::RESULT))2651 (|TriplesBlock.2| ATN-PARSER::RESULT-INDEX))2652 (SETF |TriplesBlock| |TriplesBlock904|))))2653 (T2654 (SETF *ATN-TERM?* '|TriplesBlock|)2655 (|TriplesBlock.2| ATN-PARSER::INDEX))))))))2656 (|TriplesBlock/start.1| ATN-PARSER::INDEX)2657 (SETF *ATN-NODE NIL)2658 NIL2659 (IF ATN-PARSER::ATN-STRUCTURE2660 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2661 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2662 (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesBlock| ATN-PARSER::INDEX *ATN-STACK))))2663 (PROGN (DEFVAR |GraphPatternNotTriples-INDEX|)2664 (DEFUN |GraphPatternNotTriples| (ATN-PARSER::INDEX &AUX (|GraphGraphPattern| NIL) (|GroupOrUnionGraphPattern| NIL)2665 (|OptionalGraphPattern| NIL))2666 "{22} GraphPatternNotTriples ::= (OptionalGraphPattern | GroupOrUnionGraphPattern | GraphGraphPattern)2667 (|GraphGraphPattern| |GroupOrUnionGraphPattern| |OptionalGraphPattern|)"2668 (DECLARE (SPECIAL |GraphPatternNotTriples-INDEX|))2669 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphPatternNotTriples-INDEX| *ATN-LEVEL))2670 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2671 (IF (< |GraphPatternNotTriples-INDEX| ATN-PARSER::INDEX)2672 (LET ((|GraphPatternNotTriples-INDEX| ATN-PARSER::INDEX)2673 (*ATN-LEVEL (1+ *ATN-LEVEL))2674 (*ATN-STACK (CONS '|GraphPatternNotTriples| *ATN-STACK))2675 (ATN-PARSER::ATN-STRUCTURE NIL))2676 (DECLARE (SPECIAL |GraphPatternNotTriples-INDEX|))2677 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2678 (DECLARE (TYPE CONS *ATN-STACK))2679 (SYMBOL-MACROLET2680 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2681 (%ATN-BLOCK |GraphPatternNotTriples|2682 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2683 (SETF *ATN-TERM* '|GraphPatternNotTriples|)2684 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2685 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2686 (|GraphPatternNotTriples.2| (ATN-PARSER::INDEX)2687 (%ATN-NODE-BLOCK2688 |GraphPatternNotTriples.2|2689 (%ATN-EDGE-BLOCK2690 (POP |GraphPatternNotTriples|)2691 (WHEN T2692 (SETF *ATN-TERM* '|GraphPatternNotTriples|)2693 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2694 '|GraphPatternNotTriples|2695 ATN-PARSER::INDEX2696 (LIST '|GraphGraphPattern|2697 |GraphGraphPattern|2698 '|GroupOrUnionGraphPattern|2699 |GroupOrUnionGraphPattern|2700 '|OptionalGraphPattern|2701 |OptionalGraphPattern|))2702 (LET ((ATN-PARSER::RESULT-STRUCTURE2703 (IF (EQ *ATN-REDUCE* T)2704 (|GraphPatternNotTriples-Constructor|2705 |GraphGraphPattern|2706 |GroupOrUnionGraphPattern|2707 |OptionalGraphPattern|)2708 (IF (EQ *ATN-REDUCE* 'CONS)2709 (CONS '|GraphPatternNotTriples|2710 (DELETE NIL2711 (LIST |GraphGraphPattern|2712 |GroupOrUnionGraphPattern|2713 |OptionalGraphPattern|)))2714 '|GraphPatternNotTriples|))))2715 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2716 (|GraphPatternNotTriples/fail.3| (ATN-PARSER::INDEX)2717 (%ATN-NODE-BLOCK2718 |GraphPatternNotTriples/fail.3|2719 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2720 (|GraphPatternNotTriples/start.1| (ATN-PARSER::INDEX)2721 (%ATN-NODE-BLOCK2722 |GraphPatternNotTriples/start.1|2723 (%ATN-EDGE-BLOCK2724 OR2725 (PROGN (%ATN-EDGE-BLOCK2726 (PUSH |OptionalGraphPattern|)2727 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2728 (ATN-PARSE-SUBSTRUCTURE* '|OptionalGraphPattern| ATN-PARSER::INDEX)2729 (COND (ATN-PARSER::SUCCESS2730 (SETF *ATN-TERM* '|OptionalGraphPattern|)2731 (LET ((|OptionalGraphPattern904| |OptionalGraphPattern|))2732 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2733 (DESTRUCTURING-BIND2734 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2735 ATN-PARSER::RESULT-AND-INDEX2736 (WHEN ATN-PARSER::RESULT2737 (SETF |OptionalGraphPattern| ATN-PARSER::RESULT))2738 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))2739 (SETF |OptionalGraphPattern| |OptionalGraphPattern904|))))2740 (T (SETF *ATN-TERM?* '|OptionalGraphPattern|) NIL))))2741 (%ATN-EDGE-BLOCK2742 (PUSH |GroupOrUnionGraphPattern|)2743 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2744 (ATN-PARSE-SUBSTRUCTURE* '|GroupOrUnionGraphPattern| ATN-PARSER::INDEX)2745 (COND (ATN-PARSER::SUCCESS2746 (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)2747 (LET ((|GroupOrUnionGraphPattern904| |GroupOrUnionGraphPattern|))2748 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2749 (DESTRUCTURING-BIND2750 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2751 ATN-PARSER::RESULT-AND-INDEX2752 (WHEN ATN-PARSER::RESULT2753 (SETF |GroupOrUnionGraphPattern| ATN-PARSER::RESULT))2754 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))2755 (SETF |GroupOrUnionGraphPattern|2756 |GroupOrUnionGraphPattern904|))))2757 (T (SETF *ATN-TERM?* '|GroupOrUnionGraphPattern|) NIL))))2758 (%ATN-EDGE-BLOCK2759 (PUSH |GraphGraphPattern|)2760 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2761 (ATN-PARSE-SUBSTRUCTURE* '|GraphGraphPattern| ATN-PARSER::INDEX)2762 (COND (ATN-PARSER::SUCCESS2763 (SETF *ATN-TERM* '|GraphGraphPattern|)2764 (LET ((|GraphGraphPattern904| |GraphGraphPattern|))2765 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2766 (DESTRUCTURING-BIND2767 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2768 ATN-PARSER::RESULT-AND-INDEX2769 (WHEN ATN-PARSER::RESULT2770 (SETF |GraphGraphPattern| ATN-PARSER::RESULT))2771 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))2772 (SETF |GraphGraphPattern| |GraphGraphPattern904|))))2773 (T (SETF *ATN-TERM?* '|GraphGraphPattern|) NIL))))2774 (|GraphPatternNotTriples/fail.3| ATN-PARSER::INDEX))))))2775 (|GraphPatternNotTriples/start.1| ATN-PARSER::INDEX)2776 (SETF *ATN-NODE NIL)2777 NIL2778 (IF ATN-PARSER::ATN-STRUCTURE2779 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2780 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2781 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphPatternNotTriples| ATN-PARSER::INDEX *ATN-STACK))))2782 (PROGN (DEFVAR |OptionalGraphPattern-INDEX|)2783 (DEFUN |OptionalGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))2784 "{23} OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern2785 (|GroupGraphPattern|)"2786 (DECLARE (SPECIAL |OptionalGraphPattern-INDEX|))2787 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OptionalGraphPattern-INDEX| *ATN-LEVEL))2788 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2789 (IF (< |OptionalGraphPattern-INDEX| ATN-PARSER::INDEX)2790 (LET ((|OptionalGraphPattern-INDEX| ATN-PARSER::INDEX)2791 (*ATN-LEVEL (1+ *ATN-LEVEL))2792 (*ATN-STACK (CONS '|OptionalGraphPattern| *ATN-STACK))2793 (ATN-PARSER::ATN-STRUCTURE NIL))2794 (DECLARE (SPECIAL |OptionalGraphPattern-INDEX|))2795 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2796 (DECLARE (TYPE CONS *ATN-STACK))2797 (SYMBOL-MACROLET2798 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2799 (%ATN-BLOCK |OptionalGraphPattern|2800 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2801 (SETF *ATN-TERM* '|OptionalGraphPattern|)2802 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2803 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2804 (|OptionalGraphPattern.2| (ATN-PARSER::INDEX)2805 (%ATN-NODE-BLOCK2806 |OptionalGraphPattern.2|2807 (%ATN-EDGE-BLOCK2808 (POP |OptionalGraphPattern|)2809 (WHEN T2810 (SETF *ATN-TERM* '|OptionalGraphPattern|)2811 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2812 '|OptionalGraphPattern|2813 ATN-PARSER::INDEX2814 (LIST '|GroupGraphPattern| |GroupGraphPattern|))2815 (LET ((ATN-PARSER::RESULT-STRUCTURE2816 (IF (EQ *ATN-REDUCE* T)2817 (|OptionalGraphPattern-Constructor| |GroupGraphPattern|)2818 (IF (EQ *ATN-REDUCE* 'CONS)2819 (CONS '|OptionalGraphPattern| (DELETE NIL (LIST |GroupGraphPattern|)))2820 '|OptionalGraphPattern|))))2821 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2822 (|OptionalGraphPattern/fail.3| (ATN-PARSER::INDEX)2823 (%ATN-NODE-BLOCK2824 |OptionalGraphPattern/fail.3|2825 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2826 (|OptionalGraphPattern/OptionalGraphPattern.2.4| (ATN-PARSER::INDEX)2827 (%ATN-NODE-BLOCK2828 |OptionalGraphPattern/OptionalGraphPattern.2.4|2829 (%ATN-EDGE-BLOCK2830 (PUSH |GroupGraphPattern|)2831 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2832 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)2833 (COND (ATN-PARSER::SUCCESS2834 (SETF *ATN-TERM* '|GroupGraphPattern|)2835 (LET ((|GroupGraphPattern904| |GroupGraphPattern|))2836 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2837 (DESTRUCTURING-BIND2838 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2839 ATN-PARSER::RESULT-AND-INDEX2840 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))2841 (|OptionalGraphPattern.2| ATN-PARSER::RESULT-INDEX))2842 (SETF |GroupGraphPattern| |GroupGraphPattern904|))))2843 (T2844 (SETF *ATN-TERM?* '|GroupGraphPattern|)2845 (|OptionalGraphPattern/fail.3| ATN-PARSER::INDEX)))))))2846 (|OptionalGraphPattern/start.1| (ATN-PARSER::INDEX)2847 (%ATN-NODE-BLOCK2848 |OptionalGraphPattern/start.1|2849 (%ATN-EDGE-BLOCK2850 (ATN-PARSER::WORD SPOCQ.S:OPTIONAL)2851 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:OPTIONAL)2852 (SETF *ATN-TERM* 'SPOCQ.S:OPTIONAL)2853 (|OptionalGraphPattern/OptionalGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))2854 (T2855 (SETF *ATN-TERM?* 'SPOCQ.S:OPTIONAL)2856 (|OptionalGraphPattern/fail.3| ATN-PARSER::INDEX)))))))2857 (|OptionalGraphPattern/start.1| ATN-PARSER::INDEX)2858 (SETF *ATN-NODE NIL)2859 NIL2860 (IF ATN-PARSER::ATN-STRUCTURE2861 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2862 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2863 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OptionalGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))2864 (PROGN (DEFVAR |GraphGraphPattern-INDEX|)2865 (DEFUN |GraphGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL) (|VarOrIRIref| NIL))2866 "{24} GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern2867 (|GroupGraphPattern| |VarOrIRIref|)"2868 (DECLARE (SPECIAL |GraphGraphPattern-INDEX|))2869 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphGraphPattern-INDEX| *ATN-LEVEL))2870 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2871 (IF (< |GraphGraphPattern-INDEX| ATN-PARSER::INDEX)2872 (LET ((|GraphGraphPattern-INDEX| ATN-PARSER::INDEX)2873 (*ATN-LEVEL (1+ *ATN-LEVEL))2874 (*ATN-STACK (CONS '|GraphGraphPattern| *ATN-STACK))2875 (ATN-PARSER::ATN-STRUCTURE NIL))2876 (DECLARE (SPECIAL |GraphGraphPattern-INDEX|))2877 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2878 (DECLARE (TYPE CONS *ATN-STACK))2879 (SYMBOL-MACROLET2880 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2881 (%ATN-BLOCK |GraphGraphPattern|2882 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2883 (SETF *ATN-TERM* '|GraphGraphPattern|)2884 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2885 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2886 (|GraphGraphPattern.2| (ATN-PARSER::INDEX)2887 (%ATN-NODE-BLOCK2888 |GraphGraphPattern.2|2889 (%ATN-EDGE-BLOCK2890 (POP |GraphGraphPattern|)2891 (WHEN T2892 (SETF *ATN-TERM* '|GraphGraphPattern|)2893 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2894 '|GraphGraphPattern|2895 ATN-PARSER::INDEX2896 (LIST '|GroupGraphPattern|2897 |GroupGraphPattern|2898 '|VarOrIRIref|2899 |VarOrIRIref|))2900 (LET ((ATN-PARSER::RESULT-STRUCTURE2901 (IF (EQ *ATN-REDUCE* T)2902 (|GraphGraphPattern-Constructor| |GroupGraphPattern| |VarOrIRIref|)2903 (IF (EQ *ATN-REDUCE* 'CONS)2904 (CONS '|GraphGraphPattern|2905 (DELETE NIL (LIST |GroupGraphPattern| |VarOrIRIref|)))2906 '|GraphGraphPattern|))))2907 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2908 (|GraphGraphPattern/fail.3| (ATN-PARSER::INDEX)2909 (%ATN-NODE-BLOCK |GraphGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2910 (|GraphGraphPattern/GraphGraphPattern.2.4| (ATN-PARSER::INDEX)2911 (%ATN-NODE-BLOCK2912 |GraphGraphPattern/GraphGraphPattern.2.4|2913 (%ATN-EDGE-BLOCK2914 (PUSH |VarOrIRIref|)2915 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2916 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)2917 (COND (ATN-PARSER::SUCCESS2918 (SETF *ATN-TERM* '|VarOrIRIref|)2919 (LET ((|VarOrIRIref905| |VarOrIRIref|))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::RESULT (SETF |VarOrIRIref| ATN-PARSER::RESULT))2925 (|GraphGraphPattern/GraphGraphPattern.2.5| ATN-PARSER::RESULT-INDEX))2926 (SETF |VarOrIRIref| |VarOrIRIref905|))))2927 (T2928 (SETF *ATN-TERM?* '|VarOrIRIref|)2929 (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))2930 (|GraphGraphPattern/GraphGraphPattern.2.5| (ATN-PARSER::INDEX)2931 (%ATN-NODE-BLOCK2932 |GraphGraphPattern/GraphGraphPattern.2.5|2933 (%ATN-EDGE-BLOCK2934 (PUSH |GroupGraphPattern|)2935 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2936 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)2937 (COND (ATN-PARSER::SUCCESS2938 (SETF *ATN-TERM* '|GroupGraphPattern|)2939 (LET ((|GroupGraphPattern905| |GroupGraphPattern|))2940 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2941 (DESTRUCTURING-BIND2942 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2943 ATN-PARSER::RESULT-AND-INDEX2944 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))2945 (|GraphGraphPattern.2| ATN-PARSER::RESULT-INDEX))2946 (SETF |GroupGraphPattern| |GroupGraphPattern905|))))2947 (T2948 (SETF *ATN-TERM?* '|GroupGraphPattern|)2949 (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))2950 (|GraphGraphPattern/start.1| (ATN-PARSER::INDEX)2951 (%ATN-NODE-BLOCK2952 |GraphGraphPattern/start.1|2953 (%ATN-EDGE-BLOCK2954 (ATN-PARSER::WORD SPOCQ.S:GRAPH)2955 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:GRAPH)2956 (SETF *ATN-TERM* 'SPOCQ.S:GRAPH)2957 (|GraphGraphPattern/GraphGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))2958 (T2959 (SETF *ATN-TERM?* 'SPOCQ.S:GRAPH)2960 (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))2961 (|GraphGraphPattern/start.1| ATN-PARSER::INDEX)2962 (SETF *ATN-NODE NIL)2963 NIL2964 (IF ATN-PARSER::ATN-STRUCTURE2965 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2966 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2967 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))2968 (PROGN (DEFVAR |GroupOrUnionGraphPattern-INDEX|)2969 (DEFUN |GroupOrUnionGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))2970 "{25} GroupOrUnionGraphPattern ::= GroupGraphPattern ('UNION' GroupGraphPattern)*2971 (|GroupGraphPattern|)"2972 (DECLARE (SPECIAL |GroupOrUnionGraphPattern-INDEX|))2973 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupOrUnionGraphPattern-INDEX| *ATN-LEVEL))2974 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2975 (IF (< |GroupOrUnionGraphPattern-INDEX| ATN-PARSER::INDEX)2976 (LET ((|GroupOrUnionGraphPattern-INDEX| ATN-PARSER::INDEX)2977 (*ATN-LEVEL (1+ *ATN-LEVEL))2978 (*ATN-STACK (CONS '|GroupOrUnionGraphPattern| *ATN-STACK))2979 (ATN-PARSER::ATN-STRUCTURE NIL))2980 (DECLARE (SPECIAL |GroupOrUnionGraphPattern-INDEX|))2981 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2982 (DECLARE (TYPE CONS *ATN-STACK))2983 (SYMBOL-MACROLET2984 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2985 (%ATN-BLOCK |GroupOrUnionGraphPattern|2986 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2987 (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)2988 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2989 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2990 (|GroupOrUnionGraphPattern.2| (ATN-PARSER::INDEX)2991 (%ATN-NODE-BLOCK2992 |GroupOrUnionGraphPattern.2|2993 (%ATN-EDGE-BLOCK2994 (POP |GroupOrUnionGraphPattern|)2995 (WHEN T2996 (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)2997 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2998 '|GroupOrUnionGraphPattern|2999 ATN-PARSER::INDEX3000 (LIST '|GroupGraphPattern| |GroupGraphPattern|))3001 (LET ((ATN-PARSER::RESULT-STRUCTURE3002 (IF (EQ *ATN-REDUCE* T)3003 (|GroupOrUnionGraphPattern-Constructor| |GroupGraphPattern|)3004 (IF (EQ *ATN-REDUCE* 'CONS)3005 (CONS '|GroupOrUnionGraphPattern|3006 (DELETE NIL (LIST |GroupGraphPattern|)))3007 '|GroupOrUnionGraphPattern|))))3008 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3009 (|GroupOrUnionGraphPattern.5| (ATN-PARSER::INDEX)3010 (%ATN-NODE-BLOCK3011 |GroupOrUnionGraphPattern.5|3012 (%ATN-EDGE-BLOCK3013 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|)3014 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| ATN-PARSER::INDEX))3015 (%ATN-EDGE-BLOCK3016 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern.2|)3017 (|GroupOrUnionGraphPattern.2| ATN-PARSER::INDEX))))3018 (|GroupOrUnionGraphPattern/fail.3| (ATN-PARSER::INDEX)3019 (%ATN-NODE-BLOCK3020 |GroupOrUnionGraphPattern/fail.3|3021 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3022 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4| (ATN-PARSER::INDEX)3023 (%ATN-NODE-BLOCK3024 |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4|3025 (%ATN-EDGE-BLOCK3026 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|)3027 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| ATN-PARSER::INDEX))3028 (%ATN-EDGE-BLOCK3029 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern.2|)3030 (|GroupOrUnionGraphPattern.2| ATN-PARSER::INDEX))))3031 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| (ATN-PARSER::INDEX)3032 (%ATN-NODE-BLOCK3033 |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|3034 (%ATN-EDGE-BLOCK3035 (ATN-PARSER::WORD SPOCQ.S:UNION)3036 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:UNION)3037 (SETF *ATN-TERM* 'SPOCQ.S:UNION)3038 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7|3039 (1+ ATN-PARSER::INDEX)))3040 (T (SETF *ATN-TERM?* 'SPOCQ.S:UNION) NIL)))))3041 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7| (ATN-PARSER::INDEX)3042 (%ATN-NODE-BLOCK3043 |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7|3044 (%ATN-EDGE-BLOCK3045 (PUSH |GroupGraphPattern|)3046 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3047 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)3048 (COND (ATN-PARSER::SUCCESS3049 (SETF *ATN-TERM* '|GroupGraphPattern|)3050 (LET ((|GroupGraphPattern906| |GroupGraphPattern|))3051 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3052 (DESTRUCTURING-BIND3053 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3054 ATN-PARSER::RESULT-AND-INDEX3055 (WHEN ATN-PARSER::RESULT3056 (SETF |GroupGraphPattern|3057 (CONS ATN-PARSER::RESULT |GroupGraphPattern|)))3058 (|GroupOrUnionGraphPattern.5| ATN-PARSER::RESULT-INDEX))3059 (SETF |GroupGraphPattern| |GroupGraphPattern906|))))3060 (T (SETF *ATN-TERM?* '|GroupGraphPattern|) NIL))))))3061 (|GroupOrUnionGraphPattern/start.1| (ATN-PARSER::INDEX)3062 (%ATN-NODE-BLOCK3063 |GroupOrUnionGraphPattern/start.1|3064 (%ATN-EDGE-BLOCK3065 (PUSH |GroupGraphPattern|)3066 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3067 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)3068 (COND (ATN-PARSER::SUCCESS3069 (SETF *ATN-TERM* '|GroupGraphPattern|)3070 (LET ((|GroupGraphPattern907| |GroupGraphPattern|))3071 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3072 (DESTRUCTURING-BIND3073 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3074 ATN-PARSER::RESULT-AND-INDEX3075 (WHEN ATN-PARSER::RESULT3076 (SETF |GroupGraphPattern|3077 (CONS ATN-PARSER::RESULT |GroupGraphPattern|)))3078 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4|3079 ATN-PARSER::RESULT-INDEX))3080 (SETF |GroupGraphPattern| |GroupGraphPattern907|))))3081 (T3082 (SETF *ATN-TERM?* '|GroupGraphPattern|)3083 (|GroupOrUnionGraphPattern/fail.3| ATN-PARSER::INDEX))))))))3084 (|GroupOrUnionGraphPattern/start.1| ATN-PARSER::INDEX)3085 (SETF *ATN-NODE NIL)3086 NIL3087 (IF ATN-PARSER::ATN-STRUCTURE3088 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3089 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3090 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupOrUnionGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))3091 (PROGN (DEFVAR |Filter-INDEX|)3092 (DEFUN |Filter| (ATN-PARSER::INDEX &AUX (|Constraint| NIL))3093 "{26} Filter ::= 'FILTER' Constraint3094 (|Constraint|)"3095 (DECLARE (SPECIAL |Filter-INDEX|))3096 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Filter-INDEX| *ATN-LEVEL))3097 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3098 (IF (< |Filter-INDEX| ATN-PARSER::INDEX)3099 (LET ((|Filter-INDEX| ATN-PARSER::INDEX)3100 (*ATN-LEVEL (1+ *ATN-LEVEL))3101 (*ATN-STACK (CONS '|Filter| *ATN-STACK))3102 (ATN-PARSER::ATN-STRUCTURE NIL))3103 (DECLARE (SPECIAL |Filter-INDEX|))3104 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3105 (DECLARE (TYPE CONS *ATN-STACK))3106 (SYMBOL-MACROLET3107 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3108 (%ATN-BLOCK |Filter|3109 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3110 (SETF *ATN-TERM* '|Filter|)3111 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3112 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3113 (|Filter.2| (ATN-PARSER::INDEX)3114 (%ATN-NODE-BLOCK3115 |Filter.2|3116 (%ATN-EDGE-BLOCK3117 (POP |Filter|)3118 (WHEN T3119 (SETF *ATN-TERM* '|Filter|)3120 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3121 '|Filter|3122 ATN-PARSER::INDEX3123 (LIST '|Constraint| |Constraint|))3124 (LET ((ATN-PARSER::RESULT-STRUCTURE3125 (IF (EQ *ATN-REDUCE* T)3126 (|Filter-Constructor| |Constraint|)3127 (IF (EQ *ATN-REDUCE* 'CONS)3128 (CONS '|Filter| (DELETE NIL (LIST |Constraint|)))3129 '|Filter|))))3130 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3131 (|Filter/fail.3| (ATN-PARSER::INDEX)3132 (%ATN-NODE-BLOCK |Filter/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3133 (|Filter/Filter.2.4| (ATN-PARSER::INDEX)3134 (%ATN-NODE-BLOCK3135 |Filter/Filter.2.4|3136 (%ATN-EDGE-BLOCK3137 (PUSH |Constraint|)3138 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3139 (ATN-PARSE-SUBSTRUCTURE* '|Constraint| ATN-PARSER::INDEX)3140 (COND (ATN-PARSER::SUCCESS3141 (SETF *ATN-TERM* '|Constraint|)3142 (LET ((|Constraint907| |Constraint|))3143 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3144 (DESTRUCTURING-BIND3145 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3146 ATN-PARSER::RESULT-AND-INDEX3147 (WHEN ATN-PARSER::RESULT (SETF |Constraint| ATN-PARSER::RESULT))3148 (|Filter.2| ATN-PARSER::RESULT-INDEX))3149 (SETF |Constraint| |Constraint907|))))3150 (T (SETF *ATN-TERM?* '|Constraint|) (|Filter/fail.3| ATN-PARSER::INDEX)))))))3151 (|Filter/start.1| (ATN-PARSER::INDEX)3152 (%ATN-NODE-BLOCK3153 |Filter/start.1|3154 (%ATN-EDGE-BLOCK3155 (ATN-PARSER::WORD SPOCQ.S:FILTER)3156 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:FILTER)3157 (SETF *ATN-TERM* 'SPOCQ.S:FILTER)3158 (|Filter/Filter.2.4| (1+ ATN-PARSER::INDEX)))3159 (T (SETF *ATN-TERM?* 'SPOCQ.S:FILTER) (|Filter/fail.3| ATN-PARSER::INDEX)))))))3160 (|Filter/start.1| ATN-PARSER::INDEX)3161 (SETF *ATN-NODE NIL)3162 NIL3163 (IF ATN-PARSER::ATN-STRUCTURE3164 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3165 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3166 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Filter| ATN-PARSER::INDEX *ATN-STACK))))3167 (PROGN (DEFVAR |Constraint-INDEX|)3168 (DEFUN |Constraint| (ATN-PARSER::INDEX &AUX (|BrackettedExpression| NIL) (|BuiltInCall| NIL) (|FunctionCall| NIL))3169 "{27} Constraint ::= (BrackettedExpression | BuiltInCall | FunctionCall)3170 (|BrackettedExpression| |BuiltInCall| |FunctionCall|)"3171 (DECLARE (SPECIAL |Constraint-INDEX|))3172 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Constraint-INDEX| *ATN-LEVEL))3173 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3174 (IF (< |Constraint-INDEX| ATN-PARSER::INDEX)3175 (LET ((|Constraint-INDEX| ATN-PARSER::INDEX)3176 (*ATN-LEVEL (1+ *ATN-LEVEL))3177 (*ATN-STACK (CONS '|Constraint| *ATN-STACK))3178 (ATN-PARSER::ATN-STRUCTURE NIL))3179 (DECLARE (SPECIAL |Constraint-INDEX|))3180 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3181 (DECLARE (TYPE CONS *ATN-STACK))3182 (SYMBOL-MACROLET3183 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3184 (%ATN-BLOCK |Constraint|3185 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3186 (SETF *ATN-TERM* '|Constraint|)3187 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3188 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3189 (|Constraint.2| (ATN-PARSER::INDEX)3190 (%ATN-NODE-BLOCK3191 |Constraint.2|3192 (%ATN-EDGE-BLOCK3193 (POP |Constraint|)3194 (WHEN T3195 (SETF *ATN-TERM* '|Constraint|)3196 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3197 '|Constraint|3198 ATN-PARSER::INDEX3199 (LIST '|BrackettedExpression|3200 |BrackettedExpression|3201 '|BuiltInCall|3202 |BuiltInCall|3203 '|FunctionCall|3204 |FunctionCall|))3205 (LET ((ATN-PARSER::RESULT-STRUCTURE3206 (IF (EQ *ATN-REDUCE* T)3207 (|Constraint-Constructor|3208 |BrackettedExpression|3209 |BuiltInCall|3210 |FunctionCall|)3211 (IF (EQ *ATN-REDUCE* 'CONS)3212 (CONS '|Constraint|3213 (DELETE NIL3214 (LIST |BrackettedExpression|3215 |BuiltInCall|3216 |FunctionCall|)))3217 '|Constraint|))))3218 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3219 (|Constraint/fail.3| (ATN-PARSER::INDEX)3220 (%ATN-NODE-BLOCK |Constraint/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3221 (|Constraint/start.1| (ATN-PARSER::INDEX)3222 (%ATN-NODE-BLOCK3223 |Constraint/start.1|3224 (%ATN-EDGE-BLOCK3225 OR3226 (PROGN (%ATN-EDGE-BLOCK3227 (PUSH |BrackettedExpression|)3228 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3229 (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression| ATN-PARSER::INDEX)3230 (COND (ATN-PARSER::SUCCESS3231 (SETF *ATN-TERM* '|BrackettedExpression|)3232 (LET ((|BrackettedExpression907| |BrackettedExpression|))3233 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3234 (DESTRUCTURING-BIND3235 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3236 ATN-PARSER::RESULT-AND-INDEX3237 (WHEN ATN-PARSER::RESULT3238 (SETF |BrackettedExpression| ATN-PARSER::RESULT))3239 (|Constraint.2| ATN-PARSER::RESULT-INDEX))3240 (SETF |BrackettedExpression| |BrackettedExpression907|))))3241 (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))3242 (%ATN-EDGE-BLOCK3243 (PUSH |BuiltInCall|)3244 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3245 (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall| ATN-PARSER::INDEX)3246 (COND (ATN-PARSER::SUCCESS3247 (SETF *ATN-TERM* '|BuiltInCall|)3248 (LET ((|BuiltInCall907| |BuiltInCall|))3249 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3250 (DESTRUCTURING-BIND3251 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3252 ATN-PARSER::RESULT-AND-INDEX3253 (WHEN ATN-PARSER::RESULT3254 (SETF |BuiltInCall| ATN-PARSER::RESULT))3255 (|Constraint.2| ATN-PARSER::RESULT-INDEX))3256 (SETF |BuiltInCall| |BuiltInCall907|))))3257 (T (SETF *ATN-TERM?* '|BuiltInCall|) NIL))))3258 (%ATN-EDGE-BLOCK3259 (PUSH |FunctionCall|)3260 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3261 (ATN-PARSE-SUBSTRUCTURE* '|FunctionCall| ATN-PARSER::INDEX)3262 (COND (ATN-PARSER::SUCCESS3263 (SETF *ATN-TERM* '|FunctionCall|)3264 (LET ((|FunctionCall907| |FunctionCall|))3265 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3266 (DESTRUCTURING-BIND3267 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3268 ATN-PARSER::RESULT-AND-INDEX3269 (WHEN ATN-PARSER::RESULT3270 (SETF |FunctionCall| ATN-PARSER::RESULT))3271 (|Constraint.2| ATN-PARSER::RESULT-INDEX))3272 (SETF |FunctionCall| |FunctionCall907|))))3273 (T (SETF *ATN-TERM?* '|FunctionCall|) NIL))))3274 (|Constraint/fail.3| ATN-PARSER::INDEX))))))3275 (|Constraint/start.1| ATN-PARSER::INDEX)3276 (SETF *ATN-NODE NIL)3277 NIL3278 (IF ATN-PARSER::ATN-STRUCTURE3279 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3280 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3281 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Constraint| ATN-PARSER::INDEX *ATN-STACK))))3282 (PROGN (DEFVAR |FunctionCall-INDEX|)3283 (DEFUN |FunctionCall| (ATN-PARSER::INDEX &AUX (|ArgList| NIL) (|IRIref| NIL))3284 "{28} FunctionCall ::= IRIref ArgList3285 (|ArgList| |IRIref|)"3286 (DECLARE (SPECIAL |FunctionCall-INDEX|))3287 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |FunctionCall-INDEX| *ATN-LEVEL))3288 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3289 (IF (< |FunctionCall-INDEX| ATN-PARSER::INDEX)3290 (LET ((|FunctionCall-INDEX| ATN-PARSER::INDEX)3291 (*ATN-LEVEL (1+ *ATN-LEVEL))3292 (*ATN-STACK (CONS '|FunctionCall| *ATN-STACK))3293 (ATN-PARSER::ATN-STRUCTURE NIL))3294 (DECLARE (SPECIAL |FunctionCall-INDEX|))3295 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3296 (DECLARE (TYPE CONS *ATN-STACK))3297 (SYMBOL-MACROLET3298 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3299 (%ATN-BLOCK |FunctionCall|3300 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3301 (SETF *ATN-TERM* '|FunctionCall|)3302 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3303 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3304 (|FunctionCall.2| (ATN-PARSER::INDEX)3305 (%ATN-NODE-BLOCK3306 |FunctionCall.2|3307 (%ATN-EDGE-BLOCK3308 (POP |FunctionCall|)3309 (WHEN T3310 (SETF *ATN-TERM* '|FunctionCall|)3311 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3312 '|FunctionCall|3313 ATN-PARSER::INDEX3314 (LIST '|ArgList| |ArgList| '|IRIref| |IRIref|))3315 (LET ((ATN-PARSER::RESULT-STRUCTURE3316 (IF (EQ *ATN-REDUCE* T)3317 (|FunctionCall-Constructor| |ArgList| |IRIref|)3318 (IF (EQ *ATN-REDUCE* 'CONS)3319 (CONS '|FunctionCall| (DELETE NIL (LIST |ArgList| |IRIref|)))3320 '|FunctionCall|))))3321 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3322 (|FunctionCall/fail.3| (ATN-PARSER::INDEX)3323 (%ATN-NODE-BLOCK |FunctionCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3324 (|FunctionCall/FunctionCall.2.4| (ATN-PARSER::INDEX)3325 (%ATN-NODE-BLOCK3326 |FunctionCall/FunctionCall.2.4|3327 (%ATN-EDGE-BLOCK3328 (PUSH |ArgList|)3329 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3330 (ATN-PARSE-SUBSTRUCTURE* '|ArgList| ATN-PARSER::INDEX)3331 (COND (ATN-PARSER::SUCCESS3332 (SETF *ATN-TERM* '|ArgList|)3333 (LET ((|ArgList907| |ArgList|))3334 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3335 (DESTRUCTURING-BIND3336 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3337 ATN-PARSER::RESULT-AND-INDEX3338 (WHEN ATN-PARSER::RESULT (SETF |ArgList| ATN-PARSER::RESULT))3339 (|FunctionCall.2| ATN-PARSER::RESULT-INDEX))3340 (SETF |ArgList| |ArgList907|))))3341 (T3342 (SETF *ATN-TERM?* '|ArgList|)3343 (|FunctionCall/fail.3| ATN-PARSER::INDEX)))))))3344 (|FunctionCall/start.1| (ATN-PARSER::INDEX)3345 (%ATN-NODE-BLOCK3346 |FunctionCall/start.1|3347 (%ATN-EDGE-BLOCK3348 (PUSH |IRIref|)3349 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3350 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)3351 (COND (ATN-PARSER::SUCCESS3352 (SETF *ATN-TERM* '|IRIref|)3353 (LET ((|IRIref907| |IRIref|))3354 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3355 (DESTRUCTURING-BIND3356 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3357 ATN-PARSER::RESULT-AND-INDEX3358 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))3359 (|FunctionCall/FunctionCall.2.4| ATN-PARSER::RESULT-INDEX))3360 (SETF |IRIref| |IRIref907|))))3361 (T3362 (SETF *ATN-TERM?* '|IRIref|)3363 (|FunctionCall/fail.3| ATN-PARSER::INDEX))))))))3364 (|FunctionCall/start.1| ATN-PARSER::INDEX)3365 (SETF *ATN-NODE NIL)3366 NIL3367 (IF ATN-PARSER::ATN-STRUCTURE3368 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3369 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3370 (WARN "recursive grammar: ~s @ position ~s: ~s" '|FunctionCall| ATN-PARSER::INDEX *ATN-STACK))))3371 (PROGN (DEFVAR |ArgList-INDEX|)3372 (DEFUN |ArgList| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (NILLIST NIL))3373 "{29} ArgList ::= ((NILLIST | ('(' Expression (',' Expression)* ')')))3374 (|Expression| NILLIST)"3375 (DECLARE (SPECIAL |ArgList-INDEX|))3376 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ArgList-INDEX| *ATN-LEVEL))3377 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3378 (IF (< |ArgList-INDEX| ATN-PARSER::INDEX)3379 (LET ((|ArgList-INDEX| ATN-PARSER::INDEX)3380 (*ATN-LEVEL (1+ *ATN-LEVEL))3381 (*ATN-STACK (CONS '|ArgList| *ATN-STACK))3382 (ATN-PARSER::ATN-STRUCTURE NIL))3383 (DECLARE (SPECIAL |ArgList-INDEX|))3384 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3385 (DECLARE (TYPE CONS *ATN-STACK))3386 (SYMBOL-MACROLET3387 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3388 (%ATN-BLOCK |ArgList|3389 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3390 (SETF *ATN-TERM* '|ArgList|)3391 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3392 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3393 (|ArgList.2| (ATN-PARSER::INDEX)3394 (%ATN-NODE-BLOCK3395 |ArgList.2|3396 (%ATN-EDGE-BLOCK3397 (POP |ArgList|)3398 (WHEN T3399 (SETF *ATN-TERM* '|ArgList|)3400 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3401 '|ArgList|3402 ATN-PARSER::INDEX3403 (LIST '|Expression| |Expression| 'NILLIST NILLIST))3404 (LET ((ATN-PARSER::RESULT-STRUCTURE3405 (IF (EQ *ATN-REDUCE* T)3406 (|ArgList-Constructor| |Expression| NILLIST)3407 (IF (EQ *ATN-REDUCE* 'CONS)3408 (CONS '|ArgList| (DELETE NIL (LIST |Expression| NILLIST)))3409 '|ArgList|))))3410 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3411 (|ArgList.8| (ATN-PARSER::INDEX)3412 (%ATN-NODE-BLOCK3413 |ArgList.8|3414 (%ATN-EDGE-BLOCK3415 (ATN-PARSER::JUMP |ArgList/ArgList.8.9|)3416 (|ArgList/ArgList.8.9| ATN-PARSER::INDEX))3417 (%ATN-EDGE-BLOCK3418 (ATN-PARSER::JUMP |ArgList/ArgList.2.7|)3419 (|ArgList/ArgList.2.7| ATN-PARSER::INDEX))))3420 (|ArgList/ArgList.2.4| (ATN-PARSER::INDEX)3421 (%ATN-NODE-BLOCK3422 |ArgList/ArgList.2.4|3423 (%ATN-EDGE-BLOCK3424 (ATN-PARSER::WORD SPOCQ.S:\()3425 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()3426 (SETF *ATN-TERM* 'SPOCQ.S:\()3427 (|ArgList/ArgList.2.5| (1+ ATN-PARSER::INDEX)))3428 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))3429 (|ArgList/ArgList.2.5| (ATN-PARSER::INDEX)3430 (%ATN-NODE-BLOCK3431 |ArgList/ArgList.2.5|3432 (%ATN-EDGE-BLOCK3433 (PUSH |Expression|)3434 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3435 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)3436 (COND (ATN-PARSER::SUCCESS3437 (SETF *ATN-TERM* '|Expression|)3438 (LET ((|Expression908| |Expression|))3439 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3440 (DESTRUCTURING-BIND3441 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3442 ATN-PARSER::RESULT-AND-INDEX3443 (WHEN ATN-PARSER::RESULT3444 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))3445 (|ArgList/ArgList.2.6| ATN-PARSER::RESULT-INDEX))3446 (SETF |Expression| |Expression908|))))3447 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))3448 (|ArgList/ArgList.2.6| (ATN-PARSER::INDEX)3449 (%ATN-NODE-BLOCK3450 |ArgList/ArgList.2.6|3451 (%ATN-EDGE-BLOCK3452 (ATN-PARSER::JUMP |ArgList/ArgList.8.9|)3453 (|ArgList/ArgList.8.9| ATN-PARSER::INDEX))3454 (%ATN-EDGE-BLOCK3455 (ATN-PARSER::JUMP |ArgList/ArgList.2.7|)3456 (|ArgList/ArgList.2.7| ATN-PARSER::INDEX))))3457 (|ArgList/ArgList.2.7| (ATN-PARSER::INDEX)3458 (%ATN-NODE-BLOCK3459 |ArgList/ArgList.2.7|3460 (%ATN-EDGE-BLOCK3461 (ATN-PARSER::WORD SPOCQ.S:\))3462 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))3463 (SETF *ATN-TERM* 'SPOCQ.S:\))3464 (|ArgList.2| (1+ ATN-PARSER::INDEX)))3465 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL)))))3466 (|ArgList/ArgList.8.10| (ATN-PARSER::INDEX)3467 (%ATN-NODE-BLOCK3468 |ArgList/ArgList.8.10|3469 (%ATN-EDGE-BLOCK3470 (PUSH |Expression|)3471 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3472 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)3473 (COND (ATN-PARSER::SUCCESS3474 (SETF *ATN-TERM* '|Expression|)3475 (LET ((|Expression907| |Expression|))3476 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3477 (DESTRUCTURING-BIND3478 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3479 ATN-PARSER::RESULT-AND-INDEX3480 (WHEN ATN-PARSER::RESULT3481 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))3482 (|ArgList.8| ATN-PARSER::RESULT-INDEX))3483 (SETF |Expression| |Expression907|))))3484 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))3485 (|ArgList/ArgList.8.9| (ATN-PARSER::INDEX)3486 (%ATN-NODE-BLOCK3487 |ArgList/ArgList.8.9|3488 (%ATN-EDGE-BLOCK3489 (ATN-PARSER::WORD SPOCQ.S:\,)3490 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)3491 (SETF *ATN-TERM* 'SPOCQ.S:\,)3492 (|ArgList/ArgList.8.10| (1+ ATN-PARSER::INDEX)))3493 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))3494 (|ArgList/fail.3| (ATN-PARSER::INDEX)3495 (%ATN-NODE-BLOCK |ArgList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3496 (|ArgList/start.1| (ATN-PARSER::INDEX)3497 (%ATN-NODE-BLOCK3498 |ArgList/start.1|3499 (%ATN-EDGE-BLOCK3500 OR3501 (PROGN (%ATN-EDGE-BLOCK3502 (PUSH NILLIST)3503 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3504 (ATN-PARSE-SUBSTRUCTURE* 'NILLIST ATN-PARSER::INDEX)3505 (COND (ATN-PARSER::SUCCESS3506 (SETF *ATN-TERM* 'NILLIST)3507 (LET ((NILLIST907 NILLIST))3508 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3509 (DESTRUCTURING-BIND3510 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3511 ATN-PARSER::RESULT-AND-INDEX3512 (WHEN ATN-PARSER::RESULT (SETF NILLIST ATN-PARSER::RESULT))3513 (|ArgList.2| ATN-PARSER::RESULT-INDEX))3514 (SETF NILLIST NILLIST907))))3515 (T (SETF *ATN-TERM?* 'NILLIST) NIL))))3516 (%ATN-EDGE-BLOCK3517 (ATN-PARSER::JUMP |ArgList/ArgList.2.4|)3518 (|ArgList/ArgList.2.4| ATN-PARSER::INDEX))3519 (|ArgList/fail.3| ATN-PARSER::INDEX))))))3520 (|ArgList/start.1| ATN-PARSER::INDEX)3521 (SETF *ATN-NODE NIL)3522 NIL3523 (IF ATN-PARSER::ATN-STRUCTURE3524 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3525 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3526 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ArgList| ATN-PARSER::INDEX *ATN-STACK))))3527 (PROGN (DEFVAR |ConstructTemplate-INDEX|)3528 (DEFUN |ConstructTemplate| (ATN-PARSER::INDEX &AUX (|ConstructTriples| NIL))3529 "{30} ConstructTemplate ::= '{' ConstructTriples? '}'3530 (|ConstructTriples|)"3531 (DECLARE (SPECIAL |ConstructTemplate-INDEX|))3532 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructTemplate-INDEX| *ATN-LEVEL))3533 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3534 (IF (< |ConstructTemplate-INDEX| ATN-PARSER::INDEX)3535 (LET ((|ConstructTemplate-INDEX| ATN-PARSER::INDEX)3536 (*ATN-LEVEL (1+ *ATN-LEVEL))3537 (*ATN-STACK (CONS '|ConstructTemplate| *ATN-STACK))3538 (ATN-PARSER::ATN-STRUCTURE NIL))3539 (DECLARE (SPECIAL |ConstructTemplate-INDEX|))3540 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3541 (DECLARE (TYPE CONS *ATN-STACK))3542 (SYMBOL-MACROLET3543 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3544 (%ATN-BLOCK |ConstructTemplate|3545 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3546 (SETF *ATN-TERM* '|ConstructTemplate|)3547 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3548 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3549 (|ConstructTemplate.2| (ATN-PARSER::INDEX)3550 (%ATN-NODE-BLOCK3551 |ConstructTemplate.2|3552 (%ATN-EDGE-BLOCK3553 (POP |ConstructTemplate|)3554 (WHEN T3555 (SETF *ATN-TERM* '|ConstructTemplate|)3556 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3557 '|ConstructTemplate|3558 ATN-PARSER::INDEX3559 (LIST '|ConstructTriples| |ConstructTriples|))3560 (LET ((ATN-PARSER::RESULT-STRUCTURE3561 (IF (EQ *ATN-REDUCE* T)3562 (|ConstructTemplate-Constructor| |ConstructTriples|)3563 (IF (EQ *ATN-REDUCE* 'CONS)3564 (CONS '|ConstructTemplate| (DELETE NIL (LIST |ConstructTriples|)))3565 '|ConstructTemplate|))))3566 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3567 (|ConstructTemplate/ConstructTemplate.2.4| (ATN-PARSER::INDEX)3568 (%ATN-NODE-BLOCK3569 |ConstructTemplate/ConstructTemplate.2.4|3570 (%ATN-EDGE-BLOCK3571 (PUSH |ConstructTriples|)3572 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3573 (ATN-PARSE-SUBSTRUCTURE* '|ConstructTriples| ATN-PARSER::INDEX)3574 (COND (ATN-PARSER::SUCCESS3575 (SETF *ATN-TERM* '|ConstructTriples|)3576 (LET ((|ConstructTriples908| |ConstructTriples|))3577 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3578 (DESTRUCTURING-BIND3579 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3580 ATN-PARSER::RESULT-AND-INDEX3581 (WHEN ATN-PARSER::RESULT (SETF |ConstructTriples| ATN-PARSER::RESULT))3582 (|ConstructTemplate/ConstructTemplate.2.5| ATN-PARSER::RESULT-INDEX))3583 (SETF |ConstructTriples| |ConstructTriples908|))))3584 (T3585 (SETF *ATN-TERM?* '|ConstructTriples|)3586 (|ConstructTemplate/ConstructTemplate.2.5| ATN-PARSER::INDEX)))))))3587 (|ConstructTemplate/ConstructTemplate.2.5| (ATN-PARSER::INDEX)3588 (%ATN-NODE-BLOCK3589 |ConstructTemplate/ConstructTemplate.2.5|3590 (%ATN-EDGE-BLOCK3591 (ATN-PARSER::WORD SPOCQ.S:})3592 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:})3593 (SETF *ATN-TERM* 'SPOCQ.S:})3594 (|ConstructTemplate.2| (1+ ATN-PARSER::INDEX)))3595 (T3596 (SETF *ATN-TERM?* 'SPOCQ.S:})3597 (|ConstructTemplate/fail.3| ATN-PARSER::INDEX))))))3598 (|ConstructTemplate/fail.3| (ATN-PARSER::INDEX)3599 (%ATN-NODE-BLOCK |ConstructTemplate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3600 (|ConstructTemplate/start.1| (ATN-PARSER::INDEX)3601 (%ATN-NODE-BLOCK3602 |ConstructTemplate/start.1|3603 (%ATN-EDGE-BLOCK3604 (ATN-PARSER::WORD SPOCQ.S:{)3605 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)3606 (SETF *ATN-TERM* 'SPOCQ.S:{)3607 (|ConstructTemplate/ConstructTemplate.2.4| (1+ ATN-PARSER::INDEX)))3608 (T3609 (SETF *ATN-TERM?* 'SPOCQ.S:{)3610 (|ConstructTemplate/fail.3| ATN-PARSER::INDEX)))))))3611 (|ConstructTemplate/start.1| ATN-PARSER::INDEX)3612 (SETF *ATN-NODE NIL)3613 NIL3614 (IF ATN-PARSER::ATN-STRUCTURE3615 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3616 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3617 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructTemplate| ATN-PARSER::INDEX *ATN-STACK))))3618 (PROGN (DEFVAR |ConstructTriples-INDEX|)3619 (DEFUN |ConstructTriples| (ATN-PARSER::INDEX &AUX (|ConstructTriples| NIL) (|TriplesSameSubject| NIL))3620 "{31} ConstructTriples ::= TriplesSameSubject ('.' ConstructTriples?)?3621 (|ConstructTriples| |TriplesSameSubject|)"3622 (DECLARE (SPECIAL |ConstructTriples-INDEX|))3623 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructTriples-INDEX| *ATN-LEVEL))3624 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3625 (IF (< |ConstructTriples-INDEX| ATN-PARSER::INDEX)3626 (LET ((|ConstructTriples-INDEX| ATN-PARSER::INDEX)3627 (*ATN-LEVEL (1+ *ATN-LEVEL))3628 (*ATN-STACK (CONS '|ConstructTriples| *ATN-STACK))3629 (ATN-PARSER::ATN-STRUCTURE NIL))3630 (DECLARE (SPECIAL |ConstructTriples-INDEX|))3631 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3632 (DECLARE (TYPE CONS *ATN-STACK))3633 (SYMBOL-MACROLET3634 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3635 (%ATN-BLOCK |ConstructTriples|3636 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3637 (SETF *ATN-TERM* '|ConstructTriples|)3638 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3639 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3640 (|ConstructTriples.2| (ATN-PARSER::INDEX)3641 (%ATN-NODE-BLOCK3642 |ConstructTriples.2|3643 (%ATN-EDGE-BLOCK3644 (POP |ConstructTriples|)3645 (WHEN T3646 (SETF *ATN-TERM* '|ConstructTriples|)3647 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3648 '|ConstructTriples|3649 ATN-PARSER::INDEX3650 (LIST '|ConstructTriples|3651 |ConstructTriples|3652 '|TriplesSameSubject|3653 |TriplesSameSubject|))3654 (LET ((ATN-PARSER::RESULT-STRUCTURE3655 (IF (EQ *ATN-REDUCE* T)3656 (|ConstructTriples-Constructor| |ConstructTriples| |TriplesSameSubject|)3657 (IF (EQ *ATN-REDUCE* 'CONS)3658 (CONS '|ConstructTriples|3659 (DELETE NIL (LIST |ConstructTriples| |TriplesSameSubject|)))3660 '|ConstructTriples|))))3661 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3662 (|ConstructTriples/ConstructTriples.2.4| (ATN-PARSER::INDEX)3663 (%ATN-NODE-BLOCK3664 |ConstructTriples/ConstructTriples.2.4|3665 (%ATN-EDGE-BLOCK3666 (ATN-PARSER::JUMP |ConstructTriples/ConstructTriples.2.5|)3667 (|ConstructTriples/ConstructTriples.2.5| ATN-PARSER::INDEX))3668 (%ATN-EDGE-BLOCK3669 (ATN-PARSER::JUMP |ConstructTriples.2|)3670 (|ConstructTriples.2| ATN-PARSER::INDEX))))3671 (|ConstructTriples/ConstructTriples.2.5| (ATN-PARSER::INDEX)3672 (%ATN-NODE-BLOCK3673 |ConstructTriples/ConstructTriples.2.5|3674 (%ATN-EDGE-BLOCK3675 (ATN-PARSER::WORD SPOCQ.S:|.|)3676 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)3677 (SETF *ATN-TERM* 'SPOCQ.S:|.|)3678 (|ConstructTriples/ConstructTriples.2.6| (1+ ATN-PARSER::INDEX)))3679 (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|) NIL)))))3680 (|ConstructTriples/ConstructTriples.2.6| (ATN-PARSER::INDEX)3681 (%ATN-NODE-BLOCK3682 |ConstructTriples/ConstructTriples.2.6|3683 (%ATN-EDGE-BLOCK3684 (PUSH |ConstructTriples|)3685 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3686 (ATN-PARSE-SUBSTRUCTURE* '|ConstructTriples| ATN-PARSER::INDEX)3687 (COND (ATN-PARSER::SUCCESS3688 (SETF *ATN-TERM* '|ConstructTriples|)3689 (LET ((|ConstructTriples909| |ConstructTriples|))3690 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3691 (DESTRUCTURING-BIND3692 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3693 ATN-PARSER::RESULT-AND-INDEX3694 (WHEN ATN-PARSER::RESULT (SETF |ConstructTriples| ATN-PARSER::RESULT))3695 (|ConstructTriples.2| ATN-PARSER::RESULT-INDEX))3696 (SETF |ConstructTriples| |ConstructTriples909|))))3697 (T3698 (SETF *ATN-TERM?* '|ConstructTriples|)3699 (|ConstructTriples.2| ATN-PARSER::INDEX)))))))3700 (|ConstructTriples/fail.3| (ATN-PARSER::INDEX)3701 (%ATN-NODE-BLOCK |ConstructTriples/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3702 (|ConstructTriples/start.1| (ATN-PARSER::INDEX)3703 (%ATN-NODE-BLOCK3704 |ConstructTriples/start.1|3705 (%ATN-EDGE-BLOCK3706 (PUSH |TriplesSameSubject|)3707 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3708 (ATN-PARSE-SUBSTRUCTURE* '|TriplesSameSubject| ATN-PARSER::INDEX)3709 (COND (ATN-PARSER::SUCCESS3710 (SETF *ATN-TERM* '|TriplesSameSubject|)3711 (LET ((|TriplesSameSubject909| |TriplesSameSubject|))3712 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3713 (DESTRUCTURING-BIND3714 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3715 ATN-PARSER::RESULT-AND-INDEX3716 (WHEN ATN-PARSER::RESULT (SETF |TriplesSameSubject| ATN-PARSER::RESULT))3717 (|ConstructTriples/ConstructTriples.2.4| ATN-PARSER::RESULT-INDEX))3718 (SETF |TriplesSameSubject| |TriplesSameSubject909|))))3719 (T3720 (SETF *ATN-TERM?* '|TriplesSameSubject|)3721 (|ConstructTriples/fail.3| ATN-PARSER::INDEX))))))))3722 (|ConstructTriples/start.1| ATN-PARSER::INDEX)3723 (SETF *ATN-NODE NIL)3724 NIL3725 (IF ATN-PARSER::ATN-STRUCTURE3726 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3727 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3728 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructTriples| ATN-PARSER::INDEX *ATN-STACK))))3729 (PROGN (DEFVAR |TriplesSameSubject-INDEX|)3730 (DEFUN |TriplesSameSubject| (ATN-PARSER::INDEX &AUX (|PropertyList| NIL) (|PropertyListNotEmpty| NIL) (|TriplesNode| NIL)3731 (|VarOrTerm| NIL))3732 "{32} TriplesSameSubject ::= ((VarOrTerm PropertyListNotEmpty) | (TriplesNode3733 PropertyList))3734 (|PropertyList| |PropertyListNotEmpty| |TriplesNode| |VarOrTerm|)"3735 (DECLARE (SPECIAL |TriplesSameSubject-INDEX|))3736 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesSameSubject-INDEX| *ATN-LEVEL))3737 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3738 (IF (< |TriplesSameSubject-INDEX| ATN-PARSER::INDEX)3739 (LET ((|TriplesSameSubject-INDEX| ATN-PARSER::INDEX)3740 (*ATN-LEVEL (1+ *ATN-LEVEL))3741 (*ATN-STACK (CONS '|TriplesSameSubject| *ATN-STACK))3742 (ATN-PARSER::ATN-STRUCTURE NIL))3743 (DECLARE (SPECIAL |TriplesSameSubject-INDEX|))3744 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3745 (DECLARE (TYPE CONS *ATN-STACK))3746 (SYMBOL-MACROLET3747 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3748 (%ATN-BLOCK |TriplesSameSubject|3749 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3750 (SETF *ATN-TERM* '|TriplesSameSubject|)3751 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3752 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3753 (|TriplesSameSubject.2| (ATN-PARSER::INDEX)3754 (%ATN-NODE-BLOCK3755 |TriplesSameSubject.2|3756 (%ATN-EDGE-BLOCK3757 (POP |TriplesSameSubject|)3758 (WHEN T3759 (SETF *ATN-TERM* '|TriplesSameSubject|)3760 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3761 '|TriplesSameSubject|3762 ATN-PARSER::INDEX3763 (LIST '|PropertyList|3764 |PropertyList|3765 '|PropertyListNotEmpty|3766 |PropertyListNotEmpty|3767 '|TriplesNode|3768 |TriplesNode|3769 '|VarOrTerm|3770 |VarOrTerm|))3771 (LET ((ATN-PARSER::RESULT-STRUCTURE3772 (IF (EQ *ATN-REDUCE* T)3773 (|TriplesSameSubject-Constructor|3774 |PropertyList|3775 |PropertyListNotEmpty|3776 |TriplesNode|3777 |VarOrTerm|)3778 (IF (EQ *ATN-REDUCE* 'CONS)3779 (CONS '|TriplesSameSubject|3780 (DELETE NIL3781 (LIST |PropertyList|3782 |PropertyListNotEmpty|3783 |TriplesNode|3784 |VarOrTerm|)))3785 '|TriplesSameSubject|))))3786 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3787 (|TriplesSameSubject/fail.3| (ATN-PARSER::INDEX)3788 (%ATN-NODE-BLOCK |TriplesSameSubject/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3789 (|TriplesSameSubject/start.1| (ATN-PARSER::INDEX)3790 (%ATN-NODE-BLOCK3791 |TriplesSameSubject/start.1|3792 (%ATN-EDGE-BLOCK3793 OR3794 (PROGN (%ATN-EDGE-BLOCK3795 (ATN-PARSER::JUMP |TriplesSameSubject/TriplesSameSubject.2.4|)3796 (|TriplesSameSubject/TriplesSameSubject.2.4| ATN-PARSER::INDEX))3797 (%ATN-EDGE-BLOCK3798 (ATN-PARSER::JUMP |TriplesSameSubject/TriplesSameSubject.2.6|)3799 (|TriplesSameSubject/TriplesSameSubject.2.6| ATN-PARSER::INDEX))3800 (|TriplesSameSubject/fail.3| ATN-PARSER::INDEX)))))3801 (|TriplesSameSubject/TriplesSameSubject.2.4| (ATN-PARSER::INDEX)3802 (%ATN-NODE-BLOCK3803 |TriplesSameSubject/TriplesSameSubject.2.4|3804 (%ATN-EDGE-BLOCK3805 (PUSH |VarOrTerm|)3806 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3807 (ATN-PARSE-SUBSTRUCTURE* '|VarOrTerm| ATN-PARSER::INDEX)3808 (COND (ATN-PARSER::SUCCESS3809 (SETF *ATN-TERM* '|VarOrTerm|)3810 (LET ((|VarOrTerm909| |VarOrTerm|))3811 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3812 (DESTRUCTURING-BIND3813 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3814 ATN-PARSER::RESULT-AND-INDEX3815 (WHEN ATN-PARSER::RESULT (SETF |VarOrTerm| ATN-PARSER::RESULT))3816 (|TriplesSameSubject/TriplesSameSubject.2.5| ATN-PARSER::RESULT-INDEX))3817 (SETF |VarOrTerm| |VarOrTerm909|))))3818 (T (SETF *ATN-TERM?* '|VarOrTerm|) NIL))))))3819 (|TriplesSameSubject/TriplesSameSubject.2.5| (ATN-PARSER::INDEX)3820 (%ATN-NODE-BLOCK3821 |TriplesSameSubject/TriplesSameSubject.2.5|3822 (%ATN-EDGE-BLOCK3823 (PUSH |PropertyListNotEmpty|)3824 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3825 (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty| ATN-PARSER::INDEX)3826 (COND (ATN-PARSER::SUCCESS3827 (SETF *ATN-TERM* '|PropertyListNotEmpty|)3828 (LET ((|PropertyListNotEmpty909| |PropertyListNotEmpty|))3829 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3830 (DESTRUCTURING-BIND3831 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3832 ATN-PARSER::RESULT-AND-INDEX3833 (WHEN ATN-PARSER::RESULT3834 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))3835 (|TriplesSameSubject.2| ATN-PARSER::RESULT-INDEX))3836 (SETF |PropertyListNotEmpty| |PropertyListNotEmpty909|))))3837 (T (SETF *ATN-TERM?* '|PropertyListNotEmpty|) NIL))))))3838 (|TriplesSameSubject/TriplesSameSubject.2.6| (ATN-PARSER::INDEX)3839 (%ATN-NODE-BLOCK3840 |TriplesSameSubject/TriplesSameSubject.2.6|3841 (%ATN-EDGE-BLOCK3842 (PUSH |TriplesNode|)3843 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3844 (ATN-PARSE-SUBSTRUCTURE* '|TriplesNode| ATN-PARSER::INDEX)3845 (COND (ATN-PARSER::SUCCESS3846 (SETF *ATN-TERM* '|TriplesNode|)3847 (LET ((|TriplesNode909| |TriplesNode|))3848 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3849 (DESTRUCTURING-BIND3850 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3851 ATN-PARSER::RESULT-AND-INDEX3852 (WHEN ATN-PARSER::RESULT (SETF |TriplesNode| ATN-PARSER::RESULT))3853 (|TriplesSameSubject/TriplesSameSubject.2.7| ATN-PARSER::RESULT-INDEX))3854 (SETF |TriplesNode| |TriplesNode909|))))3855 (T (SETF *ATN-TERM?* '|TriplesNode|) NIL))))))3856 (|TriplesSameSubject/TriplesSameSubject.2.7| (ATN-PARSER::INDEX)3857 (%ATN-NODE-BLOCK3858 |TriplesSameSubject/TriplesSameSubject.2.7|3859 (%ATN-EDGE-BLOCK3860 (PUSH |PropertyList|)3861 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3862 (ATN-PARSE-SUBSTRUCTURE* '|PropertyList| ATN-PARSER::INDEX)3863 (COND (ATN-PARSER::SUCCESS3864 (SETF *ATN-TERM* '|PropertyList|)3865 (LET ((|PropertyList909| |PropertyList|))3866 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3867 (DESTRUCTURING-BIND3868 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3869 ATN-PARSER::RESULT-AND-INDEX3870 (WHEN ATN-PARSER::RESULT (SETF |PropertyList| ATN-PARSER::RESULT))3871 (|TriplesSameSubject.2| ATN-PARSER::RESULT-INDEX))3872 (SETF |PropertyList| |PropertyList909|))))3873 (T (SETF *ATN-TERM?* '|PropertyList|) NIL)))))))3874 (|TriplesSameSubject/start.1| ATN-PARSER::INDEX)3875 (SETF *ATN-NODE NIL)3876 NIL3877 (IF ATN-PARSER::ATN-STRUCTURE3878 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3879 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3880 (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesSameSubject| ATN-PARSER::INDEX *ATN-STACK))))3881 (PROGN (DEFVAR |PropertyListNotEmpty-INDEX|)3882 (DEFUN |PropertyListNotEmpty| (ATN-PARSER::INDEX &AUX (|VerbObjectList| NIL))3883 "{33} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*3884 (|VerbObjectList|)"3885 (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))3886 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PropertyListNotEmpty-INDEX| *ATN-LEVEL))3887 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3888 (IF (< |PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)3889 (LET ((|PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)3890 (*ATN-LEVEL (1+ *ATN-LEVEL))3891 (*ATN-STACK (CONS '|PropertyListNotEmpty| *ATN-STACK))3892 (ATN-PARSER::ATN-STRUCTURE NIL))3893 (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))3894 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3895 (DECLARE (TYPE CONS *ATN-STACK))3896 (SYMBOL-MACROLET3897 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3898 (%ATN-BLOCK |PropertyListNotEmpty|3899 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3900 (SETF *ATN-TERM* '|PropertyListNotEmpty|)3901 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3902 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3903 (|PropertyListNotEmpty.2| (ATN-PARSER::INDEX)3904 (%ATN-NODE-BLOCK3905 |PropertyListNotEmpty.2|3906 (%ATN-EDGE-BLOCK3907 (POP |PropertyListNotEmpty|)3908 (WHEN T3909 (SETF *ATN-TERM* '|PropertyListNotEmpty|)3910 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3911 '|PropertyListNotEmpty|3912 ATN-PARSER::INDEX3913 (LIST '|VerbObjectList| |VerbObjectList|))3914 (LET ((ATN-PARSER::RESULT-STRUCTURE3915 (IF (EQ *ATN-REDUCE* T)3916 (|PropertyListNotEmpty-Constructor| |VerbObjectList|)3917 (IF (EQ *ATN-REDUCE* 'CONS)3918 (CONS '|PropertyListNotEmpty| (DELETE NIL (LIST |VerbObjectList|)))3919 '|PropertyListNotEmpty|))))3920 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3921 (|PropertyListNotEmpty.5| (ATN-PARSER::INDEX)3922 (%ATN-NODE-BLOCK3923 |PropertyListNotEmpty.5|3924 (%ATN-EDGE-BLOCK3925 (ATN-PARSER::JUMP |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)3926 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| ATN-PARSER::INDEX))3927 (%ATN-EDGE-BLOCK3928 (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)3929 (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))3930 (|PropertyListNotEmpty/fail.3| (ATN-PARSER::INDEX)3931 (%ATN-NODE-BLOCK3932 |PropertyListNotEmpty/fail.3|3933 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3934 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4| (ATN-PARSER::INDEX)3935 (%ATN-NODE-BLOCK3936 |PropertyListNotEmpty/PropertyListNotEmpty.2.4|3937 (%ATN-EDGE-BLOCK3938 (ATN-PARSER::JUMP |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)3939 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| ATN-PARSER::INDEX))3940 (%ATN-EDGE-BLOCK3941 (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)3942 (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))3943 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| (ATN-PARSER::INDEX)3944 (%ATN-NODE-BLOCK3945 |PropertyListNotEmpty/PropertyListNotEmpty.5.6|3946 (%ATN-EDGE-BLOCK3947 (ATN-PARSER::WORD SPOCQ.S:\;)3948 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\;)3949 (SETF *ATN-TERM* 'SPOCQ.S:\;)3950 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7| (1+ ATN-PARSER::INDEX)))3951 (T (SETF *ATN-TERM?* 'SPOCQ.S:\;) NIL)))))3952 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7| (ATN-PARSER::INDEX)3953 (%ATN-NODE-BLOCK3954 |PropertyListNotEmpty/PropertyListNotEmpty.5.7|3955 (%ATN-EDGE-BLOCK3956 (PUSH |VerbObjectList|)3957 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3958 (ATN-PARSE-SUBSTRUCTURE* '|VerbObjectList| ATN-PARSER::INDEX)3959 (COND (ATN-PARSER::SUCCESS3960 (SETF *ATN-TERM* '|VerbObjectList|)3961 (LET ((|VerbObjectList909| |VerbObjectList|))3962 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3963 (DESTRUCTURING-BIND3964 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3965 ATN-PARSER::RESULT-AND-INDEX3966 (WHEN ATN-PARSER::RESULT3967 (SETF |VerbObjectList| (CONS ATN-PARSER::RESULT |VerbObjectList|)))3968 (|PropertyListNotEmpty.5| ATN-PARSER::RESULT-INDEX))3969 (SETF |VerbObjectList| |VerbObjectList909|))))3970 (T3971 (SETF *ATN-TERM?* '|VerbObjectList|)3972 (|PropertyListNotEmpty.5| ATN-PARSER::INDEX)))))))3973 (|PropertyListNotEmpty/start.1| (ATN-PARSER::INDEX)3974 (%ATN-NODE-BLOCK3975 |PropertyListNotEmpty/start.1|3976 (%ATN-EDGE-BLOCK3977 (PUSH |VerbObjectList|)3978 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3979 (ATN-PARSE-SUBSTRUCTURE* '|VerbObjectList| ATN-PARSER::INDEX)3980 (COND (ATN-PARSER::SUCCESS3981 (SETF *ATN-TERM* '|VerbObjectList|)3982 (LET ((|VerbObjectList910| |VerbObjectList|))3983 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3984 (DESTRUCTURING-BIND3985 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3986 ATN-PARSER::RESULT-AND-INDEX3987 (WHEN ATN-PARSER::RESULT3988 (SETF |VerbObjectList| (CONS ATN-PARSER::RESULT |VerbObjectList|)))3989 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4|3990 ATN-PARSER::RESULT-INDEX))3991 (SETF |VerbObjectList| |VerbObjectList910|))))3992 (T3993 (SETF *ATN-TERM?* '|VerbObjectList|)3994 (|PropertyListNotEmpty/fail.3| ATN-PARSER::INDEX))))))))3995 (|PropertyListNotEmpty/start.1| ATN-PARSER::INDEX)3996 (SETF *ATN-NODE NIL)3997 NIL3998 (IF ATN-PARSER::ATN-STRUCTURE3999 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4000 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4001 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PropertyListNotEmpty| ATN-PARSER::INDEX *ATN-STACK))))4002 (PROGN (DEFVAR |VerbObjectList-INDEX|)4003 (DEFUN |VerbObjectList| (ATN-PARSER::INDEX &AUX (|ObjectList| NIL) (|Verb| NIL))4004 "VerbObjectList ::= Verb ObjectList4005 (|ObjectList| |Verb|)"4006 (DECLARE (SPECIAL |VerbObjectList-INDEX|))4007 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VerbObjectList-INDEX| *ATN-LEVEL))4008 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4009 (IF (< |VerbObjectList-INDEX| ATN-PARSER::INDEX)4010 (LET ((|VerbObjectList-INDEX| ATN-PARSER::INDEX)4011 (*ATN-LEVEL (1+ *ATN-LEVEL))4012 (*ATN-STACK (CONS '|VerbObjectList| *ATN-STACK))4013 (ATN-PARSER::ATN-STRUCTURE NIL))4014 (DECLARE (SPECIAL |VerbObjectList-INDEX|))4015 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4016 (DECLARE (TYPE CONS *ATN-STACK))4017 (SYMBOL-MACROLET4018 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4019 (%ATN-BLOCK |VerbObjectList|4020 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4021 (SETF *ATN-TERM* '|VerbObjectList|)4022 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4023 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4024 (|VerbObjectList.2| (ATN-PARSER::INDEX)4025 (%ATN-NODE-BLOCK4026 |VerbObjectList.2|4027 (%ATN-EDGE-BLOCK4028 (POP |VerbObjectList|)4029 (WHEN T4030 (SETF *ATN-TERM* '|VerbObjectList|)4031 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4032 '|VerbObjectList|4033 ATN-PARSER::INDEX4034 (LIST '|ObjectList| |ObjectList| '|Verb| |Verb|))4035 (LET ((ATN-PARSER::RESULT-STRUCTURE4036 (IF (EQ *ATN-REDUCE* T)4037 (|VerbObjectList-Constructor| |ObjectList| |Verb|)4038 (IF (EQ *ATN-REDUCE* 'CONS)4039 (CONS '|VerbObjectList| (DELETE NIL (LIST |ObjectList| |Verb|)))4040 '|VerbObjectList|))))4041 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4042 (|VerbObjectList/fail.3| (ATN-PARSER::INDEX)4043 (%ATN-NODE-BLOCK |VerbObjectList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4044 (|VerbObjectList/start.1| (ATN-PARSER::INDEX)4045 (%ATN-NODE-BLOCK4046 |VerbObjectList/start.1|4047 (%ATN-EDGE-BLOCK4048 (PUSH |Verb|)4049 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4050 (ATN-PARSE-SUBSTRUCTURE* '|Verb| ATN-PARSER::INDEX)4051 (COND (ATN-PARSER::SUCCESS4052 (SETF *ATN-TERM* '|Verb|)4053 (LET ((|Verb910| |Verb|))4054 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4055 (DESTRUCTURING-BIND4056 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4057 ATN-PARSER::RESULT-AND-INDEX4058 (WHEN ATN-PARSER::RESULT (SETF |Verb| ATN-PARSER::RESULT))4059 (|VerbObjectList/VerbObjectList.2.4| ATN-PARSER::RESULT-INDEX))4060 (SETF |Verb| |Verb910|))))4061 (T (SETF *ATN-TERM?* '|Verb|) (|VerbObjectList/fail.3| ATN-PARSER::INDEX)))))))4062 (|VerbObjectList/VerbObjectList.2.4| (ATN-PARSER::INDEX)4063 (%ATN-NODE-BLOCK4064 |VerbObjectList/VerbObjectList.2.4|4065 (%ATN-EDGE-BLOCK4066 (PUSH |ObjectList|)4067 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4068 (ATN-PARSE-SUBSTRUCTURE* '|ObjectList| ATN-PARSER::INDEX)4069 (COND (ATN-PARSER::SUCCESS4070 (SETF *ATN-TERM* '|ObjectList|)4071 (LET ((|ObjectList910| |ObjectList|))4072 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4073 (DESTRUCTURING-BIND4074 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4075 ATN-PARSER::RESULT-AND-INDEX4076 (WHEN ATN-PARSER::RESULT (SETF |ObjectList| ATN-PARSER::RESULT))4077 (|VerbObjectList.2| ATN-PARSER::RESULT-INDEX))4078 (SETF |ObjectList| |ObjectList910|))))4079 (T4080 (SETF *ATN-TERM?* '|ObjectList|)4081 (|VerbObjectList/fail.3| ATN-PARSER::INDEX))))))))4082 (|VerbObjectList/start.1| ATN-PARSER::INDEX)4083 (SETF *ATN-NODE NIL)4084 NIL4085 (IF ATN-PARSER::ATN-STRUCTURE4086 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4087 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4088 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VerbObjectList| ATN-PARSER::INDEX *ATN-STACK))))4089 (PROGN (DEFVAR |PropertyList-INDEX|)4090 (DEFUN |PropertyList| (ATN-PARSER::INDEX &AUX (|PropertyListNotEmpty| NIL))4091 "{34} PropertyList ::= PropertyListNotEmpty?4092 (|PropertyListNotEmpty|)"4093 (DECLARE (SPECIAL |PropertyList-INDEX|))4094 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PropertyList-INDEX| *ATN-LEVEL))4095 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4096 (IF (< |PropertyList-INDEX| ATN-PARSER::INDEX)4097 (LET ((|PropertyList-INDEX| ATN-PARSER::INDEX)4098 (*ATN-LEVEL (1+ *ATN-LEVEL))4099 (*ATN-STACK (CONS '|PropertyList| *ATN-STACK))4100 (ATN-PARSER::ATN-STRUCTURE NIL))4101 (DECLARE (SPECIAL |PropertyList-INDEX|))4102 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4103 (DECLARE (TYPE CONS *ATN-STACK))4104 (SYMBOL-MACROLET4105 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4106 (%ATN-BLOCK |PropertyList|4107 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4108 (SETF *ATN-TERM* '|PropertyList|)4109 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4110 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4111 (|PropertyList.2| (ATN-PARSER::INDEX)4112 (%ATN-NODE-BLOCK4113 |PropertyList.2|4114 (%ATN-EDGE-BLOCK4115 (POP |PropertyList|)4116 (WHEN T4117 (SETF *ATN-TERM* '|PropertyList|)4118 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4119 '|PropertyList|4120 ATN-PARSER::INDEX4121 (LIST '|PropertyListNotEmpty| |PropertyListNotEmpty|))4122 (LET ((ATN-PARSER::RESULT-STRUCTURE4123 (IF (EQ *ATN-REDUCE* T)4124 (|PropertyList-Constructor| |PropertyListNotEmpty|)4125 (IF (EQ *ATN-REDUCE* 'CONS)4126 (CONS '|PropertyList| (DELETE NIL (LIST |PropertyListNotEmpty|)))4127 '|PropertyList|))))4128 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4129 (|PropertyList/fail.3| (ATN-PARSER::INDEX)4130 (%ATN-NODE-BLOCK |PropertyList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4131 (|PropertyList/start.1| (ATN-PARSER::INDEX)4132 (%ATN-NODE-BLOCK4133 |PropertyList/start.1|4134 (%ATN-EDGE-BLOCK4135 (PUSH |PropertyListNotEmpty|)4136 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4137 (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty| ATN-PARSER::INDEX)4138 (COND (ATN-PARSER::SUCCESS4139 (SETF *ATN-TERM* '|PropertyListNotEmpty|)4140 (LET ((|PropertyListNotEmpty910| |PropertyListNotEmpty|))4141 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4142 (DESTRUCTURING-BIND4143 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4144 ATN-PARSER::RESULT-AND-INDEX4145 (WHEN ATN-PARSER::RESULT4146 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))4147 (|PropertyList.2| ATN-PARSER::RESULT-INDEX))4148 (SETF |PropertyListNotEmpty| |PropertyListNotEmpty910|))))4149 (T4150 (SETF *ATN-TERM?* '|PropertyListNotEmpty|)4151 (|PropertyList.2| ATN-PARSER::INDEX))))))))4152 (|PropertyList/start.1| ATN-PARSER::INDEX)4153 (SETF *ATN-NODE NIL)4154 NIL4155 (IF ATN-PARSER::ATN-STRUCTURE4156 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4157 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4158 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PropertyList| ATN-PARSER::INDEX *ATN-STACK))))4159 (PROGN (DEFVAR |ObjectList-INDEX|)4160 (DEFUN |ObjectList| (ATN-PARSER::INDEX &AUX (|Object| NIL))4161 "{35} ObjectList ::= Object (',' Object)*4162 (|Object|)"4163 (DECLARE (SPECIAL |ObjectList-INDEX|))4164 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ObjectList-INDEX| *ATN-LEVEL))4165 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4166 (IF (< |ObjectList-INDEX| ATN-PARSER::INDEX)4167 (LET ((|ObjectList-INDEX| ATN-PARSER::INDEX)4168 (*ATN-LEVEL (1+ *ATN-LEVEL))4169 (*ATN-STACK (CONS '|ObjectList| *ATN-STACK))4170 (ATN-PARSER::ATN-STRUCTURE NIL))4171 (DECLARE (SPECIAL |ObjectList-INDEX|))4172 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4173 (DECLARE (TYPE CONS *ATN-STACK))4174 (SYMBOL-MACROLET4175 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4176 (%ATN-BLOCK |ObjectList|4177 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4178 (SETF *ATN-TERM* '|ObjectList|)4179 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4180 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4181 (|ObjectList.2| (ATN-PARSER::INDEX)4182 (%ATN-NODE-BLOCK4183 |ObjectList.2|4184 (%ATN-EDGE-BLOCK4185 (POP |ObjectList|)4186 (WHEN T4187 (SETF *ATN-TERM* '|ObjectList|)4188 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4189 '|ObjectList|4190 ATN-PARSER::INDEX4191 (LIST '|Object| |Object|))4192 (LET ((ATN-PARSER::RESULT-STRUCTURE4193 (IF (EQ *ATN-REDUCE* T)4194 (|ObjectList-Constructor| |Object|)4195 (IF (EQ *ATN-REDUCE* 'CONS)4196 (CONS '|ObjectList| (DELETE NIL (LIST |Object|)))4197 '|ObjectList|))))4198 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4199 (|ObjectList.5| (ATN-PARSER::INDEX)4200 (%ATN-NODE-BLOCK4201 |ObjectList.5|4202 (%ATN-EDGE-BLOCK4203 (ATN-PARSER::JUMP |ObjectList/ObjectList.5.6|)4204 (|ObjectList/ObjectList.5.6| ATN-PARSER::INDEX))4205 (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ObjectList.2|) (|ObjectList.2| ATN-PARSER::INDEX))))4206 (|ObjectList/fail.3| (ATN-PARSER::INDEX)4207 (%ATN-NODE-BLOCK |ObjectList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4208 (|ObjectList/ObjectList.2.4| (ATN-PARSER::INDEX)4209 (%ATN-NODE-BLOCK4210 |ObjectList/ObjectList.2.4|4211 (%ATN-EDGE-BLOCK4212 (ATN-PARSER::JUMP |ObjectList/ObjectList.5.6|)4213 (|ObjectList/ObjectList.5.6| ATN-PARSER::INDEX))4214 (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ObjectList.2|) (|ObjectList.2| ATN-PARSER::INDEX))))4215 (|ObjectList/ObjectList.5.6| (ATN-PARSER::INDEX)4216 (%ATN-NODE-BLOCK4217 |ObjectList/ObjectList.5.6|4218 (%ATN-EDGE-BLOCK4219 (ATN-PARSER::WORD SPOCQ.S:\,)4220 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)4221 (SETF *ATN-TERM* 'SPOCQ.S:\,)4222 (|ObjectList/ObjectList.5.7| (1+ ATN-PARSER::INDEX)))4223 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))4224 (|ObjectList/ObjectList.5.7| (ATN-PARSER::INDEX)4225 (%ATN-NODE-BLOCK4226 |ObjectList/ObjectList.5.7|4227 (%ATN-EDGE-BLOCK4228 (PUSH |Object|)4229 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4230 (ATN-PARSE-SUBSTRUCTURE* '|Object| ATN-PARSER::INDEX)4231 (COND (ATN-PARSER::SUCCESS4232 (SETF *ATN-TERM* '|Object|)4233 (LET ((|Object910| |Object|))4234 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4235 (DESTRUCTURING-BIND4236 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4237 ATN-PARSER::RESULT-AND-INDEX4238 (WHEN ATN-PARSER::RESULT4239 (SETF |Object| (CONS ATN-PARSER::RESULT |Object|)))4240 (|ObjectList.5| ATN-PARSER::RESULT-INDEX))4241 (SETF |Object| |Object910|))))4242 (T (SETF *ATN-TERM?* '|Object|) NIL))))))4243 (|ObjectList/start.1| (ATN-PARSER::INDEX)4244 (%ATN-NODE-BLOCK4245 |ObjectList/start.1|4246 (%ATN-EDGE-BLOCK4247 (PUSH |Object|)4248 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4249 (ATN-PARSE-SUBSTRUCTURE* '|Object| ATN-PARSER::INDEX)4250 (COND (ATN-PARSER::SUCCESS4251 (SETF *ATN-TERM* '|Object|)4252 (LET ((|Object911| |Object|))4253 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4254 (DESTRUCTURING-BIND4255 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4256 ATN-PARSER::RESULT-AND-INDEX4257 (WHEN ATN-PARSER::RESULT4258 (SETF |Object| (CONS ATN-PARSER::RESULT |Object|)))4259 (|ObjectList/ObjectList.2.4| ATN-PARSER::RESULT-INDEX))4260 (SETF |Object| |Object911|))))4261 (T (SETF *ATN-TERM?* '|Object|) (|ObjectList/fail.3| ATN-PARSER::INDEX))))))))4262 (|ObjectList/start.1| ATN-PARSER::INDEX)4263 (SETF *ATN-NODE NIL)4264 NIL4265 (IF ATN-PARSER::ATN-STRUCTURE4266 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4267 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4268 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ObjectList| ATN-PARSER::INDEX *ATN-STACK))))4269 (PROGN (DEFVAR |Object-INDEX|)4270 (DEFUN |Object| (ATN-PARSER::INDEX &AUX (|GraphNode| NIL))4271 "{36} Object ::= GraphNode4272 (|GraphNode|)"4273 (DECLARE (SPECIAL |Object-INDEX|))4274 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Object-INDEX| *ATN-LEVEL))4275 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4276 (IF (< |Object-INDEX| ATN-PARSER::INDEX)4277 (LET ((|Object-INDEX| ATN-PARSER::INDEX)4278 (*ATN-LEVEL (1+ *ATN-LEVEL))4279 (*ATN-STACK (CONS '|Object| *ATN-STACK))4280 (ATN-PARSER::ATN-STRUCTURE NIL))4281 (DECLARE (SPECIAL |Object-INDEX|))4282 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4283 (DECLARE (TYPE CONS *ATN-STACK))4284 (SYMBOL-MACROLET4285 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4286 (%ATN-BLOCK |Object|4287 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4288 (SETF *ATN-TERM* '|Object|)4289 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4290 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4291 (|Object.2| (ATN-PARSER::INDEX)4292 (%ATN-NODE-BLOCK4293 |Object.2|4294 (%ATN-EDGE-BLOCK4295 (POP |Object|)4296 (WHEN T4297 (SETF *ATN-TERM* '|Object|)4298 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4299 '|Object|4300 ATN-PARSER::INDEX4301 (LIST '|GraphNode| |GraphNode|))4302 (LET ((ATN-PARSER::RESULT-STRUCTURE4303 (IF (EQ *ATN-REDUCE* T)4304 (|Object-Constructor| |GraphNode|)4305 (IF (EQ *ATN-REDUCE* 'CONS)4306 (CONS '|Object| (DELETE NIL (LIST |GraphNode|)))4307 '|Object|))))4308 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4309 (|Object/fail.3| (ATN-PARSER::INDEX)4310 (%ATN-NODE-BLOCK |Object/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4311 (|Object/start.1| (ATN-PARSER::INDEX)4312 (%ATN-NODE-BLOCK4313 |Object/start.1|4314 (%ATN-EDGE-BLOCK4315 (PUSH |GraphNode|)4316 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4317 (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)4318 (COND (ATN-PARSER::SUCCESS4319 (SETF *ATN-TERM* '|GraphNode|)4320 (LET ((|GraphNode911| |GraphNode|))4321 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4322 (DESTRUCTURING-BIND4323 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4324 ATN-PARSER::RESULT-AND-INDEX4325 (WHEN ATN-PARSER::RESULT (SETF |GraphNode| ATN-PARSER::RESULT))4326 (|Object.2| ATN-PARSER::RESULT-INDEX))4327 (SETF |GraphNode| |GraphNode911|))))4328 (T (SETF *ATN-TERM?* '|GraphNode|) (|Object/fail.3| ATN-PARSER::INDEX))))))))4329 (|Object/start.1| ATN-PARSER::INDEX)4330 (SETF *ATN-NODE NIL)4331 NIL4332 (IF ATN-PARSER::ATN-STRUCTURE4333 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4334 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4335 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Object| ATN-PARSER::INDEX *ATN-STACK))))4336 (PROGN (DEFVAR |Verb-INDEX|)4337 (DEFUN |Verb| (ATN-PARSER::INDEX &AUX (|VarOrIRIref| NIL))4338 "{37} Verb ::= (VarOrIRIref | 'a')4339 (|VarOrIRIref|)"4340 (DECLARE (SPECIAL |Verb-INDEX|))4341 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Verb-INDEX| *ATN-LEVEL))4342 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4343 (IF (< |Verb-INDEX| ATN-PARSER::INDEX)4344 (LET ((|Verb-INDEX| ATN-PARSER::INDEX)4345 (*ATN-LEVEL (1+ *ATN-LEVEL))4346 (*ATN-STACK (CONS '|Verb| *ATN-STACK))4347 (ATN-PARSER::ATN-STRUCTURE NIL))4348 (DECLARE (SPECIAL |Verb-INDEX|))4349 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4350 (DECLARE (TYPE CONS *ATN-STACK))4351 (SYMBOL-MACROLET4352 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4353 (%ATN-BLOCK |Verb|4354 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4355 (SETF *ATN-TERM* '|Verb|)4356 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4357 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4358 (|Verb.2| (ATN-PARSER::INDEX)4359 (%ATN-NODE-BLOCK4360 |Verb.2|4361 (%ATN-EDGE-BLOCK4362 (POP |Verb|)4363 (WHEN T4364 (SETF *ATN-TERM* '|Verb|)4365 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4366 '|Verb|4367 ATN-PARSER::INDEX4368 (LIST '|VarOrIRIref| |VarOrIRIref|))4369 (LET ((ATN-PARSER::RESULT-STRUCTURE4370 (IF (EQ *ATN-REDUCE* T)4371 (|Verb-Constructor| |VarOrIRIref|)4372 (IF (EQ *ATN-REDUCE* 'CONS)4373 (CONS '|Verb| (DELETE NIL (LIST |VarOrIRIref|)))4374 '|Verb|))))4375 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4376 (|Verb/fail.3| (ATN-PARSER::INDEX)4377 (%ATN-NODE-BLOCK |Verb/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4378 (|Verb/start.1| (ATN-PARSER::INDEX)4379 (%ATN-NODE-BLOCK4380 |Verb/start.1|4381 (%ATN-EDGE-BLOCK4382 OR4383 (PROGN (%ATN-EDGE-BLOCK4384 (PUSH |VarOrIRIref|)4385 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4386 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)4387 (COND (ATN-PARSER::SUCCESS4388 (SETF *ATN-TERM* '|VarOrIRIref|)4389 (LET ((|VarOrIRIref911| |VarOrIRIref|))4390 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4391 (DESTRUCTURING-BIND4392 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4393 ATN-PARSER::RESULT-AND-INDEX4394 (WHEN ATN-PARSER::RESULT4395 (SETF |VarOrIRIref| ATN-PARSER::RESULT))4396 (|Verb.2| ATN-PARSER::RESULT-INDEX))4397 (SETF |VarOrIRIref| |VarOrIRIref911|))))4398 (T (SETF *ATN-TERM?* '|VarOrIRIref|) NIL))))4399 (%ATN-EDGE-BLOCK4400 (ATN-PARSER::WORD SPOCQ.S:\a)4401 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\a)4402 (SETF *ATN-TERM* 'SPOCQ.S:\a)4403 (|Verb.2| (1+ ATN-PARSER::INDEX)))4404 (T (SETF *ATN-TERM?* 'SPOCQ.S:\a) NIL)))4405 (|Verb/fail.3| ATN-PARSER::INDEX))))))4406 (|Verb/start.1| ATN-PARSER::INDEX)4407 (SETF *ATN-NODE NIL)4408 NIL4409 (IF ATN-PARSER::ATN-STRUCTURE4410 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4411 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4412 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Verb| ATN-PARSER::INDEX *ATN-STACK))))4413 (PROGN (DEFVAR |TriplesNode-INDEX|)4414 (DEFUN |TriplesNode| (ATN-PARSER::INDEX &AUX (|BlankNodePropertyList| NIL) (|Collection| NIL))4415 "{38} TriplesNode ::= (Collection | BlankNodePropertyList)4416 (|BlankNodePropertyList| |Collection|)"4417 (DECLARE (SPECIAL |TriplesNode-INDEX|))4418 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesNode-INDEX| *ATN-LEVEL))4419 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4420 (IF (< |TriplesNode-INDEX| ATN-PARSER::INDEX)4421 (LET ((|TriplesNode-INDEX| ATN-PARSER::INDEX)4422 (*ATN-LEVEL (1+ *ATN-LEVEL))4423 (*ATN-STACK (CONS '|TriplesNode| *ATN-STACK))4424 (ATN-PARSER::ATN-STRUCTURE NIL))4425 (DECLARE (SPECIAL |TriplesNode-INDEX|))4426 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4427 (DECLARE (TYPE CONS *ATN-STACK))4428 (SYMBOL-MACROLET4429 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4430 (%ATN-BLOCK |TriplesNode|4431 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4432 (SETF *ATN-TERM* '|TriplesNode|)4433 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4434 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4435 (|TriplesNode.2| (ATN-PARSER::INDEX)4436 (%ATN-NODE-BLOCK4437 |TriplesNode.2|4438 (%ATN-EDGE-BLOCK4439 (POP |TriplesNode|)4440 (WHEN T4441 (SETF *ATN-TERM* '|TriplesNode|)4442 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4443 '|TriplesNode|4444 ATN-PARSER::INDEX4445 (LIST '|BlankNodePropertyList|4446 |BlankNodePropertyList|4447 '|Collection|4448 |Collection|))4449 (LET ((ATN-PARSER::RESULT-STRUCTURE4450 (IF (EQ *ATN-REDUCE* T)4451 (|TriplesNode-Constructor| |BlankNodePropertyList| |Collection|)4452 (IF (EQ *ATN-REDUCE* 'CONS)4453 (CONS '|TriplesNode|4454 (DELETE NIL (LIST |BlankNodePropertyList| |Collection|)))4455 '|TriplesNode|))))4456 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4457 (|TriplesNode/fail.3| (ATN-PARSER::INDEX)4458 (%ATN-NODE-BLOCK |TriplesNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4459 (|TriplesNode/start.1| (ATN-PARSER::INDEX)4460 (%ATN-NODE-BLOCK4461 |TriplesNode/start.1|4462 (%ATN-EDGE-BLOCK4463 OR4464 (PROGN (%ATN-EDGE-BLOCK4465 (PUSH |Collection|)4466 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4467 (ATN-PARSE-SUBSTRUCTURE* '|Collection| ATN-PARSER::INDEX)4468 (COND (ATN-PARSER::SUCCESS4469 (SETF *ATN-TERM* '|Collection|)4470 (LET ((|Collection911| |Collection|))4471 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4472 (DESTRUCTURING-BIND4473 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4474 ATN-PARSER::RESULT-AND-INDEX4475 (WHEN ATN-PARSER::RESULT4476 (SETF |Collection| ATN-PARSER::RESULT))4477 (|TriplesNode.2| ATN-PARSER::RESULT-INDEX))4478 (SETF |Collection| |Collection911|))))4479 (T (SETF *ATN-TERM?* '|Collection|) NIL))))4480 (%ATN-EDGE-BLOCK4481 (PUSH |BlankNodePropertyList|)4482 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4483 (ATN-PARSE-SUBSTRUCTURE* '|BlankNodePropertyList| ATN-PARSER::INDEX)4484 (COND (ATN-PARSER::SUCCESS4485 (SETF *ATN-TERM* '|BlankNodePropertyList|)4486 (LET ((|BlankNodePropertyList911| |BlankNodePropertyList|))4487 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4488 (DESTRUCTURING-BIND4489 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4490 ATN-PARSER::RESULT-AND-INDEX4491 (WHEN ATN-PARSER::RESULT4492 (SETF |BlankNodePropertyList| ATN-PARSER::RESULT))4493 (|TriplesNode.2| ATN-PARSER::RESULT-INDEX))4494 (SETF |BlankNodePropertyList| |BlankNodePropertyList911|))))4495 (T (SETF *ATN-TERM?* '|BlankNodePropertyList|) NIL))))4496 (|TriplesNode/fail.3| ATN-PARSER::INDEX))))))4497 (|TriplesNode/start.1| ATN-PARSER::INDEX)4498 (SETF *ATN-NODE NIL)4499 NIL4500 (IF ATN-PARSER::ATN-STRUCTURE4501 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4502 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4503 (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesNode| ATN-PARSER::INDEX *ATN-STACK))))4504 (PROGN (DEFVAR |BlankNodePropertyList-INDEX|)4505 (DEFUN |BlankNodePropertyList| (ATN-PARSER::INDEX &AUX (|PropertyListNotEmpty| NIL))4506 "{39} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'4507 (|PropertyListNotEmpty|)"4508 (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))4509 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNodePropertyList-INDEX| *ATN-LEVEL))4510 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4511 (IF (< |BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)4512 (LET ((|BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)4513 (*ATN-LEVEL (1+ *ATN-LEVEL))4514 (*ATN-STACK (CONS '|BlankNodePropertyList| *ATN-STACK))4515 (ATN-PARSER::ATN-STRUCTURE NIL))4516 (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))4517 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4518 (DECLARE (TYPE CONS *ATN-STACK))4519 (SYMBOL-MACROLET4520 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4521 (%ATN-BLOCK |BlankNodePropertyList|4522 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4523 (SETF *ATN-TERM* '|BlankNodePropertyList|)4524 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4525 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4526 (|BlankNodePropertyList.2| (ATN-PARSER::INDEX)4527 (%ATN-NODE-BLOCK4528 |BlankNodePropertyList.2|4529 (%ATN-EDGE-BLOCK4530 (POP |BlankNodePropertyList|)4531 (WHEN T4532 (SETF *ATN-TERM* '|BlankNodePropertyList|)4533 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4534 '|BlankNodePropertyList|4535 ATN-PARSER::INDEX4536 (LIST '|PropertyListNotEmpty| |PropertyListNotEmpty|))4537 (LET ((ATN-PARSER::RESULT-STRUCTURE4538 (IF (EQ *ATN-REDUCE* T)4539 (|BlankNodePropertyList-Constructor| |PropertyListNotEmpty|)4540 (IF (EQ *ATN-REDUCE* 'CONS)4541 (CONS '|BlankNodePropertyList|4542 (DELETE NIL (LIST |PropertyListNotEmpty|)))4543 '|BlankNodePropertyList|))))4544 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4545 (|BlankNodePropertyList/BlankNodePropertyList.2.4| (ATN-PARSER::INDEX)4546 (%ATN-NODE-BLOCK4547 |BlankNodePropertyList/BlankNodePropertyList.2.4|4548 (%ATN-EDGE-BLOCK4549 (PUSH |PropertyListNotEmpty|)4550 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4551 (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty| ATN-PARSER::INDEX)4552 (COND (ATN-PARSER::SUCCESS4553 (SETF *ATN-TERM* '|PropertyListNotEmpty|)4554 (LET ((|PropertyListNotEmpty911| |PropertyListNotEmpty|))4555 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4556 (DESTRUCTURING-BIND4557 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4558 ATN-PARSER::RESULT-AND-INDEX4559 (WHEN ATN-PARSER::RESULT4560 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))4561 (|BlankNodePropertyList/BlankNodePropertyList.2.5|4562 ATN-PARSER::RESULT-INDEX))4563 (SETF |PropertyListNotEmpty| |PropertyListNotEmpty911|))))4564 (T4565 (SETF *ATN-TERM?* '|PropertyListNotEmpty|)4566 (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX)))))))4567 (|BlankNodePropertyList/BlankNodePropertyList.2.5| (ATN-PARSER::INDEX)4568 (%ATN-NODE-BLOCK4569 |BlankNodePropertyList/BlankNodePropertyList.2.5|4570 (%ATN-EDGE-BLOCK4571 (ATN-PARSER::WORD SPOCQ.S:])4572 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:])4573 (SETF *ATN-TERM* 'SPOCQ.S:])4574 (|BlankNodePropertyList.2| (1+ ATN-PARSER::INDEX)))4575 (T4576 (SETF *ATN-TERM?* 'SPOCQ.S:])4577 (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX))))))4578 (|BlankNodePropertyList/fail.3| (ATN-PARSER::INDEX)4579 (%ATN-NODE-BLOCK4580 |BlankNodePropertyList/fail.3|4581 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4582 (|BlankNodePropertyList/start.1| (ATN-PARSER::INDEX)4583 (%ATN-NODE-BLOCK4584 |BlankNodePropertyList/start.1|4585 (%ATN-EDGE-BLOCK4586 (ATN-PARSER::WORD SPOCQ.S:[)4587 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:[)4588 (SETF *ATN-TERM* 'SPOCQ.S:[)4589 (|BlankNodePropertyList/BlankNodePropertyList.2.4| (1+ ATN-PARSER::INDEX)))4590 (T4591 (SETF *ATN-TERM?* 'SPOCQ.S:[)4592 (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX)))))))4593 (|BlankNodePropertyList/start.1| ATN-PARSER::INDEX)4594 (SETF *ATN-NODE NIL)4595 NIL4596 (IF ATN-PARSER::ATN-STRUCTURE4597 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4598 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4599 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNodePropertyList| ATN-PARSER::INDEX *ATN-STACK))))4600 (PROGN (DEFVAR |Collection-INDEX|)4601 (DEFUN |Collection| (ATN-PARSER::INDEX &AUX (|GraphNode| NIL))4602 "{40} Collection ::= '(' GraphNode+ ')'4603 (|GraphNode|)"4604 (DECLARE (SPECIAL |Collection-INDEX|))4605 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Collection-INDEX| *ATN-LEVEL))4606 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4607 (IF (< |Collection-INDEX| ATN-PARSER::INDEX)4608 (LET ((|Collection-INDEX| ATN-PARSER::INDEX)4609 (*ATN-LEVEL (1+ *ATN-LEVEL))4610 (*ATN-STACK (CONS '|Collection| *ATN-STACK))4611 (ATN-PARSER::ATN-STRUCTURE NIL))4612 (DECLARE (SPECIAL |Collection-INDEX|))4613 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4614 (DECLARE (TYPE CONS *ATN-STACK))4615 (SYMBOL-MACROLET4616 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4617 (%ATN-BLOCK |Collection|4618 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4619 (SETF *ATN-TERM* '|Collection|)4620 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4621 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4622 (|Collection.2| (ATN-PARSER::INDEX)4623 (%ATN-NODE-BLOCK4624 |Collection.2|4625 (%ATN-EDGE-BLOCK4626 (POP |Collection|)4627 (WHEN T4628 (SETF *ATN-TERM* '|Collection|)4629 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4630 '|Collection|4631 ATN-PARSER::INDEX4632 (LIST '|GraphNode| |GraphNode|))4633 (LET ((ATN-PARSER::RESULT-STRUCTURE4634 (IF (EQ *ATN-REDUCE* T)4635 (|Collection-Constructor| |GraphNode|)4636 (IF (EQ *ATN-REDUCE* 'CONS)4637 (CONS '|Collection| (DELETE NIL (LIST |GraphNode|)))4638 '|Collection|))))4639 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4640 (|Collection.6| (ATN-PARSER::INDEX)4641 (%ATN-NODE-BLOCK4642 |Collection.6|4643 (%ATN-EDGE-BLOCK4644 (PUSH |GraphNode|)4645 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4646 (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)4647 (COND (ATN-PARSER::SUCCESS4648 (SETF *ATN-TERM* '|GraphNode|)4649 (LET ((|GraphNode913| |GraphNode|))4650 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4651 (DESTRUCTURING-BIND4652 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4653 ATN-PARSER::RESULT-AND-INDEX4654 (WHEN ATN-PARSER::RESULT4655 (SETF |GraphNode| (CONS ATN-PARSER::RESULT |GraphNode|)))4656 (|Collection.6| ATN-PARSER::RESULT-INDEX))4657 (SETF |GraphNode| |GraphNode913|))))4658 (T4659 (SETF *ATN-TERM?* '|GraphNode|)4660 (|Collection/Collection.2.5| ATN-PARSER::INDEX)))))))4661 (|Collection/Collection.2.4| (ATN-PARSER::INDEX)4662 (%ATN-NODE-BLOCK4663 |Collection/Collection.2.4|4664 (%ATN-EDGE-BLOCK4665 (PUSH |GraphNode|)4666 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4667 (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)4668 (COND (ATN-PARSER::SUCCESS4669 (SETF *ATN-TERM* '|GraphNode|)4670 (LET ((|GraphNode912| |GraphNode|))4671 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4672 (DESTRUCTURING-BIND4673 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4674 ATN-PARSER::RESULT-AND-INDEX4675 (WHEN ATN-PARSER::RESULT4676 (SETF |GraphNode| (CONS ATN-PARSER::RESULT |GraphNode|)))4677 (|Collection.6| ATN-PARSER::RESULT-INDEX))4678 (SETF |GraphNode| |GraphNode912|))))4679 (T4680 (SETF *ATN-TERM?* '|GraphNode|)4681 (|Collection/fail.3| ATN-PARSER::INDEX)))))))4682 (|Collection/Collection.2.5| (ATN-PARSER::INDEX)4683 (%ATN-NODE-BLOCK4684 |Collection/Collection.2.5|4685 (%ATN-EDGE-BLOCK4686 (ATN-PARSER::WORD SPOCQ.S:\))4687 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))4688 (SETF *ATN-TERM* 'SPOCQ.S:\))4689 (|Collection.2| (1+ ATN-PARSER::INDEX)))4690 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|Collection/fail.3| ATN-PARSER::INDEX))))))4691 (|Collection/fail.3| (ATN-PARSER::INDEX)4692 (%ATN-NODE-BLOCK |Collection/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4693 (|Collection/start.1| (ATN-PARSER::INDEX)4694 (%ATN-NODE-BLOCK4695 |Collection/start.1|4696 (%ATN-EDGE-BLOCK4697 (ATN-PARSER::WORD SPOCQ.S:\()4698 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()4699 (SETF *ATN-TERM* 'SPOCQ.S:\()4700 (|Collection/Collection.2.4| (1+ ATN-PARSER::INDEX)))4701 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|Collection/fail.3| ATN-PARSER::INDEX)))))))4702 (|Collection/start.1| ATN-PARSER::INDEX)4703 (SETF *ATN-NODE NIL)4704 NIL4705 (IF ATN-PARSER::ATN-STRUCTURE4706 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4707 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4708 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Collection| ATN-PARSER::INDEX *ATN-STACK))))4709 (PROGN (DEFVAR |GraphNode-INDEX|)4710 (DEFUN |GraphNode| (ATN-PARSER::INDEX &AUX (|TriplesNode| NIL) (|VarOrTerm| NIL))4711 "{41} GraphNode ::= (VarOrTerm | TriplesNode)4712 (|TriplesNode| |VarOrTerm|)"4713 (DECLARE (SPECIAL |GraphNode-INDEX|))4714 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphNode-INDEX| *ATN-LEVEL))4715 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4716 (IF (< |GraphNode-INDEX| ATN-PARSER::INDEX)4717 (LET ((|GraphNode-INDEX| ATN-PARSER::INDEX)4718 (*ATN-LEVEL (1+ *ATN-LEVEL))4719 (*ATN-STACK (CONS '|GraphNode| *ATN-STACK))4720 (ATN-PARSER::ATN-STRUCTURE NIL))4721 (DECLARE (SPECIAL |GraphNode-INDEX|))4722 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4723 (DECLARE (TYPE CONS *ATN-STACK))4724 (SYMBOL-MACROLET4725 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4726 (%ATN-BLOCK |GraphNode|4727 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4728 (SETF *ATN-TERM* '|GraphNode|)4729 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4730 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4731 (|GraphNode.2| (ATN-PARSER::INDEX)4732 (%ATN-NODE-BLOCK4733 |GraphNode.2|4734 (%ATN-EDGE-BLOCK4735 (POP |GraphNode|)4736 (WHEN T4737 (SETF *ATN-TERM* '|GraphNode|)4738 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4739 '|GraphNode|4740 ATN-PARSER::INDEX4741 (LIST '|TriplesNode| |TriplesNode| '|VarOrTerm| |VarOrTerm|))4742 (LET ((ATN-PARSER::RESULT-STRUCTURE4743 (IF (EQ *ATN-REDUCE* T)4744 (|GraphNode-Constructor| |TriplesNode| |VarOrTerm|)4745 (IF (EQ *ATN-REDUCE* 'CONS)4746 (CONS '|GraphNode| (DELETE NIL (LIST |TriplesNode| |VarOrTerm|)))4747 '|GraphNode|))))4748 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4749 (|GraphNode/fail.3| (ATN-PARSER::INDEX)4750 (%ATN-NODE-BLOCK |GraphNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4751 (|GraphNode/start.1| (ATN-PARSER::INDEX)4752 (%ATN-NODE-BLOCK4753 |GraphNode/start.1|4754 (%ATN-EDGE-BLOCK4755 OR4756 (PROGN (%ATN-EDGE-BLOCK4757 (PUSH |VarOrTerm|)4758 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4759 (ATN-PARSE-SUBSTRUCTURE* '|VarOrTerm| ATN-PARSER::INDEX)4760 (COND (ATN-PARSER::SUCCESS4761 (SETF *ATN-TERM* '|VarOrTerm|)4762 (LET ((|VarOrTerm913| |VarOrTerm|))4763 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4764 (DESTRUCTURING-BIND4765 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4766 ATN-PARSER::RESULT-AND-INDEX4767 (WHEN ATN-PARSER::RESULT (SETF |VarOrTerm| ATN-PARSER::RESULT))4768 (|GraphNode.2| ATN-PARSER::RESULT-INDEX))4769 (SETF |VarOrTerm| |VarOrTerm913|))))4770 (T (SETF *ATN-TERM?* '|VarOrTerm|) NIL))))4771 (%ATN-EDGE-BLOCK4772 (PUSH |TriplesNode|)4773 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4774 (ATN-PARSE-SUBSTRUCTURE* '|TriplesNode| ATN-PARSER::INDEX)4775 (COND (ATN-PARSER::SUCCESS4776 (SETF *ATN-TERM* '|TriplesNode|)4777 (LET ((|TriplesNode913| |TriplesNode|))4778 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4779 (DESTRUCTURING-BIND4780 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4781 ATN-PARSER::RESULT-AND-INDEX4782 (WHEN ATN-PARSER::RESULT4783 (SETF |TriplesNode| ATN-PARSER::RESULT))4784 (|GraphNode.2| ATN-PARSER::RESULT-INDEX))4785 (SETF |TriplesNode| |TriplesNode913|))))4786 (T (SETF *ATN-TERM?* '|TriplesNode|) NIL))))4787 (|GraphNode/fail.3| ATN-PARSER::INDEX))))))4788 (|GraphNode/start.1| ATN-PARSER::INDEX)4789 (SETF *ATN-NODE NIL)4790 NIL4791 (IF ATN-PARSER::ATN-STRUCTURE4792 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4793 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4794 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphNode| ATN-PARSER::INDEX *ATN-STACK))))4795 (PROGN (DEFVAR |VarOrTerm-INDEX|)4796 (DEFUN |VarOrTerm| (ATN-PARSER::INDEX &AUX (|GraphTerm| NIL) (|Var| NIL))4797 "{42} VarOrTerm ::= (Var | GraphTerm)4798 (|GraphTerm| |Var|)"4799 (DECLARE (SPECIAL |VarOrTerm-INDEX|))4800 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VarOrTerm-INDEX| *ATN-LEVEL))4801 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4802 (IF (< |VarOrTerm-INDEX| ATN-PARSER::INDEX)4803 (LET ((|VarOrTerm-INDEX| ATN-PARSER::INDEX)4804 (*ATN-LEVEL (1+ *ATN-LEVEL))4805 (*ATN-STACK (CONS '|VarOrTerm| *ATN-STACK))4806 (ATN-PARSER::ATN-STRUCTURE NIL))4807 (DECLARE (SPECIAL |VarOrTerm-INDEX|))4808 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4809 (DECLARE (TYPE CONS *ATN-STACK))4810 (SYMBOL-MACROLET4811 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4812 (%ATN-BLOCK |VarOrTerm|4813 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4814 (SETF *ATN-TERM* '|VarOrTerm|)4815 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4816 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4817 (|VarOrTerm.2| (ATN-PARSER::INDEX)4818 (%ATN-NODE-BLOCK4819 |VarOrTerm.2|4820 (%ATN-EDGE-BLOCK4821 (POP |VarOrTerm|)4822 (WHEN T4823 (SETF *ATN-TERM* '|VarOrTerm|)4824 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4825 '|VarOrTerm|4826 ATN-PARSER::INDEX4827 (LIST '|GraphTerm| |GraphTerm| '|Var| |Var|))4828 (LET ((ATN-PARSER::RESULT-STRUCTURE4829 (IF (EQ *ATN-REDUCE* T)4830 (|VarOrTerm-Constructor| |GraphTerm| |Var|)4831 (IF (EQ *ATN-REDUCE* 'CONS)4832 (CONS '|VarOrTerm| (DELETE NIL (LIST |GraphTerm| |Var|)))4833 '|VarOrTerm|))))4834 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4835 (|VarOrTerm/fail.3| (ATN-PARSER::INDEX)4836 (%ATN-NODE-BLOCK |VarOrTerm/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4837 (|VarOrTerm/start.1| (ATN-PARSER::INDEX)4838 (%ATN-NODE-BLOCK4839 |VarOrTerm/start.1|4840 (%ATN-EDGE-BLOCK4841 OR4842 (PROGN (%ATN-EDGE-BLOCK4843 (TEST |Var|)4844 (COND ((|IS-Var| ATN-PARSER::|item|)4845 (SETF *ATN-TERM* '|Var|)4846 (SETF |Var|4847 (IF (EQ *ATN-REDUCE* T)4848 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)4849 (IF (EQ *ATN-REDUCE* 'CONS)4850 (LIST '|Var| ATN-PARSER::|item|)4851 '|Var|)))4852 (|VarOrTerm.2| (1+ ATN-PARSER::INDEX)))4853 (T (SETF *ATN-TERM?* '|Var|) NIL)))4854 (%ATN-EDGE-BLOCK4855 (PUSH |GraphTerm|)4856 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4857 (ATN-PARSE-SUBSTRUCTURE* '|GraphTerm| ATN-PARSER::INDEX)4858 (COND (ATN-PARSER::SUCCESS4859 (SETF *ATN-TERM* '|GraphTerm|)4860 (LET ((|GraphTerm913| |GraphTerm|))4861 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4862 (DESTRUCTURING-BIND4863 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4864 ATN-PARSER::RESULT-AND-INDEX4865 (WHEN ATN-PARSER::RESULT (SETF |GraphTerm| ATN-PARSER::RESULT))4866 (|VarOrTerm.2| ATN-PARSER::RESULT-INDEX))4867 (SETF |GraphTerm| |GraphTerm913|))))4868 (T (SETF *ATN-TERM?* '|GraphTerm|) NIL))))4869 (|VarOrTerm/fail.3| ATN-PARSER::INDEX))))))4870 (|VarOrTerm/start.1| ATN-PARSER::INDEX)4871 (SETF *ATN-NODE NIL)4872 NIL4873 (IF ATN-PARSER::ATN-STRUCTURE4874 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4875 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4876 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VarOrTerm| ATN-PARSER::INDEX *ATN-STACK))))4877 (PROGN (DEFVAR |VarOrIRIref-INDEX|)4878 (DEFUN |VarOrIRIref| (ATN-PARSER::INDEX &AUX (|IRIref| NIL) (|Var| NIL))4879 "{43} VarOrIRIref ::= (Var | IRIref)4880 (|IRIref| |Var|)"4881 (DECLARE (SPECIAL |VarOrIRIref-INDEX|))4882 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VarOrIRIref-INDEX| *ATN-LEVEL))4883 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4884 (IF (< |VarOrIRIref-INDEX| ATN-PARSER::INDEX)4885 (LET ((|VarOrIRIref-INDEX| ATN-PARSER::INDEX)4886 (*ATN-LEVEL (1+ *ATN-LEVEL))4887 (*ATN-STACK (CONS '|VarOrIRIref| *ATN-STACK))4888 (ATN-PARSER::ATN-STRUCTURE NIL))4889 (DECLARE (SPECIAL |VarOrIRIref-INDEX|))4890 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4891 (DECLARE (TYPE CONS *ATN-STACK))4892 (SYMBOL-MACROLET4893 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4894 (%ATN-BLOCK |VarOrIRIref|4895 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4896 (SETF *ATN-TERM* '|VarOrIRIref|)4897 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4898 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4899 (|VarOrIRIref.2| (ATN-PARSER::INDEX)4900 (%ATN-NODE-BLOCK4901 |VarOrIRIref.2|4902 (%ATN-EDGE-BLOCK4903 (POP |VarOrIRIref|)4904 (WHEN T4905 (SETF *ATN-TERM* '|VarOrIRIref|)4906 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4907 '|VarOrIRIref|4908 ATN-PARSER::INDEX4909 (LIST '|IRIref| |IRIref| '|Var| |Var|))4910 (LET ((ATN-PARSER::RESULT-STRUCTURE4911 (IF (EQ *ATN-REDUCE* T)4912 (|VarOrIRIref-Constructor| |IRIref| |Var|)4913 (IF (EQ *ATN-REDUCE* 'CONS)4914 (CONS '|VarOrIRIref| (DELETE NIL (LIST |IRIref| |Var|)))4915 '|VarOrIRIref|))))4916 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4917 (|VarOrIRIref/fail.3| (ATN-PARSER::INDEX)4918 (%ATN-NODE-BLOCK |VarOrIRIref/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4919 (|VarOrIRIref/start.1| (ATN-PARSER::INDEX)4920 (%ATN-NODE-BLOCK4921 |VarOrIRIref/start.1|4922 (%ATN-EDGE-BLOCK4923 OR4924 (PROGN (%ATN-EDGE-BLOCK4925 (TEST |Var|)4926 (COND ((|IS-Var| ATN-PARSER::|item|)4927 (SETF *ATN-TERM* '|Var|)4928 (SETF |Var|4929 (IF (EQ *ATN-REDUCE* T)4930 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)4931 (IF (EQ *ATN-REDUCE* 'CONS)4932 (LIST '|Var| ATN-PARSER::|item|)4933 '|Var|)))4934 (|VarOrIRIref.2| (1+ ATN-PARSER::INDEX)))4935 (T (SETF *ATN-TERM?* '|Var|) NIL)))4936 (%ATN-EDGE-BLOCK4937 (PUSH |IRIref|)4938 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4939 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)4940 (COND (ATN-PARSER::SUCCESS4941 (SETF *ATN-TERM* '|IRIref|)4942 (LET ((|IRIref913| |IRIref|))4943 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4944 (DESTRUCTURING-BIND4945 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4946 ATN-PARSER::RESULT-AND-INDEX4947 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))4948 (|VarOrIRIref.2| ATN-PARSER::RESULT-INDEX))4949 (SETF |IRIref| |IRIref913|))))4950 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))4951 (|VarOrIRIref/fail.3| ATN-PARSER::INDEX))))))4952 (|VarOrIRIref/start.1| ATN-PARSER::INDEX)4953 (SETF *ATN-NODE NIL)4954 NIL4955 (IF ATN-PARSER::ATN-STRUCTURE4956 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4957 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4958 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VarOrIRIref| ATN-PARSER::INDEX *ATN-STACK))))4959 (PROGN (DEFVAR |GraphTerm-INDEX|)4960 (DEFUN |GraphTerm| (ATN-PARSER::INDEX &AUX (|BlankNode| NIL) (|BooleanLiteral| NIL) (|IRIref| NIL) (NILLIST NIL)4961 (|NumericLiteral| NIL) (|RDFLiteral| NIL))4962 "{45} GraphTerm ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST)4963 (|BlankNode| |BooleanLiteral| |IRIref| NILLIST |NumericLiteral| |RDFLiteral|)"4964 (DECLARE (SPECIAL |GraphTerm-INDEX|))4965 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphTerm-INDEX| *ATN-LEVEL))4966 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4967 (IF (< |GraphTerm-INDEX| ATN-PARSER::INDEX)4968 (LET ((|GraphTerm-INDEX| ATN-PARSER::INDEX)4969 (*ATN-LEVEL (1+ *ATN-LEVEL))4970 (*ATN-STACK (CONS '|GraphTerm| *ATN-STACK))4971 (ATN-PARSER::ATN-STRUCTURE NIL))4972 (DECLARE (SPECIAL |GraphTerm-INDEX|))4973 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4974 (DECLARE (TYPE CONS *ATN-STACK))4975 (SYMBOL-MACROLET4976 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4977 (%ATN-BLOCK |GraphTerm|4978 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4979 (SETF *ATN-TERM* '|GraphTerm|)4980 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4981 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4982 (|GraphTerm.2| (ATN-PARSER::INDEX)4983 (%ATN-NODE-BLOCK4984 |GraphTerm.2|4985 (%ATN-EDGE-BLOCK4986 (POP |GraphTerm|)4987 (WHEN T4988 (SETF *ATN-TERM* '|GraphTerm|)4989 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4990 '|GraphTerm|4991 ATN-PARSER::INDEX4992 (LIST '|BlankNode|4993 |BlankNode|4994 '|BooleanLiteral|4995 |BooleanLiteral|4996 '|IRIref|4997 |IRIref|4998 'NILLIST4999 NILLIST5000 '|NumericLiteral|5001 |NumericLiteral|5002 '|RDFLiteral|5003 |RDFLiteral|))5004 (LET ((ATN-PARSER::RESULT-STRUCTURE5005 (IF (EQ *ATN-REDUCE* T)5006 (|GraphTerm-Constructor|5007 |BlankNode|5008 |BooleanLiteral|5009 |IRIref|5010 NILLIST5011 |NumericLiteral|5012 |RDFLiteral|)5013 (IF (EQ *ATN-REDUCE* 'CONS)5014 (CONS '|GraphTerm|5015 (DELETE NIL5016 (LIST |BlankNode|5017 |BooleanLiteral|5018 |IRIref|5019 NILLIST5020 |NumericLiteral|5021 |RDFLiteral|)))5022 '|GraphTerm|))))5023 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5024 (|GraphTerm/fail.3| (ATN-PARSER::INDEX)5025 (%ATN-NODE-BLOCK |GraphTerm/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5026 (|GraphTerm/start.1| (ATN-PARSER::INDEX)5027 (%ATN-NODE-BLOCK5028 |GraphTerm/start.1|5029 (%ATN-EDGE-BLOCK5030 OR5031 (PROGN (%ATN-EDGE-BLOCK5032 (PUSH |IRIref|)5033 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5034 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)5035 (COND (ATN-PARSER::SUCCESS5036 (SETF *ATN-TERM* '|IRIref|)5037 (LET ((|IRIref914| |IRIref|))5038 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5039 (DESTRUCTURING-BIND5040 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5041 ATN-PARSER::RESULT-AND-INDEX5042 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))5043 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))5044 (SETF |IRIref| |IRIref914|))))5045 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))5046 (%ATN-EDGE-BLOCK5047 (PUSH |RDFLiteral|)5048 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5049 (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral| ATN-PARSER::INDEX)5050 (COND (ATN-PARSER::SUCCESS5051 (SETF *ATN-TERM* '|RDFLiteral|)5052 (LET ((|RDFLiteral914| |RDFLiteral|))5053 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5054 (DESTRUCTURING-BIND5055 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5056 ATN-PARSER::RESULT-AND-INDEX5057 (WHEN ATN-PARSER::RESULT5058 (SETF |RDFLiteral| ATN-PARSER::RESULT))5059 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))5060 (SETF |RDFLiteral| |RDFLiteral914|))))5061 (T (SETF *ATN-TERM?* '|RDFLiteral|) NIL))))5062 (%ATN-EDGE-BLOCK5063 (ATN-PARSER::CAT |NumericLiteral|)5064 (COND ((|IS-NumericLiteral| ATN-PARSER::|item|)5065 (SETF *ATN-TERM* '|NumericLiteral|)5066 (SETF |NumericLiteral|5067 (IF (EQ *ATN-REDUCE* T)5068 (ATN-REDUCE-ITEM5069 #'|NumericLiteral-Constructor|5070 ATN-PARSER::|item|)5071 (IF (EQ *ATN-REDUCE* 'CONS)5072 (LIST '|NumericLiteral| ATN-PARSER::|item|)5073 '|NumericLiteral|)))5074 (|GraphTerm.2| (1+ ATN-PARSER::INDEX)))5075 (T (SETF *ATN-TERM* '|NumericLiteral|) NIL)))5076 (%ATN-EDGE-BLOCK5077 (ATN-PARSER::CAT |BooleanLiteral|)5078 (COND ((|IS-BooleanLiteral| ATN-PARSER::|item|)5079 (SETF *ATN-TERM* '|BooleanLiteral|)5080 (SETF |BooleanLiteral|5081 (IF (EQ *ATN-REDUCE* T)5082 (ATN-REDUCE-ITEM5083 #'|BooleanLiteral-Constructor|5084 ATN-PARSER::|item|)5085 (IF (EQ *ATN-REDUCE* 'CONS)5086 (LIST '|BooleanLiteral| ATN-PARSER::|item|)5087 '|BooleanLiteral|)))5088 (|GraphTerm.2| (1+ ATN-PARSER::INDEX)))5089 (T (SETF *ATN-TERM* '|BooleanLiteral|) NIL)))5090 (%ATN-EDGE-BLOCK5091 (PUSH |BlankNode|)5092 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5093 (ATN-PARSE-SUBSTRUCTURE* '|BlankNode| ATN-PARSER::INDEX)5094 (COND (ATN-PARSER::SUCCESS5095 (SETF *ATN-TERM* '|BlankNode|)5096 (LET ((|BlankNode914| |BlankNode|))5097 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5098 (DESTRUCTURING-BIND5099 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5100 ATN-PARSER::RESULT-AND-INDEX5101 (WHEN ATN-PARSER::RESULT (SETF |BlankNode| ATN-PARSER::RESULT))5102 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))5103 (SETF |BlankNode| |BlankNode914|))))5104 (T (SETF *ATN-TERM?* '|BlankNode|) NIL))))5105 (%ATN-EDGE-BLOCK5106 (PUSH NILLIST)5107 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5108 (ATN-PARSE-SUBSTRUCTURE* 'NILLIST ATN-PARSER::INDEX)5109 (COND (ATN-PARSER::SUCCESS5110 (SETF *ATN-TERM* 'NILLIST)5111 (LET ((NILLIST914 NILLIST))5112 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5113 (DESTRUCTURING-BIND5114 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5115 ATN-PARSER::RESULT-AND-INDEX5116 (WHEN ATN-PARSER::RESULT (SETF NILLIST ATN-PARSER::RESULT))5117 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))5118 (SETF NILLIST NILLIST914))))5119 (T (SETF *ATN-TERM?* 'NILLIST) NIL))))5120 (|GraphTerm/fail.3| ATN-PARSER::INDEX))))))5121 (|GraphTerm/start.1| ATN-PARSER::INDEX)5122 (SETF *ATN-NODE NIL)5123 NIL5124 (IF ATN-PARSER::ATN-STRUCTURE5125 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5126 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5127 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphTerm| ATN-PARSER::INDEX *ATN-STACK))))5128 (PROGN (DEFVAR |Expression-INDEX|)5129 (DEFUN |Expression| (ATN-PARSER::INDEX &AUX (|ConditionalOrExpression| NIL))5130 "{46} Expression ::= ConditionalOrExpression5131 (|ConditionalOrExpression|)"5132 (DECLARE (SPECIAL |Expression-INDEX|))5133 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Expression-INDEX| *ATN-LEVEL))5134 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5135 (IF (< |Expression-INDEX| ATN-PARSER::INDEX)5136 (LET ((|Expression-INDEX| ATN-PARSER::INDEX)5137 (*ATN-LEVEL (1+ *ATN-LEVEL))5138 (*ATN-STACK (CONS '|Expression| *ATN-STACK))5139 (ATN-PARSER::ATN-STRUCTURE NIL))5140 (DECLARE (SPECIAL |Expression-INDEX|))5141 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5142 (DECLARE (TYPE CONS *ATN-STACK))5143 (SYMBOL-MACROLET5144 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5145 (%ATN-BLOCK |Expression|5146 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5147 (SETF *ATN-TERM* '|Expression|)5148 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5149 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5150 (|Expression.2| (ATN-PARSER::INDEX)5151 (%ATN-NODE-BLOCK5152 |Expression.2|5153 (%ATN-EDGE-BLOCK5154 (POP |Expression|)5155 (WHEN T5156 (SETF *ATN-TERM* '|Expression|)5157 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5158 '|Expression|5159 ATN-PARSER::INDEX5160 (LIST '|ConditionalOrExpression| |ConditionalOrExpression|))5161 (LET ((ATN-PARSER::RESULT-STRUCTURE5162 (IF (EQ *ATN-REDUCE* T)5163 (|Expression-Constructor| |ConditionalOrExpression|)5164 (IF (EQ *ATN-REDUCE* 'CONS)5165 (CONS '|Expression| (DELETE NIL (LIST |ConditionalOrExpression|)))5166 '|Expression|))))5167 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5168 (|Expression/fail.3| (ATN-PARSER::INDEX)5169 (%ATN-NODE-BLOCK |Expression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5170 (|Expression/start.1| (ATN-PARSER::INDEX)5171 (%ATN-NODE-BLOCK5172 |Expression/start.1|5173 (%ATN-EDGE-BLOCK5174 (PUSH |ConditionalOrExpression|)5175 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5176 (ATN-PARSE-SUBSTRUCTURE* '|ConditionalOrExpression| ATN-PARSER::INDEX)5177 (COND (ATN-PARSER::SUCCESS5178 (SETF *ATN-TERM* '|ConditionalOrExpression|)5179 (LET ((|ConditionalOrExpression914| |ConditionalOrExpression|))5180 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5181 (DESTRUCTURING-BIND5182 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5183 ATN-PARSER::RESULT-AND-INDEX5184 (WHEN ATN-PARSER::RESULT5185 (SETF |ConditionalOrExpression| ATN-PARSER::RESULT))5186 (|Expression.2| ATN-PARSER::RESULT-INDEX))5187 (SETF |ConditionalOrExpression| |ConditionalOrExpression914|))))5188 (T5189 (SETF *ATN-TERM?* '|ConditionalOrExpression|)5190 (|Expression/fail.3| ATN-PARSER::INDEX))))))))5191 (|Expression/start.1| ATN-PARSER::INDEX)5192 (SETF *ATN-NODE NIL)5193 NIL5194 (IF ATN-PARSER::ATN-STRUCTURE5195 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5196 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5197 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Expression| ATN-PARSER::INDEX *ATN-STACK))))5198 (PROGN (DEFVAR |ConditionalOrExpression-INDEX|)5199 (DEFUN |ConditionalOrExpression| (ATN-PARSER::INDEX &AUX (|ConditionalAndExpression| NIL))5200 "{47} ConditionalOrExpression ::= ConditionalAndExpression ('||'5201 ConditionalAndExpression)*5202 (|ConditionalAndExpression|)"5203 (DECLARE (SPECIAL |ConditionalOrExpression-INDEX|))5204 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConditionalOrExpression-INDEX| *ATN-LEVEL))5205 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5206 (IF (< |ConditionalOrExpression-INDEX| ATN-PARSER::INDEX)5207 (LET ((|ConditionalOrExpression-INDEX| ATN-PARSER::INDEX)5208 (*ATN-LEVEL (1+ *ATN-LEVEL))5209 (*ATN-STACK (CONS '|ConditionalOrExpression| *ATN-STACK))5210 (ATN-PARSER::ATN-STRUCTURE NIL))5211 (DECLARE (SPECIAL |ConditionalOrExpression-INDEX|))5212 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5213 (DECLARE (TYPE CONS *ATN-STACK))5214 (SYMBOL-MACROLET5215 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5216 (%ATN-BLOCK |ConditionalOrExpression|5217 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5218 (SETF *ATN-TERM* '|ConditionalOrExpression|)5219 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5220 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5221 (|ConditionalOrExpression.2| (ATN-PARSER::INDEX)5222 (%ATN-NODE-BLOCK5223 |ConditionalOrExpression.2|5224 (%ATN-EDGE-BLOCK5225 (POP |ConditionalOrExpression|)5226 (WHEN T5227 (SETF *ATN-TERM* '|ConditionalOrExpression|)5228 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5229 '|ConditionalOrExpression|5230 ATN-PARSER::INDEX5231 (LIST '|ConditionalAndExpression| |ConditionalAndExpression|))5232 (LET ((ATN-PARSER::RESULT-STRUCTURE5233 (IF (EQ *ATN-REDUCE* T)5234 (|ConditionalOrExpression-Constructor| |ConditionalAndExpression|)5235 (IF (EQ *ATN-REDUCE* 'CONS)5236 (CONS '|ConditionalOrExpression|5237 (DELETE NIL (LIST |ConditionalAndExpression|)))5238 '|ConditionalOrExpression|))))5239 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5240 (|ConditionalOrExpression.5| (ATN-PARSER::INDEX)5241 (%ATN-NODE-BLOCK5242 |ConditionalOrExpression.5|5243 (%ATN-EDGE-BLOCK5244 (ATN-PARSER::JUMP |ConditionalOrExpression/ConditionalOrExpression.5.6|)5245 (|ConditionalOrExpression/ConditionalOrExpression.5.6| ATN-PARSER::INDEX))5246 (%ATN-EDGE-BLOCK5247 (ATN-PARSER::JUMP |ConditionalOrExpression.2|)5248 (|ConditionalOrExpression.2| ATN-PARSER::INDEX))))5249 (|ConditionalOrExpression/ConditionalOrExpression.2.4| (ATN-PARSER::INDEX)5250 (%ATN-NODE-BLOCK5251 |ConditionalOrExpression/ConditionalOrExpression.2.4|5252 (%ATN-EDGE-BLOCK5253 (ATN-PARSER::JUMP |ConditionalOrExpression/ConditionalOrExpression.5.6|)5254 (|ConditionalOrExpression/ConditionalOrExpression.5.6| ATN-PARSER::INDEX))5255 (%ATN-EDGE-BLOCK5256 (ATN-PARSER::JUMP |ConditionalOrExpression.2|)5257 (|ConditionalOrExpression.2| ATN-PARSER::INDEX))))5258 (|ConditionalOrExpression/ConditionalOrExpression.5.6| (ATN-PARSER::INDEX)5259 (%ATN-NODE-BLOCK5260 |ConditionalOrExpression/ConditionalOrExpression.5.6|5261 (%ATN-EDGE-BLOCK5262 (ATN-PARSER::WORD SPOCQ.S:|\|\||)5263 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|\|\||)5264 (SETF *ATN-TERM* 'SPOCQ.S:|\|\||)5265 (|ConditionalOrExpression/ConditionalOrExpression.5.7| (1+ ATN-PARSER::INDEX)))5266 (T (SETF *ATN-TERM?* 'SPOCQ.S:|\|\||) NIL)))))5267 (|ConditionalOrExpression/ConditionalOrExpression.5.7| (ATN-PARSER::INDEX)5268 (%ATN-NODE-BLOCK5269 |ConditionalOrExpression/ConditionalOrExpression.5.7|5270 (%ATN-EDGE-BLOCK5271 (PUSH |ConditionalAndExpression|)5272 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5273 (ATN-PARSE-SUBSTRUCTURE* '|ConditionalAndExpression| ATN-PARSER::INDEX)5274 (COND (ATN-PARSER::SUCCESS5275 (SETF *ATN-TERM* '|ConditionalAndExpression|)5276 (LET ((|ConditionalAndExpression914| |ConditionalAndExpression|))5277 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5278 (DESTRUCTURING-BIND5279 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5280 ATN-PARSER::RESULT-AND-INDEX5281 (WHEN ATN-PARSER::RESULT5282 (SETF |ConditionalAndExpression|5283 (CONS ATN-PARSER::RESULT |ConditionalAndExpression|)))5284 (|ConditionalOrExpression.5| ATN-PARSER::RESULT-INDEX))5285 (SETF |ConditionalAndExpression| |ConditionalAndExpression914|))))5286 (T (SETF *ATN-TERM?* '|ConditionalAndExpression|) NIL))))))5287 (|ConditionalOrExpression/fail.3| (ATN-PARSER::INDEX)5288 (%ATN-NODE-BLOCK5289 |ConditionalOrExpression/fail.3|5290 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5291 (|ConditionalOrExpression/start.1| (ATN-PARSER::INDEX)5292 (%ATN-NODE-BLOCK5293 |ConditionalOrExpression/start.1|5294 (%ATN-EDGE-BLOCK5295 (PUSH |ConditionalAndExpression|)5296 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5297 (ATN-PARSE-SUBSTRUCTURE* '|ConditionalAndExpression| ATN-PARSER::INDEX)5298 (COND (ATN-PARSER::SUCCESS5299 (SETF *ATN-TERM* '|ConditionalAndExpression|)5300 (LET ((|ConditionalAndExpression915| |ConditionalAndExpression|))5301 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5302 (DESTRUCTURING-BIND5303 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5304 ATN-PARSER::RESULT-AND-INDEX5305 (WHEN ATN-PARSER::RESULT5306 (SETF |ConditionalAndExpression|5307 (CONS ATN-PARSER::RESULT |ConditionalAndExpression|)))5308 (|ConditionalOrExpression/ConditionalOrExpression.2.4|5309 ATN-PARSER::RESULT-INDEX))5310 (SETF |ConditionalAndExpression| |ConditionalAndExpression915|))))5311 (T5312 (SETF *ATN-TERM?* '|ConditionalAndExpression|)5313 (|ConditionalOrExpression/fail.3| ATN-PARSER::INDEX))))))))5314 (|ConditionalOrExpression/start.1| ATN-PARSER::INDEX)5315 (SETF *ATN-NODE NIL)5316 NIL5317 (IF ATN-PARSER::ATN-STRUCTURE5318 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5319 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5320 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConditionalOrExpression| ATN-PARSER::INDEX *ATN-STACK))))5321 (PROGN (DEFVAR |ConditionalAndExpression-INDEX|)5322 (DEFUN |ConditionalAndExpression| (ATN-PARSER::INDEX &AUX (|ValueLogical| NIL))5323 "{48} ConditionalAndExpression ::= ValueLogical ('&&' ValueLogical)*5324 (|ValueLogical|)"5325 (DECLARE (SPECIAL |ConditionalAndExpression-INDEX|))5326 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConditionalAndExpression-INDEX| *ATN-LEVEL))5327 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5328 (IF (< |ConditionalAndExpression-INDEX| ATN-PARSER::INDEX)5329 (LET ((|ConditionalAndExpression-INDEX| ATN-PARSER::INDEX)5330 (*ATN-LEVEL (1+ *ATN-LEVEL))5331 (*ATN-STACK (CONS '|ConditionalAndExpression| *ATN-STACK))5332 (ATN-PARSER::ATN-STRUCTURE NIL))5333 (DECLARE (SPECIAL |ConditionalAndExpression-INDEX|))5334 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5335 (DECLARE (TYPE CONS *ATN-STACK))5336 (SYMBOL-MACROLET5337 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5338 (%ATN-BLOCK |ConditionalAndExpression|5339 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5340 (SETF *ATN-TERM* '|ConditionalAndExpression|)5341 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5342 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5343 (|ConditionalAndExpression.2| (ATN-PARSER::INDEX)5344 (%ATN-NODE-BLOCK5345 |ConditionalAndExpression.2|5346 (%ATN-EDGE-BLOCK5347 (POP |ConditionalAndExpression|)5348 (WHEN T5349 (SETF *ATN-TERM* '|ConditionalAndExpression|)5350 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5351 '|ConditionalAndExpression|5352 ATN-PARSER::INDEX5353 (LIST '|ValueLogical| |ValueLogical|))5354 (LET ((ATN-PARSER::RESULT-STRUCTURE5355 (IF (EQ *ATN-REDUCE* T)5356 (|ConditionalAndExpression-Constructor| |ValueLogical|)5357 (IF (EQ *ATN-REDUCE* 'CONS)5358 (CONS '|ConditionalAndExpression| (DELETE NIL (LIST |ValueLogical|)))5359 '|ConditionalAndExpression|))))5360 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5361 (|ConditionalAndExpression.5| (ATN-PARSER::INDEX)5362 (%ATN-NODE-BLOCK5363 |ConditionalAndExpression.5|5364 (%ATN-EDGE-BLOCK5365 (ATN-PARSER::JUMP |ConditionalAndExpression/ConditionalAndExpression.5.6|)5366 (|ConditionalAndExpression/ConditionalAndExpression.5.6| ATN-PARSER::INDEX))5367 (%ATN-EDGE-BLOCK5368 (ATN-PARSER::JUMP |ConditionalAndExpression.2|)5369 (|ConditionalAndExpression.2| ATN-PARSER::INDEX))))5370 (|ConditionalAndExpression/ConditionalAndExpression.2.4| (ATN-PARSER::INDEX)5371 (%ATN-NODE-BLOCK5372 |ConditionalAndExpression/ConditionalAndExpression.2.4|5373 (%ATN-EDGE-BLOCK5374 (ATN-PARSER::JUMP |ConditionalAndExpression/ConditionalAndExpression.5.6|)5375 (|ConditionalAndExpression/ConditionalAndExpression.5.6| ATN-PARSER::INDEX))5376 (%ATN-EDGE-BLOCK5377 (ATN-PARSER::JUMP |ConditionalAndExpression.2|)5378 (|ConditionalAndExpression.2| ATN-PARSER::INDEX))))5379 (|ConditionalAndExpression/ConditionalAndExpression.5.6| (ATN-PARSER::INDEX)5380 (%ATN-NODE-BLOCK5381 |ConditionalAndExpression/ConditionalAndExpression.5.6|5382 (%ATN-EDGE-BLOCK5383 (ATN-PARSER::WORD SPOCQ.S:&&)5384 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:&&)5385 (SETF *ATN-TERM* 'SPOCQ.S:&&)5386 (|ConditionalAndExpression/ConditionalAndExpression.5.7|5387 (1+ ATN-PARSER::INDEX)))5388 (T (SETF *ATN-TERM?* 'SPOCQ.S:&&) NIL)))))5389 (|ConditionalAndExpression/ConditionalAndExpression.5.7| (ATN-PARSER::INDEX)5390 (%ATN-NODE-BLOCK5391 |ConditionalAndExpression/ConditionalAndExpression.5.7|5392 (%ATN-EDGE-BLOCK5393 (PUSH |ValueLogical|)5394 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5395 (ATN-PARSE-SUBSTRUCTURE* '|ValueLogical| ATN-PARSER::INDEX)5396 (COND (ATN-PARSER::SUCCESS5397 (SETF *ATN-TERM* '|ValueLogical|)5398 (LET ((|ValueLogical915| |ValueLogical|))5399 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5400 (DESTRUCTURING-BIND5401 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5402 ATN-PARSER::RESULT-AND-INDEX5403 (WHEN ATN-PARSER::RESULT5404 (SETF |ValueLogical| (CONS ATN-PARSER::RESULT |ValueLogical|)))5405 (|ConditionalAndExpression.5| ATN-PARSER::RESULT-INDEX))5406 (SETF |ValueLogical| |ValueLogical915|))))5407 (T (SETF *ATN-TERM?* '|ValueLogical|) NIL))))))5408 (|ConditionalAndExpression/fail.3| (ATN-PARSER::INDEX)5409 (%ATN-NODE-BLOCK5410 |ConditionalAndExpression/fail.3|5411 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5412 (|ConditionalAndExpression/start.1| (ATN-PARSER::INDEX)5413 (%ATN-NODE-BLOCK5414 |ConditionalAndExpression/start.1|5415 (%ATN-EDGE-BLOCK5416 (PUSH |ValueLogical|)5417 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5418 (ATN-PARSE-SUBSTRUCTURE* '|ValueLogical| ATN-PARSER::INDEX)5419 (COND (ATN-PARSER::SUCCESS5420 (SETF *ATN-TERM* '|ValueLogical|)5421 (LET ((|ValueLogical916| |ValueLogical|))5422 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5423 (DESTRUCTURING-BIND5424 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5425 ATN-PARSER::RESULT-AND-INDEX5426 (WHEN ATN-PARSER::RESULT5427 (SETF |ValueLogical| (CONS ATN-PARSER::RESULT |ValueLogical|)))5428 (|ConditionalAndExpression/ConditionalAndExpression.2.4|5429 ATN-PARSER::RESULT-INDEX))5430 (SETF |ValueLogical| |ValueLogical916|))))5431 (T5432 (SETF *ATN-TERM?* '|ValueLogical|)5433 (|ConditionalAndExpression/fail.3| ATN-PARSER::INDEX))))))))5434 (|ConditionalAndExpression/start.1| ATN-PARSER::INDEX)5435 (SETF *ATN-NODE NIL)5436 NIL5437 (IF ATN-PARSER::ATN-STRUCTURE5438 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5439 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5440 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConditionalAndExpression| ATN-PARSER::INDEX *ATN-STACK))))5441 (PROGN (DEFVAR |ValueLogical-INDEX|)5442 (DEFUN |ValueLogical| (ATN-PARSER::INDEX &AUX (|RelationalExpression| NIL))5443 "{49} ValueLogical ::= RelationalExpression5444 (|RelationalExpression|)"5445 (DECLARE (SPECIAL |ValueLogical-INDEX|))5446 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ValueLogical-INDEX| *ATN-LEVEL))5447 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5448 (IF (< |ValueLogical-INDEX| ATN-PARSER::INDEX)5449 (LET ((|ValueLogical-INDEX| ATN-PARSER::INDEX)5450 (*ATN-LEVEL (1+ *ATN-LEVEL))5451 (*ATN-STACK (CONS '|ValueLogical| *ATN-STACK))5452 (ATN-PARSER::ATN-STRUCTURE NIL))5453 (DECLARE (SPECIAL |ValueLogical-INDEX|))5454 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5455 (DECLARE (TYPE CONS *ATN-STACK))5456 (SYMBOL-MACROLET5457 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5458 (%ATN-BLOCK |ValueLogical|5459 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5460 (SETF *ATN-TERM* '|ValueLogical|)5461 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5462 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5463 (|ValueLogical.2| (ATN-PARSER::INDEX)5464 (%ATN-NODE-BLOCK5465 |ValueLogical.2|5466 (%ATN-EDGE-BLOCK5467 (POP |ValueLogical|)5468 (WHEN T5469 (SETF *ATN-TERM* '|ValueLogical|)5470 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5471 '|ValueLogical|5472 ATN-PARSER::INDEX5473 (LIST '|RelationalExpression| |RelationalExpression|))5474 (LET ((ATN-PARSER::RESULT-STRUCTURE5475 (IF (EQ *ATN-REDUCE* T)5476 (|ValueLogical-Constructor| |RelationalExpression|)5477 (IF (EQ *ATN-REDUCE* 'CONS)5478 (CONS '|ValueLogical| (DELETE NIL (LIST |RelationalExpression|)))5479 '|ValueLogical|))))5480 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5481 (|ValueLogical/fail.3| (ATN-PARSER::INDEX)5482 (%ATN-NODE-BLOCK |ValueLogical/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5483 (|ValueLogical/start.1| (ATN-PARSER::INDEX)5484 (%ATN-NODE-BLOCK5485 |ValueLogical/start.1|5486 (%ATN-EDGE-BLOCK5487 (PUSH |RelationalExpression|)5488 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5489 (ATN-PARSE-SUBSTRUCTURE* '|RelationalExpression| ATN-PARSER::INDEX)5490 (COND (ATN-PARSER::SUCCESS5491 (SETF *ATN-TERM* '|RelationalExpression|)5492 (LET ((|RelationalExpression916| |RelationalExpression|))5493 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5494 (DESTRUCTURING-BIND5495 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5496 ATN-PARSER::RESULT-AND-INDEX5497 (WHEN ATN-PARSER::RESULT5498 (SETF |RelationalExpression| ATN-PARSER::RESULT))5499 (|ValueLogical.2| ATN-PARSER::RESULT-INDEX))5500 (SETF |RelationalExpression| |RelationalExpression916|))))5501 (T5502 (SETF *ATN-TERM?* '|RelationalExpression|)5503 (|ValueLogical/fail.3| ATN-PARSER::INDEX))))))))5504 (|ValueLogical/start.1| ATN-PARSER::INDEX)5505 (SETF *ATN-NODE NIL)5506 NIL5507 (IF ATN-PARSER::ATN-STRUCTURE5508 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5509 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5510 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ValueLogical| ATN-PARSER::INDEX *ATN-STACK))))5511 (PROGN (DEFVAR |RelationalExpression-INDEX|)5512 (DEFUN |RelationalExpression| (ATN-PARSER::INDEX &AUX (|NumericExpression| NIL) (|RelatedNumeric| NIL))5513 "{50} RelationalExpression ::= NumericExpression RelatedNumeric?5514 (|NumericExpression| |RelatedNumeric|)"5515 (DECLARE (SPECIAL |RelationalExpression-INDEX|))5516 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RelationalExpression-INDEX| *ATN-LEVEL))5517 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5518 (IF (< |RelationalExpression-INDEX| ATN-PARSER::INDEX)5519 (LET ((|RelationalExpression-INDEX| ATN-PARSER::INDEX)5520 (*ATN-LEVEL (1+ *ATN-LEVEL))5521 (*ATN-STACK (CONS '|RelationalExpression| *ATN-STACK))5522 (ATN-PARSER::ATN-STRUCTURE NIL))5523 (DECLARE (SPECIAL |RelationalExpression-INDEX|))5524 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5525 (DECLARE (TYPE CONS *ATN-STACK))5526 (SYMBOL-MACROLET5527 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5528 (%ATN-BLOCK |RelationalExpression|5529 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5530 (SETF *ATN-TERM* '|RelationalExpression|)5531 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5532 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5533 (|RelationalExpression.2| (ATN-PARSER::INDEX)5534 (%ATN-NODE-BLOCK5535 |RelationalExpression.2|5536 (%ATN-EDGE-BLOCK5537 (POP |RelationalExpression|)5538 (WHEN T5539 (SETF *ATN-TERM* '|RelationalExpression|)5540 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5541 '|RelationalExpression|5542 ATN-PARSER::INDEX5543 (LIST '|NumericExpression|5544 |NumericExpression|5545 '|RelatedNumeric|5546 |RelatedNumeric|))5547 (LET ((ATN-PARSER::RESULT-STRUCTURE5548 (IF (EQ *ATN-REDUCE* T)5549 (|RelationalExpression-Constructor| |NumericExpression| |RelatedNumeric|)5550 (IF (EQ *ATN-REDUCE* 'CONS)5551 (CONS '|RelationalExpression|5552 (DELETE NIL (LIST |NumericExpression| |RelatedNumeric|)))5553 '|RelationalExpression|))))5554 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5555 (|RelationalExpression/fail.3| (ATN-PARSER::INDEX)5556 (%ATN-NODE-BLOCK5557 |RelationalExpression/fail.3|5558 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5559 (|RelationalExpression/RelationalExpression.2.4| (ATN-PARSER::INDEX)5560 (%ATN-NODE-BLOCK5561 |RelationalExpression/RelationalExpression.2.4|5562 (%ATN-EDGE-BLOCK5563 (PUSH |RelatedNumeric|)5564 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5565 (ATN-PARSE-SUBSTRUCTURE* '|RelatedNumeric| ATN-PARSER::INDEX)5566 (COND (ATN-PARSER::SUCCESS5567 (SETF *ATN-TERM* '|RelatedNumeric|)5568 (LET ((|RelatedNumeric916| |RelatedNumeric|))5569 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5570 (DESTRUCTURING-BIND5571 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5572 ATN-PARSER::RESULT-AND-INDEX5573 (WHEN ATN-PARSER::RESULT (SETF |RelatedNumeric| ATN-PARSER::RESULT))5574 (|RelationalExpression.2| ATN-PARSER::RESULT-INDEX))5575 (SETF |RelatedNumeric| |RelatedNumeric916|))))5576 (T5577 (SETF *ATN-TERM?* '|RelatedNumeric|)5578 (|RelationalExpression.2| ATN-PARSER::INDEX)))))))5579 (|RelationalExpression/start.1| (ATN-PARSER::INDEX)5580 (%ATN-NODE-BLOCK5581 |RelationalExpression/start.1|5582 (%ATN-EDGE-BLOCK5583 (PUSH |NumericExpression|)5584 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5585 (ATN-PARSE-SUBSTRUCTURE* '|NumericExpression| ATN-PARSER::INDEX)5586 (COND (ATN-PARSER::SUCCESS5587 (SETF *ATN-TERM* '|NumericExpression|)5588 (LET ((|NumericExpression916| |NumericExpression|))5589 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5590 (DESTRUCTURING-BIND5591 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5592 ATN-PARSER::RESULT-AND-INDEX5593 (WHEN ATN-PARSER::RESULT (SETF |NumericExpression| ATN-PARSER::RESULT))5594 (|RelationalExpression/RelationalExpression.2.4|5595 ATN-PARSER::RESULT-INDEX))5596 (SETF |NumericExpression| |NumericExpression916|))))5597 (T5598 (SETF *ATN-TERM?* '|NumericExpression|)5599 (|RelationalExpression/fail.3| ATN-PARSER::INDEX))))))))5600 (|RelationalExpression/start.1| ATN-PARSER::INDEX)5601 (SETF *ATN-NODE NIL)5602 NIL5603 (IF ATN-PARSER::ATN-STRUCTURE5604 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5605 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5606 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RelationalExpression| ATN-PARSER::INDEX *ATN-STACK))))5607 (PROGN (DEFVAR |RelatedNumeric-INDEX|)5608 (DEFUN |RelatedNumeric| (ATN-PARSER::INDEX &AUX (|NumericExpression| NIL) (|RelationalOperator| NIL))5609 "RelatedNumeric ::= RelationalOperator NumericExpression5610 (|NumericExpression| |RelationalOperator|)"5611 (DECLARE (SPECIAL |RelatedNumeric-INDEX|))5612 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RelatedNumeric-INDEX| *ATN-LEVEL))5613 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5614 (IF (< |RelatedNumeric-INDEX| ATN-PARSER::INDEX)5615 (LET ((|RelatedNumeric-INDEX| ATN-PARSER::INDEX)5616 (*ATN-LEVEL (1+ *ATN-LEVEL))5617 (*ATN-STACK (CONS '|RelatedNumeric| *ATN-STACK))5618 (ATN-PARSER::ATN-STRUCTURE NIL))5619 (DECLARE (SPECIAL |RelatedNumeric-INDEX|))5620 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5621 (DECLARE (TYPE CONS *ATN-STACK))5622 (SYMBOL-MACROLET5623 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5624 (%ATN-BLOCK |RelatedNumeric|5625 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5626 (SETF *ATN-TERM* '|RelatedNumeric|)5627 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5628 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5629 (|RelatedNumeric.2| (ATN-PARSER::INDEX)5630 (%ATN-NODE-BLOCK5631 |RelatedNumeric.2|5632 (%ATN-EDGE-BLOCK5633 (POP |RelatedNumeric|)5634 (WHEN T5635 (SETF *ATN-TERM* '|RelatedNumeric|)5636 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5637 '|RelatedNumeric|5638 ATN-PARSER::INDEX5639 (LIST '|NumericExpression|5640 |NumericExpression|5641 '|RelationalOperator|5642 |RelationalOperator|))5643 (LET ((ATN-PARSER::RESULT-STRUCTURE5644 (IF (EQ *ATN-REDUCE* T)5645 (|RelatedNumeric-Constructor| |NumericExpression| |RelationalOperator|)5646 (IF (EQ *ATN-REDUCE* 'CONS)5647 (CONS '|RelatedNumeric|5648 (DELETE NIL (LIST |NumericExpression| |RelationalOperator|)))5649 '|RelatedNumeric|))))5650 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5651 (|RelatedNumeric/fail.3| (ATN-PARSER::INDEX)5652 (%ATN-NODE-BLOCK |RelatedNumeric/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5653 (|RelatedNumeric/RelatedNumeric.2.4| (ATN-PARSER::INDEX)5654 (%ATN-NODE-BLOCK5655 |RelatedNumeric/RelatedNumeric.2.4|5656 (%ATN-EDGE-BLOCK5657 (PUSH |NumericExpression|)5658 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5659 (ATN-PARSE-SUBSTRUCTURE* '|NumericExpression| ATN-PARSER::INDEX)5660 (COND (ATN-PARSER::SUCCESS5661 (SETF *ATN-TERM* '|NumericExpression|)5662 (LET ((|NumericExpression917| |NumericExpression|))5663 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5664 (DESTRUCTURING-BIND5665 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5666 ATN-PARSER::RESULT-AND-INDEX5667 (WHEN ATN-PARSER::RESULT (SETF |NumericExpression| ATN-PARSER::RESULT))5668 (|RelatedNumeric.2| ATN-PARSER::RESULT-INDEX))5669 (SETF |NumericExpression| |NumericExpression917|))))5670 (T5671 (SETF *ATN-TERM?* '|NumericExpression|)5672 (|RelatedNumeric/fail.3| ATN-PARSER::INDEX)))))))5673 (|RelatedNumeric/start.1| (ATN-PARSER::INDEX)5674 (%ATN-NODE-BLOCK5675 |RelatedNumeric/start.1|5676 (%ATN-EDGE-BLOCK5677 (ATN-PARSER::CAT |RelationalOperator|)5678 (COND ((|IS-RelationalOperator| ATN-PARSER::|item|)5679 (SETF *ATN-TERM* '|RelationalOperator|)5680 (SETF |RelationalOperator|5681 (IF (EQ *ATN-REDUCE* T)5682 (ATN-REDUCE-ITEM5683 #'|RelationalOperator-Constructor|5684 ATN-PARSER::|item|)5685 (IF (EQ *ATN-REDUCE* 'CONS)5686 (LIST '|RelationalOperator| ATN-PARSER::|item|)5687 '|RelationalOperator|)))5688 (|RelatedNumeric/RelatedNumeric.2.4| (1+ ATN-PARSER::INDEX)))5689 (T5690 (SETF *ATN-TERM* '|RelationalOperator|)5691 (|RelatedNumeric/fail.3| ATN-PARSER::INDEX)))))))5692 (|RelatedNumeric/start.1| ATN-PARSER::INDEX)5693 (SETF *ATN-NODE NIL)5694 NIL5695 (IF ATN-PARSER::ATN-STRUCTURE5696 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5697 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5698 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RelatedNumeric| ATN-PARSER::INDEX *ATN-STACK))))5699 (PROGN (DEFVAR |NumericExpression-INDEX|)5700 (DEFUN |NumericExpression| (ATN-PARSER::INDEX &AUX (|AdditiveExpression| NIL))5701 "{51} NumericExpression ::= AdditiveExpression5702 (|AdditiveExpression|)"5703 (DECLARE (SPECIAL |NumericExpression-INDEX|))5704 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NumericExpression-INDEX| *ATN-LEVEL))5705 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5706 (IF (< |NumericExpression-INDEX| ATN-PARSER::INDEX)5707 (LET ((|NumericExpression-INDEX| ATN-PARSER::INDEX)5708 (*ATN-LEVEL (1+ *ATN-LEVEL))5709 (*ATN-STACK (CONS '|NumericExpression| *ATN-STACK))5710 (ATN-PARSER::ATN-STRUCTURE NIL))5711 (DECLARE (SPECIAL |NumericExpression-INDEX|))5712 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5713 (DECLARE (TYPE CONS *ATN-STACK))5714 (SYMBOL-MACROLET5715 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5716 (%ATN-BLOCK |NumericExpression|5717 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5718 (SETF *ATN-TERM* '|NumericExpression|)5719 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5720 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5721 (|NumericExpression.2| (ATN-PARSER::INDEX)5722 (%ATN-NODE-BLOCK5723 |NumericExpression.2|5724 (%ATN-EDGE-BLOCK5725 (POP |NumericExpression|)5726 (WHEN T5727 (SETF *ATN-TERM* '|NumericExpression|)5728 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5729 '|NumericExpression|5730 ATN-PARSER::INDEX5731 (LIST '|AdditiveExpression| |AdditiveExpression|))5732 (LET ((ATN-PARSER::RESULT-STRUCTURE5733 (IF (EQ *ATN-REDUCE* T)5734 (|NumericExpression-Constructor| |AdditiveExpression|)5735 (IF (EQ *ATN-REDUCE* 'CONS)5736 (CONS '|NumericExpression| (DELETE NIL (LIST |AdditiveExpression|)))5737 '|NumericExpression|))))5738 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5739 (|NumericExpression/fail.3| (ATN-PARSER::INDEX)5740 (%ATN-NODE-BLOCK |NumericExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5741 (|NumericExpression/start.1| (ATN-PARSER::INDEX)5742 (%ATN-NODE-BLOCK5743 |NumericExpression/start.1|5744 (%ATN-EDGE-BLOCK5745 (PUSH |AdditiveExpression|)5746 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5747 (ATN-PARSE-SUBSTRUCTURE* '|AdditiveExpression| ATN-PARSER::INDEX)5748 (COND (ATN-PARSER::SUCCESS5749 (SETF *ATN-TERM* '|AdditiveExpression|)5750 (LET ((|AdditiveExpression917| |AdditiveExpression|))5751 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5752 (DESTRUCTURING-BIND5753 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5754 ATN-PARSER::RESULT-AND-INDEX5755 (WHEN ATN-PARSER::RESULT (SETF |AdditiveExpression| ATN-PARSER::RESULT))5756 (|NumericExpression.2| ATN-PARSER::RESULT-INDEX))5757 (SETF |AdditiveExpression| |AdditiveExpression917|))))5758 (T5759 (SETF *ATN-TERM?* '|AdditiveExpression|)5760 (|NumericExpression/fail.3| ATN-PARSER::INDEX))))))))5761 (|NumericExpression/start.1| ATN-PARSER::INDEX)5762 (SETF *ATN-NODE NIL)5763 NIL5764 (IF ATN-PARSER::ATN-STRUCTURE5765 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5766 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5767 (WARN "recursive grammar: ~s @ position ~s: ~s" '|NumericExpression| ATN-PARSER::INDEX *ATN-STACK))))5768 (PROGN (DEFVAR |AdditiveExpression-INDEX|)5769 (DEFUN |AdditiveExpression| (ATN-PARSER::INDEX &AUX (|AddedMultiplicative| NIL) (|MultiplicativeExpression| NIL))5770 "{52} AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*5771 (|AddedMultiplicative| |MultiplicativeExpression|)"5772 (DECLARE (SPECIAL |AdditiveExpression-INDEX|))5773 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AdditiveExpression-INDEX| *ATN-LEVEL))5774 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5775 (IF (< |AdditiveExpression-INDEX| ATN-PARSER::INDEX)5776 (LET ((|AdditiveExpression-INDEX| ATN-PARSER::INDEX)5777 (*ATN-LEVEL (1+ *ATN-LEVEL))5778 (*ATN-STACK (CONS '|AdditiveExpression| *ATN-STACK))5779 (ATN-PARSER::ATN-STRUCTURE NIL))5780 (DECLARE (SPECIAL |AdditiveExpression-INDEX|))5781 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5782 (DECLARE (TYPE CONS *ATN-STACK))5783 (SYMBOL-MACROLET5784 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5785 (%ATN-BLOCK |AdditiveExpression|5786 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5787 (SETF *ATN-TERM* '|AdditiveExpression|)5788 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5789 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5790 (|AdditiveExpression.2| (ATN-PARSER::INDEX)5791 (%ATN-NODE-BLOCK5792 |AdditiveExpression.2|5793 (%ATN-EDGE-BLOCK5794 (POP |AdditiveExpression|)5795 (WHEN T5796 (SETF *ATN-TERM* '|AdditiveExpression|)5797 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5798 '|AdditiveExpression|5799 ATN-PARSER::INDEX5800 (LIST '|AddedMultiplicative|5801 |AddedMultiplicative|5802 '|MultiplicativeExpression|5803 |MultiplicativeExpression|))5804 (LET ((ATN-PARSER::RESULT-STRUCTURE5805 (IF (EQ *ATN-REDUCE* T)5806 (|AdditiveExpression-Constructor|5807 |AddedMultiplicative|5808 |MultiplicativeExpression|)5809 (IF (EQ *ATN-REDUCE* 'CONS)5810 (CONS '|AdditiveExpression|5811 (DELETE NIL5812 (LIST |AddedMultiplicative|5813 |MultiplicativeExpression|)))5814 '|AdditiveExpression|))))5815 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5816 (|AdditiveExpression.5| (ATN-PARSER::INDEX)5817 (%ATN-NODE-BLOCK5818 |AdditiveExpression.5|5819 (%ATN-EDGE-BLOCK5820 (PUSH |AddedMultiplicative|)5821 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5822 (ATN-PARSE-SUBSTRUCTURE* '|AddedMultiplicative| ATN-PARSER::INDEX)5823 (COND (ATN-PARSER::SUCCESS5824 (SETF *ATN-TERM* '|AddedMultiplicative|)5825 (LET ((|AddedMultiplicative918| |AddedMultiplicative|))5826 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5827 (DESTRUCTURING-BIND5828 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5829 ATN-PARSER::RESULT-AND-INDEX5830 (WHEN ATN-PARSER::RESULT5831 (SETF |AddedMultiplicative|5832 (CONS ATN-PARSER::RESULT |AddedMultiplicative|)))5833 (|AdditiveExpression.5| ATN-PARSER::RESULT-INDEX))5834 (SETF |AddedMultiplicative| |AddedMultiplicative918|))))5835 (T5836 (SETF *ATN-TERM?* '|AddedMultiplicative|)5837 (|AdditiveExpression.2| ATN-PARSER::INDEX)))))))5838 (|AdditiveExpression/AdditiveExpression.2.4| (ATN-PARSER::INDEX)5839 (%ATN-NODE-BLOCK5840 |AdditiveExpression/AdditiveExpression.2.4|5841 (%ATN-EDGE-BLOCK5842 (PUSH |AddedMultiplicative|)5843 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5844 (ATN-PARSE-SUBSTRUCTURE* '|AddedMultiplicative| ATN-PARSER::INDEX)5845 (COND (ATN-PARSER::SUCCESS5846 (SETF *ATN-TERM* '|AddedMultiplicative|)5847 (LET ((|AddedMultiplicative917| |AddedMultiplicative|))5848 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5849 (DESTRUCTURING-BIND5850 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5851 ATN-PARSER::RESULT-AND-INDEX5852 (WHEN ATN-PARSER::RESULT5853 (SETF |AddedMultiplicative|5854 (CONS ATN-PARSER::RESULT |AddedMultiplicative|)))5855 (|AdditiveExpression.5| ATN-PARSER::RESULT-INDEX))5856 (SETF |AddedMultiplicative| |AddedMultiplicative917|))))5857 (T5858 (SETF *ATN-TERM?* '|AddedMultiplicative|)5859 (|AdditiveExpression.2| ATN-PARSER::INDEX)))))))5860 (|AdditiveExpression/fail.3| (ATN-PARSER::INDEX)5861 (%ATN-NODE-BLOCK |AdditiveExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5862 (|AdditiveExpression/start.1| (ATN-PARSER::INDEX)5863 (%ATN-NODE-BLOCK5864 |AdditiveExpression/start.1|5865 (%ATN-EDGE-BLOCK5866 (PUSH |MultiplicativeExpression|)5867 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5868 (ATN-PARSE-SUBSTRUCTURE* '|MultiplicativeExpression| ATN-PARSER::INDEX)5869 (COND (ATN-PARSER::SUCCESS5870 (SETF *ATN-TERM* '|MultiplicativeExpression|)5871 (LET ((|MultiplicativeExpression918| |MultiplicativeExpression|))5872 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5873 (DESTRUCTURING-BIND5874 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5875 ATN-PARSER::RESULT-AND-INDEX5876 (WHEN ATN-PARSER::RESULT5877 (SETF |MultiplicativeExpression| ATN-PARSER::RESULT))5878 (|AdditiveExpression/AdditiveExpression.2.4| ATN-PARSER::RESULT-INDEX))5879 (SETF |MultiplicativeExpression| |MultiplicativeExpression918|))))5880 (T5881 (SETF *ATN-TERM?* '|MultiplicativeExpression|)5882 (|AdditiveExpression/fail.3| ATN-PARSER::INDEX))))))))5883 (|AdditiveExpression/start.1| ATN-PARSER::INDEX)5884 (SETF *ATN-NODE NIL)5885 NIL5886 (IF ATN-PARSER::ATN-STRUCTURE5887 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5888 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5889 (WARN "recursive grammar: ~s @ position ~s: ~s" '|AdditiveExpression| ATN-PARSER::INDEX *ATN-STACK))))5890 (PROGN (DEFVAR |AddedMultiplicative-INDEX|)5891 (DEFUN |AddedMultiplicative| (ATN-PARSER::INDEX &AUX (|AdditiveOperator| NIL) (|MultiplicativeExpression| NIL))5892 "AddedMultiplicative ::= AdditiveOperator MultiplicativeExpression5893 (|AdditiveOperator| |MultiplicativeExpression|)"5894 (DECLARE (SPECIAL |AddedMultiplicative-INDEX|))5895 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AddedMultiplicative-INDEX| *ATN-LEVEL))5896 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5897 (IF (< |AddedMultiplicative-INDEX| ATN-PARSER::INDEX)5898 (LET ((|AddedMultiplicative-INDEX| ATN-PARSER::INDEX)5899 (*ATN-LEVEL (1+ *ATN-LEVEL))5900 (*ATN-STACK (CONS '|AddedMultiplicative| *ATN-STACK))5901 (ATN-PARSER::ATN-STRUCTURE NIL))5902 (DECLARE (SPECIAL |AddedMultiplicative-INDEX|))5903 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5904 (DECLARE (TYPE CONS *ATN-STACK))5905 (SYMBOL-MACROLET5906 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5907 (%ATN-BLOCK |AddedMultiplicative|5908 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5909 (SETF *ATN-TERM* '|AddedMultiplicative|)5910 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5911 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5912 (|AddedMultiplicative.2| (ATN-PARSER::INDEX)5913 (%ATN-NODE-BLOCK5914 |AddedMultiplicative.2|5915 (%ATN-EDGE-BLOCK5916 (POP |AddedMultiplicative|)5917 (WHEN T5918 (SETF *ATN-TERM* '|AddedMultiplicative|)5919 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5920 '|AddedMultiplicative|5921 ATN-PARSER::INDEX5922 (LIST '|AdditiveOperator|5923 |AdditiveOperator|5924 '|MultiplicativeExpression|5925 |MultiplicativeExpression|))5926 (LET ((ATN-PARSER::RESULT-STRUCTURE5927 (IF (EQ *ATN-REDUCE* T)5928 (|AddedMultiplicative-Constructor|5929 |AdditiveOperator|5930 |MultiplicativeExpression|)5931 (IF (EQ *ATN-REDUCE* 'CONS)5932 (CONS '|AddedMultiplicative|5933 (DELETE NIL5934 (LIST |AdditiveOperator| |MultiplicativeExpression|)))5935 '|AddedMultiplicative|))))5936 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5937 (|AddedMultiplicative/AddedMultiplicative.2.4| (ATN-PARSER::INDEX)5938 (%ATN-NODE-BLOCK5939 |AddedMultiplicative/AddedMultiplicative.2.4|5940 (%ATN-EDGE-BLOCK5941 (PUSH |MultiplicativeExpression|)5942 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5943 (ATN-PARSE-SUBSTRUCTURE* '|MultiplicativeExpression| ATN-PARSER::INDEX)5944 (COND (ATN-PARSER::SUCCESS5945 (SETF *ATN-TERM* '|MultiplicativeExpression|)5946 (LET ((|MultiplicativeExpression919| |MultiplicativeExpression|))5947 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5948 (DESTRUCTURING-BIND5949 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5950 ATN-PARSER::RESULT-AND-INDEX5951 (WHEN ATN-PARSER::RESULT5952 (SETF |MultiplicativeExpression| ATN-PARSER::RESULT))5953 (|AddedMultiplicative.2| ATN-PARSER::RESULT-INDEX))5954 (SETF |MultiplicativeExpression| |MultiplicativeExpression919|))))5955 (T5956 (SETF *ATN-TERM?* '|MultiplicativeExpression|)5957 (|AddedMultiplicative/fail.3| ATN-PARSER::INDEX)))))))5958 (|AddedMultiplicative/fail.3| (ATN-PARSER::INDEX)5959 (%ATN-NODE-BLOCK5960 |AddedMultiplicative/fail.3|5961 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5962 (|AddedMultiplicative/start.1| (ATN-PARSER::INDEX)5963 (%ATN-NODE-BLOCK5964 |AddedMultiplicative/start.1|5965 (%ATN-EDGE-BLOCK5966 (ATN-PARSER::CAT |AdditiveOperator|)5967 (COND ((|IS-AdditiveOperator| ATN-PARSER::|item|)5968 (SETF *ATN-TERM* '|AdditiveOperator|)5969 (SETF |AdditiveOperator|5970 (IF (EQ *ATN-REDUCE* T)5971 (ATN-REDUCE-ITEM #'|AdditiveOperator-Constructor| ATN-PARSER::|item|)5972 (IF (EQ *ATN-REDUCE* 'CONS)5973 (LIST '|AdditiveOperator| ATN-PARSER::|item|)5974 '|AdditiveOperator|)))5975 (|AddedMultiplicative/AddedMultiplicative.2.4| (1+ ATN-PARSER::INDEX)))5976 (T5977 (SETF *ATN-TERM* '|AdditiveOperator|)5978 (|AddedMultiplicative/fail.3| ATN-PARSER::INDEX)))))))5979 (|AddedMultiplicative/start.1| ATN-PARSER::INDEX)5980 (SETF *ATN-NODE NIL)5981 NIL5982 (IF ATN-PARSER::ATN-STRUCTURE5983 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5984 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5985 (WARN "recursive grammar: ~s @ position ~s: ~s" '|AddedMultiplicative| ATN-PARSER::INDEX *ATN-STACK))))5986 (PROGN (DEFVAR |MultiplicativeExpression-INDEX|)5987 (DEFUN |MultiplicativeExpression| (ATN-PARSER::INDEX &AUX (|MultipliedUnary| NIL) (|UnaryExpression| NIL))5988 "{53} MultiplicativeExpression ::= UnaryExpression MultipliedUnary*5989 (|MultipliedUnary| |UnaryExpression|)"5990 (DECLARE (SPECIAL |MultiplicativeExpression-INDEX|))5991 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MultiplicativeExpression-INDEX| *ATN-LEVEL))5992 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5993 (IF (< |MultiplicativeExpression-INDEX| ATN-PARSER::INDEX)5994 (LET ((|MultiplicativeExpression-INDEX| ATN-PARSER::INDEX)5995 (*ATN-LEVEL (1+ *ATN-LEVEL))5996 (*ATN-STACK (CONS '|MultiplicativeExpression| *ATN-STACK))5997 (ATN-PARSER::ATN-STRUCTURE NIL))5998 (DECLARE (SPECIAL |MultiplicativeExpression-INDEX|))5999 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6000 (DECLARE (TYPE CONS *ATN-STACK))6001 (SYMBOL-MACROLET6002 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6003 (%ATN-BLOCK |MultiplicativeExpression|6004 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6005 (SETF *ATN-TERM* '|MultiplicativeExpression|)6006 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6007 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6008 (|MultiplicativeExpression.2| (ATN-PARSER::INDEX)6009 (%ATN-NODE-BLOCK6010 |MultiplicativeExpression.2|6011 (%ATN-EDGE-BLOCK6012 (POP |MultiplicativeExpression|)6013 (WHEN T6014 (SETF *ATN-TERM* '|MultiplicativeExpression|)6015 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6016 '|MultiplicativeExpression|6017 ATN-PARSER::INDEX6018 (LIST '|MultipliedUnary|6019 |MultipliedUnary|6020 '|UnaryExpression|6021 |UnaryExpression|))6022 (LET ((ATN-PARSER::RESULT-STRUCTURE6023 (IF (EQ *ATN-REDUCE* T)6024 (|MultiplicativeExpression-Constructor|6025 |MultipliedUnary|6026 |UnaryExpression|)6027 (IF (EQ *ATN-REDUCE* 'CONS)6028 (CONS '|MultiplicativeExpression|6029 (DELETE NIL (LIST |MultipliedUnary| |UnaryExpression|)))6030 '|MultiplicativeExpression|))))6031 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6032 (|MultiplicativeExpression.5| (ATN-PARSER::INDEX)6033 (%ATN-NODE-BLOCK6034 |MultiplicativeExpression.5|6035 (%ATN-EDGE-BLOCK6036 (PUSH |MultipliedUnary|)6037 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6038 (ATN-PARSE-SUBSTRUCTURE* '|MultipliedUnary| ATN-PARSER::INDEX)6039 (COND (ATN-PARSER::SUCCESS6040 (SETF *ATN-TERM* '|MultipliedUnary|)6041 (LET ((|MultipliedUnary920| |MultipliedUnary|))6042 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6043 (DESTRUCTURING-BIND6044 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6045 ATN-PARSER::RESULT-AND-INDEX6046 (WHEN ATN-PARSER::RESULT6047 (SETF |MultipliedUnary| (CONS ATN-PARSER::RESULT |MultipliedUnary|)))6048 (|MultiplicativeExpression.5| ATN-PARSER::RESULT-INDEX))6049 (SETF |MultipliedUnary| |MultipliedUnary920|))))6050 (T6051 (SETF *ATN-TERM?* '|MultipliedUnary|)6052 (|MultiplicativeExpression.2| ATN-PARSER::INDEX)))))))6053 (|MultiplicativeExpression/fail.3| (ATN-PARSER::INDEX)6054 (%ATN-NODE-BLOCK6055 |MultiplicativeExpression/fail.3|6056 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6057 (|MultiplicativeExpression/MultiplicativeExpression.2.4| (ATN-PARSER::INDEX)6058 (%ATN-NODE-BLOCK6059 |MultiplicativeExpression/MultiplicativeExpression.2.4|6060 (%ATN-EDGE-BLOCK6061 (PUSH |MultipliedUnary|)6062 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6063 (ATN-PARSE-SUBSTRUCTURE* '|MultipliedUnary| ATN-PARSER::INDEX)6064 (COND (ATN-PARSER::SUCCESS6065 (SETF *ATN-TERM* '|MultipliedUnary|)6066 (LET ((|MultipliedUnary919| |MultipliedUnary|))6067 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6068 (DESTRUCTURING-BIND6069 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6070 ATN-PARSER::RESULT-AND-INDEX6071 (WHEN ATN-PARSER::RESULT6072 (SETF |MultipliedUnary| (CONS ATN-PARSER::RESULT |MultipliedUnary|)))6073 (|MultiplicativeExpression.5| ATN-PARSER::RESULT-INDEX))6074 (SETF |MultipliedUnary| |MultipliedUnary919|))))6075 (T6076 (SETF *ATN-TERM?* '|MultipliedUnary|)6077 (|MultiplicativeExpression.2| ATN-PARSER::INDEX)))))))6078 (|MultiplicativeExpression/start.1| (ATN-PARSER::INDEX)6079 (%ATN-NODE-BLOCK6080 |MultiplicativeExpression/start.1|6081 (%ATN-EDGE-BLOCK6082 (PUSH |UnaryExpression|)6083 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6084 (ATN-PARSE-SUBSTRUCTURE* '|UnaryExpression| ATN-PARSER::INDEX)6085 (COND (ATN-PARSER::SUCCESS6086 (SETF *ATN-TERM* '|UnaryExpression|)6087 (LET ((|UnaryExpression920| |UnaryExpression|))6088 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6089 (DESTRUCTURING-BIND6090 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6091 ATN-PARSER::RESULT-AND-INDEX6092 (WHEN ATN-PARSER::RESULT (SETF |UnaryExpression| ATN-PARSER::RESULT))6093 (|MultiplicativeExpression/MultiplicativeExpression.2.4|6094 ATN-PARSER::RESULT-INDEX))6095 (SETF |UnaryExpression| |UnaryExpression920|))))6096 (T6097 (SETF *ATN-TERM?* '|UnaryExpression|)6098 (|MultiplicativeExpression/fail.3| ATN-PARSER::INDEX))))))))6099 (|MultiplicativeExpression/start.1| ATN-PARSER::INDEX)6100 (SETF *ATN-NODE NIL)6101 NIL6102 (IF ATN-PARSER::ATN-STRUCTURE6103 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6104 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6105 (WARN "recursive grammar: ~s @ position ~s: ~s" '|MultiplicativeExpression| ATN-PARSER::INDEX *ATN-STACK))))6106 (PROGN (DEFVAR |MultipliedUnary-INDEX|)6107 (DEFUN |MultipliedUnary| (ATN-PARSER::INDEX &AUX (|MultiplicativeOperator| NIL) (|UnaryExpression| NIL))6108 "MultipliedUnary ::= MultiplicativeOperator UnaryExpression6109 (|MultiplicativeOperator| |UnaryExpression|)"6110 (DECLARE (SPECIAL |MultipliedUnary-INDEX|))6111 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MultipliedUnary-INDEX| *ATN-LEVEL))6112 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6113 (IF (< |MultipliedUnary-INDEX| ATN-PARSER::INDEX)6114 (LET ((|MultipliedUnary-INDEX| ATN-PARSER::INDEX)6115 (*ATN-LEVEL (1+ *ATN-LEVEL))6116 (*ATN-STACK (CONS '|MultipliedUnary| *ATN-STACK))6117 (ATN-PARSER::ATN-STRUCTURE NIL))6118 (DECLARE (SPECIAL |MultipliedUnary-INDEX|))6119 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6120 (DECLARE (TYPE CONS *ATN-STACK))6121 (SYMBOL-MACROLET6122 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6123 (%ATN-BLOCK |MultipliedUnary|6124 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6125 (SETF *ATN-TERM* '|MultipliedUnary|)6126 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6127 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6128 (|MultipliedUnary.2| (ATN-PARSER::INDEX)6129 (%ATN-NODE-BLOCK6130 |MultipliedUnary.2|6131 (%ATN-EDGE-BLOCK6132 (POP |MultipliedUnary|)6133 (WHEN T6134 (SETF *ATN-TERM* '|MultipliedUnary|)6135 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6136 '|MultipliedUnary|6137 ATN-PARSER::INDEX6138 (LIST '|MultiplicativeOperator|6139 |MultiplicativeOperator|6140 '|UnaryExpression|6141 |UnaryExpression|))6142 (LET ((ATN-PARSER::RESULT-STRUCTURE6143 (IF (EQ *ATN-REDUCE* T)6144 (|MultipliedUnary-Constructor| |MultiplicativeOperator| |UnaryExpression|)6145 (IF (EQ *ATN-REDUCE* 'CONS)6146 (CONS '|MultipliedUnary|6147 (DELETE NIL (LIST |MultiplicativeOperator| |UnaryExpression|)))6148 '|MultipliedUnary|))))6149 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6150 (|MultipliedUnary/fail.3| (ATN-PARSER::INDEX)6151 (%ATN-NODE-BLOCK |MultipliedUnary/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6152 (|MultipliedUnary/MultipliedUnary.2.4| (ATN-PARSER::INDEX)6153 (%ATN-NODE-BLOCK6154 |MultipliedUnary/MultipliedUnary.2.4|6155 (%ATN-EDGE-BLOCK6156 (PUSH |UnaryExpression|)6157 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6158 (ATN-PARSE-SUBSTRUCTURE* '|UnaryExpression| ATN-PARSER::INDEX)6159 (COND (ATN-PARSER::SUCCESS6160 (SETF *ATN-TERM* '|UnaryExpression|)6161 (LET ((|UnaryExpression921| |UnaryExpression|))6162 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6163 (DESTRUCTURING-BIND6164 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6165 ATN-PARSER::RESULT-AND-INDEX6166 (WHEN ATN-PARSER::RESULT (SETF |UnaryExpression| ATN-PARSER::RESULT))6167 (|MultipliedUnary.2| ATN-PARSER::RESULT-INDEX))6168 (SETF |UnaryExpression| |UnaryExpression921|))))6169 (T6170 (SETF *ATN-TERM?* '|UnaryExpression|)6171 (|MultipliedUnary/fail.3| ATN-PARSER::INDEX)))))))6172 (|MultipliedUnary/start.1| (ATN-PARSER::INDEX)6173 (%ATN-NODE-BLOCK6174 |MultipliedUnary/start.1|6175 (%ATN-EDGE-BLOCK6176 (ATN-PARSER::CAT |MultiplicativeOperator|)6177 (COND ((|IS-MultiplicativeOperator| ATN-PARSER::|item|)6178 (SETF *ATN-TERM* '|MultiplicativeOperator|)6179 (SETF |MultiplicativeOperator|6180 (IF (EQ *ATN-REDUCE* T)6181 (ATN-REDUCE-ITEM6182 #'|MultiplicativeOperator-Constructor|6183 ATN-PARSER::|item|)6184 (IF (EQ *ATN-REDUCE* 'CONS)6185 (LIST '|MultiplicativeOperator| ATN-PARSER::|item|)6186 '|MultiplicativeOperator|)))6187 (|MultipliedUnary/MultipliedUnary.2.4| (1+ ATN-PARSER::INDEX)))6188 (T6189 (SETF *ATN-TERM* '|MultiplicativeOperator|)6190 (|MultipliedUnary/fail.3| ATN-PARSER::INDEX)))))))6191 (|MultipliedUnary/start.1| ATN-PARSER::INDEX)6192 (SETF *ATN-NODE NIL)6193 NIL6194 (IF ATN-PARSER::ATN-STRUCTURE6195 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6196 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6197 (WARN "recursive grammar: ~s @ position ~s: ~s" '|MultipliedUnary| ATN-PARSER::INDEX *ATN-STACK))))6198 (PROGN (DEFVAR |UnaryExpression-INDEX|)6199 (DEFUN |UnaryExpression| (ATN-PARSER::INDEX &AUX (|PrimaryExpression| NIL) (|UnaryOperator| NIL))6200 "{54} UnaryExpression ::= ((UnaryOperator PrimaryExpression) | PrimaryExpression)6201 (|PrimaryExpression| |UnaryOperator|)"6202 (DECLARE (SPECIAL |UnaryExpression-INDEX|))6203 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |UnaryExpression-INDEX| *ATN-LEVEL))6204 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6205 (IF (< |UnaryExpression-INDEX| ATN-PARSER::INDEX)6206 (LET ((|UnaryExpression-INDEX| ATN-PARSER::INDEX)6207 (*ATN-LEVEL (1+ *ATN-LEVEL))6208 (*ATN-STACK (CONS '|UnaryExpression| *ATN-STACK))6209 (ATN-PARSER::ATN-STRUCTURE NIL))6210 (DECLARE (SPECIAL |UnaryExpression-INDEX|))6211 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6212 (DECLARE (TYPE CONS *ATN-STACK))6213 (SYMBOL-MACROLET6214 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6215 (%ATN-BLOCK |UnaryExpression|6216 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6217 (SETF *ATN-TERM* '|UnaryExpression|)6218 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6219 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6220 (|UnaryExpression.2| (ATN-PARSER::INDEX)6221 (%ATN-NODE-BLOCK6222 |UnaryExpression.2|6223 (%ATN-EDGE-BLOCK6224 (POP |UnaryExpression|)6225 (WHEN T6226 (SETF *ATN-TERM* '|UnaryExpression|)6227 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6228 '|UnaryExpression|6229 ATN-PARSER::INDEX6230 (LIST '|PrimaryExpression|6231 |PrimaryExpression|6232 '|UnaryOperator|6233 |UnaryOperator|))6234 (LET ((ATN-PARSER::RESULT-STRUCTURE6235 (IF (EQ *ATN-REDUCE* T)6236 (|UnaryExpression-Constructor| |PrimaryExpression| |UnaryOperator|)6237 (IF (EQ *ATN-REDUCE* 'CONS)6238 (CONS '|UnaryExpression|6239 (DELETE NIL (LIST |PrimaryExpression| |UnaryOperator|)))6240 '|UnaryExpression|))))6241 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6242 (|UnaryExpression/fail.3| (ATN-PARSER::INDEX)6243 (%ATN-NODE-BLOCK |UnaryExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6244 (|UnaryExpression/start.1| (ATN-PARSER::INDEX)6245 (%ATN-NODE-BLOCK6246 |UnaryExpression/start.1|6247 (%ATN-EDGE-BLOCK6248 OR6249 (PROGN (%ATN-EDGE-BLOCK6250 (ATN-PARSER::JUMP |UnaryExpression/UnaryExpression.2.4|)6251 (|UnaryExpression/UnaryExpression.2.4| ATN-PARSER::INDEX))6252 (%ATN-EDGE-BLOCK6253 (PUSH |PrimaryExpression|)6254 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6255 (ATN-PARSE-SUBSTRUCTURE* '|PrimaryExpression| ATN-PARSER::INDEX)6256 (COND (ATN-PARSER::SUCCESS6257 (SETF *ATN-TERM* '|PrimaryExpression|)6258 (LET ((|PrimaryExpression921| |PrimaryExpression|))6259 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6260 (DESTRUCTURING-BIND6261 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6262 ATN-PARSER::RESULT-AND-INDEX6263 (WHEN ATN-PARSER::RESULT6264 (SETF |PrimaryExpression| ATN-PARSER::RESULT))6265 (|UnaryExpression.2| ATN-PARSER::RESULT-INDEX))6266 (SETF |PrimaryExpression| |PrimaryExpression921|))))6267 (T (SETF *ATN-TERM?* '|PrimaryExpression|) NIL))))6268 (|UnaryExpression/fail.3| ATN-PARSER::INDEX)))))6269 (|UnaryExpression/UnaryExpression.2.4| (ATN-PARSER::INDEX)6270 (%ATN-NODE-BLOCK6271 |UnaryExpression/UnaryExpression.2.4|6272 (%ATN-EDGE-BLOCK6273 (ATN-PARSER::CAT |UnaryOperator|)6274 (COND ((|IS-UnaryOperator| ATN-PARSER::|item|)6275 (SETF *ATN-TERM* '|UnaryOperator|)6276 (SETF |UnaryOperator|6277 (IF (EQ *ATN-REDUCE* T)6278 (ATN-REDUCE-ITEM #'|UnaryOperator-Constructor| ATN-PARSER::|item|)6279 (IF (EQ *ATN-REDUCE* 'CONS)6280 (LIST '|UnaryOperator| ATN-PARSER::|item|)6281 '|UnaryOperator|)))6282 (|UnaryExpression/UnaryExpression.2.5| (1+ ATN-PARSER::INDEX)))6283 (T (SETF *ATN-TERM* '|UnaryOperator|) NIL)))))6284 (|UnaryExpression/UnaryExpression.2.5| (ATN-PARSER::INDEX)6285 (%ATN-NODE-BLOCK6286 |UnaryExpression/UnaryExpression.2.5|6287 (%ATN-EDGE-BLOCK6288 (PUSH |PrimaryExpression|)6289 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6290 (ATN-PARSE-SUBSTRUCTURE* '|PrimaryExpression| ATN-PARSER::INDEX)6291 (COND (ATN-PARSER::SUCCESS6292 (SETF *ATN-TERM* '|PrimaryExpression|)6293 (LET ((|PrimaryExpression922| |PrimaryExpression|))6294 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6295 (DESTRUCTURING-BIND6296 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6297 ATN-PARSER::RESULT-AND-INDEX6298 (WHEN ATN-PARSER::RESULT (SETF |PrimaryExpression| ATN-PARSER::RESULT))6299 (|UnaryExpression.2| ATN-PARSER::RESULT-INDEX))6300 (SETF |PrimaryExpression| |PrimaryExpression922|))))6301 (T (SETF *ATN-TERM?* '|PrimaryExpression|) NIL)))))))6302 (|UnaryExpression/start.1| ATN-PARSER::INDEX)6303 (SETF *ATN-NODE NIL)6304 NIL6305 (IF ATN-PARSER::ATN-STRUCTURE6306 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6307 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6308 (WARN "recursive grammar: ~s @ position ~s: ~s" '|UnaryExpression| ATN-PARSER::INDEX *ATN-STACK))))6309 (PROGN (DEFVAR |PrimaryExpression-INDEX|)6310 (DEFUN |PrimaryExpression| (ATN-PARSER::INDEX &AUX (|BooleanLiteral| NIL) (|BrackettedExpression| NIL) (|BuiltInCall| NIL)6311 (|IRIrefOrFunction| NIL) (|NumericLiteral| NIL) (|RDFLiteral| NIL) (|Var| NIL))6312 "{55} PrimaryExpression ::= (BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var)6313 (|BooleanLiteral| |BrackettedExpression| |BuiltInCall| |IRIrefOrFunction| |NumericLiteral| |RDFLiteral| |Var|)"6314 (DECLARE (SPECIAL |PrimaryExpression-INDEX|))6315 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PrimaryExpression-INDEX| *ATN-LEVEL))6316 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6317 (IF (< |PrimaryExpression-INDEX| ATN-PARSER::INDEX)6318 (LET ((|PrimaryExpression-INDEX| ATN-PARSER::INDEX)6319 (*ATN-LEVEL (1+ *ATN-LEVEL))6320 (*ATN-STACK (CONS '|PrimaryExpression| *ATN-STACK))6321 (ATN-PARSER::ATN-STRUCTURE NIL))6322 (DECLARE (SPECIAL |PrimaryExpression-INDEX|))6323 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6324 (DECLARE (TYPE CONS *ATN-STACK))6325 (SYMBOL-MACROLET6326 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6327 (%ATN-BLOCK |PrimaryExpression|6328 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6329 (SETF *ATN-TERM* '|PrimaryExpression|)6330 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6331 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6332 (|PrimaryExpression.2| (ATN-PARSER::INDEX)6333 (%ATN-NODE-BLOCK6334 |PrimaryExpression.2|6335 (%ATN-EDGE-BLOCK6336 (POP |PrimaryExpression|)6337 (WHEN T6338 (SETF *ATN-TERM* '|PrimaryExpression|)6339 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6340 '|PrimaryExpression|6341 ATN-PARSER::INDEX6342 (LIST '|BooleanLiteral|6343 |BooleanLiteral|6344 '|BrackettedExpression|6345 |BrackettedExpression|6346 '|BuiltInCall|6347 |BuiltInCall|6348 '|IRIrefOrFunction|6349 |IRIrefOrFunction|6350 '|NumericLiteral|6351 |NumericLiteral|6352 '|RDFLiteral|6353 |RDFLiteral|6354 '|Var|6355 |Var|))6356 (LET ((ATN-PARSER::RESULT-STRUCTURE6357 (IF (EQ *ATN-REDUCE* T)6358 (|PrimaryExpression-Constructor|6359 |BooleanLiteral|6360 |BrackettedExpression|6361 |BuiltInCall|6362 |IRIrefOrFunction|6363 |NumericLiteral|6364 |RDFLiteral|6365 |Var|)6366 (IF (EQ *ATN-REDUCE* 'CONS)6367 (CONS '|PrimaryExpression|6368 (DELETE NIL6369 (LIST |BooleanLiteral|6370 |BrackettedExpression|6371 |BuiltInCall|6372 |IRIrefOrFunction|6373 |NumericLiteral|6374 |RDFLiteral|6375 |Var|)))6376 '|PrimaryExpression|))))6377 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6378 (|PrimaryExpression/fail.3| (ATN-PARSER::INDEX)6379 (%ATN-NODE-BLOCK |PrimaryExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6380 (|PrimaryExpression/start.1| (ATN-PARSER::INDEX)6381 (%ATN-NODE-BLOCK6382 |PrimaryExpression/start.1|6383 (%ATN-EDGE-BLOCK6384 OR6385 (PROGN (%ATN-EDGE-BLOCK6386 (PUSH |BrackettedExpression|)6387 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6388 (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression| ATN-PARSER::INDEX)6389 (COND (ATN-PARSER::SUCCESS6390 (SETF *ATN-TERM* '|BrackettedExpression|)6391 (LET ((|BrackettedExpression922| |BrackettedExpression|))6392 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6393 (DESTRUCTURING-BIND6394 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6395 ATN-PARSER::RESULT-AND-INDEX6396 (WHEN ATN-PARSER::RESULT6397 (SETF |BrackettedExpression| ATN-PARSER::RESULT))6398 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))6399 (SETF |BrackettedExpression| |BrackettedExpression922|))))6400 (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))6401 (%ATN-EDGE-BLOCK6402 (PUSH |BuiltInCall|)6403 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6404 (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall| ATN-PARSER::INDEX)6405 (COND (ATN-PARSER::SUCCESS6406 (SETF *ATN-TERM* '|BuiltInCall|)6407 (LET ((|BuiltInCall922| |BuiltInCall|))6408 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6409 (DESTRUCTURING-BIND6410 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6411 ATN-PARSER::RESULT-AND-INDEX6412 (WHEN ATN-PARSER::RESULT6413 (SETF |BuiltInCall| ATN-PARSER::RESULT))6414 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))6415 (SETF |BuiltInCall| |BuiltInCall922|))))6416 (T (SETF *ATN-TERM?* '|BuiltInCall|) NIL))))6417 (%ATN-EDGE-BLOCK6418 (PUSH |IRIrefOrFunction|)6419 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6420 (ATN-PARSE-SUBSTRUCTURE* '|IRIrefOrFunction| ATN-PARSER::INDEX)6421 (COND (ATN-PARSER::SUCCESS6422 (SETF *ATN-TERM* '|IRIrefOrFunction|)6423 (LET ((|IRIrefOrFunction922| |IRIrefOrFunction|))6424 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6425 (DESTRUCTURING-BIND6426 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6427 ATN-PARSER::RESULT-AND-INDEX6428 (WHEN ATN-PARSER::RESULT6429 (SETF |IRIrefOrFunction| ATN-PARSER::RESULT))6430 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))6431 (SETF |IRIrefOrFunction| |IRIrefOrFunction922|))))6432 (T (SETF *ATN-TERM?* '|IRIrefOrFunction|) NIL))))6433 (%ATN-EDGE-BLOCK6434 (PUSH |RDFLiteral|)6435 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6436 (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral| ATN-PARSER::INDEX)6437 (COND (ATN-PARSER::SUCCESS6438 (SETF *ATN-TERM* '|RDFLiteral|)6439 (LET ((|RDFLiteral922| |RDFLiteral|))6440 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6441 (DESTRUCTURING-BIND6442 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6443 ATN-PARSER::RESULT-AND-INDEX6444 (WHEN ATN-PARSER::RESULT6445 (SETF |RDFLiteral| ATN-PARSER::RESULT))6446 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))6447 (SETF |RDFLiteral| |RDFLiteral922|))))6448 (T (SETF *ATN-TERM?* '|RDFLiteral|) NIL))))6449 (%ATN-EDGE-BLOCK6450 (ATN-PARSER::CAT |NumericLiteral|)6451 (COND ((|IS-NumericLiteral| ATN-PARSER::|item|)6452 (SETF *ATN-TERM* '|NumericLiteral|)6453 (SETF |NumericLiteral|6454 (IF (EQ *ATN-REDUCE* T)6455 (ATN-REDUCE-ITEM6456 #'|NumericLiteral-Constructor|6457 ATN-PARSER::|item|)6458 (IF (EQ *ATN-REDUCE* 'CONS)6459 (LIST '|NumericLiteral| ATN-PARSER::|item|)6460 '|NumericLiteral|)))6461 (|PrimaryExpression.2| (1+ ATN-PARSER::INDEX)))6462 (T (SETF *ATN-TERM* '|NumericLiteral|) NIL)))6463 (%ATN-EDGE-BLOCK6464 (ATN-PARSER::CAT |BooleanLiteral|)6465 (COND ((|IS-BooleanLiteral| ATN-PARSER::|item|)6466 (SETF *ATN-TERM* '|BooleanLiteral|)6467 (SETF |BooleanLiteral|6468 (IF (EQ *ATN-REDUCE* T)6469 (ATN-REDUCE-ITEM6470 #'|BooleanLiteral-Constructor|6471 ATN-PARSER::|item|)6472 (IF (EQ *ATN-REDUCE* 'CONS)6473 (LIST '|BooleanLiteral| ATN-PARSER::|item|)6474 '|BooleanLiteral|)))6475 (|PrimaryExpression.2| (1+ ATN-PARSER::INDEX)))6476 (T (SETF *ATN-TERM* '|BooleanLiteral|) NIL)))6477 (%ATN-EDGE-BLOCK6478 (TEST |Var|)6479 (COND ((|IS-Var| ATN-PARSER::|item|)6480 (SETF *ATN-TERM* '|Var|)6481 (SETF |Var|6482 (IF (EQ *ATN-REDUCE* T)6483 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)6484 (IF (EQ *ATN-REDUCE* 'CONS)6485 (LIST '|Var| ATN-PARSER::|item|)6486 '|Var|)))6487 (|PrimaryExpression.2| (1+ ATN-PARSER::INDEX)))6488 (T (SETF *ATN-TERM?* '|Var|) NIL)))6489 (|PrimaryExpression/fail.3| ATN-PARSER::INDEX))))))6490 (|PrimaryExpression/start.1| ATN-PARSER::INDEX)6491 (SETF *ATN-NODE NIL)6492 NIL6493 (IF ATN-PARSER::ATN-STRUCTURE6494 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6495 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6496 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PrimaryExpression| ATN-PARSER::INDEX *ATN-STACK))))6497 (PROGN (DEFVAR |BrackettedExpression-INDEX|)6498 (DEFUN |BrackettedExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))6499 "{56} BrackettedExpression ::= '(' Expression ')'6500 (|Expression|)"6501 (DECLARE (SPECIAL |BrackettedExpression-INDEX|))6502 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BrackettedExpression-INDEX| *ATN-LEVEL))6503 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6504 (IF (< |BrackettedExpression-INDEX| ATN-PARSER::INDEX)6505 (LET ((|BrackettedExpression-INDEX| ATN-PARSER::INDEX)6506 (*ATN-LEVEL (1+ *ATN-LEVEL))6507 (*ATN-STACK (CONS '|BrackettedExpression| *ATN-STACK))6508 (ATN-PARSER::ATN-STRUCTURE NIL))6509 (DECLARE (SPECIAL |BrackettedExpression-INDEX|))6510 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6511 (DECLARE (TYPE CONS *ATN-STACK))6512 (SYMBOL-MACROLET6513 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6514 (%ATN-BLOCK |BrackettedExpression|6515 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6516 (SETF *ATN-TERM* '|BrackettedExpression|)6517 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6518 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6519 (|BrackettedExpression.2| (ATN-PARSER::INDEX)6520 (%ATN-NODE-BLOCK6521 |BrackettedExpression.2|6522 (%ATN-EDGE-BLOCK6523 (POP |BrackettedExpression|)6524 (WHEN T6525 (SETF *ATN-TERM* '|BrackettedExpression|)6526 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6527 '|BrackettedExpression|6528 ATN-PARSER::INDEX6529 (LIST '|Expression| |Expression|))6530 (LET ((ATN-PARSER::RESULT-STRUCTURE6531 (IF (EQ *ATN-REDUCE* T)6532 (|BrackettedExpression-Constructor| |Expression|)6533 (IF (EQ *ATN-REDUCE* 'CONS)6534 (CONS '|BrackettedExpression| (DELETE NIL (LIST |Expression|)))6535 '|BrackettedExpression|))))6536 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6537 (|BrackettedExpression/BrackettedExpression.2.4| (ATN-PARSER::INDEX)6538 (%ATN-NODE-BLOCK6539 |BrackettedExpression/BrackettedExpression.2.4|6540 (%ATN-EDGE-BLOCK6541 (PUSH |Expression|)6542 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6543 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)6544 (COND (ATN-PARSER::SUCCESS6545 (SETF *ATN-TERM* '|Expression|)6546 (LET ((|Expression922| |Expression|))6547 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6548 (DESTRUCTURING-BIND6549 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6550 ATN-PARSER::RESULT-AND-INDEX6551 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))6552 (|BrackettedExpression/BrackettedExpression.2.5|6553 ATN-PARSER::RESULT-INDEX))6554 (SETF |Expression| |Expression922|))))6555 (T6556 (SETF *ATN-TERM?* '|Expression|)6557 (|BrackettedExpression/fail.3| ATN-PARSER::INDEX)))))))6558 (|BrackettedExpression/BrackettedExpression.2.5| (ATN-PARSER::INDEX)6559 (%ATN-NODE-BLOCK6560 |BrackettedExpression/BrackettedExpression.2.5|6561 (%ATN-EDGE-BLOCK6562 (ATN-PARSER::WORD SPOCQ.S:\))6563 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))6564 (SETF *ATN-TERM* 'SPOCQ.S:\))6565 (|BrackettedExpression.2| (1+ ATN-PARSER::INDEX)))6566 (T6567 (SETF *ATN-TERM?* 'SPOCQ.S:\))6568 (|BrackettedExpression/fail.3| ATN-PARSER::INDEX))))))6569 (|BrackettedExpression/fail.3| (ATN-PARSER::INDEX)6570 (%ATN-NODE-BLOCK6571 |BrackettedExpression/fail.3|6572 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6573 (|BrackettedExpression/start.1| (ATN-PARSER::INDEX)6574 (%ATN-NODE-BLOCK6575 |BrackettedExpression/start.1|6576 (%ATN-EDGE-BLOCK6577 (ATN-PARSER::WORD SPOCQ.S:\()6578 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()6579 (SETF *ATN-TERM* 'SPOCQ.S:\()6580 (|BrackettedExpression/BrackettedExpression.2.4| (1+ ATN-PARSER::INDEX)))6581 (T6582 (SETF *ATN-TERM?* 'SPOCQ.S:\()6583 (|BrackettedExpression/fail.3| ATN-PARSER::INDEX)))))))6584 (|BrackettedExpression/start.1| ATN-PARSER::INDEX)6585 (SETF *ATN-NODE NIL)6586 NIL6587 (IF ATN-PARSER::ATN-STRUCTURE6588 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6589 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6590 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BrackettedExpression| ATN-PARSER::INDEX *ATN-STACK))))6591 (PROGN (DEFVAR |BuiltInCall-INDEX|)6592 (DEFUN |BuiltInCall| (ATN-PARSER::INDEX &AUX (|BuiltinBinaryCall| NIL) (|BuiltinUnaryCall| NIL) (|RegexExpression| NIL))6593 "{57} BuiltInCall ::= (BuiltinBinaryCall | BuiltinUnaryCall | RegexExpression)6594 (|BuiltinBinaryCall| |BuiltinUnaryCall| |RegexExpression|)"6595 (DECLARE (SPECIAL |BuiltInCall-INDEX|))6596 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltInCall-INDEX| *ATN-LEVEL))6597 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6598 (IF (< |BuiltInCall-INDEX| ATN-PARSER::INDEX)6599 (LET ((|BuiltInCall-INDEX| ATN-PARSER::INDEX)6600 (*ATN-LEVEL (1+ *ATN-LEVEL))6601 (*ATN-STACK (CONS '|BuiltInCall| *ATN-STACK))6602 (ATN-PARSER::ATN-STRUCTURE NIL))6603 (DECLARE (SPECIAL |BuiltInCall-INDEX|))6604 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6605 (DECLARE (TYPE CONS *ATN-STACK))6606 (SYMBOL-MACROLET6607 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6608 (%ATN-BLOCK |BuiltInCall|6609 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6610 (SETF *ATN-TERM* '|BuiltInCall|)6611 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6612 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6613 (|BuiltInCall.2| (ATN-PARSER::INDEX)6614 (%ATN-NODE-BLOCK6615 |BuiltInCall.2|6616 (%ATN-EDGE-BLOCK6617 (POP |BuiltInCall|)6618 (WHEN T6619 (SETF *ATN-TERM* '|BuiltInCall|)6620 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6621 '|BuiltInCall|6622 ATN-PARSER::INDEX6623 (LIST '|BuiltinBinaryCall|6624 |BuiltinBinaryCall|6625 '|BuiltinUnaryCall|6626 |BuiltinUnaryCall|6627 '|RegexExpression|6628 |RegexExpression|))6629 (LET ((ATN-PARSER::RESULT-STRUCTURE6630 (IF (EQ *ATN-REDUCE* T)6631 (|BuiltInCall-Constructor|6632 |BuiltinBinaryCall|6633 |BuiltinUnaryCall|6634 |RegexExpression|)6635 (IF (EQ *ATN-REDUCE* 'CONS)6636 (CONS '|BuiltInCall|6637 (DELETE NIL6638 (LIST |BuiltinBinaryCall|6639 |BuiltinUnaryCall|6640 |RegexExpression|)))6641 '|BuiltInCall|))))6642 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6643 (|BuiltInCall/fail.3| (ATN-PARSER::INDEX)6644 (%ATN-NODE-BLOCK |BuiltInCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6645 (|BuiltInCall/start.1| (ATN-PARSER::INDEX)6646 (%ATN-NODE-BLOCK6647 |BuiltInCall/start.1|6648 (%ATN-EDGE-BLOCK6649 OR6650 (PROGN (%ATN-EDGE-BLOCK6651 (PUSH |BuiltinBinaryCall|)6652 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6653 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinBinaryCall| ATN-PARSER::INDEX)6654 (COND (ATN-PARSER::SUCCESS6655 (SETF *ATN-TERM* '|BuiltinBinaryCall|)6656 (LET ((|BuiltinBinaryCall922| |BuiltinBinaryCall|))6657 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6658 (DESTRUCTURING-BIND6659 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6660 ATN-PARSER::RESULT-AND-INDEX6661 (WHEN ATN-PARSER::RESULT6662 (SETF |BuiltinBinaryCall| ATN-PARSER::RESULT))6663 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))6664 (SETF |BuiltinBinaryCall| |BuiltinBinaryCall922|))))6665 (T (SETF *ATN-TERM?* '|BuiltinBinaryCall|) NIL))))6666 (%ATN-EDGE-BLOCK6667 (PUSH |BuiltinUnaryCall|)6668 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6669 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinUnaryCall| ATN-PARSER::INDEX)6670 (COND (ATN-PARSER::SUCCESS6671 (SETF *ATN-TERM* '|BuiltinUnaryCall|)6672 (LET ((|BuiltinUnaryCall922| |BuiltinUnaryCall|))6673 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6674 (DESTRUCTURING-BIND6675 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6676 ATN-PARSER::RESULT-AND-INDEX6677 (WHEN ATN-PARSER::RESULT6678 (SETF |BuiltinUnaryCall| ATN-PARSER::RESULT))6679 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))6680 (SETF |BuiltinUnaryCall| |BuiltinUnaryCall922|))))6681 (T (SETF *ATN-TERM?* '|BuiltinUnaryCall|) NIL))))6682 (%ATN-EDGE-BLOCK6683 (PUSH |RegexExpression|)6684 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6685 (ATN-PARSE-SUBSTRUCTURE* '|RegexExpression| ATN-PARSER::INDEX)6686 (COND (ATN-PARSER::SUCCESS6687 (SETF *ATN-TERM* '|RegexExpression|)6688 (LET ((|RegexExpression922| |RegexExpression|))6689 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6690 (DESTRUCTURING-BIND6691 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6692 ATN-PARSER::RESULT-AND-INDEX6693 (WHEN ATN-PARSER::RESULT6694 (SETF |RegexExpression| ATN-PARSER::RESULT))6695 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))6696 (SETF |RegexExpression| |RegexExpression922|))))6697 (T (SETF *ATN-TERM?* '|RegexExpression|) NIL))))6698 (|BuiltInCall/fail.3| ATN-PARSER::INDEX))))))6699 (|BuiltInCall/start.1| ATN-PARSER::INDEX)6700 (SETF *ATN-NODE NIL)6701 NIL6702 (IF ATN-PARSER::ATN-STRUCTURE6703 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6704 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6705 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltInCall| ATN-PARSER::INDEX *ATN-STACK))))6706 (PROGN (DEFVAR |BuiltinUnaryCall-INDEX|)6707 (DEFUN |BuiltinUnaryCall| (ATN-PARSER::INDEX &AUX (|BuiltinUnaryOperator| NIL) (|Expression| NIL))6708 "{57} BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'6709 (|BuiltinUnaryOperator| |Expression|)"6710 (DECLARE (SPECIAL |BuiltinUnaryCall-INDEX|))6711 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinUnaryCall-INDEX| *ATN-LEVEL))6712 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6713 (IF (< |BuiltinUnaryCall-INDEX| ATN-PARSER::INDEX)6714 (LET ((|BuiltinUnaryCall-INDEX| ATN-PARSER::INDEX)6715 (*ATN-LEVEL (1+ *ATN-LEVEL))6716 (*ATN-STACK (CONS '|BuiltinUnaryCall| *ATN-STACK))6717 (ATN-PARSER::ATN-STRUCTURE NIL))6718 (DECLARE (SPECIAL |BuiltinUnaryCall-INDEX|))6719 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6720 (DECLARE (TYPE CONS *ATN-STACK))6721 (SYMBOL-MACROLET6722 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6723 (%ATN-BLOCK |BuiltinUnaryCall|6724 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6725 (SETF *ATN-TERM* '|BuiltinUnaryCall|)6726 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6727 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6728 (|BuiltinUnaryCall.2| (ATN-PARSER::INDEX)6729 (%ATN-NODE-BLOCK6730 |BuiltinUnaryCall.2|6731 (%ATN-EDGE-BLOCK6732 (POP |BuiltinUnaryCall|)6733 (WHEN T6734 (SETF *ATN-TERM* '|BuiltinUnaryCall|)6735 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6736 '|BuiltinUnaryCall|6737 ATN-PARSER::INDEX6738 (LIST '|BuiltinUnaryOperator|6739 |BuiltinUnaryOperator|6740 '|Expression|6741 |Expression|))6742 (LET ((ATN-PARSER::RESULT-STRUCTURE6743 (IF (EQ *ATN-REDUCE* T)6744 (|BuiltinUnaryCall-Constructor| |BuiltinUnaryOperator| |Expression|)6745 (IF (EQ *ATN-REDUCE* 'CONS)6746 (CONS '|BuiltinUnaryCall|6747 (DELETE NIL (LIST |BuiltinUnaryOperator| |Expression|)))6748 '|BuiltinUnaryCall|))))6749 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6750 (|BuiltinUnaryCall/BuiltinUnaryCall.2.4| (ATN-PARSER::INDEX)6751 (%ATN-NODE-BLOCK6752 |BuiltinUnaryCall/BuiltinUnaryCall.2.4|6753 (%ATN-EDGE-BLOCK6754 (ATN-PARSER::WORD SPOCQ.S:\()6755 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()6756 (SETF *ATN-TERM* 'SPOCQ.S:\()6757 (|BuiltinUnaryCall/BuiltinUnaryCall.2.5| (1+ ATN-PARSER::INDEX)))6758 (T6759 (SETF *ATN-TERM?* 'SPOCQ.S:\()6760 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX))))))6761 (|BuiltinUnaryCall/BuiltinUnaryCall.2.5| (ATN-PARSER::INDEX)6762 (%ATN-NODE-BLOCK6763 |BuiltinUnaryCall/BuiltinUnaryCall.2.5|6764 (%ATN-EDGE-BLOCK6765 (PUSH |Expression|)6766 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6767 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)6768 (COND (ATN-PARSER::SUCCESS6769 (SETF *ATN-TERM* '|Expression|)6770 (LET ((|Expression923| |Expression|))6771 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6772 (DESTRUCTURING-BIND6773 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6774 ATN-PARSER::RESULT-AND-INDEX6775 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))6776 (|BuiltinUnaryCall/BuiltinUnaryCall.2.6| ATN-PARSER::RESULT-INDEX))6777 (SETF |Expression| |Expression923|))))6778 (T6779 (SETF *ATN-TERM?* '|Expression|)6780 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX)))))))6781 (|BuiltinUnaryCall/BuiltinUnaryCall.2.6| (ATN-PARSER::INDEX)6782 (%ATN-NODE-BLOCK6783 |BuiltinUnaryCall/BuiltinUnaryCall.2.6|6784 (%ATN-EDGE-BLOCK6785 (ATN-PARSER::WORD SPOCQ.S:\))6786 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))6787 (SETF *ATN-TERM* 'SPOCQ.S:\))6788 (|BuiltinUnaryCall.2| (1+ ATN-PARSER::INDEX)))6789 (T6790 (SETF *ATN-TERM?* 'SPOCQ.S:\))6791 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX))))))6792 (|BuiltinUnaryCall/fail.3| (ATN-PARSER::INDEX)6793 (%ATN-NODE-BLOCK |BuiltinUnaryCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6794 (|BuiltinUnaryCall/start.1| (ATN-PARSER::INDEX)6795 (%ATN-NODE-BLOCK6796 |BuiltinUnaryCall/start.1|6797 (%ATN-EDGE-BLOCK6798 (ATN-PARSER::CAT |BuiltinUnaryOperator|)6799 (COND ((|IS-BuiltinUnaryOperator| ATN-PARSER::|item|)6800 (SETF *ATN-TERM* '|BuiltinUnaryOperator|)6801 (SETF |BuiltinUnaryOperator|6802 (IF (EQ *ATN-REDUCE* T)6803 (ATN-REDUCE-ITEM6804 #'|BuiltinUnaryOperator-Constructor|6805 ATN-PARSER::|item|)6806 (IF (EQ *ATN-REDUCE* 'CONS)6807 (LIST '|BuiltinUnaryOperator| ATN-PARSER::|item|)6808 '|BuiltinUnaryOperator|)))6809 (|BuiltinUnaryCall/BuiltinUnaryCall.2.4| (1+ ATN-PARSER::INDEX)))6810 (T6811 (SETF *ATN-TERM* '|BuiltinUnaryOperator|)6812 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX)))))))6813 (|BuiltinUnaryCall/start.1| ATN-PARSER::INDEX)6814 (SETF *ATN-NODE NIL)6815 NIL6816 (IF ATN-PARSER::ATN-STRUCTURE6817 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6818 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6819 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinUnaryCall| ATN-PARSER::INDEX *ATN-STACK))))6820 (PROGN (DEFVAR |BuiltinBinaryCall-INDEX|)6821 (DEFUN |BuiltinBinaryCall| (ATN-PARSER::INDEX &AUX (|BuiltinBinaryOperator| NIL) (|Expression| NIL))6822 "{57} BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'6823 (|BuiltinBinaryOperator| |Expression|)"6824 (DECLARE (SPECIAL |BuiltinBinaryCall-INDEX|))6825 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinBinaryCall-INDEX| *ATN-LEVEL))6826 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6827 (IF (< |BuiltinBinaryCall-INDEX| ATN-PARSER::INDEX)6828 (LET ((|BuiltinBinaryCall-INDEX| ATN-PARSER::INDEX)6829 (*ATN-LEVEL (1+ *ATN-LEVEL))6830 (*ATN-STACK (CONS '|BuiltinBinaryCall| *ATN-STACK))6831 (ATN-PARSER::ATN-STRUCTURE NIL))6832 (DECLARE (SPECIAL |BuiltinBinaryCall-INDEX|))6833 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6834 (DECLARE (TYPE CONS *ATN-STACK))6835 (SYMBOL-MACROLET6836 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6837 (%ATN-BLOCK |BuiltinBinaryCall|6838 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6839 (SETF *ATN-TERM* '|BuiltinBinaryCall|)6840 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6841 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6842 (|BuiltinBinaryCall.2| (ATN-PARSER::INDEX)6843 (%ATN-NODE-BLOCK6844 |BuiltinBinaryCall.2|6845 (%ATN-EDGE-BLOCK6846 (POP |BuiltinBinaryCall|)6847 (WHEN T6848 (SETF *ATN-TERM* '|BuiltinBinaryCall|)6849 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6850 '|BuiltinBinaryCall|6851 ATN-PARSER::INDEX6852 (LIST '|BuiltinBinaryOperator|6853 |BuiltinBinaryOperator|6854 '|Expression|6855 |Expression|))6856 (LET ((ATN-PARSER::RESULT-STRUCTURE6857 (IF (EQ *ATN-REDUCE* T)6858 (|BuiltinBinaryCall-Constructor| |BuiltinBinaryOperator| |Expression|)6859 (IF (EQ *ATN-REDUCE* 'CONS)6860 (CONS '|BuiltinBinaryCall|6861 (DELETE NIL (LIST |BuiltinBinaryOperator| |Expression|)))6862 '|BuiltinBinaryCall|))))6863 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6864 (|BuiltinBinaryCall/BuiltinBinaryCall.2.4| (ATN-PARSER::INDEX)6865 (%ATN-NODE-BLOCK6866 |BuiltinBinaryCall/BuiltinBinaryCall.2.4|6867 (%ATN-EDGE-BLOCK6868 (ATN-PARSER::WORD SPOCQ.S:\()6869 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()6870 (SETF *ATN-TERM* 'SPOCQ.S:\()6871 (|BuiltinBinaryCall/BuiltinBinaryCall.2.5| (1+ ATN-PARSER::INDEX)))6872 (T6873 (SETF *ATN-TERM?* 'SPOCQ.S:\()6874 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))6875 (|BuiltinBinaryCall/BuiltinBinaryCall.2.5| (ATN-PARSER::INDEX)6876 (%ATN-NODE-BLOCK6877 |BuiltinBinaryCall/BuiltinBinaryCall.2.5|6878 (%ATN-EDGE-BLOCK6879 (PUSH |Expression|)6880 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6881 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)6882 (COND (ATN-PARSER::SUCCESS6883 (SETF *ATN-TERM* '|Expression|)6884 (LET ((|Expression925| |Expression|))6885 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6886 (DESTRUCTURING-BIND6887 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6888 ATN-PARSER::RESULT-AND-INDEX6889 (WHEN ATN-PARSER::RESULT6890 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))6891 (|BuiltinBinaryCall/BuiltinBinaryCall.2.6| ATN-PARSER::RESULT-INDEX))6892 (SETF |Expression| |Expression925|))))6893 (T6894 (SETF *ATN-TERM?* '|Expression|)6895 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))6896 (|BuiltinBinaryCall/BuiltinBinaryCall.2.6| (ATN-PARSER::INDEX)6897 (%ATN-NODE-BLOCK6898 |BuiltinBinaryCall/BuiltinBinaryCall.2.6|6899 (%ATN-EDGE-BLOCK6900 (ATN-PARSER::WORD SPOCQ.S:\,)6901 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)6902 (SETF *ATN-TERM* 'SPOCQ.S:\,)6903 (|BuiltinBinaryCall/BuiltinBinaryCall.2.7| (1+ ATN-PARSER::INDEX)))6904 (T6905 (SETF *ATN-TERM?* 'SPOCQ.S:\,)6906 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))6907 (|BuiltinBinaryCall/BuiltinBinaryCall.2.7| (ATN-PARSER::INDEX)6908 (%ATN-NODE-BLOCK6909 |BuiltinBinaryCall/BuiltinBinaryCall.2.7|6910 (%ATN-EDGE-BLOCK6911 (PUSH |Expression|)6912 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6913 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)6914 (COND (ATN-PARSER::SUCCESS6915 (SETF *ATN-TERM* '|Expression|)6916 (LET ((|Expression924| |Expression|))6917 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6918 (DESTRUCTURING-BIND6919 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6920 ATN-PARSER::RESULT-AND-INDEX6921 (WHEN ATN-PARSER::RESULT6922 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))6923 (|BuiltinBinaryCall/BuiltinBinaryCall.2.8| ATN-PARSER::RESULT-INDEX))6924 (SETF |Expression| |Expression924|))))6925 (T6926 (SETF *ATN-TERM?* '|Expression|)6927 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))6928 (|BuiltinBinaryCall/BuiltinBinaryCall.2.8| (ATN-PARSER::INDEX)6929 (%ATN-NODE-BLOCK6930 |BuiltinBinaryCall/BuiltinBinaryCall.2.8|6931 (%ATN-EDGE-BLOCK6932 (ATN-PARSER::WORD SPOCQ.S:\))6933 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))6934 (SETF *ATN-TERM* 'SPOCQ.S:\))6935 (|BuiltinBinaryCall.2| (1+ ATN-PARSER::INDEX)))6936 (T6937 (SETF *ATN-TERM?* 'SPOCQ.S:\))6938 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))6939 (|BuiltinBinaryCall/fail.3| (ATN-PARSER::INDEX)6940 (%ATN-NODE-BLOCK |BuiltinBinaryCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6941 (|BuiltinBinaryCall/start.1| (ATN-PARSER::INDEX)6942 (%ATN-NODE-BLOCK6943 |BuiltinBinaryCall/start.1|6944 (%ATN-EDGE-BLOCK6945 (ATN-PARSER::CAT |BuiltinBinaryOperator|)6946 (COND ((|IS-BuiltinBinaryOperator| ATN-PARSER::|item|)6947 (SETF *ATN-TERM* '|BuiltinBinaryOperator|)6948 (SETF |BuiltinBinaryOperator|6949 (IF (EQ *ATN-REDUCE* T)6950 (ATN-REDUCE-ITEM6951 #'|BuiltinBinaryOperator-Constructor|6952 ATN-PARSER::|item|)6953 (IF (EQ *ATN-REDUCE* 'CONS)6954 (LIST '|BuiltinBinaryOperator| ATN-PARSER::|item|)6955 '|BuiltinBinaryOperator|)))6956 (|BuiltinBinaryCall/BuiltinBinaryCall.2.4| (1+ ATN-PARSER::INDEX)))6957 (T6958 (SETF *ATN-TERM* '|BuiltinBinaryOperator|)6959 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))6960 (|BuiltinBinaryCall/start.1| ATN-PARSER::INDEX)6961 (SETF *ATN-NODE NIL)6962 NIL6963 (IF ATN-PARSER::ATN-STRUCTURE6964 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6965 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6966 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinBinaryCall| ATN-PARSER::INDEX *ATN-STACK))))6967 (PROGN (DEFVAR |RegexExpression-INDEX|)6968 (DEFUN |RegexExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))6969 "{58} RegexExpression ::= 'REGEX' '(' Expression ',' Expression (','6970 Expression)? ')'6971 (|Expression|)"6972 (DECLARE (SPECIAL |RegexExpression-INDEX|))6973 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RegexExpression-INDEX| *ATN-LEVEL))6974 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6975 (IF (< |RegexExpression-INDEX| ATN-PARSER::INDEX)6976 (LET ((|RegexExpression-INDEX| ATN-PARSER::INDEX)6977 (*ATN-LEVEL (1+ *ATN-LEVEL))6978 (*ATN-STACK (CONS '|RegexExpression| *ATN-STACK))6979 (ATN-PARSER::ATN-STRUCTURE NIL))6980 (DECLARE (SPECIAL |RegexExpression-INDEX|))6981 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6982 (DECLARE (TYPE CONS *ATN-STACK))6983 (SYMBOL-MACROLET6984 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6985 (%ATN-BLOCK |RegexExpression|6986 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6987 (SETF *ATN-TERM* '|RegexExpression|)6988 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6989 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6990 (|RegexExpression.2| (ATN-PARSER::INDEX)6991 (%ATN-NODE-BLOCK6992 |RegexExpression.2|6993 (%ATN-EDGE-BLOCK6994 (POP |RegexExpression|)6995 (WHEN T6996 (SETF *ATN-TERM* '|RegexExpression|)6997 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6998 '|RegexExpression|6999 ATN-PARSER::INDEX7000 (LIST '|Expression| |Expression|))7001 (LET ((ATN-PARSER::RESULT-STRUCTURE7002 (IF (EQ *ATN-REDUCE* T)7003 (|RegexExpression-Constructor| |Expression|)7004 (IF (EQ *ATN-REDUCE* 'CONS)7005 (CONS '|RegexExpression| (DELETE NIL (LIST |Expression|)))7006 '|RegexExpression|))))7007 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7008 (|RegexExpression/fail.3| (ATN-PARSER::INDEX)7009 (%ATN-NODE-BLOCK |RegexExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7010 (|RegexExpression/RegexExpression.2.4| (ATN-PARSER::INDEX)7011 (%ATN-NODE-BLOCK7012 |RegexExpression/RegexExpression.2.4|7013 (%ATN-EDGE-BLOCK7014 (ATN-PARSER::WORD SPOCQ.S:\()7015 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()7016 (SETF *ATN-TERM* 'SPOCQ.S:\()7017 (|RegexExpression/RegexExpression.2.5| (1+ ATN-PARSER::INDEX)))7018 (T7019 (SETF *ATN-TERM?* 'SPOCQ.S:\()7020 (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))7021 (|RegexExpression/RegexExpression.2.5| (ATN-PARSER::INDEX)7022 (%ATN-NODE-BLOCK7023 |RegexExpression/RegexExpression.2.5|7024 (%ATN-EDGE-BLOCK7025 (PUSH |Expression|)7026 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7027 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)7028 (COND (ATN-PARSER::SUCCESS7029 (SETF *ATN-TERM* '|Expression|)7030 (LET ((|Expression928| |Expression|))7031 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7032 (DESTRUCTURING-BIND7033 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7034 ATN-PARSER::RESULT-AND-INDEX7035 (WHEN ATN-PARSER::RESULT7036 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))7037 (|RegexExpression/RegexExpression.2.6| ATN-PARSER::RESULT-INDEX))7038 (SETF |Expression| |Expression928|))))7039 (T7040 (SETF *ATN-TERM?* '|Expression|)7041 (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))7042 (|RegexExpression/RegexExpression.2.6| (ATN-PARSER::INDEX)7043 (%ATN-NODE-BLOCK7044 |RegexExpression/RegexExpression.2.6|7045 (%ATN-EDGE-BLOCK7046 (ATN-PARSER::WORD SPOCQ.S:\,)7047 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)7048 (SETF *ATN-TERM* 'SPOCQ.S:\,)7049 (|RegexExpression/RegexExpression.2.7| (1+ ATN-PARSER::INDEX)))7050 (T7051 (SETF *ATN-TERM?* 'SPOCQ.S:\,)7052 (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))7053 (|RegexExpression/RegexExpression.2.7| (ATN-PARSER::INDEX)7054 (%ATN-NODE-BLOCK7055 |RegexExpression/RegexExpression.2.7|7056 (%ATN-EDGE-BLOCK7057 (PUSH |Expression|)7058 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7059 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)7060 (COND (ATN-PARSER::SUCCESS7061 (SETF *ATN-TERM* '|Expression|)7062 (LET ((|Expression927| |Expression|))7063 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7064 (DESTRUCTURING-BIND7065 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7066 ATN-PARSER::RESULT-AND-INDEX7067 (WHEN ATN-PARSER::RESULT7068 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))7069 (|RegexExpression/RegexExpression.2.8| ATN-PARSER::RESULT-INDEX))7070 (SETF |Expression| |Expression927|))))7071 (T7072 (SETF *ATN-TERM?* '|Expression|)7073 (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))7074 (|RegexExpression/RegexExpression.2.8| (ATN-PARSER::INDEX)7075 (%ATN-NODE-BLOCK7076 |RegexExpression/RegexExpression.2.8|7077 (%ATN-EDGE-BLOCK7078 (ATN-PARSER::JUMP |RegexExpression/RegexExpression/RegexExpression.2.9.10|)7079 (|RegexExpression/RegexExpression/RegexExpression.2.9.10| ATN-PARSER::INDEX))7080 (%ATN-EDGE-BLOCK7081 (ATN-PARSER::JUMP |RegexExpression/RegexExpression.2.9|)7082 (|RegexExpression/RegexExpression.2.9| ATN-PARSER::INDEX))))7083 (|RegexExpression/RegexExpression.2.9| (ATN-PARSER::INDEX)7084 (%ATN-NODE-BLOCK7085 |RegexExpression/RegexExpression.2.9|7086 (%ATN-EDGE-BLOCK7087 (ATN-PARSER::WORD SPOCQ.S:\))7088 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))7089 (SETF *ATN-TERM* 'SPOCQ.S:\))7090 (|RegexExpression.2| (1+ ATN-PARSER::INDEX)))7091 (T7092 (SETF *ATN-TERM?* 'SPOCQ.S:\))7093 (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))7094 (|RegexExpression/RegexExpression/RegexExpression.2.9.10| (ATN-PARSER::INDEX)7095 (%ATN-NODE-BLOCK7096 |RegexExpression/RegexExpression/RegexExpression.2.9.10|7097 (%ATN-EDGE-BLOCK7098 (ATN-PARSER::WORD SPOCQ.S:\,)7099 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)7100 (SETF *ATN-TERM* 'SPOCQ.S:\,)7101 (|RegexExpression/RegexExpression/RegexExpression.2.9.11|7102 (1+ ATN-PARSER::INDEX)))7103 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))7104 (|RegexExpression/RegexExpression/RegexExpression.2.9.11| (ATN-PARSER::INDEX)7105 (%ATN-NODE-BLOCK7106 |RegexExpression/RegexExpression/RegexExpression.2.9.11|7107 (%ATN-EDGE-BLOCK7108 (PUSH |Expression|)7109 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7110 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)7111 (COND (ATN-PARSER::SUCCESS7112 (SETF *ATN-TERM* '|Expression|)7113 (LET ((|Expression926| |Expression|))7114 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7115 (DESTRUCTURING-BIND7116 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7117 ATN-PARSER::RESULT-AND-INDEX7118 (WHEN ATN-PARSER::RESULT7119 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))7120 (|RegexExpression/RegexExpression.2.9| ATN-PARSER::RESULT-INDEX))7121 (SETF |Expression| |Expression926|))))7122 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))7123 (|RegexExpression/start.1| (ATN-PARSER::INDEX)7124 (%ATN-NODE-BLOCK7125 |RegexExpression/start.1|7126 (%ATN-EDGE-BLOCK7127 (ATN-PARSER::WORD SPOCQ.S:REGEX)7128 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:REGEX)7129 (SETF *ATN-TERM* 'SPOCQ.S:REGEX)7130 (|RegexExpression/RegexExpression.2.4| (1+ ATN-PARSER::INDEX)))7131 (T7132 (SETF *ATN-TERM?* 'SPOCQ.S:REGEX)7133 (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))7134 (|RegexExpression/start.1| ATN-PARSER::INDEX)7135 (SETF *ATN-NODE NIL)7136 NIL7137 (IF ATN-PARSER::ATN-STRUCTURE7138 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7139 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7140 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RegexExpression| ATN-PARSER::INDEX *ATN-STACK))))7141 (PROGN (DEFVAR |IRIrefOrFunction-INDEX|)7142 (DEFUN |IRIrefOrFunction| (ATN-PARSER::INDEX &AUX (|ArgList| NIL) (|IRIref| NIL))7143 "{59} IRIrefOrFunction ::= IRIref ArgList?7144 (|ArgList| |IRIref|)"7145 (DECLARE (SPECIAL |IRIrefOrFunction-INDEX|))7146 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IRIrefOrFunction-INDEX| *ATN-LEVEL))7147 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7148 (IF (< |IRIrefOrFunction-INDEX| ATN-PARSER::INDEX)7149 (LET ((|IRIrefOrFunction-INDEX| ATN-PARSER::INDEX)7150 (*ATN-LEVEL (1+ *ATN-LEVEL))7151 (*ATN-STACK (CONS '|IRIrefOrFunction| *ATN-STACK))7152 (ATN-PARSER::ATN-STRUCTURE NIL))7153 (DECLARE (SPECIAL |IRIrefOrFunction-INDEX|))7154 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7155 (DECLARE (TYPE CONS *ATN-STACK))7156 (SYMBOL-MACROLET7157 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7158 (%ATN-BLOCK |IRIrefOrFunction|7159 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7160 (SETF *ATN-TERM* '|IRIrefOrFunction|)7161 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7162 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7163 (|IRIrefOrFunction.2| (ATN-PARSER::INDEX)7164 (%ATN-NODE-BLOCK7165 |IRIrefOrFunction.2|7166 (%ATN-EDGE-BLOCK7167 (POP |IRIrefOrFunction|)7168 (WHEN T7169 (SETF *ATN-TERM* '|IRIrefOrFunction|)7170 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7171 '|IRIrefOrFunction|7172 ATN-PARSER::INDEX7173 (LIST '|ArgList| |ArgList| '|IRIref| |IRIref|))7174 (LET ((ATN-PARSER::RESULT-STRUCTURE7175 (IF (EQ *ATN-REDUCE* T)7176 (|IRIrefOrFunction-Constructor| |ArgList| |IRIref|)7177 (IF (EQ *ATN-REDUCE* 'CONS)7178 (CONS '|IRIrefOrFunction| (DELETE NIL (LIST |ArgList| |IRIref|)))7179 '|IRIrefOrFunction|))))7180 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7181 (|IRIrefOrFunction/fail.3| (ATN-PARSER::INDEX)7182 (%ATN-NODE-BLOCK |IRIrefOrFunction/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7183 (|IRIrefOrFunction/IRIrefOrFunction.2.4| (ATN-PARSER::INDEX)7184 (%ATN-NODE-BLOCK7185 |IRIrefOrFunction/IRIrefOrFunction.2.4|7186 (%ATN-EDGE-BLOCK7187 (PUSH |ArgList|)7188 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7189 (ATN-PARSE-SUBSTRUCTURE* '|ArgList| ATN-PARSER::INDEX)7190 (COND (ATN-PARSER::SUCCESS7191 (SETF *ATN-TERM* '|ArgList|)7192 (LET ((|ArgList928| |ArgList|))7193 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7194 (DESTRUCTURING-BIND7195 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7196 ATN-PARSER::RESULT-AND-INDEX7197 (WHEN ATN-PARSER::RESULT (SETF |ArgList| ATN-PARSER::RESULT))7198 (|IRIrefOrFunction.2| ATN-PARSER::RESULT-INDEX))7199 (SETF |ArgList| |ArgList928|))))7200 (T (SETF *ATN-TERM?* '|ArgList|) (|IRIrefOrFunction.2| ATN-PARSER::INDEX)))))))7201 (|IRIrefOrFunction/start.1| (ATN-PARSER::INDEX)7202 (%ATN-NODE-BLOCK7203 |IRIrefOrFunction/start.1|7204 (%ATN-EDGE-BLOCK7205 (PUSH |IRIref|)7206 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7207 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)7208 (COND (ATN-PARSER::SUCCESS7209 (SETF *ATN-TERM* '|IRIref|)7210 (LET ((|IRIref928| |IRIref|))7211 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7212 (DESTRUCTURING-BIND7213 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7214 ATN-PARSER::RESULT-AND-INDEX7215 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))7216 (|IRIrefOrFunction/IRIrefOrFunction.2.4| ATN-PARSER::RESULT-INDEX))7217 (SETF |IRIref| |IRIref928|))))7218 (T7219 (SETF *ATN-TERM?* '|IRIref|)7220 (|IRIrefOrFunction/fail.3| ATN-PARSER::INDEX))))))))7221 (|IRIrefOrFunction/start.1| ATN-PARSER::INDEX)7222 (SETF *ATN-NODE NIL)7223 NIL7224 (IF ATN-PARSER::ATN-STRUCTURE7225 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7226 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7227 (WARN "recursive grammar: ~s @ position ~s: ~s" '|IRIrefOrFunction| ATN-PARSER::INDEX *ATN-STACK))))7228 (PROGN (DEFVAR |RDFLiteral-INDEX|)7229 (DEFUN |RDFLiteral| (ATN-PARSER::INDEX &AUX (|IRIref| NIL) (LANGTAG NIL) (|String| NIL))7230 "{60} RDFLiteral ::= String ((LANGTAG | ('^^' IRIref)))?7231 (|IRIref| LANGTAG |String|)"7232 (DECLARE (SPECIAL |RDFLiteral-INDEX|))7233 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RDFLiteral-INDEX| *ATN-LEVEL))7234 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7235 (IF (< |RDFLiteral-INDEX| ATN-PARSER::INDEX)7236 (LET ((|RDFLiteral-INDEX| ATN-PARSER::INDEX)7237 (*ATN-LEVEL (1+ *ATN-LEVEL))7238 (*ATN-STACK (CONS '|RDFLiteral| *ATN-STACK))7239 (ATN-PARSER::ATN-STRUCTURE NIL))7240 (DECLARE (SPECIAL |RDFLiteral-INDEX|))7241 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7242 (DECLARE (TYPE CONS *ATN-STACK))7243 (SYMBOL-MACROLET7244 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7245 (%ATN-BLOCK |RDFLiteral|7246 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7247 (SETF *ATN-TERM* '|RDFLiteral|)7248 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7249 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7250 (|RDFLiteral.2| (ATN-PARSER::INDEX)7251 (%ATN-NODE-BLOCK7252 |RDFLiteral.2|7253 (%ATN-EDGE-BLOCK7254 (POP |RDFLiteral|)7255 (WHEN T7256 (SETF *ATN-TERM* '|RDFLiteral|)7257 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7258 '|RDFLiteral|7259 ATN-PARSER::INDEX7260 (LIST '|IRIref| |IRIref| 'LANGTAG LANGTAG '|String| |String|))7261 (LET ((ATN-PARSER::RESULT-STRUCTURE7262 (IF (EQ *ATN-REDUCE* T)7263 (|RDFLiteral-Constructor| |IRIref| LANGTAG |String|)7264 (IF (EQ *ATN-REDUCE* 'CONS)7265 (CONS '|RDFLiteral| (DELETE NIL (LIST |IRIref| LANGTAG |String|)))7266 '|RDFLiteral|))))7267 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7268 (|RDFLiteral/fail.3| (ATN-PARSER::INDEX)7269 (%ATN-NODE-BLOCK |RDFLiteral/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7270 (|RDFLiteral/RDFLiteral.2.4| (ATN-PARSER::INDEX)7271 (%ATN-NODE-BLOCK7272 |RDFLiteral/RDFLiteral.2.4|7273 (%ATN-EDGE-BLOCK7274 OR7275 (PROGN (%ATN-EDGE-BLOCK7276 (TEST LANGTAG)7277 (COND ((IS-LANGTAG ATN-PARSER::|item|)7278 (SETF *ATN-TERM* 'LANGTAG)7279 (SETF LANGTAG7280 (IF (EQ *ATN-REDUCE* T)7281 (ATN-REDUCE-ITEM #'|LANGTAG-Constructor| ATN-PARSER::|item|)7282 (IF (EQ *ATN-REDUCE* 'CONS)7283 (LIST 'LANGTAG ATN-PARSER::|item|)7284 'LANGTAG)))7285 (|RDFLiteral.2| (1+ ATN-PARSER::INDEX)))7286 (T (SETF *ATN-TERM?* 'LANGTAG) NIL)))7287 (%ATN-EDGE-BLOCK7288 (ATN-PARSER::JUMP |RDFLiteral/RDFLiteral.2.5|)7289 (|RDFLiteral/RDFLiteral.2.5| ATN-PARSER::INDEX))7290 (|RDFLiteral.2| ATN-PARSER::INDEX)))))7291 (|RDFLiteral/RDFLiteral.2.5| (ATN-PARSER::INDEX)7292 (%ATN-NODE-BLOCK7293 |RDFLiteral/RDFLiteral.2.5|7294 (%ATN-EDGE-BLOCK7295 (ATN-PARSER::WORD SPOCQ.S:^^)7296 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:^^)7297 (SETF *ATN-TERM* 'SPOCQ.S:^^)7298 (|RDFLiteral/RDFLiteral.2.6| (1+ ATN-PARSER::INDEX)))7299 (T (SETF *ATN-TERM?* 'SPOCQ.S:^^) NIL)))))7300 (|RDFLiteral/RDFLiteral.2.6| (ATN-PARSER::INDEX)7301 (%ATN-NODE-BLOCK7302 |RDFLiteral/RDFLiteral.2.6|7303 (%ATN-EDGE-BLOCK7304 (PUSH |IRIref|)7305 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7306 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)7307 (COND (ATN-PARSER::SUCCESS7308 (SETF *ATN-TERM* '|IRIref|)7309 (LET ((|IRIref929| |IRIref|))7310 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7311 (DESTRUCTURING-BIND7312 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7313 ATN-PARSER::RESULT-AND-INDEX7314 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))7315 (|RDFLiteral.2| ATN-PARSER::RESULT-INDEX))7316 (SETF |IRIref| |IRIref929|))))7317 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))))7318 (|RDFLiteral/start.1| (ATN-PARSER::INDEX)7319 (%ATN-NODE-BLOCK7320 |RDFLiteral/start.1|7321 (%ATN-EDGE-BLOCK7322 (ATN-PARSER::CAT |String|)7323 (COND ((|IS-String| ATN-PARSER::|item|)7324 (SETF *ATN-TERM* '|String|)7325 (SETF |String|7326 (IF (EQ *ATN-REDUCE* T)7327 (ATN-REDUCE-ITEM #'|String-Constructor| ATN-PARSER::|item|)7328 (IF (EQ *ATN-REDUCE* 'CONS)7329 (LIST '|String| ATN-PARSER::|item|)7330 '|String|)))7331 (|RDFLiteral/RDFLiteral.2.4| (1+ ATN-PARSER::INDEX)))7332 (T (SETF *ATN-TERM* '|String|) (|RDFLiteral/fail.3| ATN-PARSER::INDEX)))))))7333 (|RDFLiteral/start.1| ATN-PARSER::INDEX)7334 (SETF *ATN-NODE NIL)7335 NIL7336 (IF ATN-PARSER::ATN-STRUCTURE7337 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7338 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7339 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RDFLiteral| ATN-PARSER::INDEX *ATN-STACK))))7340 (PROGN (DEFVAR |IRIref-INDEX|)7341 (DEFUN |IRIref| (ATN-PARSER::INDEX &AUX (IRI_REF NIL) (|PrefixedName| NIL))7342 "{67} IRIref ::= (IRI_REF | PrefixedName)7343 (IRI_REF |PrefixedName|)"7344 (DECLARE (SPECIAL |IRIref-INDEX|))7345 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IRIref-INDEX| *ATN-LEVEL))7346 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7347 (IF (< |IRIref-INDEX| ATN-PARSER::INDEX)7348 (LET ((|IRIref-INDEX| ATN-PARSER::INDEX)7349 (*ATN-LEVEL (1+ *ATN-LEVEL))7350 (*ATN-STACK (CONS '|IRIref| *ATN-STACK))7351 (ATN-PARSER::ATN-STRUCTURE NIL))7352 (DECLARE (SPECIAL |IRIref-INDEX|))7353 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7354 (DECLARE (TYPE CONS *ATN-STACK))7355 (SYMBOL-MACROLET7356 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7357 (%ATN-BLOCK |IRIref|7358 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7359 (SETF *ATN-TERM* '|IRIref|)7360 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7361 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7362 (|IRIref.2| (ATN-PARSER::INDEX)7363 (%ATN-NODE-BLOCK7364 |IRIref.2|7365 (%ATN-EDGE-BLOCK7366 (POP |IRIref|)7367 (WHEN T7368 (SETF *ATN-TERM* '|IRIref|)7369 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7370 '|IRIref|7371 ATN-PARSER::INDEX7372 (LIST 'IRI_REF IRI_REF '|PrefixedName| |PrefixedName|))7373 (LET ((ATN-PARSER::RESULT-STRUCTURE7374 (IF (EQ *ATN-REDUCE* T)7375 (|IRIref-Constructor| IRI_REF |PrefixedName|)7376 (IF (EQ *ATN-REDUCE* 'CONS)7377 (CONS '|IRIref| (DELETE NIL (LIST IRI_REF |PrefixedName|)))7378 '|IRIref|))))7379 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7380 (|IRIref/fail.3| (ATN-PARSER::INDEX)7381 (%ATN-NODE-BLOCK |IRIref/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7382 (|IRIref/start.1| (ATN-PARSER::INDEX)7383 (%ATN-NODE-BLOCK7384 |IRIref/start.1|7385 (%ATN-EDGE-BLOCK7386 OR7387 (PROGN (%ATN-EDGE-BLOCK7388 (PUSH IRI_REF)7389 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7390 (ATN-PARSE-SUBSTRUCTURE* 'IRI_REF ATN-PARSER::INDEX)7391 (COND (ATN-PARSER::SUCCESS7392 (SETF *ATN-TERM* 'IRI_REF)7393 (LET ((IRI_REF929 IRI_REF))7394 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7395 (DESTRUCTURING-BIND7396 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7397 ATN-PARSER::RESULT-AND-INDEX7398 (WHEN ATN-PARSER::RESULT (SETF IRI_REF ATN-PARSER::RESULT))7399 (|IRIref.2| ATN-PARSER::RESULT-INDEX))7400 (SETF IRI_REF IRI_REF929))))7401 (T (SETF *ATN-TERM?* 'IRI_REF) NIL))))7402 (%ATN-EDGE-BLOCK7403 (ATN-PARSER::CAT |PrefixedName|)7404 (COND ((|IS-PrefixedName| ATN-PARSER::|item|)7405 (SETF *ATN-TERM* '|PrefixedName|)7406 (SETF |PrefixedName|7407 (IF (EQ *ATN-REDUCE* T)7408 (ATN-REDUCE-ITEM7409 #'|PrefixedName-Constructor|7410 ATN-PARSER::|item|)7411 (IF (EQ *ATN-REDUCE* 'CONS)7412 (LIST '|PrefixedName| ATN-PARSER::|item|)7413 '|PrefixedName|)))7414 (|IRIref.2| (1+ ATN-PARSER::INDEX)))7415 (T (SETF *ATN-TERM* '|PrefixedName|) NIL)))7416 (|IRIref/fail.3| ATN-PARSER::INDEX))))))7417 (|IRIref/start.1| ATN-PARSER::INDEX)7418 (SETF *ATN-NODE NIL)7419 NIL7420 (IF ATN-PARSER::ATN-STRUCTURE7421 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7422 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7423 (WARN "recursive grammar: ~s @ position ~s: ~s" '|IRIref| ATN-PARSER::INDEX *ATN-STACK))))7424 (PROGN (DEFVAR |BlankNode-INDEX|)7425 (DEFUN |BlankNode| (ATN-PARSER::INDEX &AUX (ANON NIL) (BLANK_NODE_LABEL NIL))7426 "{69} BlankNode ::= (BLANK_NODE_LABEL | ANON)7427 (ANON BLANK_NODE_LABEL)"7428 (DECLARE (SPECIAL |BlankNode-INDEX|))7429 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNode-INDEX| *ATN-LEVEL))7430 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7431 (IF (< |BlankNode-INDEX| ATN-PARSER::INDEX)7432 (LET ((|BlankNode-INDEX| ATN-PARSER::INDEX)7433 (*ATN-LEVEL (1+ *ATN-LEVEL))7434 (*ATN-STACK (CONS '|BlankNode| *ATN-STACK))7435 (ATN-PARSER::ATN-STRUCTURE NIL))7436 (DECLARE (SPECIAL |BlankNode-INDEX|))7437 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7438 (DECLARE (TYPE CONS *ATN-STACK))7439 (SYMBOL-MACROLET7440 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7441 (%ATN-BLOCK |BlankNode|7442 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7443 (SETF *ATN-TERM* '|BlankNode|)7444 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7445 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7446 (|BlankNode.2| (ATN-PARSER::INDEX)7447 (%ATN-NODE-BLOCK7448 |BlankNode.2|7449 (%ATN-EDGE-BLOCK7450 (POP |BlankNode|)7451 (WHEN T7452 (SETF *ATN-TERM* '|BlankNode|)7453 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7454 '|BlankNode|7455 ATN-PARSER::INDEX7456 (LIST 'ANON ANON 'BLANK_NODE_LABEL BLANK_NODE_LABEL))7457 (LET ((ATN-PARSER::RESULT-STRUCTURE7458 (IF (EQ *ATN-REDUCE* T)7459 (|BlankNode-Constructor| ANON BLANK_NODE_LABEL)7460 (IF (EQ *ATN-REDUCE* 'CONS)7461 (CONS '|BlankNode| (DELETE NIL (LIST ANON BLANK_NODE_LABEL)))7462 '|BlankNode|))))7463 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7464 (|BlankNode/fail.3| (ATN-PARSER::INDEX)7465 (%ATN-NODE-BLOCK |BlankNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7466 (|BlankNode/start.1| (ATN-PARSER::INDEX)7467 (%ATN-NODE-BLOCK7468 |BlankNode/start.1|7469 (%ATN-EDGE-BLOCK7470 OR7471 (PROGN (%ATN-EDGE-BLOCK7472 (PUSH BLANK_NODE_LABEL)7473 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7474 (ATN-PARSE-SUBSTRUCTURE* 'BLANK_NODE_LABEL ATN-PARSER::INDEX)7475 (COND (ATN-PARSER::SUCCESS7476 (SETF *ATN-TERM* 'BLANK_NODE_LABEL)7477 (LET ((BLANK_NODE_LABEL929 BLANK_NODE_LABEL))7478 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7479 (DESTRUCTURING-BIND7480 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7481 ATN-PARSER::RESULT-AND-INDEX7482 (WHEN ATN-PARSER::RESULT7483 (SETF BLANK_NODE_LABEL ATN-PARSER::RESULT))7484 (|BlankNode.2| ATN-PARSER::RESULT-INDEX))7485 (SETF BLANK_NODE_LABEL BLANK_NODE_LABEL929))))7486 (T (SETF *ATN-TERM?* 'BLANK_NODE_LABEL) NIL))))7487 (%ATN-EDGE-BLOCK7488 (PUSH ANON)7489 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7490 (ATN-PARSE-SUBSTRUCTURE* 'ANON ATN-PARSER::INDEX)7491 (COND (ATN-PARSER::SUCCESS7492 (SETF *ATN-TERM* 'ANON)7493 (LET ((ANON929 ANON))7494 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7495 (DESTRUCTURING-BIND7496 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7497 ATN-PARSER::RESULT-AND-INDEX7498 (WHEN ATN-PARSER::RESULT (SETF ANON ATN-PARSER::RESULT))7499 (|BlankNode.2| ATN-PARSER::RESULT-INDEX))7500 (SETF ANON ANON929))))7501 (T (SETF *ATN-TERM?* 'ANON) NIL))))7502 (|BlankNode/fail.3| ATN-PARSER::INDEX))))))7503 (|BlankNode/start.1| ATN-PARSER::INDEX)7504 (SETF *ATN-NODE NIL)7505 NIL7506 (IF ATN-PARSER::ATN-STRUCTURE7507 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7508 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7509 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNode| ATN-PARSER::INDEX *ATN-STACK))))7510 (PROGN (DEFVAR IRI_REF-INDEX)7511 (DEFUN IRI_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))7512 "{70} IRI_REF ::= '<' IRI_NAMESTRING? '>'7513 (IRI_NAMESTRING)"7514 (DECLARE (SPECIAL IRI_REF-INDEX))7515 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX IRI_REF-INDEX *ATN-LEVEL))7516 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7517 (IF (< IRI_REF-INDEX ATN-PARSER::INDEX)7518 (LET ((IRI_REF-INDEX ATN-PARSER::INDEX)7519 (*ATN-LEVEL (1+ *ATN-LEVEL))7520 (*ATN-STACK (CONS 'IRI_REF *ATN-STACK))7521 (ATN-PARSER::ATN-STRUCTURE NIL))7522 (DECLARE (SPECIAL IRI_REF-INDEX))7523 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7524 (DECLARE (TYPE CONS *ATN-STACK))7525 (SYMBOL-MACROLET7526 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7527 (%ATN-BLOCK IRI_REF7528 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7529 (SETF *ATN-TERM* 'IRI_REF)7530 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7531 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7532 (IRI_REF.2 (ATN-PARSER::INDEX)7533 (%ATN-NODE-BLOCK7534 IRI_REF.27535 (%ATN-EDGE-BLOCK7536 (POP IRI_REF)7537 (WHEN T7538 (SETF *ATN-TERM* 'IRI_REF)7539 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7540 'IRI_REF7541 ATN-PARSER::INDEX7542 (LIST 'IRI_NAMESTRING IRI_NAMESTRING))7543 (LET ((ATN-PARSER::RESULT-STRUCTURE7544 (IF (EQ *ATN-REDUCE* T)7545 (|IRI_REF-Constructor| IRI_NAMESTRING)7546 (IF (EQ *ATN-REDUCE* 'CONS)7547 (CONS 'IRI_REF (DELETE NIL (LIST IRI_NAMESTRING)))7548 'IRI_REF))))7549 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7550 (|IRI_REF/fail.3| (ATN-PARSER::INDEX)7551 (%ATN-NODE-BLOCK |IRI_REF/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7552 (IRI_REF/IRI_REF.2.4 (ATN-PARSER::INDEX)7553 (%ATN-NODE-BLOCK7554 IRI_REF/IRI_REF.2.47555 (%ATN-EDGE-BLOCK7556 (TEST IRI_NAMESTRING)7557 (COND ((IS-IRI_NAMESTRING ATN-PARSER::|item|)7558 (SETF *ATN-TERM* 'IRI_NAMESTRING)7559 (SETF IRI_NAMESTRING7560 (IF (EQ *ATN-REDUCE* T)7561 (ATN-REDUCE-ITEM #'|IRI_NAMESTRING-Constructor| ATN-PARSER::|item|)7562 (IF (EQ *ATN-REDUCE* 'CONS)7563 (LIST 'IRI_NAMESTRING ATN-PARSER::|item|)7564 'IRI_NAMESTRING)))7565 (IRI_REF/IRI_REF.2.5 (1+ ATN-PARSER::INDEX)))7566 (T7567 (SETF *ATN-TERM?* 'IRI_NAMESTRING)7568 (IRI_REF/IRI_REF.2.5 ATN-PARSER::INDEX))))))7569 (IRI_REF/IRI_REF.2.5 (ATN-PARSER::INDEX)7570 (%ATN-NODE-BLOCK7571 IRI_REF/IRI_REF.2.57572 (%ATN-EDGE-BLOCK7573 (ATN-PARSER::WORD SPOCQ.S:>)7574 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:>)7575 (SETF *ATN-TERM* 'SPOCQ.S:>)7576 (IRI_REF.2 (1+ ATN-PARSER::INDEX)))7577 (T (SETF *ATN-TERM?* 'SPOCQ.S:>) (|IRI_REF/fail.3| ATN-PARSER::INDEX))))))7578 (|IRI_REF/start.1| (ATN-PARSER::INDEX)7579 (%ATN-NODE-BLOCK7580 |IRI_REF/start.1|7581 (%ATN-EDGE-BLOCK7582 (ATN-PARSER::WORD SPOCQ.S:<)7583 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:<)7584 (SETF *ATN-TERM* 'SPOCQ.S:<)7585 (IRI_REF/IRI_REF.2.4 (1+ ATN-PARSER::INDEX)))7586 (T (SETF *ATN-TERM?* 'SPOCQ.S:<) (|IRI_REF/fail.3| ATN-PARSER::INDEX)))))))7587 (|IRI_REF/start.1| ATN-PARSER::INDEX)7588 (SETF *ATN-NODE NIL)7589 NIL7590 (IF ATN-PARSER::ATN-STRUCTURE7591 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7592 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7593 (WARN "recursive grammar: ~s @ position ~s: ~s" 'IRI_REF ATN-PARSER::INDEX *ATN-STACK))))7594 (PROGN (DEFVAR NAMESPACE_REF-INDEX)7595 (DEFUN NAMESPACE_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))7596 "{70} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'7597 (IRI_NAMESTRING)"7598 (DECLARE (SPECIAL NAMESPACE_REF-INDEX))7599 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX NAMESPACE_REF-INDEX *ATN-LEVEL))7600 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7601 (IF (< NAMESPACE_REF-INDEX ATN-PARSER::INDEX)7602 (LET ((NAMESPACE_REF-INDEX ATN-PARSER::INDEX)7603 (*ATN-LEVEL (1+ *ATN-LEVEL))7604 (*ATN-STACK (CONS 'NAMESPACE_REF *ATN-STACK))7605 (ATN-PARSER::ATN-STRUCTURE NIL))7606 (DECLARE (SPECIAL NAMESPACE_REF-INDEX))7607 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7608 (DECLARE (TYPE CONS *ATN-STACK))7609 (SYMBOL-MACROLET7610 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7611 (%ATN-BLOCK NAMESPACE_REF7612 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7613 (SETF *ATN-TERM* 'NAMESPACE_REF)7614 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7615 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7616 (NAMESPACE_REF.2 (ATN-PARSER::INDEX)7617 (%ATN-NODE-BLOCK7618 NAMESPACE_REF.27619 (%ATN-EDGE-BLOCK7620 (POP NAMESPACE_REF)7621 (WHEN T7622 (SETF *ATN-TERM* 'NAMESPACE_REF)7623 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7624 'NAMESPACE_REF7625 ATN-PARSER::INDEX7626 (LIST 'IRI_NAMESTRING IRI_NAMESTRING))7627 (LET ((ATN-PARSER::RESULT-STRUCTURE7628 (IF (EQ *ATN-REDUCE* T)7629 (|NAMESPACE_REF-Constructor| IRI_NAMESTRING)7630 (IF (EQ *ATN-REDUCE* 'CONS)7631 (CONS 'NAMESPACE_REF (DELETE NIL (LIST IRI_NAMESTRING)))7632 'NAMESPACE_REF))))7633 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7634 (|NAMESPACE_REF/fail.3| (ATN-PARSER::INDEX)7635 (%ATN-NODE-BLOCK |NAMESPACE_REF/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7636 (NAMESPACE_REF/NAMESPACE_REF.2.4 (ATN-PARSER::INDEX)7637 (%ATN-NODE-BLOCK7638 NAMESPACE_REF/NAMESPACE_REF.2.47639 (%ATN-EDGE-BLOCK7640 (TEST IRI_NAMESTRING)7641 (COND ((IS-IRI_NAMESTRING ATN-PARSER::|item|)7642 (SETF *ATN-TERM* 'IRI_NAMESTRING)7643 (SETF IRI_NAMESTRING7644 (IF (EQ *ATN-REDUCE* T)7645 (ATN-REDUCE-ITEM #'|IRI_NAMESTRING-Constructor| ATN-PARSER::|item|)7646 (IF (EQ *ATN-REDUCE* 'CONS)7647 (LIST 'IRI_NAMESTRING ATN-PARSER::|item|)7648 'IRI_NAMESTRING)))7649 (NAMESPACE_REF/NAMESPACE_REF.2.5 (1+ ATN-PARSER::INDEX)))7650 (T7651 (SETF *ATN-TERM?* 'IRI_NAMESTRING)7652 (NAMESPACE_REF/NAMESPACE_REF.2.5 ATN-PARSER::INDEX))))))7653 (NAMESPACE_REF/NAMESPACE_REF.2.5 (ATN-PARSER::INDEX)7654 (%ATN-NODE-BLOCK7655 NAMESPACE_REF/NAMESPACE_REF.2.57656 (%ATN-EDGE-BLOCK7657 (ATN-PARSER::WORD SPOCQ.S:>)7658 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:>)7659 (SETF *ATN-TERM* 'SPOCQ.S:>)7660 (NAMESPACE_REF.2 (1+ ATN-PARSER::INDEX)))7661 (T (SETF *ATN-TERM?* 'SPOCQ.S:>) (|NAMESPACE_REF/fail.3| ATN-PARSER::INDEX))))))7662 (|NAMESPACE_REF/start.1| (ATN-PARSER::INDEX)7663 (%ATN-NODE-BLOCK7664 |NAMESPACE_REF/start.1|7665 (%ATN-EDGE-BLOCK7666 (ATN-PARSER::WORD SPOCQ.S:<)7667 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:<)7668 (SETF *ATN-TERM* 'SPOCQ.S:<)7669 (NAMESPACE_REF/NAMESPACE_REF.2.4 (1+ ATN-PARSER::INDEX)))7670 (T (SETF *ATN-TERM?* 'SPOCQ.S:<) (|NAMESPACE_REF/fail.3| ATN-PARSER::INDEX)))))))7671 (|NAMESPACE_REF/start.1| ATN-PARSER::INDEX)7672 (SETF *ATN-NODE NIL)7673 NIL7674 (IF ATN-PARSER::ATN-STRUCTURE7675 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7676 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7677 (WARN "recursive grammar: ~s @ position ~s: ~s" 'NAMESPACE_REF ATN-PARSER::INDEX *ATN-STACK))))7678 (PROGN (DEFVAR BLANK_NODE_LABEL-INDEX)7679 (DEFUN BLANK_NODE_LABEL (ATN-PARSER::INDEX &AUX (PN_LOCAL NIL))7680 "{73} BLANK_NODE_LABEL ::= '_:' PN_LOCAL7681 (PN_LOCAL)"7682 (DECLARE (SPECIAL BLANK_NODE_LABEL-INDEX))7683 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX BLANK_NODE_LABEL-INDEX *ATN-LEVEL))7684 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7685 (IF (< BLANK_NODE_LABEL-INDEX ATN-PARSER::INDEX)7686 (LET ((BLANK_NODE_LABEL-INDEX ATN-PARSER::INDEX)7687 (*ATN-LEVEL (1+ *ATN-LEVEL))7688 (*ATN-STACK (CONS 'BLANK_NODE_LABEL *ATN-STACK))7689 (ATN-PARSER::ATN-STRUCTURE NIL))7690 (DECLARE (SPECIAL BLANK_NODE_LABEL-INDEX))7691 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7692 (DECLARE (TYPE CONS *ATN-STACK))7693 (SYMBOL-MACROLET7694 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7695 (%ATN-BLOCK BLANK_NODE_LABEL7696 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7697 (SETF *ATN-TERM* 'BLANK_NODE_LABEL)7698 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7699 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7700 (BLANK_NODE_LABEL.2 (ATN-PARSER::INDEX)7701 (%ATN-NODE-BLOCK7702 BLANK_NODE_LABEL.27703 (%ATN-EDGE-BLOCK7704 (POP BLANK_NODE_LABEL)7705 (WHEN T7706 (SETF *ATN-TERM* 'BLANK_NODE_LABEL)7707 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7708 'BLANK_NODE_LABEL7709 ATN-PARSER::INDEX7710 (LIST 'PN_LOCAL PN_LOCAL))7711 (LET ((ATN-PARSER::RESULT-STRUCTURE7712 (IF (EQ *ATN-REDUCE* T)7713 (|BLANK_NODE_LABEL-Constructor| PN_LOCAL)7714 (IF (EQ *ATN-REDUCE* 'CONS)7715 (CONS 'BLANK_NODE_LABEL (DELETE NIL (LIST PN_LOCAL)))7716 'BLANK_NODE_LABEL))))7717 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7718 (BLANK_NODE_LABEL/BLANK_NODE_LABEL.2.4 (ATN-PARSER::INDEX)7719 (%ATN-NODE-BLOCK7720 BLANK_NODE_LABEL/BLANK_NODE_LABEL.2.47721 (%ATN-EDGE-BLOCK7722 (TEST PN_LOCAL)7723 (COND ((IS-PN_LOCAL ATN-PARSER::|item|)7724 (SETF *ATN-TERM* 'PN_LOCAL)7725 (SETF PN_LOCAL7726 (IF (EQ *ATN-REDUCE* T)7727 (ATN-REDUCE-ITEM #'|PN_LOCAL-Constructor| ATN-PARSER::|item|)7728 (IF (EQ *ATN-REDUCE* 'CONS)7729 (LIST 'PN_LOCAL ATN-PARSER::|item|)7730 'PN_LOCAL)))7731 (BLANK_NODE_LABEL.2 (1+ ATN-PARSER::INDEX)))7732 (T7733 (SETF *ATN-TERM?* 'PN_LOCAL)7734 (|BLANK_NODE_LABEL/fail.3| ATN-PARSER::INDEX))))))7735 (|BLANK_NODE_LABEL/fail.3| (ATN-PARSER::INDEX)7736 (%ATN-NODE-BLOCK |BLANK_NODE_LABEL/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7737 (|BLANK_NODE_LABEL/start.1| (ATN-PARSER::INDEX)7738 (%ATN-NODE-BLOCK7739 |BLANK_NODE_LABEL/start.1|7740 (%ATN-EDGE-BLOCK7741 (ATN-PARSER::WORD SPOCQ.S:|_:|)7742 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|_:|)7743 (SETF *ATN-TERM* 'SPOCQ.S:|_:|)7744 (BLANK_NODE_LABEL/BLANK_NODE_LABEL.2.4 (1+ ATN-PARSER::INDEX)))7745 (T7746 (SETF *ATN-TERM?* 'SPOCQ.S:|_:|)7747 (|BLANK_NODE_LABEL/fail.3| ATN-PARSER::INDEX)))))))7748 (|BLANK_NODE_LABEL/start.1| ATN-PARSER::INDEX)7749 (SETF *ATN-NODE NIL)7750 NIL7751 (IF ATN-PARSER::ATN-STRUCTURE7752 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7753 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7754 (WARN "recursive grammar: ~s @ position ~s: ~s" 'BLANK_NODE_LABEL ATN-PARSER::INDEX *ATN-STACK))))7755 (PROGN (DEFVAR NILLIST-INDEX)7756 (DEFUN NILLIST (ATN-PARSER::INDEX &AUX)7757 "{92} NILLIST ::= '(' ')'7758 NIL"7759 (DECLARE (SPECIAL NILLIST-INDEX))7760 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX NILLIST-INDEX *ATN-LEVEL))7761 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7762 (IF (< NILLIST-INDEX ATN-PARSER::INDEX)7763 (LET ((NILLIST-INDEX ATN-PARSER::INDEX)7764 (*ATN-LEVEL (1+ *ATN-LEVEL))7765 (*ATN-STACK (CONS 'NILLIST *ATN-STACK))7766 (ATN-PARSER::ATN-STRUCTURE NIL))7767 (DECLARE (SPECIAL NILLIST-INDEX))7768 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7769 (DECLARE (TYPE CONS *ATN-STACK))7770 (SYMBOL-MACROLET7771 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7772 (%ATN-BLOCK NILLIST7773 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7774 (SETF *ATN-TERM* 'NILLIST)7775 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7776 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7777 (NILLIST.2 (ATN-PARSER::INDEX)7778 (%ATN-NODE-BLOCK7779 NILLIST.27780 (%ATN-EDGE-BLOCK7781 (POP NILLIST)7782 (WHEN T7783 (SETF *ATN-TERM* 'NILLIST)7784 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" 'NILLIST ATN-PARSER::INDEX (LIST))7785 (LET ((ATN-PARSER::RESULT-STRUCTURE7786 (IF (EQ *ATN-REDUCE* T)7787 (|NILLIST-Constructor|)7788 (IF (EQ *ATN-REDUCE* 'CONS)7789 (CONS 'NILLIST (DELETE NIL (LIST)))7790 'NILLIST))))7791 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7792 (|NILLIST/fail.3| (ATN-PARSER::INDEX)7793 (%ATN-NODE-BLOCK |NILLIST/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7794 (NILLIST/NILLIST.2.4 (ATN-PARSER::INDEX)7795 (%ATN-NODE-BLOCK7796 NILLIST/NILLIST.2.47797 (%ATN-EDGE-BLOCK7798 (ATN-PARSER::WORD SPOCQ.S:\))7799 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))7800 (SETF *ATN-TERM* 'SPOCQ.S:\))7801 (NILLIST.2 (1+ ATN-PARSER::INDEX)))7802 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|NILLIST/fail.3| ATN-PARSER::INDEX))))))7803 (|NILLIST/start.1| (ATN-PARSER::INDEX)7804 (%ATN-NODE-BLOCK7805 |NILLIST/start.1|7806 (%ATN-EDGE-BLOCK7807 (ATN-PARSER::WORD SPOCQ.S:\()7808 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()7809 (SETF *ATN-TERM* 'SPOCQ.S:\()7810 (NILLIST/NILLIST.2.4 (1+ ATN-PARSER::INDEX)))7811 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|NILLIST/fail.3| ATN-PARSER::INDEX)))))))7812 (|NILLIST/start.1| ATN-PARSER::INDEX)7813 (SETF *ATN-NODE NIL)7814 NIL7815 (IF ATN-PARSER::ATN-STRUCTURE7816 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7817 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7818 (WARN "recursive grammar: ~s @ position ~s: ~s" 'NILLIST ATN-PARSER::INDEX *ATN-STACK))))7819 (PROGN (DEFVAR ANON-INDEX)7820 (DEFUN ANON (ATN-PARSER::INDEX &AUX)7821 "{94} ANON ::= '[' ']'7822 NIL"7823 (DECLARE (SPECIAL ANON-INDEX))7824 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX ANON-INDEX *ATN-LEVEL))7825 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7826 (IF (< ANON-INDEX ATN-PARSER::INDEX)7827 (LET ((ANON-INDEX ATN-PARSER::INDEX)7828 (*ATN-LEVEL (1+ *ATN-LEVEL))7829 (*ATN-STACK (CONS 'ANON *ATN-STACK))7830 (ATN-PARSER::ATN-STRUCTURE NIL))7831 (DECLARE (SPECIAL ANON-INDEX))7832 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7833 (DECLARE (TYPE CONS *ATN-STACK))7834 (SYMBOL-MACROLET7835 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7836 (%ATN-BLOCK ANON7837 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7838 (SETF *ATN-TERM* 'ANON)7839 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7840 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7841 (ANON.2 (ATN-PARSER::INDEX)7842 (%ATN-NODE-BLOCK7843 ANON.27844 (%ATN-EDGE-BLOCK7845 (POP ANON)7846 (WHEN T7847 (SETF *ATN-TERM* 'ANON)7848 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" 'ANON ATN-PARSER::INDEX (LIST))7849 (LET ((ATN-PARSER::RESULT-STRUCTURE7850 (IF (EQ *ATN-REDUCE* T)7851 (|ANON-Constructor|)7852 (IF (EQ *ATN-REDUCE* 'CONS) (CONS 'ANON (DELETE NIL (LIST))) 'ANON))))7853 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7854 (ANON/ANON.2.4 (ATN-PARSER::INDEX)7855 (%ATN-NODE-BLOCK7856 ANON/ANON.2.47857 (%ATN-EDGE-BLOCK7858 (ATN-PARSER::WORD SPOCQ.S:])7859 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:])7860 (SETF *ATN-TERM* 'SPOCQ.S:])7861 (ANON.2 (1+ ATN-PARSER::INDEX)))7862 (T (SETF *ATN-TERM?* 'SPOCQ.S:]) (|ANON/fail.3| ATN-PARSER::INDEX))))))7863 (|ANON/fail.3| (ATN-PARSER::INDEX)7864 (%ATN-NODE-BLOCK |ANON/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7865 (|ANON/start.1| (ATN-PARSER::INDEX)7866 (%ATN-NODE-BLOCK7867 |ANON/start.1|7868 (%ATN-EDGE-BLOCK7869 (ATN-PARSER::WORD SPOCQ.S:[)7870 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:[)7871 (SETF *ATN-TERM* 'SPOCQ.S:[)7872 (ANON/ANON.2.4 (1+ ATN-PARSER::INDEX)))7873 (T (SETF *ATN-TERM?* 'SPOCQ.S:[) (|ANON/fail.3| ATN-PARSER::INDEX)))))))7874 (|ANON/start.1| ATN-PARSER::INDEX)7875 (SETF *ATN-NODE NIL)7876 NIL7877 (IF ATN-PARSER::ATN-STRUCTURE7878 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7879 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7880 (WARN "recursive grammar: ~s @ position ~s: ~s" 'ANON ATN-PARSER::INDEX *ATN-STACK))))7881 (SETF (GET '|Query| :PRODUCTION) "7882 {1 } Query ::= Prologue ((SelectQuery | ConstructQuery | DescribeQuery | AskQuery))")7883 (SETF (GET '|Prologue| :PRODUCTION) "7884 {2 } Prologue ::= BaseDecl? PrefixDecl*")7885 (SETF (GET '|BaseDecl| :PRODUCTION) "7886 {3 } BaseDecl ::= 'BASE' IRI_REF")7887 (SETF (GET '|PrefixDecl| :PRODUCTION) "7888 {4 } PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF")7889 (SETF (GET '|SelectQuery| :PRODUCTION) "7890 {5 } SelectQuery ::= 'SELECT' Distinctness? ((Var+ | '*')) DatasetClause* WhereClause SolutionModifier")7891 (SETF (GET '|ConstructQuery| :PRODUCTION) "7892 {6 } ConstructQuery ::= 'CONSTRUCT' ConstructTemplate DatasetClause* WhereClause SolutionModifier")7893 (SETF (GET '|DescribeQuery| :PRODUCTION) "7894 {7 } DescribeQuery ::= 'DESCRIBE' ((VarOrIRIref+ | '*')) DatasetClause* WhereClause? SolutionModifier")7895 (SETF (GET '|AskQuery| :PRODUCTION) "7896 {8 } AskQuery ::= 'ASK' DatasetClause* WhereClause")7897 (SETF (GET '|DatasetClause| :PRODUCTION) "7898 {9 } DatasetClause ::= 'FROM' ((DefaultGraphClause | NamedGraphClause))")7899 (SETF (GET '|DefaultGraphClause| :PRODUCTION) "7900 {10} DefaultGraphClause ::= SourceSelector")7901 (SETF (GET '|NamedGraphClause| :PRODUCTION) "7902 {11} NamedGraphClause ::= 'NAMED' SourceSelector")7903 (SETF (GET '|SourceSelector| :PRODUCTION) "7904 {12} SourceSelector ::= IRIref")7905 (SETF (GET '|WhereClause| :PRODUCTION) "7906 {13} WhereClause ::= 'WHERE'? GroupGraphPattern")7907 (SETF (GET '|SolutionModifier| :PRODUCTION) "7908 {14} SolutionModifier ::= OrderClause? LimitOffsetClauses?")7909 (SETF (GET '|LimitOffsetClauses| :PRODUCTION) "7910 {15} LimitOffsetClauses ::= (((LimitClause OffsetClause?) | (OffsetClause7911 LimitClause?)))")7912 (SETF (GET '|OrderClause| :PRODUCTION) "7913 {16} OrderClause ::= 'ORDER' 'BY' OrderCondition+")7914 (SETF (GET '|OrderCondition| :PRODUCTION) "7915 {17} OrderCondition ::= ((OrderDirection7916 BrackettedExpression) | Constraint | Var)")7917 (SETF (GET '|LimitClause| :PRODUCTION) "7918 {18} LimitClause ::= 'LIMIT' INTEGER")7919 (SETF (GET '|OffsetClause| :PRODUCTION) "7920 {19} OffsetClause ::= 'OFFSET' INTEGER")7921 (SETF (GET '|GroupGraphPattern| :PRODUCTION) "7922 {20} GroupGraphPattern ::= '{' TriplesBlock? GroupGraphPatternRest* '}'")7923 (SETF (GET '|GroupGraphPatternRest| :PRODUCTION) "7924 GroupGraphPatternRest ::= ((GraphPatternNotTriples | Filter)) '.'? TriplesBlock?")7925 (SETF (GET '|TriplesBlock| :PRODUCTION) "7926 {21} TriplesBlock ::= TriplesSameSubject ('.' TriplesBlock?)?")7927 (SETF (GET '|GraphPatternNotTriples| :PRODUCTION) "7928 {22} GraphPatternNotTriples ::= (OptionalGraphPattern | GroupOrUnionGraphPattern | GraphGraphPattern)")7929 (SETF (GET '|OptionalGraphPattern| :PRODUCTION) "7930 {23} OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern")7931 (SETF (GET '|GraphGraphPattern| :PRODUCTION) "7932 {24} GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern")7933 (SETF (GET '|GroupOrUnionGraphPattern| :PRODUCTION) "7934 {25} GroupOrUnionGraphPattern ::= GroupGraphPattern ('UNION' GroupGraphPattern)*")7935 (SETF (GET '|Filter| :PRODUCTION) "7936 {26} Filter ::= 'FILTER' Constraint")7937 (SETF (GET '|Constraint| :PRODUCTION) "7938 {27} Constraint ::= (BrackettedExpression | BuiltInCall | FunctionCall)")7939 (SETF (GET '|FunctionCall| :PRODUCTION) "7940 {28} FunctionCall ::= IRIref ArgList")7941 (SETF (GET '|ArgList| :PRODUCTION) "7942 {29} ArgList ::= ((NILLIST | ('(' Expression (',' Expression)* ')')))")7943 (SETF (GET '|ConstructTemplate| :PRODUCTION) "7944 {30} ConstructTemplate ::= '{' ConstructTriples? '}'")7945 (SETF (GET '|ConstructTriples| :PRODUCTION) "7946 {31} ConstructTriples ::= TriplesSameSubject ('.' ConstructTriples?)?")7947 (SETF (GET '|TriplesSameSubject| :PRODUCTION) "7948 {32} TriplesSameSubject ::= ((VarOrTerm PropertyListNotEmpty) | (TriplesNode7949 PropertyList))")7950 (SETF (GET '|PropertyListNotEmpty| :PRODUCTION) "7951 {33} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*")7952 (SETF (GET '|VerbObjectList| :PRODUCTION) "7953 VerbObjectList ::= Verb ObjectList")7954 (SETF (GET '|PropertyList| :PRODUCTION) "7955 {34} PropertyList ::= PropertyListNotEmpty?")7956 (SETF (GET '|ObjectList| :PRODUCTION) "7957 {35} ObjectList ::= Object (',' Object)*")7958 (SETF (GET '|Object| :PRODUCTION) "7959 {36} Object ::= GraphNode")7960 (SETF (GET '|Verb| :PRODUCTION) "7961 {37} Verb ::= (VarOrIRIref | 'a')")7962 (SETF (GET '|TriplesNode| :PRODUCTION) "7963 {38} TriplesNode ::= (Collection | BlankNodePropertyList)")7964 (SETF (GET '|BlankNodePropertyList| :PRODUCTION) "7965 {39} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'")7966 (SETF (GET '|Collection| :PRODUCTION) "7967 {40} Collection ::= '(' GraphNode+ ')'")7968 (SETF (GET '|GraphNode| :PRODUCTION) "7969 {41} GraphNode ::= (VarOrTerm | TriplesNode)")7970 (SETF (GET '|VarOrTerm| :PRODUCTION) "7971 {42} VarOrTerm ::= (Var | GraphTerm)")7972 (SETF (GET '|VarOrIRIref| :PRODUCTION) "7973 {43} VarOrIRIref ::= (Var | IRIref)")7974 (SETF (GET '|GraphTerm| :PRODUCTION) "7975 {45} GraphTerm ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST)")7976 (SETF (GET '|Expression| :PRODUCTION) "7977 {46} Expression ::= ConditionalOrExpression")7978 (SETF (GET '|ConditionalOrExpression| :PRODUCTION) "7979 {47} ConditionalOrExpression ::= ConditionalAndExpression ('||'7980 ConditionalAndExpression)*")7981 (SETF (GET '|ConditionalAndExpression| :PRODUCTION) "7982 {48} ConditionalAndExpression ::= ValueLogical ('&&' ValueLogical)*")7983 (SETF (GET '|ValueLogical| :PRODUCTION) "7984 {49} ValueLogical ::= RelationalExpression")7985 (SETF (GET '|RelationalExpression| :PRODUCTION) "7986 {50} RelationalExpression ::= NumericExpression RelatedNumeric?")7987 (SETF (GET '|RelatedNumeric| :PRODUCTION) "7988 RelatedNumeric ::= RelationalOperator NumericExpression")7989 (SETF (GET '|NumericExpression| :PRODUCTION) "7990 {51} NumericExpression ::= AdditiveExpression")7991 (SETF (GET '|AdditiveExpression| :PRODUCTION) "7992 {52} AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*")7993 (SETF (GET '|AddedMultiplicative| :PRODUCTION) "7994 AddedMultiplicative ::= AdditiveOperator MultiplicativeExpression")7995 (SETF (GET '|MultiplicativeExpression| :PRODUCTION) "7996 {53} MultiplicativeExpression ::= UnaryExpression MultipliedUnary*")7997 (SETF (GET '|MultipliedUnary| :PRODUCTION) "7998 MultipliedUnary ::= MultiplicativeOperator UnaryExpression")7999 (SETF (GET '|UnaryExpression| :PRODUCTION) "8000 {54} UnaryExpression ::= ((UnaryOperator PrimaryExpression) | PrimaryExpression)")8001 (SETF (GET '|PrimaryExpression| :PRODUCTION) "8002 {55} PrimaryExpression ::= (BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var)")8003 (SETF (GET '|BrackettedExpression| :PRODUCTION) "8004 {56} BrackettedExpression ::= '(' Expression ')'")8005 (SETF (GET '|BuiltInCall| :PRODUCTION) "8006 {57} BuiltInCall ::= (BuiltinBinaryCall | BuiltinUnaryCall | RegexExpression)")8007 (SETF (GET '|BuiltinUnaryCall| :PRODUCTION) "8008 {57} BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'")8009 (SETF (GET '|BuiltinBinaryCall| :PRODUCTION) "8010 {57} BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'")8011 (SETF (GET '|RegexExpression| :PRODUCTION) "8012 {58} RegexExpression ::= 'REGEX' '(' Expression ',' Expression (','8013 Expression)? ')'")8014 (SETF (GET '|IRIrefOrFunction| :PRODUCTION) "8015 {59} IRIrefOrFunction ::= IRIref ArgList?")8016 (SETF (GET '|RDFLiteral| :PRODUCTION) "8017 {60} RDFLiteral ::= String ((LANGTAG | ('^^' IRIref)))?")8018 (SETF (GET '|IRIref| :PRODUCTION) "8019 {67} IRIref ::= (IRI_REF | PrefixedName)")8020 (SETF (GET '|BlankNode| :PRODUCTION) "8021 {69} BlankNode ::= (BLANK_NODE_LABEL | ANON)")8022 (SETF (GET 'IRI_REF :PRODUCTION) "8023 {70} IRI_REF ::= '<' IRI_NAMESTRING? '>'")8024 (SETF (GET 'NAMESPACE_REF :PRODUCTION) "8025 {70} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'")8026 (SETF (GET 'BLANK_NODE_LABEL :PRODUCTION) "8027 {73} BLANK_NODE_LABEL ::= '_:' PN_LOCAL")8028 (SETF (GET 'NILLIST :PRODUCTION) "8029 {92} NILLIST ::= '(' ')'")8030 (SETF (GET 'ANON :PRODUCTION) "8031 {94} ANON ::= '[' ']'")8032 (DEFUN |Query-Parser| (ATN-PARSER::*ATN-INPUT &KEY ((:TRACE *ATN-TRACE*) *ATN-TRACE*)8033 ((:TRACE-NETS *ATN-TRACE-NETS*) *ATN-TRACE-NETS*) ((:START-NAME ATN-PARSER::*ATN-START-NAME) '|Query|)8034 ((:MODE ATN-PARSER::*ATN-MODE) :MULTIPLE) ((:REDUCE *ATN-REDUCE*) T)8035 ((:REGISTER-WORDS *ATN-REGISTER-WORDS) NIL)8036 (ATN-PARSER::ATN-WFST (MAKE-ARRAY 8 :ADJUSTABLE T :ELEMENT-TYPE 'LIST :INITIAL-ELEMENT NIL)8037 ATN-PARSER::AW-S)8038 &ALLOW-OTHER-KEYS &AUX)8039 "// generated 2011.06.21T08:21:44 based on \"P-LIBRARY:org;datagraph;spocq;src;core;encoding;sparql-1-0.bnf\" from 2011.06.05T18:46:08.8040 [[1]] Query ::= Prologue ( SelectQuery | ConstructQuery | DescribeQuery | AskQuery )8041 [[2]] Prologue ::= BaseDecl? PrefixDecl*8042 [[3]] BaseDecl ::= 'BASE' IRI_REF8043 [[4]] PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF8044 [[5]] SelectQuery ::= 'SELECT' Distinctness? ( Var+ | '*' ) DatasetClause* WhereClause SolutionModifier8045 Distinctness ::= 'DISTINCT' | 'REDUCED'8046 [[6]] ConstructQuery ::= 'CONSTRUCT' ConstructTemplate DatasetClause* WhereClause SolutionModifier8047 [[7]] DescribeQuery ::= 'DESCRIBE' ( VarOrIRIref+ | '*' ) DatasetClause* WhereClause? SolutionModifier8048 [[8]] AskQuery ::= 'ASK' DatasetClause* WhereClause8049 [[9]] DatasetClause ::= 'FROM' ( DefaultGraphClause | NamedGraphClause )8050 [[10]] DefaultGraphClause ::= SourceSelector8051 [[11]] NamedGraphClause ::= 'NAMED' SourceSelector8052 [[12]] SourceSelector ::= IRIref8053 [[13]] WhereClause ::= 'WHERE'? GroupGraphPattern8054 [[14]] SolutionModifier ::= OrderClause? LimitOffsetClauses?8055 [[15]] LimitOffsetClauses ::= ( ( LimitClause OffsetClause?) | (OffsetClause LimitClause?) )8056 [[16]] OrderClause ::= 'ORDER' 'BY' OrderCondition+8057 [[17]] OrderCondition ::= ( OrderDirection BrackettedExpression ) | Constraint | Var8058 OrderDirection ::= 'ASC' | 'DESC'8059 [[18]] LimitClause ::= 'LIMIT' INTEGER8060 [[19]] OffsetClause ::= 'OFFSET' INTEGER8061 [[20]] GroupGraphPattern ::= '{' TriplesBlock? GroupGraphPatternRest* '}'8062 GroupGraphPatternRest ::= ( GraphPatternNotTriples | Filter ) '.'? TriplesBlock?8063 [[21]] TriplesBlock ::= TriplesSameSubject ( '.' TriplesBlock? )?8064 [[22]] GraphPatternNotTriples ::= OptionalGraphPattern | GroupOrUnionGraphPattern | GraphGraphPattern8065 [[23]] OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern8066 [[24]] GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern8067 [[25]] GroupOrUnionGraphPattern ::= GroupGraphPattern ( 'UNION' GroupGraphPattern )*8068 [[26]] Filter ::= 'FILTER' Constraint8069 [[27]] Constraint ::= BrackettedExpression | BuiltInCall | FunctionCall8070 [[28]] FunctionCall ::= IRIref ArgList8071 [[29]] ArgList ::= ( NILLIST | ( '(' Expression ( ',' Expression )* ')' ) )8072 [[30]] ConstructTemplate ::= '{' ConstructTriples? '}'8073 [[31]] ConstructTriples ::= TriplesSameSubject ( '.' ConstructTriples? )?8074 [[32]] TriplesSameSubject ::= ( VarOrTerm PropertyListNotEmpty ) | ( TriplesNode PropertyList )8075 [[33]] PropertyListNotEmpty ::= VerbObjectList ( ';' VerbObjectList? )* 8076 VerbObjectList ::= Verb ObjectList8077 [[34]] PropertyList ::= PropertyListNotEmpty?8078 [[35]] ObjectList ::= Object ( ',' Object )*8079 [[36]] Object ::= GraphNode8080 [[37]] Verb ::= VarOrIRIref | 'a'8081 [[38]] TriplesNode ::= Collection | BlankNodePropertyList8082 [[39]] BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'8083 [[40]] Collection ::= '(' GraphNode+ ')'8084 [[41]] GraphNode ::= VarOrTerm | TriplesNode8085 [[42]] VarOrTerm ::= Var | GraphTerm8086 [[43]] VarOrIRIref ::= Var | IRIref8087 // [[44]] Var ::= VAR1 | VAR28088 [[45]] GraphTerm ::= IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST8089 [[46]] Expression ::= ConditionalOrExpression8090 [[47]] ConditionalOrExpression ::= ConditionalAndExpression ( '||' ConditionalAndExpression )*8091 [[48]] ConditionalAndExpression ::= ValueLogical ( '&&' ValueLogical )*8092 [[49]] ValueLogical ::= RelationalExpression8093 [[50]] RelationalExpression ::= NumericExpression RelatedNumeric ?8094 RelationalOperator ::= '=' | '!=' | '<' | '>' | '<=' | '>='8095 RelatedNumeric ::= RelationalOperator NumericExpression8096 [[51]] NumericExpression ::= AdditiveExpression8097 [[52]] AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*8098 AdditiveOperator ::= '+' | '-'8099 AddedMultiplicative :: AdditiveOperator MultiplicativeExpression8100 // | NumericLiteralPositive | NumericLiteralNegative already appear through primary expression8101 [[53]] MultiplicativeExpression ::= UnaryExpression MultipliedUnary*8102 MultiplicativeOperator ::= '*' | '/'8103 MultipliedUnary ::= MultiplicativeOperator UnaryExpression8104 [[54]] UnaryExpression ::= ( UnaryOperator PrimaryExpression ) | PrimaryExpression8105 UnaryOperator ::= '!' | '+' | '-'8106 [[55]] PrimaryExpression ::= BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var8107 [[56]] BrackettedExpression ::= '(' Expression ')'8108 [[57]] BuiltInCall ::= BuiltinBinaryCall | BuiltinUnaryCall | RegexExpression8109 [[57]] BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'8110 [[57]] BuiltinUnaryOperator ::= 'STR' | 'LANG' | 'DATATYPE' | 'BOUND' | 'isIRI' | 'isURI' | 'isBlank' | 'isLiteral'8111 [[57]] BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'8112 [[57]] BuiltinBinaryOperator ::= 'LANGMATCHES' | 'sameTerm'8113 [[58]] RegexExpression ::= 'REGEX' '(' Expression ',' Expression ( ',' Expression )? ')'8114 [[59]] IRIrefOrFunction ::= IRIref ArgList?8115 [[60]] RDFLiteral ::= String ( LANGTAG | ( '^^' IRIref ) )?8116 [[61]] NumericLiteral ::= NumericLiteralUnsigned | NumericLiteralPositive | NumericLiteralNegative8117 [[62]] NumericLiteralUnsigned ::= INTEGER | DECIMAL | DOUBLE8118 [[63]] NumericLiteralPositive ::= INTEGER_POSITIVE | DECIMAL_POSITIVE | DOUBLE_POSITIVE8119 [[64]] NumericLiteralNegative ::= INTEGER_NEGATIVE | DECIMAL_NEGATIVE | DOUBLE_NEGATIVE8120 [[65]] BooleanLiteral ::= 'true' | 'false'8121 [[66]] String ::= STRING_LITERAL1 | STRING_LITERAL2 | STRING_LITERAL_LONG1 | STRING_LITERAL_LONG28122 [[67]] IRIref ::= IRI_REF | PrefixedName8123 [[68]] PrefixedName ::= PNAME_LN | PNAME_NS8124 [[69]] BlankNode ::= BLANK_NODE_LABEL | ANON8125 // [[70]] IRI_REF ::= '<' ([^<>\"{}|^`\\]-[#x00-#x20])* '>'8126 [[70]] IRI_REF ::= '<' IRI_NAMESTRING? '>'8127 [[70]] NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'8128 // [[71]] PNAME_NS ::= PN_PREFIX? ':'8129 // [[72]] PNAME_LN ::= PNAME_NS PN_LOCAL8130 [[73]] BLANK_NODE_LABEL ::= '_:' PN_LOCAL8131 // [[74]] VAR1 ::= '?' VARNAME8132 // [[75]] VAR2 ::= '$' VARNAME8133 // [[76]] LANGTAG ::= '@' [a-zA-Z]+ ('-' [a-zA-Z0-9]+)*8134 // [[77]] INTEGER ::= [0-9]+8135 // [[78]] DECIMAL ::= [0-9]+ '.' [0-9]* | '.' [0-9]+8136 // [[79]] DOUBLE ::= [0-9]+ '.' [0-9]* EXPONENT | '.' ([0-9])+ EXPONENT | ([0-9])+ EXPONENT8137 // [[80]] INTEGER_POSITIVE ::= '+' INTEGER8138 // [[81]] DECIMAL_POSITIVE ::= '+' DECIMAL8139 // [[82]] DOUBLE_POSITIVE ::= '+' DOUBLE8140 // [[83]] INTEGER_NEGATIVE ::= '-' INTEGER8141 // [[84]] DECIMAL_NEGATIVE ::= '-' DECIMAL8142 // [[85]] DOUBLE_NEGATIVE ::= '-' DOUBLE8143 // [[86]] EXPONENT ::= [eE] [+-]? [0-9]+8144 // [[87]] STRING_LITERAL1 ::= \"'\" ( ([^#x27#x5C#xA#xD]) | ECHAR )* \"'\"8145 // [[88]] STRING_LITERAL2 ::= '\"' ( ([^#x22#x5C#xA#xD]) | ECHAR )* '\"'8146 // [[89]] STRING_LITERAL_LONG1 ::= \"'''\" ( ( \"'\" | \"''\" )? ( [^'\\] | ECHAR ) )* \"'''\"8147 // [[90]] STRING_LITERAL_LONG2 ::= '\"\"\"' ( ( '\"' | '\"\"' )? ( [^\"\\] | ECHAR ) )* '\"\"\"'8148 // [[91]] ECHAR ::= '\\' [tbnrf\\\"']8149 [[92]] NILLIST ::= '(' ')'8150 // [[93]] WS ::= #x20 | #x9 | #xD | #xA8151 [[94]] ANON ::= '[' ']'8152 // [[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]8153 // [[96]] PN_CHARS_U ::= PN_CHARS_BASE | '_'8154 // [[97]] VARNAME ::= ( PN_CHARS_U | [0-9] ) ( PN_CHARS_U | [0-9] | #x00B7 | [#x0300-#x036F] | [#x203F-#x2040] )*8155 // [[98]] PN_CHARS ::= PN_CHARS_U | '-' | [0-9] | #x00B7 | [#x0300-#x036F] | [#x203F-#x2040]8156 // [[99]] PN_PREFIX ::= PN_CHARS_BASE ((PN_CHARS|'.')* PN_CHARS)?8157 // [[100]] PN_LOCAL ::= ( PN_CHARS_U | [0-9] ) ((PN_CHARS|'.')* PN_CHARS)?8158 8159 "8160 (DECLARE (SPECIAL *ATN-REDUCE* ATN-PARSER::*ATN-MODE ATN-PARSER::*ATN-INPUT))8161 (WHEN ATN-PARSER::AW-S (|wfst-initialize| ATN-PARSER::ATN-WFST))8162 (LET ((*ATN-LEVEL 0)8163 (*ATN-WFST ATN-PARSER::ATN-WFST)8164 (*ATN-STACK '(|Query-Parser|))8165 (*ATN-NODE NIL)8166 (*ATN-PROPERTIES NIL)8167 (*ATN-CLASS NIL)8168 (|Query-INDEX| -1)8169 (|Prologue-INDEX| -1)8170 (|BaseDecl-INDEX| -1)8171 (|PrefixDecl-INDEX| -1)8172 (|SelectQuery-INDEX| -1)8173 (|ConstructQuery-INDEX| -1)8174 (|DescribeQuery-INDEX| -1)8175 (|AskQuery-INDEX| -1)8176 (|DatasetClause-INDEX| -1)8177 (|DefaultGraphClause-INDEX| -1)8178 (|NamedGraphClause-INDEX| -1)8179 (|SourceSelector-INDEX| -1)8180 (|WhereClause-INDEX| -1)8181 (|SolutionModifier-INDEX| -1)8182 (|LimitOffsetClauses-INDEX| -1)8183 (|OrderClause-INDEX| -1)8184 (|OrderCondition-INDEX| -1)8185 (|LimitClause-INDEX| -1)8186 (|OffsetClause-INDEX| -1)8187 (|GroupGraphPattern-INDEX| -1)8188 (|GroupGraphPatternRest-INDEX| -1)8189 (|TriplesBlock-INDEX| -1)8190 (|GraphPatternNotTriples-INDEX| -1)8191 (|OptionalGraphPattern-INDEX| -1)8192 (|GraphGraphPattern-INDEX| -1)8193 (|GroupOrUnionGraphPattern-INDEX| -1)8194 (|Filter-INDEX| -1)8195 (|Constraint-INDEX| -1)8196 (|FunctionCall-INDEX| -1)8197 (|ArgList-INDEX| -1)8198 (|ConstructTemplate-INDEX| -1)8199 (|ConstructTriples-INDEX| -1)8200 (|TriplesSameSubject-INDEX| -1)8201 (|PropertyListNotEmpty-INDEX| -1)8202 (|VerbObjectList-INDEX| -1)8203 (|PropertyList-INDEX| -1)8204 (|ObjectList-INDEX| -1)8205 (|Object-INDEX| -1)8206 (|Verb-INDEX| -1)8207 (|TriplesNode-INDEX| -1)8208 (|BlankNodePropertyList-INDEX| -1)8209 (|Collection-INDEX| -1)8210 (|GraphNode-INDEX| -1)8211 (|VarOrTerm-INDEX| -1)8212 (|VarOrIRIref-INDEX| -1)8213 (|GraphTerm-INDEX| -1)8214 (|Expression-INDEX| -1)8215 (|ConditionalOrExpression-INDEX| -1)8216 (|ConditionalAndExpression-INDEX| -1)8217 (|ValueLogical-INDEX| -1)8218 (|RelationalExpression-INDEX| -1)8219 (|RelatedNumeric-INDEX| -1)8220 (|NumericExpression-INDEX| -1)8221 (|AdditiveExpression-INDEX| -1)8222 (|AddedMultiplicative-INDEX| -1)8223 (|MultiplicativeExpression-INDEX| -1)8224 (|MultipliedUnary-INDEX| -1)8225 (|UnaryExpression-INDEX| -1)8226 (|PrimaryExpression-INDEX| -1)8227 (|BrackettedExpression-INDEX| -1)8228 (|BuiltInCall-INDEX| -1)8229 (|BuiltinUnaryCall-INDEX| -1)8230 (|BuiltinBinaryCall-INDEX| -1)8231 (|RegexExpression-INDEX| -1)8232 (|IRIrefOrFunction-INDEX| -1)8233 (|RDFLiteral-INDEX| -1)8234 (|IRIref-INDEX| -1)8235 (|BlankNode-INDEX| -1)8236 (IRI_REF-INDEX -1)8237 (NAMESPACE_REF-INDEX -1)8238 (BLANK_NODE_LABEL-INDEX -1)8239 (NILLIST-INDEX -1)8240 (ANON-INDEX -1)8241 (ATN-PARSER::ATN-NET-NAMES8242 '(|Query| |Prologue|8243 |BaseDecl|8244 |PrefixDecl|8245 |SelectQuery|8246 |ConstructQuery|8247 |DescribeQuery|8248 |AskQuery|8249 |DatasetClause|8250 |DefaultGraphClause|8251 |NamedGraphClause|8252 |SourceSelector|8253 |WhereClause|8254 |SolutionModifier|8255 |LimitOffsetClauses|8256 |OrderClause|8257 |OrderCondition|8258 |LimitClause|8259 |OffsetClause|8260 |GroupGraphPattern|8261 |GroupGraphPatternRest|8262 |TriplesBlock|8263 |GraphPatternNotTriples|8264 |OptionalGraphPattern|8265 |GraphGraphPattern|8266 |GroupOrUnionGraphPattern|8267 |Filter|8268 |Constraint|8269 |FunctionCall|8270 |ArgList|8271 |ConstructTemplate|8272 |ConstructTriples|8273 |TriplesSameSubject|8274 |PropertyListNotEmpty|8275 |VerbObjectList|8276 |PropertyList|8277 |ObjectList|8278 |Object|8279 |Verb|8280 |TriplesNode|8281 |BlankNodePropertyList|8282 |Collection|8283 |GraphNode|8284 |VarOrTerm|8285 |VarOrIRIref|8286 |GraphTerm|8287 |Expression|8288 |ConditionalOrExpression|8289 |ConditionalAndExpression|8290 |ValueLogical|8291 |RelationalExpression|8292 |RelatedNumeric|8293 |NumericExpression|8294 |AdditiveExpression|8295 |AddedMultiplicative|8296 |MultiplicativeExpression|8297 |MultipliedUnary|8298 |UnaryExpression|8299 |PrimaryExpression|8300 |BrackettedExpression|8301 |BuiltInCall|8302 |BuiltinUnaryCall|8303 |BuiltinBinaryCall|8304 |RegexExpression|8305 |IRIrefOrFunction|8306 |RDFLiteral|8307 |IRIref|8308 |BlankNode|8309 IRI_REF8310 NAMESPACE_REF8311 BLANK_NODE_LABEL8312 NILLIST8313 ANON)))8314 (DECLARE8315 (SPECIAL |Query-INDEX| |Prologue-INDEX| |BaseDecl-INDEX| |PrefixDecl-INDEX| |SelectQuery-INDEX| |ConstructQuery-INDEX|8316 |DescribeQuery-INDEX| |AskQuery-INDEX| |DatasetClause-INDEX| |DefaultGraphClause-INDEX| |NamedGraphClause-INDEX|8317 |SourceSelector-INDEX| |WhereClause-INDEX| |SolutionModifier-INDEX| |LimitOffsetClauses-INDEX| |OrderClause-INDEX|8318 |OrderCondition-INDEX| |LimitClause-INDEX| |OffsetClause-INDEX| |GroupGraphPattern-INDEX| |GroupGraphPatternRest-INDEX|8319 |TriplesBlock-INDEX| |GraphPatternNotTriples-INDEX| |OptionalGraphPattern-INDEX| |GraphGraphPattern-INDEX|8320 |GroupOrUnionGraphPattern-INDEX| |Filter-INDEX| |Constraint-INDEX| |FunctionCall-INDEX| |ArgList-INDEX|8321 |ConstructTemplate-INDEX| |ConstructTriples-INDEX| |TriplesSameSubject-INDEX| |PropertyListNotEmpty-INDEX|8322 |VerbObjectList-INDEX| |PropertyList-INDEX| |ObjectList-INDEX| |Object-INDEX| |Verb-INDEX| |TriplesNode-INDEX|8323 |BlankNodePropertyList-INDEX| |Collection-INDEX| |GraphNode-INDEX| |VarOrTerm-INDEX| |VarOrIRIref-INDEX| |GraphTerm-INDEX|8324 |Expression-INDEX| |ConditionalOrExpression-INDEX| |ConditionalAndExpression-INDEX| |ValueLogical-INDEX|8325 |RelationalExpression-INDEX| |RelatedNumeric-INDEX| |NumericExpression-INDEX| |AdditiveExpression-INDEX|8326 |AddedMultiplicative-INDEX| |MultiplicativeExpression-INDEX| |MultipliedUnary-INDEX| |UnaryExpression-INDEX|8327 |PrimaryExpression-INDEX| |BrackettedExpression-INDEX| |BuiltInCall-INDEX| |BuiltinUnaryCall-INDEX| |BuiltinBinaryCall-INDEX|8328 |RegexExpression-INDEX| |IRIrefOrFunction-INDEX| |RDFLiteral-INDEX| |IRIref-INDEX| |BlankNode-INDEX| IRI_REF-INDEX8329 NAMESPACE_REF-INDEX BLANK_NODE_LABEL-INDEX NILLIST-INDEX ANON-INDEX))8330 (UNLESS (FIND ATN-PARSER::*ATN-START-NAME ATN-PARSER::ATN-NET-NAMES)8331 (ERROR "production not defined in system: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|Query-Parser|))8332 (UNLESS (FBOUNDP ATN-PARSER::*ATN-START-NAME)8333 (ERROR "parse function missing: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|Query-Parser|))8334 (HANDLER-BIND ((CONTINUABLE-PARSER-ERROR #'(LAMBDA (CONDITION) (SIGNAL CONDITION)))8335 (TERMINAL-PARSER-ERROR8336 #'(LAMBDA (CONDITION &AUX (ATN-PARSER::ACTION (CONDITION-ACTION CONDITION)))8337 (ETYPECASE ATN-PARSER::ACTION8338 (NULL)8339 (KEYWORD8340 (ECASE ATN-PARSER::ACTION8341 (:ABORT8342 (WHEN *ATN-TRACE*8343 (WARN "terminating parse on condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))8344 (RETURN-FROM |Query-Parser| (VALUES NIL CONDITION NIL)))8345 (:CONTINUE8346 (WHEN *ATN-TRACE*8347 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))8348 (CONTINUE CONDITION))8349 (:SIGNAL8350 (WHEN *ATN-TRACE*8351 (WARN "signaling parse condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))8352 (SIGNAL CONDITION)8353 (WHEN *ATN-TRACE*8354 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))8355 (CONTINUE CONDITION))))8356 #'(FUNCALL ATN-PARSER::ACTION))))8357 (ERROR #'(LAMBDA (CONDITION) (WHEN *ATN-TRACE* (WARN "parse raised condition: ~a." CONDITION)) NIL)))8358 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8359 (ATN-PARSE-SUBSTRUCTURE* ATN-PARSER::*ATN-START-NAME 0)8360 (COND (ATN-PARSER::SUCCESS8361 (RETURN-FROM |Query-Parser|8362 (PROGN (WHEN (CDR ATN-PARSER::RESULT)8363 (WHEN *ATN-TRACE* (WARN "ambiguous results for term: ~s." ATN-PARSER::*ATN-START-NAME))8364 (SETF ATN-PARSER::RESULT (SORT ATN-PARSER::RESULT #'> :KEY #'REST)))8365 (DESTRUCTURING-BIND8366 (ATN-PARSER::RESULT . ATN-PARSER::INDEX)8367 (FIRST ATN-PARSER::RESULT)8368 (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX (INPUT-EOF? ATN-PARSER::INDEX))))))8369 (T8370 (RETURN-FROM |Query-Parser|8371 (VALUES NIL (REDUCE #'MAX ATN-PARSER::RESULT :KEY #'REST :INITIAL-VALUE 0) NIL))))))))