| Kind | Covered | All | % |
| expression | 0 | 3943 | 0.0 |
| branch | 0 | 278 | 0.0 |
1 2 (IN-PACKAGE "ORG.DATAGRAPH.TURTLE-STAR") 3 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PrefixedName|)) 4 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteral|)) 5 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralUnsigned|)) 6 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralPositive|)) 7 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralNegative|)) 8 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-String|)) 9 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BooleanLiteral|)) 10 (DECLAIM (FTYPE (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES T T T)) |turtleDoc-Parser|)) 11 (DEFUN |IS-PrefixedName| (ATN-PARSER::ITEM)12 (ATN-PARSER:%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-PNAME_LN ATN-PARSER::ITEM) (IS-PNAME_NS ATN-PARSER::ITEM)))))13 (DEFUN |IS-NumericLiteral| (ATN-PARSER::ITEM)14 (ATN-PARSER:%ATN-TRACE-FORM15 (AND ATN-PARSER::ITEM16 (OR (|IS-NumericLiteralUnsigned| ATN-PARSER::ITEM) (|IS-NumericLiteralPositive| ATN-PARSER::ITEM)17 (|IS-NumericLiteralNegative| ATN-PARSER::ITEM)))))18 (DEFUN |IS-NumericLiteralUnsigned| (ATN-PARSER::ITEM)19 (ATN-PARSER:%ATN-TRACE-FORM20 (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM) (IS-DECIMAL ATN-PARSER::ITEM) (IS-DOUBLE ATN-PARSER::ITEM)))))21 (DEFUN |IS-NumericLiteralPositive| (ATN-PARSER::ITEM)22 (ATN-PARSER:%ATN-TRACE-FORM23 (AND ATN-PARSER::ITEM24 (OR (IS-INTEGER_POSITIVE ATN-PARSER::ITEM) (IS-DECIMAL_POSITIVE ATN-PARSER::ITEM) (IS-DOUBLE_POSITIVE ATN-PARSER::ITEM)))))25 (DEFUN |IS-NumericLiteralNegative| (ATN-PARSER::ITEM)26 (ATN-PARSER:%ATN-TRACE-FORM27 (AND ATN-PARSER::ITEM28 (OR (IS-INTEGER_NEGATIVE ATN-PARSER::ITEM) (IS-DECIMAL_NEGATIVE ATN-PARSER::ITEM) (IS-DOUBLE_NEGATIVE ATN-PARSER::ITEM)))))29 (DEFUN |IS-String| (ATN-PARSER::ITEM)30 (ATN-PARSER:%ATN-TRACE-FORM31 (AND ATN-PARSER::ITEM32 (OR (IS-STRING_LITERAL1 ATN-PARSER::ITEM) (IS-STRING_LITERAL2 ATN-PARSER::ITEM) (IS-STRING_LITERAL_LONG1 ATN-PARSER::ITEM)33 (IS-STRING_LITERAL_LONG2 ATN-PARSER::ITEM)))))34 (DEFUN |IS-BooleanLiteral| (ATN-PARSER::ITEM)35 (ATN-PARSER:%ATN-TRACE-FORM36 (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:|true|) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|false|)))))37 (PROGN38 (DEFVAR |turtleDoc-INDEX|)39 (DEFUN |turtleDoc| (ATN-PARSER::INDEX &AUX (|statement| NIL))40 "{1 } turtleDoc ::= statement*41 (|statement|)"42 (DECLARE (SPECIAL |turtleDoc-INDEX|))43 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |turtleDoc-INDEX| ATN-PARSER:*ATN-LEVEL))44 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))45 (IF (< |turtleDoc-INDEX| ATN-PARSER::INDEX)46 (LET ((|turtleDoc-INDEX| ATN-PARSER::INDEX)47 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))48 (ATN-PARSER:*ATN-STACK (CONS '|turtleDoc| ATN-PARSER:*ATN-STACK))49 (ATN-PARSER::ATN-STRUCTURE NIL))50 (DECLARE (SPECIAL |turtleDoc-INDEX|))51 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))52 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))53 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))54 (ATN-PARSER:%ATN-BLOCK |turtleDoc|55 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)56 (SETF ATN-PARSER:*ATN-TERM* '|turtleDoc|)57 (WHEN (INPUT-EOF? ATN-PARSER::INDEX)58 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE)))59 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)60 ATN-PARSER::INDEX)61 (|turtleDoc.2| (ATN-PARSER::INDEX)62 (ATN-PARSER:%ATN-NODE-BLOCK |turtleDoc.2|63 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |turtleDoc|)64 (WHEN T65 (SETF ATN-PARSER:*ATN-TERM*66 '|turtleDoc|)67 (ATN-PARSER:%ATN-TRACE68 " [***/~a @ ~s reduce structure: ~a"69 '|turtleDoc|70 ATN-PARSER::INDEX71 (LIST '|statement|72 |statement|))73 (LET ((ATN-PARSER::RESULT-STRUCTURE74 (IF (EQ75 ATN-PARSER:*ATN-REDUCE*76 T)77 (|turtleDoc-Constructor|78 |statement|)79 (IF (EQ80 ATN-PARSER:*ATN-REDUCE*81 'CONS)82 (CONS83 '|turtleDoc|84 (DELETE NIL85 (LIST86 |statement|)))87 '|turtleDoc|))))88 (ATN-PARSER::SUCCEED89 ATN-PARSER::INDEX90 ATN-PARSER::RESULT-STRUCTURE))))))91 (|turtleDoc.4| (ATN-PARSER::INDEX)92 (ATN-PARSER:%ATN-NODE-BLOCK |turtleDoc.4|93 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |statement|)94 (MULTIPLE-VALUE-BIND95 (ATN-PARSER::RESULT96 ATN-PARSER::SUCCESS)97 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*98 '|statement|99 ATN-PARSER::INDEX)100 (COND101 (ATN-PARSER::SUCCESS102 (SETF ATN-PARSER:*ATN-TERM*103 '|statement|)104 (LET ((|statement52|105 |statement|))106 (DOLIST107 (ATN-PARSER::RESULT-AND-INDEX108 ATN-PARSER::RESULT)109 (DESTRUCTURING-BIND110 (111 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)112 ATN-PARSER::RESULT-AND-INDEX113 (WHEN114 ATN-PARSER::RESULT115 (SETF |statement|116 (CONS117 ATN-PARSER::RESULT118 |statement|)))119 (|turtleDoc.4|120 ATN-PARSER::RESULT-INDEX))121 (SETF |statement|122 |statement52|))))123 (T124 (SETF ATN-PARSER:*ATN-TERM?*125 '|statement|)126 (|turtleDoc.2|127 ATN-PARSER::INDEX)))))))128 (|turtleDoc/fail.3| (ATN-PARSER::INDEX)129 (ATN-PARSER:%ATN-NODE-BLOCK |turtleDoc/fail.3|130 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))131 (|turtleDoc/start.1| (ATN-PARSER::INDEX)132 (ATN-PARSER:%ATN-NODE-BLOCK |turtleDoc/start.1|133 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |statement|)134 (MULTIPLE-VALUE-BIND135 (ATN-PARSER::RESULT136 ATN-PARSER::SUCCESS)137 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*138 '|statement|139 ATN-PARSER::INDEX)140 (COND141 (ATN-PARSER::SUCCESS142 (SETF ATN-PARSER:*ATN-TERM*143 '|statement|)144 (LET ((|statement51|145 |statement|))146 (DOLIST147 (ATN-PARSER::RESULT-AND-INDEX148 ATN-PARSER::RESULT)149 (DESTRUCTURING-BIND150 (151 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)152 ATN-PARSER::RESULT-AND-INDEX153 (WHEN154 ATN-PARSER::RESULT155 (SETF |statement|156 (CONS157 ATN-PARSER::RESULT158 |statement|)))159 (|turtleDoc.4|160 ATN-PARSER::RESULT-INDEX))161 (SETF |statement|162 |statement51|))))163 (T164 (SETF ATN-PARSER:*ATN-TERM?*165 '|statement|)166 (|turtleDoc.2|167 ATN-PARSER::INDEX))))))))168 (|turtleDoc/start.1| ATN-PARSER::INDEX)169 (SETF ATN-PARSER:*ATN-NODE NIL)170 NIL171 (IF ATN-PARSER::ATN-STRUCTURE172 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)173 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))174 (WARN "recursive grammar: ~s @ position ~s: ~s" '|turtleDoc| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))175 (PROGN176 (DEFVAR |statement-INDEX|)177 (DEFUN |statement| (ATN-PARSER::INDEX &AUX (|directive| NIL) (|triples| NIL))178 "{2 } statement ::= (directive | (triples '.'))179 (|directive| |triples|)"180 (DECLARE (SPECIAL |statement-INDEX|))181 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |statement-INDEX| ATN-PARSER:*ATN-LEVEL))182 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))183 (IF (< |statement-INDEX| ATN-PARSER::INDEX)184 (LET ((|statement-INDEX| ATN-PARSER::INDEX)185 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))186 (ATN-PARSER:*ATN-STACK (CONS '|statement| ATN-PARSER:*ATN-STACK))187 (ATN-PARSER::ATN-STRUCTURE NIL))188 (DECLARE (SPECIAL |statement-INDEX|))189 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))190 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))191 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))192 (ATN-PARSER:%ATN-BLOCK |statement|193 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)194 (SETF ATN-PARSER:*ATN-TERM* '|statement|)195 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))196 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)197 ATN-PARSER::INDEX)198 (|statement.2| (ATN-PARSER::INDEX)199 (ATN-PARSER:%ATN-NODE-BLOCK |statement.2|200 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |statement|)201 (WHEN T202 (SETF ATN-PARSER:*ATN-TERM*203 '|statement|)204 (ATN-PARSER:%ATN-TRACE205 " [***/~a @ ~s reduce structure: ~a"206 '|statement|207 ATN-PARSER::INDEX208 (LIST '|directive|209 |directive|210 '|triples|211 |triples|))212 (LET ((ATN-PARSER::RESULT-STRUCTURE213 (IF (EQ214 ATN-PARSER:*ATN-REDUCE*215 T)216 (|statement-Constructor|217 |directive|218 |triples|)219 (IF (EQ220 ATN-PARSER:*ATN-REDUCE*221 'CONS)222 (CONS223 '|statement|224 (DELETE NIL225 (LIST226 |directive|227 |triples|)))228 '|statement|))))229 (ATN-PARSER::SUCCEED230 ATN-PARSER::INDEX231 ATN-PARSER::RESULT-STRUCTURE))))))232 (|statement/fail.3| (ATN-PARSER::INDEX)233 (ATN-PARSER:%ATN-NODE-BLOCK |statement/fail.3|234 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))235 (|statement/start.1| (ATN-PARSER::INDEX)236 (ATN-PARSER:%ATN-NODE-BLOCK |statement/start.1|237 (ATN-PARSER:%ATN-EDGE-BLOCK OR238 (PROGN239 (ATN-PARSER:%ATN-EDGE-BLOCK240 (PUSH |directive|)241 (MULTIPLE-VALUE-BIND242 (ATN-PARSER::RESULT243 ATN-PARSER::SUCCESS)244 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*245 '|directive|246 ATN-PARSER::INDEX)247 (COND248 (ATN-PARSER::SUCCESS249 (SETF ATN-PARSER:*ATN-TERM*250 '|directive|)251 (LET ((|directive53|252 |directive|))253 (DOLIST254 (ATN-PARSER::RESULT-AND-INDEX255 ATN-PARSER::RESULT)256 (DESTRUCTURING-BIND257 (258 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)259 ATN-PARSER::RESULT-AND-INDEX260 (WHEN261 ATN-PARSER::RESULT262 (SETF |directive|263 ATN-PARSER::RESULT))264 (|statement.2|265 ATN-PARSER::RESULT-INDEX))266 (SETF |directive|267 |directive53|))))268 (T269 (SETF ATN-PARSER:*ATN-TERM?*270 '|directive|)271 NIL))))272 (ATN-PARSER:%ATN-EDGE-BLOCK273 (ATN-PARSER::JUMP274 |statement/statement.2.4|)275 (|statement/statement.2.4|276 ATN-PARSER::INDEX))277 (|statement/fail.3|278 ATN-PARSER::INDEX)))))279 (|statement/statement.2.4| (ATN-PARSER::INDEX)280 (ATN-PARSER:%ATN-NODE-BLOCK |statement/statement.2.4|281 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |triples|)282 (MULTIPLE-VALUE-BIND283 (ATN-PARSER::RESULT284 ATN-PARSER::SUCCESS)285 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*286 '|triples|287 ATN-PARSER::INDEX)288 (COND289 (ATN-PARSER::SUCCESS290 (SETF ATN-PARSER:*ATN-TERM*291 '|triples|)292 (LET ((|triples54|293 |triples|))294 (DOLIST295 (ATN-PARSER::RESULT-AND-INDEX296 ATN-PARSER::RESULT)297 (DESTRUCTURING-BIND298 (299 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)300 ATN-PARSER::RESULT-AND-INDEX301 (WHEN302 ATN-PARSER::RESULT303 (SETF |triples|304 ATN-PARSER::RESULT))305 (|statement/statement.2.5|306 ATN-PARSER::RESULT-INDEX))307 (SETF |triples|308 |triples54|))))309 (T310 (SETF ATN-PARSER:*ATN-TERM?*311 '|triples|)312 NIL))))))313 (|statement/statement.2.5| (ATN-PARSER::INDEX)314 (ATN-PARSER:%ATN-NODE-BLOCK |statement/statement.2.5|315 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)316 (COND317 ((EQ ATN-PARSER::|item|318 'SPOCQ.S:|.|)319 (SETF ATN-PARSER:*ATN-TERM*320 'SPOCQ.S:|.|)321 (|statement.2|322 (1+ ATN-PARSER::INDEX)))323 (T324 (SETF ATN-PARSER:*ATN-TERM?*325 'SPOCQ.S:|.|)326 NIL))))))327 (|statement/start.1| ATN-PARSER::INDEX)328 (SETF ATN-PARSER:*ATN-NODE NIL)329 NIL330 (IF ATN-PARSER::ATN-STRUCTURE331 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)332 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))333 (WARN "recursive grammar: ~s @ position ~s: ~s" '|statement| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))334 (PROGN335 (DEFVAR |directive-INDEX|)336 (DEFUN |directive| (ATN-PARSER::INDEX &AUX (|base| NIL) (|BaseDecl| NIL) (|PrefixDecl| NIL) (|prefixID| NIL))337 "{3 } directive ::= (prefixID | base | BaseDecl | PrefixDecl)338 (|base| |BaseDecl| |PrefixDecl| |prefixID|)"339 (DECLARE (SPECIAL |directive-INDEX|))340 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |directive-INDEX| ATN-PARSER:*ATN-LEVEL))341 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))342 (IF (< |directive-INDEX| ATN-PARSER::INDEX)343 (LET ((|directive-INDEX| ATN-PARSER::INDEX)344 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))345 (ATN-PARSER:*ATN-STACK (CONS '|directive| ATN-PARSER:*ATN-STACK))346 (ATN-PARSER::ATN-STRUCTURE NIL))347 (DECLARE (SPECIAL |directive-INDEX|))348 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))349 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))350 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))351 (ATN-PARSER:%ATN-BLOCK |directive|352 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)353 (SETF ATN-PARSER:*ATN-TERM* '|directive|)354 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))355 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)356 ATN-PARSER::INDEX)357 (|directive.2| (ATN-PARSER::INDEX)358 (ATN-PARSER:%ATN-NODE-BLOCK |directive.2|359 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |directive|)360 (WHEN T361 (SETF ATN-PARSER:*ATN-TERM*362 '|directive|)363 (ATN-PARSER:%ATN-TRACE364 " [***/~a @ ~s reduce structure: ~a"365 '|directive|366 ATN-PARSER::INDEX367 (LIST '|base| |base|368 '|BaseDecl|369 |BaseDecl|370 '|PrefixDecl|371 |PrefixDecl|372 '|prefixID|373 |prefixID|))374 (LET ((ATN-PARSER::RESULT-STRUCTURE375 (IF (EQ376 ATN-PARSER:*ATN-REDUCE*377 T)378 (|directive-Constructor|379 |base|380 |BaseDecl|381 |PrefixDecl|382 |prefixID|)383 (IF (EQ384 ATN-PARSER:*ATN-REDUCE*385 'CONS)386 (CONS387 '|directive|388 (DELETE NIL389 (LIST390 |base|391 |BaseDecl|392 |PrefixDecl|393 |prefixID|)))394 '|directive|))))395 (ATN-PARSER::SUCCEED396 ATN-PARSER::INDEX397 ATN-PARSER::RESULT-STRUCTURE))))))398 (|directive/fail.3| (ATN-PARSER::INDEX)399 (ATN-PARSER:%ATN-NODE-BLOCK |directive/fail.3|400 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))401 (|directive/start.1| (ATN-PARSER::INDEX)402 (ATN-PARSER:%ATN-NODE-BLOCK |directive/start.1|403 (ATN-PARSER:%ATN-EDGE-BLOCK OR404 (PROGN405 (ATN-PARSER:%ATN-EDGE-BLOCK406 (PUSH |prefixID|)407 (MULTIPLE-VALUE-BIND408 (ATN-PARSER::RESULT409 ATN-PARSER::SUCCESS)410 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*411 '|prefixID|412 ATN-PARSER::INDEX)413 (COND414 (ATN-PARSER::SUCCESS415 (SETF ATN-PARSER:*ATN-TERM*416 '|prefixID|)417 (LET ((|prefixID55|418 |prefixID|))419 (DOLIST420 (ATN-PARSER::RESULT-AND-INDEX421 ATN-PARSER::RESULT)422 (DESTRUCTURING-BIND423 (424 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)425 ATN-PARSER::RESULT-AND-INDEX426 (WHEN427 ATN-PARSER::RESULT428 (SETF |prefixID|429 ATN-PARSER::RESULT))430 (|directive.2|431 ATN-PARSER::RESULT-INDEX))432 (SETF |prefixID|433 |prefixID55|))))434 (T435 (SETF ATN-PARSER:*ATN-TERM?*436 '|prefixID|)437 NIL))))438 (ATN-PARSER:%ATN-EDGE-BLOCK439 (PUSH |base|)440 (MULTIPLE-VALUE-BIND441 (ATN-PARSER::RESULT442 ATN-PARSER::SUCCESS)443 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*444 '|base|445 ATN-PARSER::INDEX)446 (COND447 (ATN-PARSER::SUCCESS448 (SETF ATN-PARSER:*ATN-TERM*449 '|base|)450 (LET ((|base56| |base|))451 (DOLIST452 (ATN-PARSER::RESULT-AND-INDEX453 ATN-PARSER::RESULT)454 (DESTRUCTURING-BIND455 (456 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)457 ATN-PARSER::RESULT-AND-INDEX458 (WHEN459 ATN-PARSER::RESULT460 (SETF |base|461 ATN-PARSER::RESULT))462 (|directive.2|463 ATN-PARSER::RESULT-INDEX))464 (SETF |base|465 |base56|))))466 (T467 (SETF ATN-PARSER:*ATN-TERM?*468 '|base|)469 NIL))))470 (ATN-PARSER:%ATN-EDGE-BLOCK471 (PUSH |BaseDecl|)472 (MULTIPLE-VALUE-BIND473 (ATN-PARSER::RESULT474 ATN-PARSER::SUCCESS)475 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*476 '|BaseDecl|477 ATN-PARSER::INDEX)478 (COND479 (ATN-PARSER::SUCCESS480 (SETF ATN-PARSER:*ATN-TERM*481 '|BaseDecl|)482 (LET ((|BaseDecl57|483 |BaseDecl|))484 (DOLIST485 (ATN-PARSER::RESULT-AND-INDEX486 ATN-PARSER::RESULT)487 (DESTRUCTURING-BIND488 (489 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)490 ATN-PARSER::RESULT-AND-INDEX491 (WHEN492 ATN-PARSER::RESULT493 (SETF |BaseDecl|494 ATN-PARSER::RESULT))495 (|directive.2|496 ATN-PARSER::RESULT-INDEX))497 (SETF |BaseDecl|498 |BaseDecl57|))))499 (T500 (SETF ATN-PARSER:*ATN-TERM?*501 '|BaseDecl|)502 NIL))))503 (ATN-PARSER:%ATN-EDGE-BLOCK504 (PUSH |PrefixDecl|)505 (MULTIPLE-VALUE-BIND506 (ATN-PARSER::RESULT507 ATN-PARSER::SUCCESS)508 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*509 '|PrefixDecl|510 ATN-PARSER::INDEX)511 (COND512 (ATN-PARSER::SUCCESS513 (SETF ATN-PARSER:*ATN-TERM*514 '|PrefixDecl|)515 (LET ((|PrefixDecl58|516 |PrefixDecl|))517 (DOLIST518 (ATN-PARSER::RESULT-AND-INDEX519 ATN-PARSER::RESULT)520 (DESTRUCTURING-BIND521 (522 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)523 ATN-PARSER::RESULT-AND-INDEX524 (WHEN525 ATN-PARSER::RESULT526 (SETF |PrefixDecl|527 ATN-PARSER::RESULT))528 (|directive.2|529 ATN-PARSER::RESULT-INDEX))530 (SETF |PrefixDecl|531 |PrefixDecl58|))))532 (T533 (SETF ATN-PARSER:*ATN-TERM?*534 '|PrefixDecl|)535 NIL))))536 (|directive/fail.3|537 ATN-PARSER::INDEX))))))538 (|directive/start.1| ATN-PARSER::INDEX)539 (SETF ATN-PARSER:*ATN-NODE NIL)540 NIL541 (IF ATN-PARSER::ATN-STRUCTURE542 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)543 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))544 (WARN "recursive grammar: ~s @ position ~s: ~s" '|directive| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))545 (PROGN546 (DEFVAR |prefixID-INDEX|)547 (DEFUN |prefixID| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL) (PNAME_NS NIL))548 "{4 } prefixID ::= '@prefix' PNAME_NS NAMESPACE_REF '.'549 (NAMESPACE_REF PNAME_NS)"550 (DECLARE (SPECIAL |prefixID-INDEX|))551 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |prefixID-INDEX| ATN-PARSER:*ATN-LEVEL))552 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))553 (IF (< |prefixID-INDEX| ATN-PARSER::INDEX)554 (LET ((|prefixID-INDEX| ATN-PARSER::INDEX)555 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))556 (ATN-PARSER:*ATN-STACK (CONS '|prefixID| ATN-PARSER:*ATN-STACK))557 (ATN-PARSER::ATN-STRUCTURE NIL))558 (DECLARE (SPECIAL |prefixID-INDEX|))559 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))560 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))561 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))562 (ATN-PARSER:%ATN-BLOCK |prefixID|563 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)564 (SETF ATN-PARSER:*ATN-TERM* '|prefixID|)565 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))566 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)567 ATN-PARSER::INDEX)568 (|prefixID.2| (ATN-PARSER::INDEX)569 (ATN-PARSER:%ATN-NODE-BLOCK |prefixID.2|570 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |prefixID|)571 (WHEN T572 (SETF ATN-PARSER:*ATN-TERM*573 '|prefixID|)574 (ATN-PARSER:%ATN-TRACE575 " [***/~a @ ~s reduce structure: ~a"576 '|prefixID|577 ATN-PARSER::INDEX578 (LIST 'NAMESPACE_REF579 NAMESPACE_REF580 'PNAME_NS PNAME_NS))581 (LET ((ATN-PARSER::RESULT-STRUCTURE582 (IF (EQ583 ATN-PARSER:*ATN-REDUCE*584 T)585 (|prefixID-Constructor|586 NAMESPACE_REF587 PNAME_NS)588 (IF (EQ589 ATN-PARSER:*ATN-REDUCE*590 'CONS)591 (CONS592 '|prefixID|593 (DELETE NIL594 (LIST595 NAMESPACE_REF596 PNAME_NS)))597 '|prefixID|))))598 (ATN-PARSER::SUCCEED599 ATN-PARSER::INDEX600 ATN-PARSER::RESULT-STRUCTURE))))))601 (|prefixID/fail.3| (ATN-PARSER::INDEX)602 (ATN-PARSER:%ATN-NODE-BLOCK |prefixID/fail.3|603 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))604 (|prefixID/prefixID.2.4| (ATN-PARSER::INDEX)605 (ATN-PARSER:%ATN-NODE-BLOCK |prefixID/prefixID.2.4|606 (ATN-PARSER:%ATN-EDGE-BLOCK (TEST PNAME_NS)607 (COND608 ((IS-PNAME_NS609 ATN-PARSER::|item|)610 (SETF ATN-PARSER:*ATN-TERM*611 'PNAME_NS)612 (SETF PNAME_NS613 (IF (EQ614 ATN-PARSER:*ATN-REDUCE*615 T)616 (ATN-PARSER:ATN-REDUCE-ITEM617 #'|PNAME_NS-Constructor|618 ATN-PARSER::|item|)619 (IF (EQ620 ATN-PARSER:*ATN-REDUCE*621 'CONS)622 (LIST623 'PNAME_NS624 ATN-PARSER::|item|)625 'PNAME_NS)))626 (|prefixID/prefixID.2.5|627 (1+ ATN-PARSER::INDEX)))628 (T629 (SETF ATN-PARSER:*ATN-TERM?*630 'PNAME_NS)631 (|prefixID/fail.3|632 ATN-PARSER::INDEX))))))633 (|prefixID/prefixID.2.5| (ATN-PARSER::INDEX)634 (ATN-PARSER:%ATN-NODE-BLOCK |prefixID/prefixID.2.5|635 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH NAMESPACE_REF)636 (MULTIPLE-VALUE-BIND637 (ATN-PARSER::RESULT638 ATN-PARSER::SUCCESS)639 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*640 'NAMESPACE_REF641 ATN-PARSER::INDEX)642 (COND643 (ATN-PARSER::SUCCESS644 (SETF ATN-PARSER:*ATN-TERM*645 'NAMESPACE_REF)646 (LET ((NAMESPACE_REF59647 NAMESPACE_REF))648 (DOLIST649 (ATN-PARSER::RESULT-AND-INDEX650 ATN-PARSER::RESULT)651 (DESTRUCTURING-BIND652 (653 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)654 ATN-PARSER::RESULT-AND-INDEX655 (WHEN656 ATN-PARSER::RESULT657 (SETF NAMESPACE_REF658 ATN-PARSER::RESULT))659 (|prefixID/prefixID.2.6|660 ATN-PARSER::RESULT-INDEX))661 (SETF NAMESPACE_REF662 NAMESPACE_REF59))))663 (T664 (SETF ATN-PARSER:*ATN-TERM?*665 'NAMESPACE_REF)666 (|prefixID/fail.3|667 ATN-PARSER::INDEX)))))))668 (|prefixID/prefixID.2.6| (ATN-PARSER::INDEX)669 (ATN-PARSER:%ATN-NODE-BLOCK |prefixID/prefixID.2.6|670 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)671 (COND672 ((EQ ATN-PARSER::|item|673 'SPOCQ.S:|.|)674 (SETF ATN-PARSER:*ATN-TERM*675 'SPOCQ.S:|.|)676 (|prefixID.2|677 (1+ ATN-PARSER::INDEX)))678 (T679 (SETF ATN-PARSER:*ATN-TERM?*680 'SPOCQ.S:|.|)681 (|prefixID/fail.3|682 ATN-PARSER::INDEX))))))683 (|prefixID/start.1| (ATN-PARSER::INDEX)684 (ATN-PARSER:%ATN-NODE-BLOCK |prefixID/start.1|685 (ATN-PARSER:%ATN-EDGE-BLOCK686 (ATN-PARSER::WORD SPOCQ.S::|@prefix|)687 (COND688 ((EQ ATN-PARSER::|item| 'SPOCQ.S::|@prefix|)689 (SETF ATN-PARSER:*ATN-TERM* 'SPOCQ.S::|@prefix|)690 (|prefixID/prefixID.2.4| (1+ ATN-PARSER::INDEX)))691 (T (SETF ATN-PARSER:*ATN-TERM?* 'SPOCQ.S::|@prefix|)692 (|prefixID/fail.3| ATN-PARSER::INDEX)))))))693 (|prefixID/start.1| ATN-PARSER::INDEX)694 (SETF ATN-PARSER:*ATN-NODE NIL)695 NIL696 (IF ATN-PARSER::ATN-STRUCTURE697 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)698 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))699 (WARN "recursive grammar: ~s @ position ~s: ~s" '|prefixID| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))700 (PROGN701 (DEFVAR |base-INDEX|)702 (DEFUN |base| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL))703 "{5 } base ::= '@base' NAMESPACE_REF '.'704 (NAMESPACE_REF)"705 (DECLARE (SPECIAL |base-INDEX|))706 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |base-INDEX| ATN-PARSER:*ATN-LEVEL))707 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))708 (IF (< |base-INDEX| ATN-PARSER::INDEX)709 (LET ((|base-INDEX| ATN-PARSER::INDEX)710 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))711 (ATN-PARSER:*ATN-STACK (CONS '|base| ATN-PARSER:*ATN-STACK))712 (ATN-PARSER::ATN-STRUCTURE NIL))713 (DECLARE (SPECIAL |base-INDEX|))714 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))715 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))716 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))717 (ATN-PARSER:%ATN-BLOCK |base|718 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)719 (SETF ATN-PARSER:*ATN-TERM* '|base|)720 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))721 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)722 ATN-PARSER::INDEX)723 (|base.2| (ATN-PARSER::INDEX)724 (ATN-PARSER:%ATN-NODE-BLOCK |base.2|725 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |base|)726 (WHEN T727 (SETF ATN-PARSER:*ATN-TERM*728 '|base|)729 (ATN-PARSER:%ATN-TRACE730 " [***/~a @ ~s reduce structure: ~a"731 '|base| ATN-PARSER::INDEX732 (LIST 'NAMESPACE_REF733 NAMESPACE_REF))734 (LET ((ATN-PARSER::RESULT-STRUCTURE735 (IF (EQ736 ATN-PARSER:*ATN-REDUCE*737 T)738 (|base-Constructor|739 NAMESPACE_REF)740 (IF (EQ741 ATN-PARSER:*ATN-REDUCE*742 'CONS)743 (CONS '|base|744 (DELETE745 NIL746 (LIST747 NAMESPACE_REF)))748 '|base|))))749 (ATN-PARSER::SUCCEED750 ATN-PARSER::INDEX751 ATN-PARSER::RESULT-STRUCTURE))))))752 (|base/base.2.4| (ATN-PARSER::INDEX)753 (ATN-PARSER:%ATN-NODE-BLOCK |base/base.2.4|754 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH NAMESPACE_REF)755 (MULTIPLE-VALUE-BIND756 (ATN-PARSER::RESULT757 ATN-PARSER::SUCCESS)758 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*759 'NAMESPACE_REF760 ATN-PARSER::INDEX)761 (COND762 (ATN-PARSER::SUCCESS763 (SETF ATN-PARSER:*ATN-TERM*764 'NAMESPACE_REF)765 (LET ((NAMESPACE_REF60766 NAMESPACE_REF))767 (DOLIST768 (ATN-PARSER::RESULT-AND-INDEX769 ATN-PARSER::RESULT)770 (DESTRUCTURING-BIND771 (772 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)773 ATN-PARSER::RESULT-AND-INDEX774 (WHEN775 ATN-PARSER::RESULT776 (SETF NAMESPACE_REF777 ATN-PARSER::RESULT))778 (|base/base.2.5|779 ATN-PARSER::RESULT-INDEX))780 (SETF NAMESPACE_REF781 NAMESPACE_REF60))))782 (T783 (SETF ATN-PARSER:*ATN-TERM?*784 'NAMESPACE_REF)785 (|base/fail.3|786 ATN-PARSER::INDEX)))))))787 (|base/base.2.5| (ATN-PARSER::INDEX)788 (ATN-PARSER:%ATN-NODE-BLOCK |base/base.2.5|789 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)790 (COND791 ((EQ ATN-PARSER::|item|792 'SPOCQ.S:|.|)793 (SETF ATN-PARSER:*ATN-TERM*794 'SPOCQ.S:|.|)795 (|base.2|796 (1+ ATN-PARSER::INDEX)))797 (T798 (SETF ATN-PARSER:*ATN-TERM?*799 'SPOCQ.S:|.|)800 (|base/fail.3|801 ATN-PARSER::INDEX))))))802 (|base/fail.3| (ATN-PARSER::INDEX)803 (ATN-PARSER:%ATN-NODE-BLOCK |base/fail.3|804 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))805 (|base/start.1| (ATN-PARSER::INDEX)806 (ATN-PARSER:%ATN-NODE-BLOCK |base/start.1|807 (ATN-PARSER:%ATN-EDGE-BLOCK808 (ATN-PARSER::WORD SPOCQ.S::|@base|)809 (COND810 ((EQ ATN-PARSER::|item| 'SPOCQ.S::|@base|)811 (SETF ATN-PARSER:*ATN-TERM* 'SPOCQ.S::|@base|)812 (|base/base.2.4| (1+ ATN-PARSER::INDEX)))813 (T (SETF ATN-PARSER:*ATN-TERM?* 'SPOCQ.S::|@base|)814 (|base/fail.3| ATN-PARSER::INDEX)))))))815 (|base/start.1| ATN-PARSER::INDEX)816 (SETF ATN-PARSER:*ATN-NODE NIL)817 NIL818 (IF ATN-PARSER::ATN-STRUCTURE819 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)820 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))821 (WARN "recursive grammar: ~s @ position ~s: ~s" '|base| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))822 (PROGN823 (DEFVAR |BaseDecl-INDEX|)824 (DEFUN |BaseDecl| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL))825 "{5s} BaseDecl ::= 'BASE' NAMESPACE_REF826 (NAMESPACE_REF)"827 (DECLARE (SPECIAL |BaseDecl-INDEX|))828 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BaseDecl-INDEX| ATN-PARSER:*ATN-LEVEL))829 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))830 (IF (< |BaseDecl-INDEX| ATN-PARSER::INDEX)831 (LET ((|BaseDecl-INDEX| ATN-PARSER::INDEX)832 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))833 (ATN-PARSER:*ATN-STACK (CONS '|BaseDecl| ATN-PARSER:*ATN-STACK))834 (ATN-PARSER::ATN-STRUCTURE NIL))835 (DECLARE (SPECIAL |BaseDecl-INDEX|))836 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))837 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))838 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))839 (ATN-PARSER:%ATN-BLOCK |BaseDecl|840 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)841 (SETF ATN-PARSER:*ATN-TERM* '|BaseDecl|)842 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))843 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)844 ATN-PARSER::INDEX)845 (|BaseDecl.2| (ATN-PARSER::INDEX)846 (ATN-PARSER:%ATN-NODE-BLOCK |BaseDecl.2|847 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |BaseDecl|)848 (WHEN T849 (SETF ATN-PARSER:*ATN-TERM*850 '|BaseDecl|)851 (ATN-PARSER:%ATN-TRACE852 " [***/~a @ ~s reduce structure: ~a"853 '|BaseDecl|854 ATN-PARSER::INDEX855 (LIST 'NAMESPACE_REF856 NAMESPACE_REF))857 (LET ((ATN-PARSER::RESULT-STRUCTURE858 (IF (EQ859 ATN-PARSER:*ATN-REDUCE*860 T)861 (|BaseDecl-Constructor|862 NAMESPACE_REF)863 (IF (EQ864 ATN-PARSER:*ATN-REDUCE*865 'CONS)866 (CONS867 '|BaseDecl|868 (DELETE NIL869 (LIST870 NAMESPACE_REF)))871 '|BaseDecl|))))872 (ATN-PARSER::SUCCEED873 ATN-PARSER::INDEX874 ATN-PARSER::RESULT-STRUCTURE))))))875 (|BaseDecl/BaseDecl.2.4| (ATN-PARSER::INDEX)876 (ATN-PARSER:%ATN-NODE-BLOCK |BaseDecl/BaseDecl.2.4|877 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH NAMESPACE_REF)878 (MULTIPLE-VALUE-BIND879 (ATN-PARSER::RESULT880 ATN-PARSER::SUCCESS)881 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*882 'NAMESPACE_REF883 ATN-PARSER::INDEX)884 (COND885 (ATN-PARSER::SUCCESS886 (SETF ATN-PARSER:*ATN-TERM*887 'NAMESPACE_REF)888 (LET ((NAMESPACE_REF61889 NAMESPACE_REF))890 (DOLIST891 (ATN-PARSER::RESULT-AND-INDEX892 ATN-PARSER::RESULT)893 (DESTRUCTURING-BIND894 (895 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)896 ATN-PARSER::RESULT-AND-INDEX897 (WHEN898 ATN-PARSER::RESULT899 (SETF NAMESPACE_REF900 ATN-PARSER::RESULT))901 (|BaseDecl.2|902 ATN-PARSER::RESULT-INDEX))903 (SETF NAMESPACE_REF904 NAMESPACE_REF61))))905 (T906 (SETF ATN-PARSER:*ATN-TERM?*907 'NAMESPACE_REF)908 (|BaseDecl/fail.3|909 ATN-PARSER::INDEX)))))))910 (|BaseDecl/fail.3| (ATN-PARSER::INDEX)911 (ATN-PARSER:%ATN-NODE-BLOCK |BaseDecl/fail.3|912 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))913 (|BaseDecl/start.1| (ATN-PARSER::INDEX)914 (ATN-PARSER:%ATN-NODE-BLOCK |BaseDecl/start.1|915 (ATN-PARSER:%ATN-EDGE-BLOCK916 (ATN-PARSER::WORD SPOCQ.S:BASE)917 (COND918 ((EQ ATN-PARSER::|item| 'SPOCQ.S:BASE)919 (SETF ATN-PARSER:*ATN-TERM* 'SPOCQ.S:BASE)920 (|BaseDecl/BaseDecl.2.4| (1+ ATN-PARSER::INDEX)))921 (T (SETF ATN-PARSER:*ATN-TERM?* 'SPOCQ.S:BASE)922 (|BaseDecl/fail.3| ATN-PARSER::INDEX)))))))923 (|BaseDecl/start.1| ATN-PARSER::INDEX)924 (SETF ATN-PARSER:*ATN-NODE NIL)925 NIL926 (IF ATN-PARSER::ATN-STRUCTURE927 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)928 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))929 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BaseDecl| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))930 (PROGN931 (DEFVAR |PrefixDecl-INDEX|)932 (DEFUN |PrefixDecl| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL) (PNAME_NS NIL))933 "{6s} PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF934 (NAMESPACE_REF PNAME_NS)"935 (DECLARE (SPECIAL |PrefixDecl-INDEX|))936 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PrefixDecl-INDEX| ATN-PARSER:*ATN-LEVEL))937 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))938 (IF (< |PrefixDecl-INDEX| ATN-PARSER::INDEX)939 (LET ((|PrefixDecl-INDEX| ATN-PARSER::INDEX)940 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))941 (ATN-PARSER:*ATN-STACK (CONS '|PrefixDecl| ATN-PARSER:*ATN-STACK))942 (ATN-PARSER::ATN-STRUCTURE NIL))943 (DECLARE (SPECIAL |PrefixDecl-INDEX|))944 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))945 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))946 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))947 (ATN-PARSER:%ATN-BLOCK |PrefixDecl|948 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)949 (SETF ATN-PARSER:*ATN-TERM* '|PrefixDecl|)950 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))951 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)952 ATN-PARSER::INDEX)953 (|PrefixDecl.2| (ATN-PARSER::INDEX)954 (ATN-PARSER:%ATN-NODE-BLOCK |PrefixDecl.2|955 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |PrefixDecl|)956 (WHEN T957 (SETF ATN-PARSER:*ATN-TERM*958 '|PrefixDecl|)959 (ATN-PARSER:%ATN-TRACE960 " [***/~a @ ~s reduce structure: ~a"961 '|PrefixDecl|962 ATN-PARSER::INDEX963 (LIST 'NAMESPACE_REF964 NAMESPACE_REF965 'PNAME_NS PNAME_NS))966 (LET ((ATN-PARSER::RESULT-STRUCTURE967 (IF (EQ968 ATN-PARSER:*ATN-REDUCE*969 T)970 (|PrefixDecl-Constructor|971 NAMESPACE_REF972 PNAME_NS)973 (IF (EQ974 ATN-PARSER:*ATN-REDUCE*975 'CONS)976 (CONS977 '|PrefixDecl|978 (DELETE NIL979 (LIST980 NAMESPACE_REF981 PNAME_NS)))982 '|PrefixDecl|))))983 (ATN-PARSER::SUCCEED984 ATN-PARSER::INDEX985 ATN-PARSER::RESULT-STRUCTURE))))))986 (|PrefixDecl/fail.3| (ATN-PARSER::INDEX)987 (ATN-PARSER:%ATN-NODE-BLOCK |PrefixDecl/fail.3|988 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))989 (|PrefixDecl/PrefixDecl.2.4| (ATN-PARSER::INDEX)990 (ATN-PARSER:%ATN-NODE-BLOCK |PrefixDecl/PrefixDecl.2.4|991 (ATN-PARSER:%ATN-EDGE-BLOCK (TEST PNAME_NS)992 (COND993 ((IS-PNAME_NS994 ATN-PARSER::|item|)995 (SETF ATN-PARSER:*ATN-TERM*996 'PNAME_NS)997 (SETF PNAME_NS998 (IF (EQ999 ATN-PARSER:*ATN-REDUCE*1000 T)1001 (ATN-PARSER:ATN-REDUCE-ITEM1002 #'|PNAME_NS-Constructor|1003 ATN-PARSER::|item|)1004 (IF (EQ1005 ATN-PARSER:*ATN-REDUCE*1006 'CONS)1007 (LIST1008 'PNAME_NS1009 ATN-PARSER::|item|)1010 'PNAME_NS)))1011 (|PrefixDecl/PrefixDecl.2.5|1012 (1+ ATN-PARSER::INDEX)))1013 (T1014 (SETF ATN-PARSER:*ATN-TERM?*1015 'PNAME_NS)1016 (|PrefixDecl/fail.3|1017 ATN-PARSER::INDEX))))))1018 (|PrefixDecl/PrefixDecl.2.5| (ATN-PARSER::INDEX)1019 (ATN-PARSER:%ATN-NODE-BLOCK |PrefixDecl/PrefixDecl.2.5|1020 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH NAMESPACE_REF)1021 (MULTIPLE-VALUE-BIND1022 (ATN-PARSER::RESULT1023 ATN-PARSER::SUCCESS)1024 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1025 'NAMESPACE_REF1026 ATN-PARSER::INDEX)1027 (COND1028 (ATN-PARSER::SUCCESS1029 (SETF ATN-PARSER:*ATN-TERM*1030 'NAMESPACE_REF)1031 (LET ((NAMESPACE_REF621032 NAMESPACE_REF))1033 (DOLIST1034 (ATN-PARSER::RESULT-AND-INDEX1035 ATN-PARSER::RESULT)1036 (DESTRUCTURING-BIND1037 (1038 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1039 ATN-PARSER::RESULT-AND-INDEX1040 (WHEN1041 ATN-PARSER::RESULT1042 (SETF NAMESPACE_REF1043 ATN-PARSER::RESULT))1044 (|PrefixDecl.2|1045 ATN-PARSER::RESULT-INDEX))1046 (SETF NAMESPACE_REF1047 NAMESPACE_REF62))))1048 (T1049 (SETF ATN-PARSER:*ATN-TERM?*1050 'NAMESPACE_REF)1051 (|PrefixDecl/fail.3|1052 ATN-PARSER::INDEX)))))))1053 (|PrefixDecl/start.1| (ATN-PARSER::INDEX)1054 (ATN-PARSER:%ATN-NODE-BLOCK |PrefixDecl/start.1|1055 (ATN-PARSER:%ATN-EDGE-BLOCK1056 (ATN-PARSER::WORD SPOCQ.S:PREFIX)1057 (COND1058 ((EQ ATN-PARSER::|item| 'SPOCQ.S:PREFIX)1059 (SETF ATN-PARSER:*ATN-TERM* 'SPOCQ.S:PREFIX)1060 (|PrefixDecl/PrefixDecl.2.4| (1+ ATN-PARSER::INDEX)))1061 (T (SETF ATN-PARSER:*ATN-TERM?* 'SPOCQ.S:PREFIX)1062 (|PrefixDecl/fail.3| ATN-PARSER::INDEX)))))))1063 (|PrefixDecl/start.1| ATN-PARSER::INDEX)1064 (SETF ATN-PARSER:*ATN-NODE NIL)1065 NIL1066 (IF ATN-PARSER::ATN-STRUCTURE1067 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1068 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))1069 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PrefixDecl| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1070 (PROGN1071 (DEFVAR |triples-INDEX|)1072 (DEFUN |triples| (ATN-PARSER::INDEX &AUX (|BlankNodePropertyList| NIL) (|PropertyListNotEmpty| NIL) (|subject| NIL))1073 "{6 } triples ::= ((subject PropertyListNotEmpty) | (BlankNodePropertyList1074 PropertyListNotEmpty?))1075 (|BlankNodePropertyList| |PropertyListNotEmpty| |subject|)"1076 (DECLARE (SPECIAL |triples-INDEX|))1077 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |triples-INDEX| ATN-PARSER:*ATN-LEVEL))1078 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1079 (IF (< |triples-INDEX| ATN-PARSER::INDEX)1080 (LET ((|triples-INDEX| ATN-PARSER::INDEX)1081 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1082 (ATN-PARSER:*ATN-STACK (CONS '|triples| ATN-PARSER:*ATN-STACK))1083 (ATN-PARSER::ATN-STRUCTURE NIL))1084 (DECLARE (SPECIAL |triples-INDEX|))1085 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1086 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1087 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1088 (ATN-PARSER:%ATN-BLOCK |triples|1089 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1090 (SETF ATN-PARSER:*ATN-TERM* '|triples|)1091 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1092 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1093 ATN-PARSER::INDEX)1094 (|triples.2| (ATN-PARSER::INDEX)1095 (ATN-PARSER:%ATN-NODE-BLOCK |triples.2|1096 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |triples|)1097 (WHEN T1098 (SETF ATN-PARSER:*ATN-TERM*1099 '|triples|)1100 (ATN-PARSER:%ATN-TRACE1101 " [***/~a @ ~s reduce structure: ~a"1102 '|triples|1103 ATN-PARSER::INDEX1104 (LIST1105 '|BlankNodePropertyList|1106 |BlankNodePropertyList|1107 '|PropertyListNotEmpty|1108 |PropertyListNotEmpty|1109 '|subject| |subject|))1110 (LET ((ATN-PARSER::RESULT-STRUCTURE1111 (IF (EQ1112 ATN-PARSER:*ATN-REDUCE*1113 T)1114 (|triples-Constructor|1115 |BlankNodePropertyList|1116 |PropertyListNotEmpty|1117 |subject|)1118 (IF (EQ1119 ATN-PARSER:*ATN-REDUCE*1120 'CONS)1121 (CONS1122 '|triples|1123 (DELETE NIL1124 (LIST1125 |BlankNodePropertyList|1126 |PropertyListNotEmpty|1127 |subject|)))1128 '|triples|))))1129 (ATN-PARSER::SUCCEED1130 ATN-PARSER::INDEX1131 ATN-PARSER::RESULT-STRUCTURE))))))1132 (|triples/fail.3| (ATN-PARSER::INDEX)1133 (ATN-PARSER:%ATN-NODE-BLOCK |triples/fail.3|1134 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1135 (|triples/start.1| (ATN-PARSER::INDEX)1136 (ATN-PARSER:%ATN-NODE-BLOCK |triples/start.1|1137 (ATN-PARSER:%ATN-EDGE-BLOCK OR1138 (PROGN1139 (ATN-PARSER:%ATN-EDGE-BLOCK1140 (ATN-PARSER::JUMP1141 |triples/triples.2.4|)1142 (|triples/triples.2.4|1143 ATN-PARSER::INDEX))1144 (ATN-PARSER:%ATN-EDGE-BLOCK1145 (ATN-PARSER::JUMP1146 |triples/triples.2.6|)1147 (|triples/triples.2.6|1148 ATN-PARSER::INDEX))1149 (|triples/fail.3|1150 ATN-PARSER::INDEX)))))1151 (|triples/triples.2.4| (ATN-PARSER::INDEX)1152 (ATN-PARSER:%ATN-NODE-BLOCK |triples/triples.2.4|1153 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |subject|)1154 (MULTIPLE-VALUE-BIND1155 (ATN-PARSER::RESULT1156 ATN-PARSER::SUCCESS)1157 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1158 '|subject|1159 ATN-PARSER::INDEX)1160 (COND1161 (ATN-PARSER::SUCCESS1162 (SETF ATN-PARSER:*ATN-TERM*1163 '|subject|)1164 (LET ((|subject66|1165 |subject|))1166 (DOLIST1167 (ATN-PARSER::RESULT-AND-INDEX1168 ATN-PARSER::RESULT)1169 (DESTRUCTURING-BIND1170 (1171 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1172 ATN-PARSER::RESULT-AND-INDEX1173 (WHEN1174 ATN-PARSER::RESULT1175 (SETF |subject|1176 ATN-PARSER::RESULT))1177 (|triples/triples.2.5|1178 ATN-PARSER::RESULT-INDEX))1179 (SETF |subject|1180 |subject66|))))1181 (T1182 (SETF ATN-PARSER:*ATN-TERM?*1183 '|subject|)1184 NIL))))))1185 (|triples/triples.2.5| (ATN-PARSER::INDEX)1186 (ATN-PARSER:%ATN-NODE-BLOCK |triples/triples.2.5|1187 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |PropertyListNotEmpty|)1188 (MULTIPLE-VALUE-BIND1189 (ATN-PARSER::RESULT1190 ATN-PARSER::SUCCESS)1191 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1192 '|PropertyListNotEmpty|1193 ATN-PARSER::INDEX)1194 (COND1195 (ATN-PARSER::SUCCESS1196 (SETF ATN-PARSER:*ATN-TERM*1197 '|PropertyListNotEmpty|)1198 (LET ((|PropertyListNotEmpty65|1199 |PropertyListNotEmpty|))1200 (DOLIST1201 (ATN-PARSER::RESULT-AND-INDEX1202 ATN-PARSER::RESULT)1203 (DESTRUCTURING-BIND1204 (1205 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1206 ATN-PARSER::RESULT-AND-INDEX1207 (WHEN1208 ATN-PARSER::RESULT1209 (SETF |PropertyListNotEmpty|1210 ATN-PARSER::RESULT))1211 (|triples.2|1212 ATN-PARSER::RESULT-INDEX))1213 (SETF |PropertyListNotEmpty|1214 |PropertyListNotEmpty65|))))1215 (T1216 (SETF ATN-PARSER:*ATN-TERM?*1217 '|PropertyListNotEmpty|)1218 NIL))))))1219 (|triples/triples.2.6| (ATN-PARSER::INDEX)1220 (ATN-PARSER:%ATN-NODE-BLOCK |triples/triples.2.6|1221 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |BlankNodePropertyList|)1222 (MULTIPLE-VALUE-BIND1223 (ATN-PARSER::RESULT1224 ATN-PARSER::SUCCESS)1225 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1226 '|BlankNodePropertyList|1227 ATN-PARSER::INDEX)1228 (COND1229 (ATN-PARSER::SUCCESS1230 (SETF ATN-PARSER:*ATN-TERM*1231 '|BlankNodePropertyList|)1232 (LET ((|BlankNodePropertyList64|1233 |BlankNodePropertyList|))1234 (DOLIST1235 (ATN-PARSER::RESULT-AND-INDEX1236 ATN-PARSER::RESULT)1237 (DESTRUCTURING-BIND1238 (1239 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1240 ATN-PARSER::RESULT-AND-INDEX1241 (WHEN1242 ATN-PARSER::RESULT1243 (SETF |BlankNodePropertyList|1244 ATN-PARSER::RESULT))1245 (|triples/triples.2.7|1246 ATN-PARSER::RESULT-INDEX))1247 (SETF |BlankNodePropertyList|1248 |BlankNodePropertyList64|))))1249 (T1250 (SETF ATN-PARSER:*ATN-TERM?*1251 '|BlankNodePropertyList|)1252 NIL))))))1253 (|triples/triples.2.7| (ATN-PARSER::INDEX)1254 (ATN-PARSER:%ATN-NODE-BLOCK |triples/triples.2.7|1255 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |PropertyListNotEmpty|)1256 (MULTIPLE-VALUE-BIND1257 (ATN-PARSER::RESULT1258 ATN-PARSER::SUCCESS)1259 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1260 '|PropertyListNotEmpty|1261 ATN-PARSER::INDEX)1262 (COND1263 (ATN-PARSER::SUCCESS1264 (SETF ATN-PARSER:*ATN-TERM*1265 '|PropertyListNotEmpty|)1266 (LET ((|PropertyListNotEmpty63|1267 |PropertyListNotEmpty|))1268 (DOLIST1269 (ATN-PARSER::RESULT-AND-INDEX1270 ATN-PARSER::RESULT)1271 (DESTRUCTURING-BIND1272 (1273 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1274 ATN-PARSER::RESULT-AND-INDEX1275 (WHEN1276 ATN-PARSER::RESULT1277 (SETF |PropertyListNotEmpty|1278 ATN-PARSER::RESULT))1279 (|triples.2|1280 ATN-PARSER::RESULT-INDEX))1281 (SETF |PropertyListNotEmpty|1282 |PropertyListNotEmpty63|))))1283 (T1284 (SETF ATN-PARSER:*ATN-TERM?*1285 '|PropertyListNotEmpty|)1286 (|triples.2|1287 ATN-PARSER::INDEX))))))))1288 (|triples/start.1| ATN-PARSER::INDEX)1289 (SETF ATN-PARSER:*ATN-NODE NIL)1290 NIL1291 (IF ATN-PARSER::ATN-STRUCTURE1292 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1293 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))1294 (WARN "recursive grammar: ~s @ position ~s: ~s" '|triples| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1295 (PROGN1296 (DEFVAR |objectList-INDEX|)1297 (DEFUN |objectList| (ATN-PARSER::INDEX &AUX (|object| NIL))1298 "{8 } objectList ::= object (',' object)*1299 (|object|)"1300 (DECLARE (SPECIAL |objectList-INDEX|))1301 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |objectList-INDEX| ATN-PARSER:*ATN-LEVEL))1302 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1303 (IF (< |objectList-INDEX| ATN-PARSER::INDEX)1304 (LET ((|objectList-INDEX| ATN-PARSER::INDEX)1305 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1306 (ATN-PARSER:*ATN-STACK (CONS '|objectList| ATN-PARSER:*ATN-STACK))1307 (ATN-PARSER::ATN-STRUCTURE NIL))1308 (DECLARE (SPECIAL |objectList-INDEX|))1309 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1310 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1311 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1312 (ATN-PARSER:%ATN-BLOCK |objectList|1313 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1314 (SETF ATN-PARSER:*ATN-TERM* '|objectList|)1315 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1316 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1317 ATN-PARSER::INDEX)1318 (|objectList.2| (ATN-PARSER::INDEX)1319 (ATN-PARSER:%ATN-NODE-BLOCK |objectList.2|1320 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |objectList|)1321 (WHEN T1322 (SETF ATN-PARSER:*ATN-TERM*1323 '|objectList|)1324 (ATN-PARSER:%ATN-TRACE1325 " [***/~a @ ~s reduce structure: ~a"1326 '|objectList|1327 ATN-PARSER::INDEX1328 (LIST '|object| |object|))1329 (LET ((ATN-PARSER::RESULT-STRUCTURE1330 (IF (EQ1331 ATN-PARSER:*ATN-REDUCE*1332 T)1333 (|objectList-Constructor|1334 |object|)1335 (IF (EQ1336 ATN-PARSER:*ATN-REDUCE*1337 'CONS)1338 (CONS1339 '|objectList|1340 (DELETE NIL1341 (LIST1342 |object|)))1343 '|objectList|))))1344 (ATN-PARSER::SUCCEED1345 ATN-PARSER::INDEX1346 ATN-PARSER::RESULT-STRUCTURE))))))1347 (|objectList.5| (ATN-PARSER::INDEX)1348 (ATN-PARSER:%ATN-NODE-BLOCK |objectList.5|1349 (ATN-PARSER:%ATN-EDGE-BLOCK1350 (ATN-PARSER::JUMP |objectList/objectList.5.6|)1351 (|objectList/objectList.5.6| ATN-PARSER::INDEX))1352 (ATN-PARSER:%ATN-EDGE-BLOCK1353 (ATN-PARSER::JUMP |objectList.2|)1354 (|objectList.2| ATN-PARSER::INDEX))))1355 (|objectList/fail.3| (ATN-PARSER::INDEX)1356 (ATN-PARSER:%ATN-NODE-BLOCK |objectList/fail.3|1357 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1358 (|objectList/objectList.2.4| (ATN-PARSER::INDEX)1359 (ATN-PARSER:%ATN-NODE-BLOCK |objectList/objectList.2.4|1360 (ATN-PARSER:%ATN-EDGE-BLOCK1361 (ATN-PARSER::JUMP |objectList/objectList.5.6|)1362 (|objectList/objectList.5.6| ATN-PARSER::INDEX))1363 (ATN-PARSER:%ATN-EDGE-BLOCK1364 (ATN-PARSER::JUMP |objectList.2|)1365 (|objectList.2| ATN-PARSER::INDEX))))1366 (|objectList/objectList.5.6| (ATN-PARSER::INDEX)1367 (ATN-PARSER:%ATN-NODE-BLOCK |objectList/objectList.5.6|1368 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)1369 (COND1370 ((EQ ATN-PARSER::|item|1371 'SPOCQ.S:|,|)1372 (SETF ATN-PARSER:*ATN-TERM*1373 'SPOCQ.S:|,|)1374 (|objectList/objectList.5.7|1375 (1+ ATN-PARSER::INDEX)))1376 (T1377 (SETF ATN-PARSER:*ATN-TERM?*1378 'SPOCQ.S:|,|)1379 NIL)))))1380 (|objectList/objectList.5.7| (ATN-PARSER::INDEX)1381 (ATN-PARSER:%ATN-NODE-BLOCK |objectList/objectList.5.7|1382 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |object|)1383 (MULTIPLE-VALUE-BIND1384 (ATN-PARSER::RESULT1385 ATN-PARSER::SUCCESS)1386 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1387 '|object|1388 ATN-PARSER::INDEX)1389 (COND1390 (ATN-PARSER::SUCCESS1391 (SETF ATN-PARSER:*ATN-TERM*1392 '|object|)1393 (LET ((|object67|1394 |object|))1395 (DOLIST1396 (ATN-PARSER::RESULT-AND-INDEX1397 ATN-PARSER::RESULT)1398 (DESTRUCTURING-BIND1399 (1400 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1401 ATN-PARSER::RESULT-AND-INDEX1402 (WHEN1403 ATN-PARSER::RESULT1404 (SETF |object|1405 (CONS1406 ATN-PARSER::RESULT1407 |object|)))1408 (|objectList.5|1409 ATN-PARSER::RESULT-INDEX))1410 (SETF |object|1411 |object67|))))1412 (T1413 (SETF ATN-PARSER:*ATN-TERM?*1414 '|object|)1415 NIL))))))1416 (|objectList/start.1| (ATN-PARSER::INDEX)1417 (ATN-PARSER:%ATN-NODE-BLOCK |objectList/start.1|1418 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |object|)1419 (MULTIPLE-VALUE-BIND1420 (ATN-PARSER::RESULT1421 ATN-PARSER::SUCCESS)1422 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1423 '|object|1424 ATN-PARSER::INDEX)1425 (COND1426 (ATN-PARSER::SUCCESS1427 (SETF ATN-PARSER:*ATN-TERM*1428 '|object|)1429 (LET ((|object68|1430 |object|))1431 (DOLIST1432 (ATN-PARSER::RESULT-AND-INDEX1433 ATN-PARSER::RESULT)1434 (DESTRUCTURING-BIND1435 (1436 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1437 ATN-PARSER::RESULT-AND-INDEX1438 (WHEN1439 ATN-PARSER::RESULT1440 (SETF |object|1441 (CONS1442 ATN-PARSER::RESULT1443 |object|)))1444 (|objectList/objectList.2.4|1445 ATN-PARSER::RESULT-INDEX))1446 (SETF |object|1447 |object68|))))1448 (T1449 (SETF ATN-PARSER:*ATN-TERM?*1450 '|object|)1451 (|objectList/fail.3|1452 ATN-PARSER::INDEX))))))))1453 (|objectList/start.1| ATN-PARSER::INDEX)1454 (SETF ATN-PARSER:*ATN-NODE NIL)1455 NIL1456 (IF ATN-PARSER::ATN-STRUCTURE1457 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1458 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))1459 (WARN "recursive grammar: ~s @ position ~s: ~s" '|objectList| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1460 (PROGN1461 (DEFVAR |verb-INDEX|)1462 (DEFUN |verb| (ATN-PARSER::INDEX &AUX (|predicate| NIL))1463 "{9 } verb ::= (predicate | 'a')1464 (|predicate|)"1465 (DECLARE (SPECIAL |verb-INDEX|))1466 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |verb-INDEX| ATN-PARSER:*ATN-LEVEL))1467 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1468 (IF (< |verb-INDEX| ATN-PARSER::INDEX)1469 (LET ((|verb-INDEX| ATN-PARSER::INDEX)1470 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1471 (ATN-PARSER:*ATN-STACK (CONS '|verb| ATN-PARSER:*ATN-STACK))1472 (ATN-PARSER::ATN-STRUCTURE NIL))1473 (DECLARE (SPECIAL |verb-INDEX|))1474 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1475 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1476 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1477 (ATN-PARSER:%ATN-BLOCK |verb|1478 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1479 (SETF ATN-PARSER:*ATN-TERM* '|verb|)1480 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1481 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1482 ATN-PARSER::INDEX)1483 (|verb.2| (ATN-PARSER::INDEX)1484 (ATN-PARSER:%ATN-NODE-BLOCK |verb.2|1485 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |verb|)1486 (WHEN T1487 (SETF ATN-PARSER:*ATN-TERM*1488 '|verb|)1489 (ATN-PARSER:%ATN-TRACE1490 " [***/~a @ ~s reduce structure: ~a"1491 '|verb| ATN-PARSER::INDEX1492 (LIST '|predicate|1493 |predicate|))1494 (LET ((ATN-PARSER::RESULT-STRUCTURE1495 (IF (EQ1496 ATN-PARSER:*ATN-REDUCE*1497 T)1498 (|verb-Constructor|1499 |predicate|)1500 (IF (EQ1501 ATN-PARSER:*ATN-REDUCE*1502 'CONS)1503 (CONS '|verb|1504 (DELETE1505 NIL1506 (LIST1507 |predicate|)))1508 '|verb|))))1509 (ATN-PARSER::SUCCEED1510 ATN-PARSER::INDEX1511 ATN-PARSER::RESULT-STRUCTURE))))))1512 (|verb/fail.3| (ATN-PARSER::INDEX)1513 (ATN-PARSER:%ATN-NODE-BLOCK |verb/fail.3|1514 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1515 (|verb/start.1| (ATN-PARSER::INDEX)1516 (ATN-PARSER:%ATN-NODE-BLOCK |verb/start.1|1517 (ATN-PARSER:%ATN-EDGE-BLOCK OR1518 (PROGN1519 (ATN-PARSER:%ATN-EDGE-BLOCK1520 (PUSH |predicate|)1521 (MULTIPLE-VALUE-BIND1522 (ATN-PARSER::RESULT1523 ATN-PARSER::SUCCESS)1524 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1525 '|predicate|1526 ATN-PARSER::INDEX)1527 (COND1528 (ATN-PARSER::SUCCESS1529 (SETF ATN-PARSER:*ATN-TERM*1530 '|predicate|)1531 (LET ((|predicate69|1532 |predicate|))1533 (DOLIST1534 (ATN-PARSER::RESULT-AND-INDEX1535 ATN-PARSER::RESULT)1536 (DESTRUCTURING-BIND1537 (1538 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1539 ATN-PARSER::RESULT-AND-INDEX1540 (WHEN1541 ATN-PARSER::RESULT1542 (SETF |predicate|1543 ATN-PARSER::RESULT))1544 (|verb.2|1545 ATN-PARSER::RESULT-INDEX))1546 (SETF |predicate|1547 |predicate69|))))1548 (T1549 (SETF ATN-PARSER:*ATN-TERM?*1550 '|predicate|)1551 NIL))))1552 (ATN-PARSER:%ATN-EDGE-BLOCK1553 (ATN-PARSER::WORD1554 SPOCQ.S:|a|)1555 (COND1556 ((EQ ATN-PARSER::|item|1557 'SPOCQ.S:|a|)1558 (SETF ATN-PARSER:*ATN-TERM*1559 'SPOCQ.S:|a|)1560 (|verb.2|1561 (1+ ATN-PARSER::INDEX)))1562 (T1563 (SETF ATN-PARSER:*ATN-TERM?*1564 'SPOCQ.S:|a|)1565 NIL)))1566 (|verb/fail.3|1567 ATN-PARSER::INDEX))))))1568 (|verb/start.1| ATN-PARSER::INDEX)1569 (SETF ATN-PARSER:*ATN-NODE NIL)1570 NIL1571 (IF ATN-PARSER::ATN-STRUCTURE1572 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1573 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))1574 (WARN "recursive grammar: ~s @ position ~s: ~s" '|verb| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1575 (PROGN1576 (DEFVAR |subject-INDEX|)1577 (DEFUN |subject| (ATN-PARSER::INDEX &AUX (|BlankNode| NIL) (|collection| NIL) (|group| NIL) (|iri| NIL))1578 "{10} subject ::= (iri | BlankNode | collection | group)1579 (|BlankNode| |collection| |group| |iri|)"1580 (DECLARE (SPECIAL |subject-INDEX|))1581 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |subject-INDEX| ATN-PARSER:*ATN-LEVEL))1582 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1583 (IF (< |subject-INDEX| ATN-PARSER::INDEX)1584 (LET ((|subject-INDEX| ATN-PARSER::INDEX)1585 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1586 (ATN-PARSER:*ATN-STACK (CONS '|subject| ATN-PARSER:*ATN-STACK))1587 (ATN-PARSER::ATN-STRUCTURE NIL))1588 (DECLARE (SPECIAL |subject-INDEX|))1589 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1590 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1591 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1592 (ATN-PARSER:%ATN-BLOCK |subject|1593 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1594 (SETF ATN-PARSER:*ATN-TERM* '|subject|)1595 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1596 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1597 ATN-PARSER::INDEX)1598 (|subject.2| (ATN-PARSER::INDEX)1599 (ATN-PARSER:%ATN-NODE-BLOCK |subject.2|1600 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |subject|)1601 (WHEN T1602 (SETF ATN-PARSER:*ATN-TERM*1603 '|subject|)1604 (ATN-PARSER:%ATN-TRACE1605 " [***/~a @ ~s reduce structure: ~a"1606 '|subject|1607 ATN-PARSER::INDEX1608 (LIST '|BlankNode|1609 |BlankNode|1610 '|collection|1611 |collection| '|group|1612 |group| '|iri|1613 |iri|))1614 (LET ((ATN-PARSER::RESULT-STRUCTURE1615 (IF (EQ1616 ATN-PARSER:*ATN-REDUCE*1617 T)1618 (|subject-Constructor|1619 |BlankNode|1620 |collection|1621 |group| |iri|)1622 (IF (EQ1623 ATN-PARSER:*ATN-REDUCE*1624 'CONS)1625 (CONS1626 '|subject|1627 (DELETE NIL1628 (LIST1629 |BlankNode|1630 |collection|1631 |group|1632 |iri|)))1633 '|subject|))))1634 (ATN-PARSER::SUCCEED1635 ATN-PARSER::INDEX1636 ATN-PARSER::RESULT-STRUCTURE))))))1637 (|subject/fail.3| (ATN-PARSER::INDEX)1638 (ATN-PARSER:%ATN-NODE-BLOCK |subject/fail.3|1639 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1640 (|subject/start.1| (ATN-PARSER::INDEX)1641 (ATN-PARSER:%ATN-NODE-BLOCK |subject/start.1|1642 (ATN-PARSER:%ATN-EDGE-BLOCK OR1643 (PROGN1644 (ATN-PARSER:%ATN-EDGE-BLOCK1645 (PUSH |iri|)1646 (MULTIPLE-VALUE-BIND1647 (ATN-PARSER::RESULT1648 ATN-PARSER::SUCCESS)1649 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1650 '|iri|1651 ATN-PARSER::INDEX)1652 (COND1653 (ATN-PARSER::SUCCESS1654 (SETF ATN-PARSER:*ATN-TERM*1655 '|iri|)1656 (LET ((|iri70| |iri|))1657 (DOLIST1658 (ATN-PARSER::RESULT-AND-INDEX1659 ATN-PARSER::RESULT)1660 (DESTRUCTURING-BIND1661 (1662 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1663 ATN-PARSER::RESULT-AND-INDEX1664 (WHEN1665 ATN-PARSER::RESULT1666 (SETF |iri|1667 ATN-PARSER::RESULT))1668 (|subject.2|1669 ATN-PARSER::RESULT-INDEX))1670 (SETF |iri|1671 |iri70|))))1672 (T1673 (SETF ATN-PARSER:*ATN-TERM?*1674 '|iri|)1675 NIL))))1676 (ATN-PARSER:%ATN-EDGE-BLOCK1677 (PUSH |BlankNode|)1678 (MULTIPLE-VALUE-BIND1679 (ATN-PARSER::RESULT1680 ATN-PARSER::SUCCESS)1681 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1682 '|BlankNode|1683 ATN-PARSER::INDEX)1684 (COND1685 (ATN-PARSER::SUCCESS1686 (SETF ATN-PARSER:*ATN-TERM*1687 '|BlankNode|)1688 (LET ((|BlankNode71|1689 |BlankNode|))1690 (DOLIST1691 (ATN-PARSER::RESULT-AND-INDEX1692 ATN-PARSER::RESULT)1693 (DESTRUCTURING-BIND1694 (1695 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1696 ATN-PARSER::RESULT-AND-INDEX1697 (WHEN1698 ATN-PARSER::RESULT1699 (SETF |BlankNode|1700 ATN-PARSER::RESULT))1701 (|subject.2|1702 ATN-PARSER::RESULT-INDEX))1703 (SETF |BlankNode|1704 |BlankNode71|))))1705 (T1706 (SETF ATN-PARSER:*ATN-TERM?*1707 '|BlankNode|)1708 NIL))))1709 (ATN-PARSER:%ATN-EDGE-BLOCK1710 (PUSH |collection|)1711 (MULTIPLE-VALUE-BIND1712 (ATN-PARSER::RESULT1713 ATN-PARSER::SUCCESS)1714 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1715 '|collection|1716 ATN-PARSER::INDEX)1717 (COND1718 (ATN-PARSER::SUCCESS1719 (SETF ATN-PARSER:*ATN-TERM*1720 '|collection|)1721 (LET ((|collection72|1722 |collection|))1723 (DOLIST1724 (ATN-PARSER::RESULT-AND-INDEX1725 ATN-PARSER::RESULT)1726 (DESTRUCTURING-BIND1727 (1728 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1729 ATN-PARSER::RESULT-AND-INDEX1730 (WHEN1731 ATN-PARSER::RESULT1732 (SETF |collection|1733 ATN-PARSER::RESULT))1734 (|subject.2|1735 ATN-PARSER::RESULT-INDEX))1736 (SETF |collection|1737 |collection72|))))1738 (T1739 (SETF ATN-PARSER:*ATN-TERM?*1740 '|collection|)1741 NIL))))1742 (ATN-PARSER:%ATN-EDGE-BLOCK1743 (PUSH |group|)1744 (MULTIPLE-VALUE-BIND1745 (ATN-PARSER::RESULT1746 ATN-PARSER::SUCCESS)1747 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1748 '|group|1749 ATN-PARSER::INDEX)1750 (COND1751 (ATN-PARSER::SUCCESS1752 (SETF ATN-PARSER:*ATN-TERM*1753 '|group|)1754 (LET ((|group73|1755 |group|))1756 (DOLIST1757 (ATN-PARSER::RESULT-AND-INDEX1758 ATN-PARSER::RESULT)1759 (DESTRUCTURING-BIND1760 (1761 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1762 ATN-PARSER::RESULT-AND-INDEX1763 (WHEN1764 ATN-PARSER::RESULT1765 (SETF |group|1766 ATN-PARSER::RESULT))1767 (|subject.2|1768 ATN-PARSER::RESULT-INDEX))1769 (SETF |group|1770 |group73|))))1771 (T1772 (SETF ATN-PARSER:*ATN-TERM?*1773 '|group|)1774 NIL))))1775 (|subject/fail.3|1776 ATN-PARSER::INDEX))))))1777 (|subject/start.1| ATN-PARSER::INDEX)1778 (SETF ATN-PARSER:*ATN-NODE NIL)1779 NIL1780 (IF ATN-PARSER::ATN-STRUCTURE1781 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1782 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))1783 (WARN "recursive grammar: ~s @ position ~s: ~s" '|subject| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1784 (PROGN1785 (DEFVAR |group-INDEX|)1786 (DEFUN |group| (ATN-PARSER::INDEX &AUX (|object| NIL) (|subject| NIL) (|triplesList| NIL) (|verb| NIL))1787 "{10a} group ::= (('{' triplesList '}') | ('<<' subject verb object '>>'))1788 (|object| |subject| |triplesList| |verb|)"1789 (DECLARE (SPECIAL |group-INDEX|))1790 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |group-INDEX| ATN-PARSER:*ATN-LEVEL))1791 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1792 (IF (< |group-INDEX| ATN-PARSER::INDEX)1793 (LET ((|group-INDEX| ATN-PARSER::INDEX)1794 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1795 (ATN-PARSER:*ATN-STACK (CONS '|group| ATN-PARSER:*ATN-STACK))1796 (ATN-PARSER::ATN-STRUCTURE NIL))1797 (DECLARE (SPECIAL |group-INDEX|))1798 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1799 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1800 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1801 (ATN-PARSER:%ATN-BLOCK |group|1802 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1803 (SETF ATN-PARSER:*ATN-TERM* '|group|)1804 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1805 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1806 ATN-PARSER::INDEX)1807 (|group.2| (ATN-PARSER::INDEX)1808 (ATN-PARSER:%ATN-NODE-BLOCK |group.2|1809 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |group|)1810 (WHEN T1811 (SETF ATN-PARSER:*ATN-TERM*1812 '|group|)1813 (ATN-PARSER:%ATN-TRACE1814 " [***/~a @ ~s reduce structure: ~a"1815 '|group| ATN-PARSER::INDEX1816 (LIST '|object| |object|1817 '|subject| |subject|1818 '|triplesList|1819 |triplesList| '|verb|1820 |verb|))1821 (LET ((ATN-PARSER::RESULT-STRUCTURE1822 (IF (EQ1823 ATN-PARSER:*ATN-REDUCE*1824 T)1825 (|group-Constructor|1826 |object|1827 |subject|1828 |triplesList|1829 |verb|)1830 (IF (EQ1831 ATN-PARSER:*ATN-REDUCE*1832 'CONS)1833 (CONS1834 '|group|1835 (DELETE NIL1836 (LIST1837 |object|1838 |subject|1839 |triplesList|1840 |verb|)))1841 '|group|))))1842 (ATN-PARSER::SUCCEED1843 ATN-PARSER::INDEX1844 ATN-PARSER::RESULT-STRUCTURE))))))1845 (|group/fail.3| (ATN-PARSER::INDEX)1846 (ATN-PARSER:%ATN-NODE-BLOCK |group/fail.3|1847 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1848 (|group/group.2.10| (ATN-PARSER::INDEX)1849 (ATN-PARSER:%ATN-NODE-BLOCK |group/group.2.10|1850 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |object|)1851 (MULTIPLE-VALUE-BIND1852 (ATN-PARSER::RESULT1853 ATN-PARSER::SUCCESS)1854 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1855 '|object|1856 ATN-PARSER::INDEX)1857 (COND1858 (ATN-PARSER::SUCCESS1859 (SETF ATN-PARSER:*ATN-TERM*1860 '|object|)1861 (LET ((|object74|1862 |object|))1863 (DOLIST1864 (ATN-PARSER::RESULT-AND-INDEX1865 ATN-PARSER::RESULT)1866 (DESTRUCTURING-BIND1867 (1868 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1869 ATN-PARSER::RESULT-AND-INDEX1870 (WHEN1871 ATN-PARSER::RESULT1872 (SETF |object|1873 ATN-PARSER::RESULT))1874 (|group/group.2.11|1875 ATN-PARSER::RESULT-INDEX))1876 (SETF |object|1877 |object74|))))1878 (T1879 (SETF ATN-PARSER:*ATN-TERM?*1880 '|object|)1881 NIL))))))1882 (|group/group.2.11| (ATN-PARSER::INDEX)1883 (ATN-PARSER:%ATN-NODE-BLOCK |group/group.2.11|1884 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:>>)1885 (COND1886 ((EQ ATN-PARSER::|item|1887 'SPOCQ.S:>>)1888 (SETF ATN-PARSER:*ATN-TERM*1889 'SPOCQ.S:>>)1890 (|group.2|1891 (1+ ATN-PARSER::INDEX)))1892 (T1893 (SETF ATN-PARSER:*ATN-TERM?*1894 'SPOCQ.S:>>)1895 NIL)))))1896 (|group/group.2.4| (ATN-PARSER::INDEX)1897 (ATN-PARSER:%ATN-NODE-BLOCK |group/group.2.4|1898 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:{)1899 (COND1900 ((EQ ATN-PARSER::|item|1901 'SPOCQ.S:{)1902 (SETF ATN-PARSER:*ATN-TERM*1903 'SPOCQ.S:{)1904 (|group/group.2.5|1905 (1+ ATN-PARSER::INDEX)))1906 (T1907 (SETF ATN-PARSER:*ATN-TERM?*1908 'SPOCQ.S:{)1909 NIL)))))1910 (|group/group.2.5| (ATN-PARSER::INDEX)1911 (ATN-PARSER:%ATN-NODE-BLOCK |group/group.2.5|1912 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |triplesList|)1913 (MULTIPLE-VALUE-BIND1914 (ATN-PARSER::RESULT1915 ATN-PARSER::SUCCESS)1916 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1917 '|triplesList|1918 ATN-PARSER::INDEX)1919 (COND1920 (ATN-PARSER::SUCCESS1921 (SETF ATN-PARSER:*ATN-TERM*1922 '|triplesList|)1923 (LET ((|triplesList77|1924 |triplesList|))1925 (DOLIST1926 (ATN-PARSER::RESULT-AND-INDEX1927 ATN-PARSER::RESULT)1928 (DESTRUCTURING-BIND1929 (1930 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1931 ATN-PARSER::RESULT-AND-INDEX1932 (WHEN1933 ATN-PARSER::RESULT1934 (SETF |triplesList|1935 ATN-PARSER::RESULT))1936 (|group/group.2.6|1937 ATN-PARSER::RESULT-INDEX))1938 (SETF |triplesList|1939 |triplesList77|))))1940 (T1941 (SETF ATN-PARSER:*ATN-TERM?*1942 '|triplesList|)1943 NIL))))))1944 (|group/group.2.6| (ATN-PARSER::INDEX)1945 (ATN-PARSER:%ATN-NODE-BLOCK |group/group.2.6|1946 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:})1947 (COND1948 ((EQ ATN-PARSER::|item|1949 'SPOCQ.S:})1950 (SETF ATN-PARSER:*ATN-TERM*1951 'SPOCQ.S:})1952 (|group.2|1953 (1+ ATN-PARSER::INDEX)))1954 (T1955 (SETF ATN-PARSER:*ATN-TERM?*1956 'SPOCQ.S:})1957 NIL)))))1958 (|group/group.2.7| (ATN-PARSER::INDEX)1959 (ATN-PARSER:%ATN-NODE-BLOCK |group/group.2.7|1960 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:<<)1961 (COND1962 ((EQ ATN-PARSER::|item|1963 'SPOCQ.S:<<)1964 (SETF ATN-PARSER:*ATN-TERM*1965 'SPOCQ.S:<<)1966 (|group/group.2.8|1967 (1+ ATN-PARSER::INDEX)))1968 (T1969 (SETF ATN-PARSER:*ATN-TERM?*1970 'SPOCQ.S:<<)1971 NIL)))))1972 (|group/group.2.8| (ATN-PARSER::INDEX)1973 (ATN-PARSER:%ATN-NODE-BLOCK |group/group.2.8|1974 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |subject|)1975 (MULTIPLE-VALUE-BIND1976 (ATN-PARSER::RESULT1977 ATN-PARSER::SUCCESS)1978 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1979 '|subject|1980 ATN-PARSER::INDEX)1981 (COND1982 (ATN-PARSER::SUCCESS1983 (SETF ATN-PARSER:*ATN-TERM*1984 '|subject|)1985 (LET ((|subject76|1986 |subject|))1987 (DOLIST1988 (ATN-PARSER::RESULT-AND-INDEX1989 ATN-PARSER::RESULT)1990 (DESTRUCTURING-BIND1991 (1992 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1993 ATN-PARSER::RESULT-AND-INDEX1994 (WHEN1995 ATN-PARSER::RESULT1996 (SETF |subject|1997 ATN-PARSER::RESULT))1998 (|group/group.2.9|1999 ATN-PARSER::RESULT-INDEX))2000 (SETF |subject|2001 |subject76|))))2002 (T2003 (SETF ATN-PARSER:*ATN-TERM?*2004 '|subject|)2005 NIL))))))2006 (|group/group.2.9| (ATN-PARSER::INDEX)2007 (ATN-PARSER:%ATN-NODE-BLOCK |group/group.2.9|2008 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |verb|)2009 (MULTIPLE-VALUE-BIND2010 (ATN-PARSER::RESULT2011 ATN-PARSER::SUCCESS)2012 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2013 '|verb|2014 ATN-PARSER::INDEX)2015 (COND2016 (ATN-PARSER::SUCCESS2017 (SETF ATN-PARSER:*ATN-TERM*2018 '|verb|)2019 (LET ((|verb75| |verb|))2020 (DOLIST2021 (ATN-PARSER::RESULT-AND-INDEX2022 ATN-PARSER::RESULT)2023 (DESTRUCTURING-BIND2024 (2025 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2026 ATN-PARSER::RESULT-AND-INDEX2027 (WHEN2028 ATN-PARSER::RESULT2029 (SETF |verb|2030 ATN-PARSER::RESULT))2031 (|group/group.2.10|2032 ATN-PARSER::RESULT-INDEX))2033 (SETF |verb|2034 |verb75|))))2035 (T2036 (SETF ATN-PARSER:*ATN-TERM?*2037 '|verb|)2038 NIL))))))2039 (|group/start.1| (ATN-PARSER::INDEX)2040 (ATN-PARSER:%ATN-NODE-BLOCK |group/start.1|2041 (ATN-PARSER:%ATN-EDGE-BLOCK OR2042 (PROGN2043 (ATN-PARSER:%ATN-EDGE-BLOCK2044 (ATN-PARSER::JUMP2045 |group/group.2.4|)2046 (|group/group.2.4|2047 ATN-PARSER::INDEX))2048 (ATN-PARSER:%ATN-EDGE-BLOCK2049 (ATN-PARSER::JUMP2050 |group/group.2.7|)2051 (|group/group.2.7|2052 ATN-PARSER::INDEX))2053 (|group/fail.3|2054 ATN-PARSER::INDEX))))))2055 (|group/start.1| ATN-PARSER::INDEX)2056 (SETF ATN-PARSER:*ATN-NODE NIL)2057 NIL2058 (IF ATN-PARSER::ATN-STRUCTURE2059 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2060 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2061 (WARN "recursive grammar: ~s @ position ~s: ~s" '|group| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2062 (PROGN2063 (DEFVAR |triplesList-INDEX|)2064 (DEFUN |triplesList| (ATN-PARSER::INDEX &AUX (|triples| NIL) (|triplesList| NIL))2065 "{10b} triplesList ::= triples ('.' triplesList)?2066 (|triples| |triplesList|)"2067 (DECLARE (SPECIAL |triplesList-INDEX|))2068 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |triplesList-INDEX| ATN-PARSER:*ATN-LEVEL))2069 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2070 (IF (< |triplesList-INDEX| ATN-PARSER::INDEX)2071 (LET ((|triplesList-INDEX| ATN-PARSER::INDEX)2072 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2073 (ATN-PARSER:*ATN-STACK (CONS '|triplesList| ATN-PARSER:*ATN-STACK))2074 (ATN-PARSER::ATN-STRUCTURE NIL))2075 (DECLARE (SPECIAL |triplesList-INDEX|))2076 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2077 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2078 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2079 (ATN-PARSER:%ATN-BLOCK |triplesList|2080 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2081 (SETF ATN-PARSER:*ATN-TERM* '|triplesList|)2082 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2083 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2084 ATN-PARSER::INDEX)2085 (|triplesList.2| (ATN-PARSER::INDEX)2086 (ATN-PARSER:%ATN-NODE-BLOCK |triplesList.2|2087 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |triplesList|)2088 (WHEN T2089 (SETF ATN-PARSER:*ATN-TERM*2090 '|triplesList|)2091 (ATN-PARSER:%ATN-TRACE2092 " [***/~a @ ~s reduce structure: ~a"2093 '|triplesList|2094 ATN-PARSER::INDEX2095 (LIST '|triples| |triples|2096 '|triplesList|2097 |triplesList|))2098 (LET ((ATN-PARSER::RESULT-STRUCTURE2099 (IF (EQ2100 ATN-PARSER:*ATN-REDUCE*2101 T)2102 (|triplesList-Constructor|2103 |triples|2104 |triplesList|)2105 (IF (EQ2106 ATN-PARSER:*ATN-REDUCE*2107 'CONS)2108 (CONS2109 '|triplesList|2110 (DELETE NIL2111 (LIST2112 |triples|2113 |triplesList|)))2114 '|triplesList|))))2115 (ATN-PARSER::SUCCEED2116 ATN-PARSER::INDEX2117 ATN-PARSER::RESULT-STRUCTURE))))))2118 (|triplesList/fail.3| (ATN-PARSER::INDEX)2119 (ATN-PARSER:%ATN-NODE-BLOCK |triplesList/fail.3|2120 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2121 (|triplesList/start.1| (ATN-PARSER::INDEX)2122 (ATN-PARSER:%ATN-NODE-BLOCK |triplesList/start.1|2123 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |triples|)2124 (MULTIPLE-VALUE-BIND2125 (ATN-PARSER::RESULT2126 ATN-PARSER::SUCCESS)2127 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2128 '|triples|2129 ATN-PARSER::INDEX)2130 (COND2131 (ATN-PARSER::SUCCESS2132 (SETF ATN-PARSER:*ATN-TERM*2133 '|triples|)2134 (LET ((|triples79|2135 |triples|))2136 (DOLIST2137 (ATN-PARSER::RESULT-AND-INDEX2138 ATN-PARSER::RESULT)2139 (DESTRUCTURING-BIND2140 (2141 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2142 ATN-PARSER::RESULT-AND-INDEX2143 (WHEN2144 ATN-PARSER::RESULT2145 (SETF |triples|2146 ATN-PARSER::RESULT))2147 (|triplesList/triplesList.2.4|2148 ATN-PARSER::RESULT-INDEX))2149 (SETF |triples|2150 |triples79|))))2151 (T2152 (SETF ATN-PARSER:*ATN-TERM?*2153 '|triples|)2154 (|triplesList/fail.3|2155 ATN-PARSER::INDEX)))))))2156 (|triplesList/triplesList.2.4| (ATN-PARSER::INDEX)2157 (ATN-PARSER:%ATN-NODE-BLOCK |triplesList/triplesList.2.4|2158 (ATN-PARSER:%ATN-EDGE-BLOCK2159 (ATN-PARSER::JUMP |triplesList/triplesList.2.5|)2160 (|triplesList/triplesList.2.5| ATN-PARSER::INDEX))2161 (ATN-PARSER:%ATN-EDGE-BLOCK2162 (ATN-PARSER::JUMP |triplesList.2|)2163 (|triplesList.2| ATN-PARSER::INDEX))))2164 (|triplesList/triplesList.2.5| (ATN-PARSER::INDEX)2165 (ATN-PARSER:%ATN-NODE-BLOCK |triplesList/triplesList.2.5|2166 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)2167 (COND2168 ((EQ ATN-PARSER::|item|2169 'SPOCQ.S:|.|)2170 (SETF ATN-PARSER:*ATN-TERM*2171 'SPOCQ.S:|.|)2172 (|triplesList/triplesList.2.6|2173 (1+ ATN-PARSER::INDEX)))2174 (T2175 (SETF ATN-PARSER:*ATN-TERM?*2176 'SPOCQ.S:|.|)2177 NIL)))))2178 (|triplesList/triplesList.2.6| (ATN-PARSER::INDEX)2179 (ATN-PARSER:%ATN-NODE-BLOCK |triplesList/triplesList.2.6|2180 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |triplesList|)2181 (MULTIPLE-VALUE-BIND2182 (ATN-PARSER::RESULT2183 ATN-PARSER::SUCCESS)2184 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2185 '|triplesList|2186 ATN-PARSER::INDEX)2187 (COND2188 (ATN-PARSER::SUCCESS2189 (SETF ATN-PARSER:*ATN-TERM*2190 '|triplesList|)2191 (LET ((|triplesList78|2192 |triplesList|))2193 (DOLIST2194 (ATN-PARSER::RESULT-AND-INDEX2195 ATN-PARSER::RESULT)2196 (DESTRUCTURING-BIND2197 (2198 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2199 ATN-PARSER::RESULT-AND-INDEX2200 (WHEN2201 ATN-PARSER::RESULT2202 (SETF |triplesList|2203 ATN-PARSER::RESULT))2204 (|triplesList.2|2205 ATN-PARSER::RESULT-INDEX))2206 (SETF |triplesList|2207 |triplesList78|))))2208 (T2209 (SETF ATN-PARSER:*ATN-TERM?*2210 '|triplesList|)2211 NIL)))))))2212 (|triplesList/start.1| ATN-PARSER::INDEX)2213 (SETF ATN-PARSER:*ATN-NODE NIL)2214 NIL2215 (IF ATN-PARSER::ATN-STRUCTURE2216 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2217 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2218 (WARN "recursive grammar: ~s @ position ~s: ~s" '|triplesList| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2219 (PROGN2220 (DEFVAR |predicate-INDEX|)2221 (DEFUN |predicate| (ATN-PARSER::INDEX &AUX (|iri| NIL))2222 "{11} predicate ::= iri2223 (|iri|)"2224 (DECLARE (SPECIAL |predicate-INDEX|))2225 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |predicate-INDEX| ATN-PARSER:*ATN-LEVEL))2226 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2227 (IF (< |predicate-INDEX| ATN-PARSER::INDEX)2228 (LET ((|predicate-INDEX| ATN-PARSER::INDEX)2229 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2230 (ATN-PARSER:*ATN-STACK (CONS '|predicate| ATN-PARSER:*ATN-STACK))2231 (ATN-PARSER::ATN-STRUCTURE NIL))2232 (DECLARE (SPECIAL |predicate-INDEX|))2233 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2234 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2235 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2236 (ATN-PARSER:%ATN-BLOCK |predicate|2237 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2238 (SETF ATN-PARSER:*ATN-TERM* '|predicate|)2239 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2240 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2241 ATN-PARSER::INDEX)2242 (|predicate.2| (ATN-PARSER::INDEX)2243 (ATN-PARSER:%ATN-NODE-BLOCK |predicate.2|2244 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |predicate|)2245 (WHEN T2246 (SETF ATN-PARSER:*ATN-TERM*2247 '|predicate|)2248 (ATN-PARSER:%ATN-TRACE2249 " [***/~a @ ~s reduce structure: ~a"2250 '|predicate|2251 ATN-PARSER::INDEX2252 (LIST '|iri| |iri|))2253 (LET ((ATN-PARSER::RESULT-STRUCTURE2254 (IF (EQ2255 ATN-PARSER:*ATN-REDUCE*2256 T)2257 (|predicate-Constructor|2258 |iri|)2259 (IF (EQ2260 ATN-PARSER:*ATN-REDUCE*2261 'CONS)2262 (CONS2263 '|predicate|2264 (DELETE NIL2265 (LIST2266 |iri|)))2267 '|predicate|))))2268 (ATN-PARSER::SUCCEED2269 ATN-PARSER::INDEX2270 ATN-PARSER::RESULT-STRUCTURE))))))2271 (|predicate/fail.3| (ATN-PARSER::INDEX)2272 (ATN-PARSER:%ATN-NODE-BLOCK |predicate/fail.3|2273 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2274 (|predicate/start.1| (ATN-PARSER::INDEX)2275 (ATN-PARSER:%ATN-NODE-BLOCK |predicate/start.1|2276 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |iri|)2277 (MULTIPLE-VALUE-BIND2278 (ATN-PARSER::RESULT2279 ATN-PARSER::SUCCESS)2280 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2281 '|iri| ATN-PARSER::INDEX)2282 (COND2283 (ATN-PARSER::SUCCESS2284 (SETF ATN-PARSER:*ATN-TERM*2285 '|iri|)2286 (LET ((|iri80| |iri|))2287 (DOLIST2288 (ATN-PARSER::RESULT-AND-INDEX2289 ATN-PARSER::RESULT)2290 (DESTRUCTURING-BIND2291 (2292 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2293 ATN-PARSER::RESULT-AND-INDEX2294 (WHEN2295 ATN-PARSER::RESULT2296 (SETF |iri|2297 ATN-PARSER::RESULT))2298 (|predicate.2|2299 ATN-PARSER::RESULT-INDEX))2300 (SETF |iri|2301 |iri80|))))2302 (T2303 (SETF ATN-PARSER:*ATN-TERM?*2304 '|iri|)2305 (|predicate/fail.3|2306 ATN-PARSER::INDEX))))))))2307 (|predicate/start.1| ATN-PARSER::INDEX)2308 (SETF ATN-PARSER:*ATN-NODE NIL)2309 NIL2310 (IF ATN-PARSER::ATN-STRUCTURE2311 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2312 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2313 (WARN "recursive grammar: ~s @ position ~s: ~s" '|predicate| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2314 (PROGN2315 (DEFVAR |object-INDEX|)2316 (DEFUN |object|2317 (ATN-PARSER::INDEX &AUX (|BlankNode| NIL) (|BlankNodePropertyList| NIL) (|collection| NIL) (|iri| NIL) (|literal| NIL))2318 "{12} object ::= (iri | BlankNode | collection | BlankNodePropertyList | literal)2319 (|BlankNode| |BlankNodePropertyList| |collection| |iri| |literal|)"2320 (DECLARE (SPECIAL |object-INDEX|))2321 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |object-INDEX| ATN-PARSER:*ATN-LEVEL))2322 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2323 (IF (< |object-INDEX| ATN-PARSER::INDEX)2324 (LET ((|object-INDEX| ATN-PARSER::INDEX)2325 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2326 (ATN-PARSER:*ATN-STACK (CONS '|object| ATN-PARSER:*ATN-STACK))2327 (ATN-PARSER::ATN-STRUCTURE NIL))2328 (DECLARE (SPECIAL |object-INDEX|))2329 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2330 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2331 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2332 (ATN-PARSER:%ATN-BLOCK |object|2333 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2334 (SETF ATN-PARSER:*ATN-TERM* '|object|)2335 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2336 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2337 ATN-PARSER::INDEX)2338 (|object.2| (ATN-PARSER::INDEX)2339 (ATN-PARSER:%ATN-NODE-BLOCK |object.2|2340 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |object|)2341 (WHEN T2342 (SETF ATN-PARSER:*ATN-TERM*2343 '|object|)2344 (ATN-PARSER:%ATN-TRACE2345 " [***/~a @ ~s reduce structure: ~a"2346 '|object| ATN-PARSER::INDEX2347 (LIST '|BlankNode|2348 |BlankNode|2349 '|BlankNodePropertyList|2350 |BlankNodePropertyList|2351 '|collection|2352 |collection| '|iri|2353 |iri| '|literal|2354 |literal|))2355 (LET ((ATN-PARSER::RESULT-STRUCTURE2356 (IF (EQ2357 ATN-PARSER:*ATN-REDUCE*2358 T)2359 (|object-Constructor|2360 |BlankNode|2361 |BlankNodePropertyList|2362 |collection|2363 |iri| |literal|)2364 (IF (EQ2365 ATN-PARSER:*ATN-REDUCE*2366 'CONS)2367 (CONS2368 '|object|2369 (DELETE NIL2370 (LIST2371 |BlankNode|2372 |BlankNodePropertyList|2373 |collection|2374 |iri|2375 |literal|)))2376 '|object|))))2377 (ATN-PARSER::SUCCEED2378 ATN-PARSER::INDEX2379 ATN-PARSER::RESULT-STRUCTURE))))))2380 (|object/fail.3| (ATN-PARSER::INDEX)2381 (ATN-PARSER:%ATN-NODE-BLOCK |object/fail.3|2382 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2383 (|object/start.1| (ATN-PARSER::INDEX)2384 (ATN-PARSER:%ATN-NODE-BLOCK |object/start.1|2385 (ATN-PARSER:%ATN-EDGE-BLOCK OR2386 (PROGN2387 (ATN-PARSER:%ATN-EDGE-BLOCK2388 (PUSH |iri|)2389 (MULTIPLE-VALUE-BIND2390 (ATN-PARSER::RESULT2391 ATN-PARSER::SUCCESS)2392 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2393 '|iri|2394 ATN-PARSER::INDEX)2395 (COND2396 (ATN-PARSER::SUCCESS2397 (SETF ATN-PARSER:*ATN-TERM*2398 '|iri|)2399 (LET ((|iri81| |iri|))2400 (DOLIST2401 (ATN-PARSER::RESULT-AND-INDEX2402 ATN-PARSER::RESULT)2403 (DESTRUCTURING-BIND2404 (2405 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2406 ATN-PARSER::RESULT-AND-INDEX2407 (WHEN2408 ATN-PARSER::RESULT2409 (SETF |iri|2410 ATN-PARSER::RESULT))2411 (|object.2|2412 ATN-PARSER::RESULT-INDEX))2413 (SETF |iri|2414 |iri81|))))2415 (T2416 (SETF ATN-PARSER:*ATN-TERM?*2417 '|iri|)2418 NIL))))2419 (ATN-PARSER:%ATN-EDGE-BLOCK2420 (PUSH |BlankNode|)2421 (MULTIPLE-VALUE-BIND2422 (ATN-PARSER::RESULT2423 ATN-PARSER::SUCCESS)2424 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2425 '|BlankNode|2426 ATN-PARSER::INDEX)2427 (COND2428 (ATN-PARSER::SUCCESS2429 (SETF ATN-PARSER:*ATN-TERM*2430 '|BlankNode|)2431 (LET ((|BlankNode82|2432 |BlankNode|))2433 (DOLIST2434 (ATN-PARSER::RESULT-AND-INDEX2435 ATN-PARSER::RESULT)2436 (DESTRUCTURING-BIND2437 (2438 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2439 ATN-PARSER::RESULT-AND-INDEX2440 (WHEN2441 ATN-PARSER::RESULT2442 (SETF |BlankNode|2443 ATN-PARSER::RESULT))2444 (|object.2|2445 ATN-PARSER::RESULT-INDEX))2446 (SETF |BlankNode|2447 |BlankNode82|))))2448 (T2449 (SETF ATN-PARSER:*ATN-TERM?*2450 '|BlankNode|)2451 NIL))))2452 (ATN-PARSER:%ATN-EDGE-BLOCK2453 (PUSH |collection|)2454 (MULTIPLE-VALUE-BIND2455 (ATN-PARSER::RESULT2456 ATN-PARSER::SUCCESS)2457 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2458 '|collection|2459 ATN-PARSER::INDEX)2460 (COND2461 (ATN-PARSER::SUCCESS2462 (SETF ATN-PARSER:*ATN-TERM*2463 '|collection|)2464 (LET ((|collection83|2465 |collection|))2466 (DOLIST2467 (ATN-PARSER::RESULT-AND-INDEX2468 ATN-PARSER::RESULT)2469 (DESTRUCTURING-BIND2470 (2471 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2472 ATN-PARSER::RESULT-AND-INDEX2473 (WHEN2474 ATN-PARSER::RESULT2475 (SETF |collection|2476 ATN-PARSER::RESULT))2477 (|object.2|2478 ATN-PARSER::RESULT-INDEX))2479 (SETF |collection|2480 |collection83|))))2481 (T2482 (SETF ATN-PARSER:*ATN-TERM?*2483 '|collection|)2484 NIL))))2485 (ATN-PARSER:%ATN-EDGE-BLOCK2486 (PUSH2487 |BlankNodePropertyList|)2488 (MULTIPLE-VALUE-BIND2489 (ATN-PARSER::RESULT2490 ATN-PARSER::SUCCESS)2491 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2492 '|BlankNodePropertyList|2493 ATN-PARSER::INDEX)2494 (COND2495 (ATN-PARSER::SUCCESS2496 (SETF ATN-PARSER:*ATN-TERM*2497 '|BlankNodePropertyList|)2498 (LET ((|BlankNodePropertyList84|2499 |BlankNodePropertyList|))2500 (DOLIST2501 (ATN-PARSER::RESULT-AND-INDEX2502 ATN-PARSER::RESULT)2503 (DESTRUCTURING-BIND2504 (2505 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2506 ATN-PARSER::RESULT-AND-INDEX2507 (WHEN2508 ATN-PARSER::RESULT2509 (SETF |BlankNodePropertyList|2510 ATN-PARSER::RESULT))2511 (|object.2|2512 ATN-PARSER::RESULT-INDEX))2513 (SETF |BlankNodePropertyList|2514 |BlankNodePropertyList84|))))2515 (T2516 (SETF ATN-PARSER:*ATN-TERM?*2517 '|BlankNodePropertyList|)2518 NIL))))2519 (ATN-PARSER:%ATN-EDGE-BLOCK2520 (PUSH |literal|)2521 (MULTIPLE-VALUE-BIND2522 (ATN-PARSER::RESULT2523 ATN-PARSER::SUCCESS)2524 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2525 '|literal|2526 ATN-PARSER::INDEX)2527 (COND2528 (ATN-PARSER::SUCCESS2529 (SETF ATN-PARSER:*ATN-TERM*2530 '|literal|)2531 (LET ((|literal85|2532 |literal|))2533 (DOLIST2534 (ATN-PARSER::RESULT-AND-INDEX2535 ATN-PARSER::RESULT)2536 (DESTRUCTURING-BIND2537 (2538 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2539 ATN-PARSER::RESULT-AND-INDEX2540 (WHEN2541 ATN-PARSER::RESULT2542 (SETF |literal|2543 ATN-PARSER::RESULT))2544 (|object.2|2545 ATN-PARSER::RESULT-INDEX))2546 (SETF |literal|2547 |literal85|))))2548 (T2549 (SETF ATN-PARSER:*ATN-TERM?*2550 '|literal|)2551 NIL))))2552 (|object/fail.3|2553 ATN-PARSER::INDEX))))))2554 (|object/start.1| ATN-PARSER::INDEX)2555 (SETF ATN-PARSER:*ATN-NODE NIL)2556 NIL2557 (IF ATN-PARSER::ATN-STRUCTURE2558 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2559 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2560 (WARN "recursive grammar: ~s @ position ~s: ~s" '|object| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2561 (PROGN2562 (DEFVAR |literal-INDEX|)2563 (DEFUN |literal| (ATN-PARSER::INDEX &AUX (|BooleanLiteral| NIL) (|NumericLiteral| NIL) (|RDFLiteral| NIL))2564 "{13} literal ::= (RDFLiteral | NumericLiteral | BooleanLiteral)2565 (|BooleanLiteral| |NumericLiteral| |RDFLiteral|)"2566 (DECLARE (SPECIAL |literal-INDEX|))2567 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |literal-INDEX| ATN-PARSER:*ATN-LEVEL))2568 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2569 (IF (< |literal-INDEX| ATN-PARSER::INDEX)2570 (LET ((|literal-INDEX| ATN-PARSER::INDEX)2571 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2572 (ATN-PARSER:*ATN-STACK (CONS '|literal| ATN-PARSER:*ATN-STACK))2573 (ATN-PARSER::ATN-STRUCTURE NIL))2574 (DECLARE (SPECIAL |literal-INDEX|))2575 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2576 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2577 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2578 (ATN-PARSER:%ATN-BLOCK |literal|2579 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2580 (SETF ATN-PARSER:*ATN-TERM* '|literal|)2581 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2582 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2583 ATN-PARSER::INDEX)2584 (|literal.2| (ATN-PARSER::INDEX)2585 (ATN-PARSER:%ATN-NODE-BLOCK |literal.2|2586 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |literal|)2587 (WHEN T2588 (SETF ATN-PARSER:*ATN-TERM*2589 '|literal|)2590 (ATN-PARSER:%ATN-TRACE2591 " [***/~a @ ~s reduce structure: ~a"2592 '|literal|2593 ATN-PARSER::INDEX2594 (LIST '|BooleanLiteral|2595 |BooleanLiteral|2596 '|NumericLiteral|2597 |NumericLiteral|2598 '|RDFLiteral|2599 |RDFLiteral|))2600 (LET ((ATN-PARSER::RESULT-STRUCTURE2601 (IF (EQ2602 ATN-PARSER:*ATN-REDUCE*2603 T)2604 (|literal-Constructor|2605 |BooleanLiteral|2606 |NumericLiteral|2607 |RDFLiteral|)2608 (IF (EQ2609 ATN-PARSER:*ATN-REDUCE*2610 'CONS)2611 (CONS2612 '|literal|2613 (DELETE NIL2614 (LIST2615 |BooleanLiteral|2616 |NumericLiteral|2617 |RDFLiteral|)))2618 '|literal|))))2619 (ATN-PARSER::SUCCEED2620 ATN-PARSER::INDEX2621 ATN-PARSER::RESULT-STRUCTURE))))))2622 (|literal/fail.3| (ATN-PARSER::INDEX)2623 (ATN-PARSER:%ATN-NODE-BLOCK |literal/fail.3|2624 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2625 (|literal/start.1| (ATN-PARSER::INDEX)2626 (ATN-PARSER:%ATN-NODE-BLOCK |literal/start.1|2627 (ATN-PARSER:%ATN-EDGE-BLOCK OR2628 (PROGN2629 (ATN-PARSER:%ATN-EDGE-BLOCK2630 (PUSH |RDFLiteral|)2631 (MULTIPLE-VALUE-BIND2632 (ATN-PARSER::RESULT2633 ATN-PARSER::SUCCESS)2634 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2635 '|RDFLiteral|2636 ATN-PARSER::INDEX)2637 (COND2638 (ATN-PARSER::SUCCESS2639 (SETF ATN-PARSER:*ATN-TERM*2640 '|RDFLiteral|)2641 (LET ((|RDFLiteral86|2642 |RDFLiteral|))2643 (DOLIST2644 (ATN-PARSER::RESULT-AND-INDEX2645 ATN-PARSER::RESULT)2646 (DESTRUCTURING-BIND2647 (2648 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2649 ATN-PARSER::RESULT-AND-INDEX2650 (WHEN2651 ATN-PARSER::RESULT2652 (SETF |RDFLiteral|2653 ATN-PARSER::RESULT))2654 (|literal.2|2655 ATN-PARSER::RESULT-INDEX))2656 (SETF |RDFLiteral|2657 |RDFLiteral86|))))2658 (T2659 (SETF ATN-PARSER:*ATN-TERM?*2660 '|RDFLiteral|)2661 NIL))))2662 (ATN-PARSER:%ATN-EDGE-BLOCK2663 (ATN-PARSER::CAT2664 |NumericLiteral|)2665 (COND2666 ((|IS-NumericLiteral|2667 ATN-PARSER::|item|)2668 (SETF ATN-PARSER:*ATN-TERM*2669 '|NumericLiteral|)2670 (SETF |NumericLiteral|2671 (IF (EQ2672 ATN-PARSER:*ATN-REDUCE*2673 T)2674 (ATN-PARSER:ATN-REDUCE-ITEM2675 #'|NumericLiteral-Constructor|2676 ATN-PARSER::|item|)2677 (IF (EQ2678 ATN-PARSER:*ATN-REDUCE*2679 'CONS)2680 (LIST2681 '|NumericLiteral|2682 ATN-PARSER::|item|)2683 '|NumericLiteral|)))2684 (|literal.2|2685 (1+ ATN-PARSER::INDEX)))2686 (T2687 (SETF ATN-PARSER:*ATN-TERM*2688 '|NumericLiteral|)2689 NIL)))2690 (ATN-PARSER:%ATN-EDGE-BLOCK2691 (ATN-PARSER::CAT2692 |BooleanLiteral|)2693 (COND2694 ((|IS-BooleanLiteral|2695 ATN-PARSER::|item|)2696 (SETF ATN-PARSER:*ATN-TERM*2697 '|BooleanLiteral|)2698 (SETF |BooleanLiteral|2699 (IF (EQ2700 ATN-PARSER:*ATN-REDUCE*2701 T)2702 (ATN-PARSER:ATN-REDUCE-ITEM2703 #'|BooleanLiteral-Constructor|2704 ATN-PARSER::|item|)2705 (IF (EQ2706 ATN-PARSER:*ATN-REDUCE*2707 'CONS)2708 (LIST2709 '|BooleanLiteral|2710 ATN-PARSER::|item|)2711 '|BooleanLiteral|)))2712 (|literal.2|2713 (1+ ATN-PARSER::INDEX)))2714 (T2715 (SETF ATN-PARSER:*ATN-TERM*2716 '|BooleanLiteral|)2717 NIL)))2718 (|literal/fail.3|2719 ATN-PARSER::INDEX))))))2720 (|literal/start.1| ATN-PARSER::INDEX)2721 (SETF ATN-PARSER:*ATN-NODE NIL)2722 NIL2723 (IF ATN-PARSER::ATN-STRUCTURE2724 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2725 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2726 (WARN "recursive grammar: ~s @ position ~s: ~s" '|literal| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2727 (PROGN2728 (DEFVAR |BlankNodePropertyList-INDEX|)2729 (DEFUN |BlankNodePropertyList| (ATN-PARSER::INDEX &AUX (|PropertyListNotEmpty| NIL))2730 "{14} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'2731 (|PropertyListNotEmpty|)"2732 (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))2733 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNodePropertyList-INDEX| ATN-PARSER:*ATN-LEVEL))2734 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2735 (IF (< |BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)2736 (LET ((|BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)2737 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2738 (ATN-PARSER:*ATN-STACK (CONS '|BlankNodePropertyList| ATN-PARSER:*ATN-STACK))2739 (ATN-PARSER::ATN-STRUCTURE NIL))2740 (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))2741 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2742 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2743 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2744 (ATN-PARSER:%ATN-BLOCK |BlankNodePropertyList|2745 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2746 (SETF ATN-PARSER:*ATN-TERM* '|BlankNodePropertyList|)2747 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2748 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2749 ATN-PARSER::INDEX)2750 (|BlankNodePropertyList.2| (ATN-PARSER::INDEX)2751 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNodePropertyList.2|2752 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |BlankNodePropertyList|)2753 (WHEN T2754 (SETF ATN-PARSER:*ATN-TERM*2755 '|BlankNodePropertyList|)2756 (ATN-PARSER:%ATN-TRACE2757 " [***/~a @ ~s reduce structure: ~a"2758 '|BlankNodePropertyList|2759 ATN-PARSER::INDEX2760 (LIST2761 '|PropertyListNotEmpty|2762 |PropertyListNotEmpty|))2763 (LET ((ATN-PARSER::RESULT-STRUCTURE2764 (IF (EQ2765 ATN-PARSER:*ATN-REDUCE*2766 T)2767 (|BlankNodePropertyList-Constructor|2768 |PropertyListNotEmpty|)2769 (IF (EQ2770 ATN-PARSER:*ATN-REDUCE*2771 'CONS)2772 (CONS2773 '|BlankNodePropertyList|2774 (DELETE NIL2775 (LIST2776 |PropertyListNotEmpty|)))2777 '|BlankNodePropertyList|))))2778 (ATN-PARSER::SUCCEED2779 ATN-PARSER::INDEX2780 ATN-PARSER::RESULT-STRUCTURE))))))2781 (|BlankNodePropertyList/BlankNodePropertyList.2.4| (ATN-PARSER::INDEX)2782 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNodePropertyList/BlankNodePropertyList.2.4|2783 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |PropertyListNotEmpty|)2784 (MULTIPLE-VALUE-BIND2785 (ATN-PARSER::RESULT2786 ATN-PARSER::SUCCESS)2787 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2788 '|PropertyListNotEmpty|2789 ATN-PARSER::INDEX)2790 (COND2791 (ATN-PARSER::SUCCESS2792 (SETF ATN-PARSER:*ATN-TERM*2793 '|PropertyListNotEmpty|)2794 (LET ((|PropertyListNotEmpty87|2795 |PropertyListNotEmpty|))2796 (DOLIST2797 (ATN-PARSER::RESULT-AND-INDEX2798 ATN-PARSER::RESULT)2799 (DESTRUCTURING-BIND2800 (2801 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2802 ATN-PARSER::RESULT-AND-INDEX2803 (WHEN2804 ATN-PARSER::RESULT2805 (SETF |PropertyListNotEmpty|2806 ATN-PARSER::RESULT))2807 (|BlankNodePropertyList/BlankNodePropertyList.2.5|2808 ATN-PARSER::RESULT-INDEX))2809 (SETF |PropertyListNotEmpty|2810 |PropertyListNotEmpty87|))))2811 (T2812 (SETF ATN-PARSER:*ATN-TERM?*2813 '|PropertyListNotEmpty|)2814 (|BlankNodePropertyList/fail.3|2815 ATN-PARSER::INDEX)))))))2816 (|BlankNodePropertyList/BlankNodePropertyList.2.5| (ATN-PARSER::INDEX)2817 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNodePropertyList/BlankNodePropertyList.2.5|2818 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:])2819 (COND2820 ((EQ ATN-PARSER::|item|2821 'SPOCQ.S:])2822 (SETF ATN-PARSER:*ATN-TERM*2823 'SPOCQ.S:])2824 (|BlankNodePropertyList.2|2825 (1+ ATN-PARSER::INDEX)))2826 (T2827 (SETF ATN-PARSER:*ATN-TERM?*2828 'SPOCQ.S:])2829 (|BlankNodePropertyList/fail.3|2830 ATN-PARSER::INDEX))))))2831 (|BlankNodePropertyList/fail.3| (ATN-PARSER::INDEX)2832 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNodePropertyList/fail.3|2833 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2834 (|BlankNodePropertyList/start.1| (ATN-PARSER::INDEX)2835 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNodePropertyList/start.1|2836 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:[)2837 (COND2838 ((EQ ATN-PARSER::|item|2839 'SPOCQ.S:[)2840 (SETF ATN-PARSER:*ATN-TERM*2841 'SPOCQ.S:[)2842 (|BlankNodePropertyList/BlankNodePropertyList.2.4|2843 (1+ ATN-PARSER::INDEX)))2844 (T2845 (SETF ATN-PARSER:*ATN-TERM?*2846 'SPOCQ.S:[)2847 (|BlankNodePropertyList/fail.3|2848 ATN-PARSER::INDEX)))))))2849 (|BlankNodePropertyList/start.1| ATN-PARSER::INDEX)2850 (SETF ATN-PARSER:*ATN-NODE NIL)2851 NIL2852 (IF ATN-PARSER::ATN-STRUCTURE2853 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2854 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2855 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNodePropertyList| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2856 (PROGN2857 (DEFVAR |collection-INDEX|)2858 (DEFUN |collection| (ATN-PARSER::INDEX &AUX (|object| NIL))2859 "{15} collection ::= '(' object* ')'2860 (|object|)"2861 (DECLARE (SPECIAL |collection-INDEX|))2862 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |collection-INDEX| ATN-PARSER:*ATN-LEVEL))2863 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2864 (IF (< |collection-INDEX| ATN-PARSER::INDEX)2865 (LET ((|collection-INDEX| ATN-PARSER::INDEX)2866 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2867 (ATN-PARSER:*ATN-STACK (CONS '|collection| ATN-PARSER:*ATN-STACK))2868 (ATN-PARSER::ATN-STRUCTURE NIL))2869 (DECLARE (SPECIAL |collection-INDEX|))2870 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2871 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2872 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2873 (ATN-PARSER:%ATN-BLOCK |collection|2874 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2875 (SETF ATN-PARSER:*ATN-TERM* '|collection|)2876 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2877 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2878 ATN-PARSER::INDEX)2879 (|collection.2| (ATN-PARSER::INDEX)2880 (ATN-PARSER:%ATN-NODE-BLOCK |collection.2|2881 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |collection|)2882 (WHEN T2883 (SETF ATN-PARSER:*ATN-TERM*2884 '|collection|)2885 (ATN-PARSER:%ATN-TRACE2886 " [***/~a @ ~s reduce structure: ~a"2887 '|collection|2888 ATN-PARSER::INDEX2889 (LIST '|object| |object|))2890 (LET ((ATN-PARSER::RESULT-STRUCTURE2891 (IF (EQ2892 ATN-PARSER:*ATN-REDUCE*2893 T)2894 (|collection-Constructor|2895 |object|)2896 (IF (EQ2897 ATN-PARSER:*ATN-REDUCE*2898 'CONS)2899 (CONS2900 '|collection|2901 (DELETE NIL2902 (LIST2903 |object|)))2904 '|collection|))))2905 (ATN-PARSER::SUCCEED2906 ATN-PARSER::INDEX2907 ATN-PARSER::RESULT-STRUCTURE))))))2908 (|collection.6| (ATN-PARSER::INDEX)2909 (ATN-PARSER:%ATN-NODE-BLOCK |collection.6|2910 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |object|)2911 (MULTIPLE-VALUE-BIND2912 (ATN-PARSER::RESULT2913 ATN-PARSER::SUCCESS)2914 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2915 '|object|2916 ATN-PARSER::INDEX)2917 (COND2918 (ATN-PARSER::SUCCESS2919 (SETF ATN-PARSER:*ATN-TERM*2920 '|object|)2921 (LET ((|object89|2922 |object|))2923 (DOLIST2924 (ATN-PARSER::RESULT-AND-INDEX2925 ATN-PARSER::RESULT)2926 (DESTRUCTURING-BIND2927 (2928 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2929 ATN-PARSER::RESULT-AND-INDEX2930 (WHEN2931 ATN-PARSER::RESULT2932 (SETF |object|2933 (CONS2934 ATN-PARSER::RESULT2935 |object|)))2936 (|collection.6|2937 ATN-PARSER::RESULT-INDEX))2938 (SETF |object|2939 |object89|))))2940 (T2941 (SETF ATN-PARSER:*ATN-TERM?*2942 '|object|)2943 (|collection/collection.2.5|2944 ATN-PARSER::INDEX)))))))2945 (|collection/collection.2.4| (ATN-PARSER::INDEX)2946 (ATN-PARSER:%ATN-NODE-BLOCK |collection/collection.2.4|2947 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |object|)2948 (MULTIPLE-VALUE-BIND2949 (ATN-PARSER::RESULT2950 ATN-PARSER::SUCCESS)2951 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2952 '|object|2953 ATN-PARSER::INDEX)2954 (COND2955 (ATN-PARSER::SUCCESS2956 (SETF ATN-PARSER:*ATN-TERM*2957 '|object|)2958 (LET ((|object88|2959 |object|))2960 (DOLIST2961 (ATN-PARSER::RESULT-AND-INDEX2962 ATN-PARSER::RESULT)2963 (DESTRUCTURING-BIND2964 (2965 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2966 ATN-PARSER::RESULT-AND-INDEX2967 (WHEN2968 ATN-PARSER::RESULT2969 (SETF |object|2970 (CONS2971 ATN-PARSER::RESULT2972 |object|)))2973 (|collection.6|2974 ATN-PARSER::RESULT-INDEX))2975 (SETF |object|2976 |object88|))))2977 (T2978 (SETF ATN-PARSER:*ATN-TERM?*2979 '|object|)2980 (|collection/collection.2.5|2981 ATN-PARSER::INDEX)))))))2982 (|collection/collection.2.5| (ATN-PARSER::INDEX)2983 (ATN-PARSER:%ATN-NODE-BLOCK |collection/collection.2.5|2984 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)2985 (COND2986 ((EQ ATN-PARSER::|item|2987 'SPOCQ.S:|)|)2988 (SETF ATN-PARSER:*ATN-TERM*2989 'SPOCQ.S:|)|)2990 (|collection.2|2991 (1+ ATN-PARSER::INDEX)))2992 (T2993 (SETF ATN-PARSER:*ATN-TERM?*2994 'SPOCQ.S:|)|)2995 (|collection/fail.3|2996 ATN-PARSER::INDEX))))))2997 (|collection/fail.3| (ATN-PARSER::INDEX)2998 (ATN-PARSER:%ATN-NODE-BLOCK |collection/fail.3|2999 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3000 (|collection/start.1| (ATN-PARSER::INDEX)3001 (ATN-PARSER:%ATN-NODE-BLOCK |collection/start.1|3002 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)3003 (COND3004 ((EQ ATN-PARSER::|item|3005 'SPOCQ.S:|(|)3006 (SETF ATN-PARSER:*ATN-TERM*3007 'SPOCQ.S:|(|)3008 (|collection/collection.2.4|3009 (1+ ATN-PARSER::INDEX)))3010 (T3011 (SETF ATN-PARSER:*ATN-TERM?*3012 'SPOCQ.S:|(|)3013 (|collection/fail.3|3014 ATN-PARSER::INDEX)))))))3015 (|collection/start.1| ATN-PARSER::INDEX)3016 (SETF ATN-PARSER:*ATN-NODE NIL)3017 NIL3018 (IF ATN-PARSER::ATN-STRUCTURE3019 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3020 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))3021 (WARN "recursive grammar: ~s @ position ~s: ~s" '|collection| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3022 (PROGN3023 (DEFVAR |RDFLiteral-INDEX|)3024 (DEFUN |RDFLiteral| (ATN-PARSER::INDEX &AUX (|iri| NIL) (LANGTAG NIL) (|String| NIL))3025 "{128s} RDFLiteral ::= String ((LANGTAG | ('^^' iri)))?3026 (|iri| LANGTAG |String|)"3027 (DECLARE (SPECIAL |RDFLiteral-INDEX|))3028 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RDFLiteral-INDEX| ATN-PARSER:*ATN-LEVEL))3029 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3030 (IF (< |RDFLiteral-INDEX| ATN-PARSER::INDEX)3031 (LET ((|RDFLiteral-INDEX| ATN-PARSER::INDEX)3032 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3033 (ATN-PARSER:*ATN-STACK (CONS '|RDFLiteral| ATN-PARSER:*ATN-STACK))3034 (ATN-PARSER::ATN-STRUCTURE NIL))3035 (DECLARE (SPECIAL |RDFLiteral-INDEX|))3036 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3037 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3038 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3039 (ATN-PARSER:%ATN-BLOCK |RDFLiteral|3040 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3041 (SETF ATN-PARSER:*ATN-TERM* '|RDFLiteral|)3042 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3043 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3044 ATN-PARSER::INDEX)3045 (|RDFLiteral.2| (ATN-PARSER::INDEX)3046 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral.2|3047 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |RDFLiteral|)3048 (WHEN T3049 (SETF ATN-PARSER:*ATN-TERM*3050 '|RDFLiteral|)3051 (ATN-PARSER:%ATN-TRACE3052 " [***/~a @ ~s reduce structure: ~a"3053 '|RDFLiteral|3054 ATN-PARSER::INDEX3055 (LIST '|iri| |iri| 'LANGTAG3056 LANGTAG '|String|3057 |String|))3058 (LET ((ATN-PARSER::RESULT-STRUCTURE3059 (IF (EQ3060 ATN-PARSER:*ATN-REDUCE*3061 T)3062 (|RDFLiteral-Constructor|3063 |iri| LANGTAG3064 |String|)3065 (IF (EQ3066 ATN-PARSER:*ATN-REDUCE*3067 'CONS)3068 (CONS3069 '|RDFLiteral|3070 (DELETE NIL3071 (LIST3072 |iri|3073 LANGTAG3074 |String|)))3075 '|RDFLiteral|))))3076 (ATN-PARSER::SUCCEED3077 ATN-PARSER::INDEX3078 ATN-PARSER::RESULT-STRUCTURE))))))3079 (|RDFLiteral/fail.3| (ATN-PARSER::INDEX)3080 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/fail.3|3081 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3082 (|RDFLiteral/RDFLiteral.2.4| (ATN-PARSER::INDEX)3083 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/RDFLiteral.2.4|3084 (ATN-PARSER:%ATN-EDGE-BLOCK OR3085 (PROGN3086 (ATN-PARSER:%ATN-EDGE-BLOCK3087 (TEST LANGTAG)3088 (COND3089 ((IS-LANGTAG3090 ATN-PARSER::|item|)3091 (SETF ATN-PARSER:*ATN-TERM*3092 'LANGTAG)3093 (SETF LANGTAG3094 (IF (EQ3095 ATN-PARSER:*ATN-REDUCE*3096 T)3097 (ATN-PARSER:ATN-REDUCE-ITEM3098 #'|LANGTAG-Constructor|3099 ATN-PARSER::|item|)3100 (IF (EQ3101 ATN-PARSER:*ATN-REDUCE*3102 'CONS)3103 (LIST3104 'LANGTAG3105 ATN-PARSER::|item|)3106 'LANGTAG)))3107 (|RDFLiteral.2|3108 (1+ ATN-PARSER::INDEX)))3109 (T3110 (SETF ATN-PARSER:*ATN-TERM?*3111 'LANGTAG)3112 NIL)))3113 (ATN-PARSER:%ATN-EDGE-BLOCK3114 (ATN-PARSER::JUMP3115 |RDFLiteral/RDFLiteral.2.5|)3116 (|RDFLiteral/RDFLiteral.2.5|3117 ATN-PARSER::INDEX))3118 (|RDFLiteral.2|3119 ATN-PARSER::INDEX)))))3120 (|RDFLiteral/RDFLiteral.2.5| (ATN-PARSER::INDEX)3121 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/RDFLiteral.2.5|3122 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:^^)3123 (COND3124 ((EQ ATN-PARSER::|item|3125 'SPOCQ.S:^^)3126 (SETF ATN-PARSER:*ATN-TERM*3127 'SPOCQ.S:^^)3128 (|RDFLiteral/RDFLiteral.2.6|3129 (1+ ATN-PARSER::INDEX)))3130 (T3131 (SETF ATN-PARSER:*ATN-TERM?*3132 'SPOCQ.S:^^)3133 NIL)))))3134 (|RDFLiteral/RDFLiteral.2.6| (ATN-PARSER::INDEX)3135 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/RDFLiteral.2.6|3136 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |iri|)3137 (MULTIPLE-VALUE-BIND3138 (ATN-PARSER::RESULT3139 ATN-PARSER::SUCCESS)3140 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*3141 '|iri| ATN-PARSER::INDEX)3142 (COND3143 (ATN-PARSER::SUCCESS3144 (SETF ATN-PARSER:*ATN-TERM*3145 '|iri|)3146 (LET ((|iri90| |iri|))3147 (DOLIST3148 (ATN-PARSER::RESULT-AND-INDEX3149 ATN-PARSER::RESULT)3150 (DESTRUCTURING-BIND3151 (3152 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3153 ATN-PARSER::RESULT-AND-INDEX3154 (WHEN3155 ATN-PARSER::RESULT3156 (SETF |iri|3157 ATN-PARSER::RESULT))3158 (|RDFLiteral.2|3159 ATN-PARSER::RESULT-INDEX))3160 (SETF |iri|3161 |iri90|))))3162 (T3163 (SETF ATN-PARSER:*ATN-TERM?*3164 '|iri|)3165 NIL))))))3166 (|RDFLiteral/start.1| (ATN-PARSER::INDEX)3167 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/start.1|3168 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::CAT |String|)3169 (COND3170 ((|IS-String|3171 ATN-PARSER::|item|)3172 (SETF ATN-PARSER:*ATN-TERM*3173 '|String|)3174 (SETF |String|3175 (IF (EQ3176 ATN-PARSER:*ATN-REDUCE*3177 T)3178 (ATN-PARSER:ATN-REDUCE-ITEM3179 #'|String-Constructor|3180 ATN-PARSER::|item|)3181 (IF (EQ3182 ATN-PARSER:*ATN-REDUCE*3183 'CONS)3184 (LIST3185 '|String|3186 ATN-PARSER::|item|)3187 '|String|)))3188 (|RDFLiteral/RDFLiteral.2.4|3189 (1+ ATN-PARSER::INDEX)))3190 (T3191 (SETF ATN-PARSER:*ATN-TERM*3192 '|String|)3193 (|RDFLiteral/fail.3|3194 ATN-PARSER::INDEX)))))))3195 (|RDFLiteral/start.1| ATN-PARSER::INDEX)3196 (SETF ATN-PARSER:*ATN-NODE NIL)3197 NIL3198 (IF ATN-PARSER::ATN-STRUCTURE3199 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3200 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))3201 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RDFLiteral| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3202 (PROGN3203 (DEFVAR |iri-INDEX|)3204 (DEFUN |iri| (ATN-PARSER::INDEX &AUX (IRI_REF NIL) (|PrefixedName| NIL))3205 "{135s} iri ::= (IRI_REF | PrefixedName)3206 (IRI_REF |PrefixedName|)"3207 (DECLARE (SPECIAL |iri-INDEX|))3208 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |iri-INDEX| ATN-PARSER:*ATN-LEVEL))3209 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3210 (IF (< |iri-INDEX| ATN-PARSER::INDEX)3211 (LET ((|iri-INDEX| ATN-PARSER::INDEX)3212 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3213 (ATN-PARSER:*ATN-STACK (CONS '|iri| ATN-PARSER:*ATN-STACK))3214 (ATN-PARSER::ATN-STRUCTURE NIL))3215 (DECLARE (SPECIAL |iri-INDEX|))3216 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3217 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3218 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3219 (ATN-PARSER:%ATN-BLOCK |iri|3220 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3221 (SETF ATN-PARSER:*ATN-TERM* '|iri|)3222 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3223 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3224 ATN-PARSER::INDEX)3225 (|iri.2| (ATN-PARSER::INDEX)3226 (ATN-PARSER:%ATN-NODE-BLOCK |iri.2|3227 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |iri|)3228 (WHEN T3229 (SETF ATN-PARSER:*ATN-TERM*3230 '|iri|)3231 (ATN-PARSER:%ATN-TRACE3232 " [***/~a @ ~s reduce structure: ~a"3233 '|iri| ATN-PARSER::INDEX3234 (LIST 'IRI_REF IRI_REF3235 '|PrefixedName|3236 |PrefixedName|))3237 (LET ((ATN-PARSER::RESULT-STRUCTURE3238 (IF (EQ3239 ATN-PARSER:*ATN-REDUCE*3240 T)3241 (|iri-Constructor|3242 IRI_REF3243 |PrefixedName|)3244 (IF (EQ3245 ATN-PARSER:*ATN-REDUCE*3246 'CONS)3247 (CONS '|iri|3248 (DELETE3249 NIL3250 (LIST3251 IRI_REF3252 |PrefixedName|)))3253 '|iri|))))3254 (ATN-PARSER::SUCCEED3255 ATN-PARSER::INDEX3256 ATN-PARSER::RESULT-STRUCTURE))))))3257 (|iri/fail.3| (ATN-PARSER::INDEX)3258 (ATN-PARSER:%ATN-NODE-BLOCK |iri/fail.3|3259 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3260 (|iri/start.1| (ATN-PARSER::INDEX)3261 (ATN-PARSER:%ATN-NODE-BLOCK |iri/start.1|3262 (ATN-PARSER:%ATN-EDGE-BLOCK OR3263 (PROGN3264 (ATN-PARSER:%ATN-EDGE-BLOCK3265 (PUSH IRI_REF)3266 (MULTIPLE-VALUE-BIND3267 (ATN-PARSER::RESULT3268 ATN-PARSER::SUCCESS)3269 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*3270 'IRI_REF3271 ATN-PARSER::INDEX)3272 (COND3273 (ATN-PARSER::SUCCESS3274 (SETF ATN-PARSER:*ATN-TERM*3275 'IRI_REF)3276 (LET ((IRI_REF913277 IRI_REF))3278 (DOLIST3279 (ATN-PARSER::RESULT-AND-INDEX3280 ATN-PARSER::RESULT)3281 (DESTRUCTURING-BIND3282 (3283 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3284 ATN-PARSER::RESULT-AND-INDEX3285 (WHEN3286 ATN-PARSER::RESULT3287 (SETF IRI_REF3288 ATN-PARSER::RESULT))3289 (|iri.2|3290 ATN-PARSER::RESULT-INDEX))3291 (SETF IRI_REF3292 IRI_REF91))))3293 (T3294 (SETF ATN-PARSER:*ATN-TERM?*3295 'IRI_REF)3296 NIL))))3297 (ATN-PARSER:%ATN-EDGE-BLOCK3298 (ATN-PARSER::CAT3299 |PrefixedName|)3300 (COND3301 ((|IS-PrefixedName|3302 ATN-PARSER::|item|)3303 (SETF ATN-PARSER:*ATN-TERM*3304 '|PrefixedName|)3305 (SETF |PrefixedName|3306 (IF (EQ3307 ATN-PARSER:*ATN-REDUCE*3308 T)3309 (ATN-PARSER:ATN-REDUCE-ITEM3310 #'|PrefixedName-Constructor|3311 ATN-PARSER::|item|)3312 (IF (EQ3313 ATN-PARSER:*ATN-REDUCE*3314 'CONS)3315 (LIST3316 '|PrefixedName|3317 ATN-PARSER::|item|)3318 '|PrefixedName|)))3319 (|iri.2|3320 (1+ ATN-PARSER::INDEX)))3321 (T3322 (SETF ATN-PARSER:*ATN-TERM*3323 '|PrefixedName|)3324 NIL)))3325 (|iri/fail.3|3326 ATN-PARSER::INDEX))))))3327 (|iri/start.1| ATN-PARSER::INDEX)3328 (SETF ATN-PARSER:*ATN-NODE NIL)3329 NIL3330 (IF ATN-PARSER::ATN-STRUCTURE3331 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3332 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))3333 (WARN "recursive grammar: ~s @ position ~s: ~s" '|iri| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3334 (PROGN3335 (DEFVAR |BlankNode-INDEX|)3336 (DEFUN |BlankNode| (ATN-PARSER::INDEX &AUX (ANON NIL) (BLANK_NODE_LABEL NIL))3337 "{137s} BlankNode ::= (('_:' BLANK_NODE_LABEL) | ANON)3338 (ANON BLANK_NODE_LABEL)"3339 (DECLARE (SPECIAL |BlankNode-INDEX|))3340 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNode-INDEX| ATN-PARSER:*ATN-LEVEL))3341 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3342 (IF (< |BlankNode-INDEX| ATN-PARSER::INDEX)3343 (LET ((|BlankNode-INDEX| ATN-PARSER::INDEX)3344 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3345 (ATN-PARSER:*ATN-STACK (CONS '|BlankNode| ATN-PARSER:*ATN-STACK))3346 (ATN-PARSER::ATN-STRUCTURE NIL))3347 (DECLARE (SPECIAL |BlankNode-INDEX|))3348 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3349 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3350 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3351 (ATN-PARSER:%ATN-BLOCK |BlankNode|3352 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3353 (SETF ATN-PARSER:*ATN-TERM* '|BlankNode|)3354 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3355 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3356 ATN-PARSER::INDEX)3357 (|BlankNode.2| (ATN-PARSER::INDEX)3358 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode.2|3359 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |BlankNode|)3360 (WHEN T3361 (SETF ATN-PARSER:*ATN-TERM*3362 '|BlankNode|)3363 (ATN-PARSER:%ATN-TRACE3364 " [***/~a @ ~s reduce structure: ~a"3365 '|BlankNode|3366 ATN-PARSER::INDEX3367 (LIST 'ANON ANON3368 'BLANK_NODE_LABEL3369 BLANK_NODE_LABEL))3370 (LET ((ATN-PARSER::RESULT-STRUCTURE3371 (IF (EQ3372 ATN-PARSER:*ATN-REDUCE*3373 T)3374 (|BlankNode-Constructor|3375 ANON3376 BLANK_NODE_LABEL)3377 (IF (EQ3378 ATN-PARSER:*ATN-REDUCE*3379 'CONS)3380 (CONS3381 '|BlankNode|3382 (DELETE NIL3383 (LIST3384 ANON3385 BLANK_NODE_LABEL)))3386 '|BlankNode|))))3387 (ATN-PARSER::SUCCEED3388 ATN-PARSER::INDEX3389 ATN-PARSER::RESULT-STRUCTURE))))))3390 (|BlankNode/BlankNode.2.4| (ATN-PARSER::INDEX)3391 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode/BlankNode.2.4|3392 (ATN-PARSER:%ATN-EDGE-BLOCK3393 (ATN-PARSER::WORD SPOCQ.S:|_:|)3394 (COND3395 ((EQ ATN-PARSER::|item| 'SPOCQ.S:|_:|)3396 (SETF ATN-PARSER:*ATN-TERM* 'SPOCQ.S:|_:|)3397 (|BlankNode/BlankNode.2.5| (1+ ATN-PARSER::INDEX)))3398 (T (SETF ATN-PARSER:*ATN-TERM?* 'SPOCQ.S:|_:|) NIL)))))3399 (|BlankNode/BlankNode.2.5| (ATN-PARSER::INDEX)3400 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode/BlankNode.2.5|3401 (ATN-PARSER:%ATN-EDGE-BLOCK (TEST BLANK_NODE_LABEL)3402 (COND3403 ((IS-BLANK_NODE_LABEL3404 ATN-PARSER::|item|)3405 (SETF ATN-PARSER:*ATN-TERM*3406 'BLANK_NODE_LABEL)3407 (SETF BLANK_NODE_LABEL3408 (IF (EQ3409 ATN-PARSER:*ATN-REDUCE*3410 T)3411 (ATN-PARSER:ATN-REDUCE-ITEM3412 #'|BLANK_NODE_LABEL-Constructor|3413 ATN-PARSER::|item|)3414 (IF (EQ3415 ATN-PARSER:*ATN-REDUCE*3416 'CONS)3417 (LIST3418 'BLANK_NODE_LABEL3419 ATN-PARSER::|item|)3420 'BLANK_NODE_LABEL)))3421 (|BlankNode.2|3422 (1+ ATN-PARSER::INDEX)))3423 (T3424 (SETF ATN-PARSER:*ATN-TERM?*3425 'BLANK_NODE_LABEL)3426 NIL)))))3427 (|BlankNode/fail.3| (ATN-PARSER::INDEX)3428 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode/fail.3|3429 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3430 (|BlankNode/start.1| (ATN-PARSER::INDEX)3431 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode/start.1|3432 (ATN-PARSER:%ATN-EDGE-BLOCK OR3433 (PROGN3434 (ATN-PARSER:%ATN-EDGE-BLOCK3435 (ATN-PARSER::JUMP3436 |BlankNode/BlankNode.2.4|)3437 (|BlankNode/BlankNode.2.4|3438 ATN-PARSER::INDEX))3439 (ATN-PARSER:%ATN-EDGE-BLOCK3440 (PUSH ANON)3441 (MULTIPLE-VALUE-BIND3442 (ATN-PARSER::RESULT3443 ATN-PARSER::SUCCESS)3444 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*3445 'ANON3446 ATN-PARSER::INDEX)3447 (COND3448 (ATN-PARSER::SUCCESS3449 (SETF ATN-PARSER:*ATN-TERM*3450 'ANON)3451 (LET ((ANON92 ANON))3452 (DOLIST3453 (ATN-PARSER::RESULT-AND-INDEX3454 ATN-PARSER::RESULT)3455 (DESTRUCTURING-BIND3456 (3457 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3458 ATN-PARSER::RESULT-AND-INDEX3459 (WHEN3460 ATN-PARSER::RESULT3461 (SETF ANON3462 ATN-PARSER::RESULT))3463 (|BlankNode.2|3464 ATN-PARSER::RESULT-INDEX))3465 (SETF ANON3466 ANON92))))3467 (T3468 (SETF ATN-PARSER:*ATN-TERM?*3469 'ANON)3470 NIL))))3471 (|BlankNode/fail.3|3472 ATN-PARSER::INDEX))))))3473 (|BlankNode/start.1| ATN-PARSER::INDEX)3474 (SETF ATN-PARSER:*ATN-NODE NIL)3475 NIL3476 (IF ATN-PARSER::ATN-STRUCTURE3477 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3478 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))3479 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNode| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3480 (PROGN3481 (DEFVAR |PropertyListNotEmpty-INDEX|)3482 (DEFUN |PropertyListNotEmpty| (ATN-PARSER::INDEX &AUX (|VerbObjectList| NIL))3483 "{72} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*3484 (|VerbObjectList|)"3485 (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))3486 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PropertyListNotEmpty-INDEX| ATN-PARSER:*ATN-LEVEL))3487 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3488 (IF (< |PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)3489 (LET ((|PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)3490 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3491 (ATN-PARSER:*ATN-STACK (CONS '|PropertyListNotEmpty| ATN-PARSER:*ATN-STACK))3492 (ATN-PARSER::ATN-STRUCTURE NIL))3493 (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))3494 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3495 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3496 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3497 (ATN-PARSER:%ATN-BLOCK |PropertyListNotEmpty|3498 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3499 (SETF ATN-PARSER:*ATN-TERM* '|PropertyListNotEmpty|)3500 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3501 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3502 ATN-PARSER::INDEX)3503 (|PropertyListNotEmpty.2| (ATN-PARSER::INDEX)3504 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty.2|3505 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |PropertyListNotEmpty|)3506 (WHEN T3507 (SETF ATN-PARSER:*ATN-TERM*3508 '|PropertyListNotEmpty|)3509 (ATN-PARSER:%ATN-TRACE3510 " [***/~a @ ~s reduce structure: ~a"3511 '|PropertyListNotEmpty|3512 ATN-PARSER::INDEX3513 (LIST '|VerbObjectList|3514 |VerbObjectList|))3515 (LET ((ATN-PARSER::RESULT-STRUCTURE3516 (IF (EQ3517 ATN-PARSER:*ATN-REDUCE*3518 T)3519 (|PropertyListNotEmpty-Constructor|3520 |VerbObjectList|)3521 (IF (EQ3522 ATN-PARSER:*ATN-REDUCE*3523 'CONS)3524 (CONS3525 '|PropertyListNotEmpty|3526 (DELETE NIL3527 (LIST3528 |VerbObjectList|)))3529 '|PropertyListNotEmpty|))))3530 (ATN-PARSER::SUCCEED3531 ATN-PARSER::INDEX3532 ATN-PARSER::RESULT-STRUCTURE))))))3533 (|PropertyListNotEmpty.5| (ATN-PARSER::INDEX)3534 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty.5|3535 (ATN-PARSER:%ATN-EDGE-BLOCK3536 (ATN-PARSER::JUMP3537 |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)3538 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6|3539 ATN-PARSER::INDEX))3540 (ATN-PARSER:%ATN-EDGE-BLOCK3541 (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)3542 (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))3543 (|PropertyListNotEmpty/fail.3| (ATN-PARSER::INDEX)3544 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty/fail.3|3545 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3546 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4| (ATN-PARSER::INDEX)3547 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty/PropertyListNotEmpty.2.4|3548 (ATN-PARSER:%ATN-EDGE-BLOCK3549 (ATN-PARSER::JUMP3550 |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)3551 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6|3552 ATN-PARSER::INDEX))3553 (ATN-PARSER:%ATN-EDGE-BLOCK3554 (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)3555 (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))3556 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| (ATN-PARSER::INDEX)3557 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty/PropertyListNotEmpty.5.6|3558 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|;|)3559 (COND3560 ((EQ ATN-PARSER::|item|3561 'SPOCQ.S:|;|)3562 (SETF ATN-PARSER:*ATN-TERM*3563 'SPOCQ.S:|;|)3564 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7|3565 (1+ ATN-PARSER::INDEX)))3566 (T3567 (SETF ATN-PARSER:*ATN-TERM?*3568 'SPOCQ.S:|;|)3569 NIL)))))3570 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7| (ATN-PARSER::INDEX)3571 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty/PropertyListNotEmpty.5.7|3572 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |VerbObjectList|)3573 (MULTIPLE-VALUE-BIND3574 (ATN-PARSER::RESULT3575 ATN-PARSER::SUCCESS)3576 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*3577 '|VerbObjectList|3578 ATN-PARSER::INDEX)3579 (COND3580 (ATN-PARSER::SUCCESS3581 (SETF ATN-PARSER:*ATN-TERM*3582 '|VerbObjectList|)3583 (LET ((|VerbObjectList93|3584 |VerbObjectList|))3585 (DOLIST3586 (ATN-PARSER::RESULT-AND-INDEX3587 ATN-PARSER::RESULT)3588 (DESTRUCTURING-BIND3589 (3590 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3591 ATN-PARSER::RESULT-AND-INDEX3592 (WHEN3593 ATN-PARSER::RESULT3594 (SETF |VerbObjectList|3595 (CONS3596 ATN-PARSER::RESULT3597 |VerbObjectList|)))3598 (|PropertyListNotEmpty.5|3599 ATN-PARSER::RESULT-INDEX))3600 (SETF |VerbObjectList|3601 |VerbObjectList93|))))3602 (T3603 (SETF ATN-PARSER:*ATN-TERM?*3604 '|VerbObjectList|)3605 (|PropertyListNotEmpty.5|3606 ATN-PARSER::INDEX)))))))3607 (|PropertyListNotEmpty/start.1| (ATN-PARSER::INDEX)3608 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty/start.1|3609 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |VerbObjectList|)3610 (MULTIPLE-VALUE-BIND3611 (ATN-PARSER::RESULT3612 ATN-PARSER::SUCCESS)3613 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*3614 '|VerbObjectList|3615 ATN-PARSER::INDEX)3616 (COND3617 (ATN-PARSER::SUCCESS3618 (SETF ATN-PARSER:*ATN-TERM*3619 '|VerbObjectList|)3620 (LET ((|VerbObjectList94|3621 |VerbObjectList|))3622 (DOLIST3623 (ATN-PARSER::RESULT-AND-INDEX3624 ATN-PARSER::RESULT)3625 (DESTRUCTURING-BIND3626 (3627 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3628 ATN-PARSER::RESULT-AND-INDEX3629 (WHEN3630 ATN-PARSER::RESULT3631 (SETF |VerbObjectList|3632 (CONS3633 ATN-PARSER::RESULT3634 |VerbObjectList|)))3635 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4|3636 ATN-PARSER::RESULT-INDEX))3637 (SETF |VerbObjectList|3638 |VerbObjectList94|))))3639 (T3640 (SETF ATN-PARSER:*ATN-TERM?*3641 '|VerbObjectList|)3642 (|PropertyListNotEmpty/fail.3|3643 ATN-PARSER::INDEX))))))))3644 (|PropertyListNotEmpty/start.1| ATN-PARSER::INDEX)3645 (SETF ATN-PARSER:*ATN-NODE NIL)3646 NIL3647 (IF ATN-PARSER::ATN-STRUCTURE3648 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3649 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))3650 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PropertyListNotEmpty| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3651 (PROGN3652 (DEFVAR |VerbObjectList-INDEX|)3653 (DEFUN |VerbObjectList| (ATN-PARSER::INDEX &AUX (|objectList| NIL) (|verb| NIL))3654 "{72a} VerbObjectList ::= verb objectList3655 (|objectList| |verb|)"3656 (DECLARE (SPECIAL |VerbObjectList-INDEX|))3657 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VerbObjectList-INDEX| ATN-PARSER:*ATN-LEVEL))3658 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3659 (IF (< |VerbObjectList-INDEX| ATN-PARSER::INDEX)3660 (LET ((|VerbObjectList-INDEX| ATN-PARSER::INDEX)3661 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3662 (ATN-PARSER:*ATN-STACK (CONS '|VerbObjectList| ATN-PARSER:*ATN-STACK))3663 (ATN-PARSER::ATN-STRUCTURE NIL))3664 (DECLARE (SPECIAL |VerbObjectList-INDEX|))3665 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3666 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3667 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3668 (ATN-PARSER:%ATN-BLOCK |VerbObjectList|3669 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3670 (SETF ATN-PARSER:*ATN-TERM* '|VerbObjectList|)3671 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3672 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3673 ATN-PARSER::INDEX)3674 (|VerbObjectList.2| (ATN-PARSER::INDEX)3675 (ATN-PARSER:%ATN-NODE-BLOCK |VerbObjectList.2|3676 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |VerbObjectList|)3677 (WHEN T3678 (SETF ATN-PARSER:*ATN-TERM*3679 '|VerbObjectList|)3680 (ATN-PARSER:%ATN-TRACE3681 " [***/~a @ ~s reduce structure: ~a"3682 '|VerbObjectList|3683 ATN-PARSER::INDEX3684 (LIST '|objectList|3685 |objectList| '|verb|3686 |verb|))3687 (LET ((ATN-PARSER::RESULT-STRUCTURE3688 (IF (EQ3689 ATN-PARSER:*ATN-REDUCE*3690 T)3691 (|VerbObjectList-Constructor|3692 |objectList|3693 |verb|)3694 (IF (EQ3695 ATN-PARSER:*ATN-REDUCE*3696 'CONS)3697 (CONS3698 '|VerbObjectList|3699 (DELETE NIL3700 (LIST3701 |objectList|3702 |verb|)))3703 '|VerbObjectList|))))3704 (ATN-PARSER::SUCCEED3705 ATN-PARSER::INDEX3706 ATN-PARSER::RESULT-STRUCTURE))))))3707 (|VerbObjectList/fail.3| (ATN-PARSER::INDEX)3708 (ATN-PARSER:%ATN-NODE-BLOCK |VerbObjectList/fail.3|3709 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3710 (|VerbObjectList/start.1| (ATN-PARSER::INDEX)3711 (ATN-PARSER:%ATN-NODE-BLOCK |VerbObjectList/start.1|3712 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |verb|)3713 (MULTIPLE-VALUE-BIND3714 (ATN-PARSER::RESULT3715 ATN-PARSER::SUCCESS)3716 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*3717 '|verb|3718 ATN-PARSER::INDEX)3719 (COND3720 (ATN-PARSER::SUCCESS3721 (SETF ATN-PARSER:*ATN-TERM*3722 '|verb|)3723 (LET ((|verb96| |verb|))3724 (DOLIST3725 (ATN-PARSER::RESULT-AND-INDEX3726 ATN-PARSER::RESULT)3727 (DESTRUCTURING-BIND3728 (3729 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3730 ATN-PARSER::RESULT-AND-INDEX3731 (WHEN3732 ATN-PARSER::RESULT3733 (SETF |verb|3734 ATN-PARSER::RESULT))3735 (|VerbObjectList/VerbObjectList.2.4|3736 ATN-PARSER::RESULT-INDEX))3737 (SETF |verb|3738 |verb96|))))3739 (T3740 (SETF ATN-PARSER:*ATN-TERM?*3741 '|verb|)3742 (|VerbObjectList/fail.3|3743 ATN-PARSER::INDEX)))))))3744 (|VerbObjectList/VerbObjectList.2.4| (ATN-PARSER::INDEX)3745 (ATN-PARSER:%ATN-NODE-BLOCK |VerbObjectList/VerbObjectList.2.4|3746 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |objectList|)3747 (MULTIPLE-VALUE-BIND3748 (ATN-PARSER::RESULT3749 ATN-PARSER::SUCCESS)3750 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*3751 '|objectList|3752 ATN-PARSER::INDEX)3753 (COND3754 (ATN-PARSER::SUCCESS3755 (SETF ATN-PARSER:*ATN-TERM*3756 '|objectList|)3757 (LET ((|objectList95|3758 |objectList|))3759 (DOLIST3760 (ATN-PARSER::RESULT-AND-INDEX3761 ATN-PARSER::RESULT)3762 (DESTRUCTURING-BIND3763 (3764 ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3765 ATN-PARSER::RESULT-AND-INDEX3766 (WHEN3767 ATN-PARSER::RESULT3768 (SETF |objectList|3769 ATN-PARSER::RESULT))3770 (|VerbObjectList.2|3771 ATN-PARSER::RESULT-INDEX))3772 (SETF |objectList|3773 |objectList95|))))3774 (T3775 (SETF ATN-PARSER:*ATN-TERM?*3776 '|objectList|)3777 (|VerbObjectList/fail.3|3778 ATN-PARSER::INDEX))))))))3779 (|VerbObjectList/start.1| ATN-PARSER::INDEX)3780 (SETF ATN-PARSER:*ATN-NODE NIL)3781 NIL3782 (IF ATN-PARSER::ATN-STRUCTURE3783 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3784 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))3785 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VerbObjectList| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3786 (PROGN3787 (DEFVAR IRI_REF-INDEX)3788 (DEFUN IRI_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))3789 "{128} IRI_REF ::= '<' IRI_NAMESTRING? '>'3790 (IRI_NAMESTRING)"3791 (DECLARE (SPECIAL IRI_REF-INDEX))3792 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX IRI_REF-INDEX ATN-PARSER:*ATN-LEVEL))3793 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3794 (IF (< IRI_REF-INDEX ATN-PARSER::INDEX)3795 (LET ((IRI_REF-INDEX ATN-PARSER::INDEX)3796 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3797 (ATN-PARSER:*ATN-STACK (CONS 'IRI_REF ATN-PARSER:*ATN-STACK))3798 (ATN-PARSER::ATN-STRUCTURE NIL))3799 (DECLARE (SPECIAL IRI_REF-INDEX))3800 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3801 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3802 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3803 (ATN-PARSER:%ATN-BLOCK IRI_REF3804 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3805 (SETF ATN-PARSER:*ATN-TERM* 'IRI_REF)3806 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3807 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3808 ATN-PARSER::INDEX)3809 (IRI_REF.2 (ATN-PARSER::INDEX)3810 (ATN-PARSER:%ATN-NODE-BLOCK IRI_REF.23811 (ATN-PARSER:%ATN-EDGE-BLOCK (POP IRI_REF)3812 (WHEN T3813 (SETF ATN-PARSER:*ATN-TERM*3814 'IRI_REF)3815 (ATN-PARSER:%ATN-TRACE3816 " [***/~a @ ~s reduce structure: ~a"3817 'IRI_REF ATN-PARSER::INDEX3818 (LIST 'IRI_NAMESTRING3819 IRI_NAMESTRING))3820 (LET ((ATN-PARSER::RESULT-STRUCTURE3821 (IF (EQ3822 ATN-PARSER:*ATN-REDUCE*3823 T)3824 (|IRI_REF-Constructor|3825 IRI_NAMESTRING)3826 (IF (EQ3827 ATN-PARSER:*ATN-REDUCE*3828 'CONS)3829 (CONS3830 'IRI_REF3831 (DELETE NIL3832 (LIST3833 IRI_NAMESTRING)))3834 'IRI_REF))))3835 (ATN-PARSER::SUCCEED3836 ATN-PARSER::INDEX3837 ATN-PARSER::RESULT-STRUCTURE))))))3838 (|IRI_REF/fail.3| (ATN-PARSER::INDEX)3839 (ATN-PARSER:%ATN-NODE-BLOCK |IRI_REF/fail.3|3840 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3841 (IRI_REF/IRI_REF.2.4 (ATN-PARSER::INDEX)3842 (ATN-PARSER:%ATN-NODE-BLOCK IRI_REF/IRI_REF.2.43843 (ATN-PARSER:%ATN-EDGE-BLOCK (TEST IRI_NAMESTRING)3844 (COND3845 ((IS-IRI_NAMESTRING3846 ATN-PARSER::|item|)3847 (SETF ATN-PARSER:*ATN-TERM*3848 'IRI_NAMESTRING)3849 (SETF IRI_NAMESTRING3850 (IF (EQ3851 ATN-PARSER:*ATN-REDUCE*3852 T)3853 (ATN-PARSER:ATN-REDUCE-ITEM3854 #'|IRI_NAMESTRING-Constructor|3855 ATN-PARSER::|item|)3856 (IF (EQ3857 ATN-PARSER:*ATN-REDUCE*3858 'CONS)3859 (LIST3860 'IRI_NAMESTRING3861 ATN-PARSER::|item|)3862 'IRI_NAMESTRING)))3863 (IRI_REF/IRI_REF.2.53864 (1+ ATN-PARSER::INDEX)))3865 (T3866 (SETF ATN-PARSER:*ATN-TERM?*3867 'IRI_NAMESTRING)3868 (IRI_REF/IRI_REF.2.53869 ATN-PARSER::INDEX))))))3870 (IRI_REF/IRI_REF.2.5 (ATN-PARSER::INDEX)3871 (ATN-PARSER:%ATN-NODE-BLOCK IRI_REF/IRI_REF.2.53872 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:>)3873 (COND3874 ((EQ ATN-PARSER::|item|3875 'SPOCQ.S:>)3876 (SETF ATN-PARSER:*ATN-TERM*3877 'SPOCQ.S:>)3878 (IRI_REF.23879 (1+ ATN-PARSER::INDEX)))3880 (T3881 (SETF ATN-PARSER:*ATN-TERM?*3882 'SPOCQ.S:>)3883 (|IRI_REF/fail.3|3884 ATN-PARSER::INDEX))))))3885 (|IRI_REF/start.1| (ATN-PARSER::INDEX)3886 (ATN-PARSER:%ATN-NODE-BLOCK |IRI_REF/start.1|3887 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:<)3888 (COND3889 ((EQ ATN-PARSER::|item|3890 'SPOCQ.S:<)3891 (SETF ATN-PARSER:*ATN-TERM*3892 'SPOCQ.S:<)3893 (IRI_REF/IRI_REF.2.43894 (1+ ATN-PARSER::INDEX)))3895 (T3896 (SETF ATN-PARSER:*ATN-TERM?*3897 'SPOCQ.S:<)3898 (|IRI_REF/fail.3|3899 ATN-PARSER::INDEX)))))))3900 (|IRI_REF/start.1| ATN-PARSER::INDEX)3901 (SETF ATN-PARSER:*ATN-NODE NIL)3902 NIL3903 (IF ATN-PARSER::ATN-STRUCTURE3904 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3905 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))3906 (WARN "recursive grammar: ~s @ position ~s: ~s" 'IRI_REF ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3907 (PROGN3908 (DEFVAR NAMESPACE_REF-INDEX)3909 (DEFUN NAMESPACE_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))3910 "{128a} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'3911 (IRI_NAMESTRING)"3912 (DECLARE (SPECIAL NAMESPACE_REF-INDEX))3913 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX NAMESPACE_REF-INDEX ATN-PARSER:*ATN-LEVEL))3914 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3915 (IF (< NAMESPACE_REF-INDEX ATN-PARSER::INDEX)3916 (LET ((NAMESPACE_REF-INDEX ATN-PARSER::INDEX)3917 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3918 (ATN-PARSER:*ATN-STACK (CONS 'NAMESPACE_REF ATN-PARSER:*ATN-STACK))3919 (ATN-PARSER::ATN-STRUCTURE NIL))3920 (DECLARE (SPECIAL NAMESPACE_REF-INDEX))3921 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3922 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3923 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3924 (ATN-PARSER:%ATN-BLOCK NAMESPACE_REF3925 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3926 (SETF ATN-PARSER:*ATN-TERM* 'NAMESPACE_REF)3927 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3928 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3929 ATN-PARSER::INDEX)3930 (NAMESPACE_REF.2 (ATN-PARSER::INDEX)3931 (ATN-PARSER:%ATN-NODE-BLOCK NAMESPACE_REF.23932 (ATN-PARSER:%ATN-EDGE-BLOCK (POP NAMESPACE_REF)3933 (WHEN T3934 (SETF ATN-PARSER:*ATN-TERM*3935 'NAMESPACE_REF)3936 (ATN-PARSER:%ATN-TRACE3937 " [***/~a @ ~s reduce structure: ~a"3938 'NAMESPACE_REF3939 ATN-PARSER::INDEX3940 (LIST 'IRI_NAMESTRING3941 IRI_NAMESTRING))3942 (LET ((ATN-PARSER::RESULT-STRUCTURE3943 (IF (EQ3944 ATN-PARSER:*ATN-REDUCE*3945 T)3946 (|NAMESPACE_REF-Constructor|3947 IRI_NAMESTRING)3948 (IF (EQ3949 ATN-PARSER:*ATN-REDUCE*3950 'CONS)3951 (CONS3952 'NAMESPACE_REF3953 (DELETE NIL3954 (LIST3955 IRI_NAMESTRING)))3956 'NAMESPACE_REF))))3957 (ATN-PARSER::SUCCEED3958 ATN-PARSER::INDEX3959 ATN-PARSER::RESULT-STRUCTURE))))))3960 (|NAMESPACE_REF/fail.3| (ATN-PARSER::INDEX)3961 (ATN-PARSER:%ATN-NODE-BLOCK |NAMESPACE_REF/fail.3|3962 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3963 (NAMESPACE_REF/NAMESPACE_REF.2.4 (ATN-PARSER::INDEX)3964 (ATN-PARSER:%ATN-NODE-BLOCK NAMESPACE_REF/NAMESPACE_REF.2.43965 (ATN-PARSER:%ATN-EDGE-BLOCK (TEST IRI_NAMESTRING)3966 (COND3967 ((IS-IRI_NAMESTRING3968 ATN-PARSER::|item|)3969 (SETF ATN-PARSER:*ATN-TERM*3970 'IRI_NAMESTRING)3971 (SETF IRI_NAMESTRING3972 (IF (EQ3973 ATN-PARSER:*ATN-REDUCE*3974 T)3975 (ATN-PARSER:ATN-REDUCE-ITEM3976 #'|IRI_NAMESTRING-Constructor|3977 ATN-PARSER::|item|)3978 (IF (EQ3979 ATN-PARSER:*ATN-REDUCE*3980 'CONS)3981 (LIST3982 'IRI_NAMESTRING3983 ATN-PARSER::|item|)3984 'IRI_NAMESTRING)))3985 (NAMESPACE_REF/NAMESPACE_REF.2.53986 (1+ ATN-PARSER::INDEX)))3987 (T3988 (SETF ATN-PARSER:*ATN-TERM?*3989 'IRI_NAMESTRING)3990 (NAMESPACE_REF/NAMESPACE_REF.2.53991 ATN-PARSER::INDEX))))))3992 (NAMESPACE_REF/NAMESPACE_REF.2.5 (ATN-PARSER::INDEX)3993 (ATN-PARSER:%ATN-NODE-BLOCK NAMESPACE_REF/NAMESPACE_REF.2.53994 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:>)3995 (COND3996 ((EQ ATN-PARSER::|item|3997 'SPOCQ.S:>)3998 (SETF ATN-PARSER:*ATN-TERM*3999 'SPOCQ.S:>)4000 (NAMESPACE_REF.24001 (1+ ATN-PARSER::INDEX)))4002 (T4003 (SETF ATN-PARSER:*ATN-TERM?*4004 'SPOCQ.S:>)4005 (|NAMESPACE_REF/fail.3|4006 ATN-PARSER::INDEX))))))4007 (|NAMESPACE_REF/start.1| (ATN-PARSER::INDEX)4008 (ATN-PARSER:%ATN-NODE-BLOCK |NAMESPACE_REF/start.1|4009 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:<)4010 (COND4011 ((EQ ATN-PARSER::|item|4012 'SPOCQ.S:<)4013 (SETF ATN-PARSER:*ATN-TERM*4014 'SPOCQ.S:<)4015 (NAMESPACE_REF/NAMESPACE_REF.2.44016 (1+ ATN-PARSER::INDEX)))4017 (T4018 (SETF ATN-PARSER:*ATN-TERM?*4019 'SPOCQ.S:<)4020 (|NAMESPACE_REF/fail.3|4021 ATN-PARSER::INDEX)))))))4022 (|NAMESPACE_REF/start.1| ATN-PARSER::INDEX)4023 (SETF ATN-PARSER:*ATN-NODE NIL)4024 NIL4025 (IF ATN-PARSER::ATN-STRUCTURE4026 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4027 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))4028 (WARN "recursive grammar: ~s @ position ~s: ~s" 'NAMESPACE_REF ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))4029 (PROGN4030 (DEFVAR ANON-INDEX)4031 (DEFUN ANON (ATN-PARSER::INDEX &AUX)4032 "{152} ANON ::= '[' ']'4033 NIL"4034 (DECLARE (SPECIAL ANON-INDEX))4035 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX ANON-INDEX ATN-PARSER:*ATN-LEVEL))4036 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4037 (IF (< ANON-INDEX ATN-PARSER::INDEX)4038 (LET ((ANON-INDEX ATN-PARSER::INDEX)4039 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))4040 (ATN-PARSER:*ATN-STACK (CONS 'ANON ATN-PARSER:*ATN-STACK))4041 (ATN-PARSER::ATN-STRUCTURE NIL))4042 (DECLARE (SPECIAL ANON-INDEX))4043 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))4044 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))4045 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4046 (ATN-PARSER:%ATN-BLOCK ANON4047 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4048 (SETF ATN-PARSER:*ATN-TERM* 'ANON)4049 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4050 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)4051 ATN-PARSER::INDEX)4052 (ANON.2 (ATN-PARSER::INDEX)4053 (ATN-PARSER:%ATN-NODE-BLOCK ANON.24054 (ATN-PARSER:%ATN-EDGE-BLOCK (POP ANON)4055 (WHEN T4056 (SETF ATN-PARSER:*ATN-TERM*4057 'ANON)4058 (ATN-PARSER:%ATN-TRACE4059 " [***/~a @ ~s reduce structure: ~a"4060 'ANON ATN-PARSER::INDEX4061 (LIST))4062 (LET ((ATN-PARSER::RESULT-STRUCTURE4063 (IF (EQ4064 ATN-PARSER:*ATN-REDUCE*4065 T)4066 (|ANON-Constructor|)4067 (IF (EQ4068 ATN-PARSER:*ATN-REDUCE*4069 'CONS)4070 (CONS 'ANON4071 (DELETE4072 NIL4073 (LIST)))4074 'ANON))))4075 (ATN-PARSER::SUCCEED4076 ATN-PARSER::INDEX4077 ATN-PARSER::RESULT-STRUCTURE))))))4078 (ANON/ANON.2.4 (ATN-PARSER::INDEX)4079 (ATN-PARSER:%ATN-NODE-BLOCK ANON/ANON.2.44080 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:])4081 (COND4082 ((EQ ATN-PARSER::|item|4083 'SPOCQ.S:])4084 (SETF ATN-PARSER:*ATN-TERM*4085 'SPOCQ.S:])4086 (ANON.24087 (1+ ATN-PARSER::INDEX)))4088 (T4089 (SETF ATN-PARSER:*ATN-TERM?*4090 'SPOCQ.S:])4091 (|ANON/fail.3|4092 ATN-PARSER::INDEX))))))4093 (|ANON/fail.3| (ATN-PARSER::INDEX)4094 (ATN-PARSER:%ATN-NODE-BLOCK |ANON/fail.3|4095 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4096 (|ANON/start.1| (ATN-PARSER::INDEX)4097 (ATN-PARSER:%ATN-NODE-BLOCK |ANON/start.1|4098 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:[)4099 (COND4100 ((EQ ATN-PARSER::|item|4101 'SPOCQ.S:[)4102 (SETF ATN-PARSER:*ATN-TERM*4103 'SPOCQ.S:[)4104 (ANON/ANON.2.44105 (1+ ATN-PARSER::INDEX)))4106 (T4107 (SETF ATN-PARSER:*ATN-TERM?*4108 'SPOCQ.S:[)4109 (|ANON/fail.3|4110 ATN-PARSER::INDEX)))))))4111 (|ANON/start.1| ATN-PARSER::INDEX)4112 (SETF ATN-PARSER:*ATN-NODE NIL)4113 NIL4114 (IF ATN-PARSER::ATN-STRUCTURE4115 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4116 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))4117 (WARN "recursive grammar: ~s @ position ~s: ~s" 'ANON ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))4118 (SETF (GET '|turtleDoc| :PRODUCTION) "4119 {1 } turtleDoc ::= statement*")4120 (SETF (GET '|statement| :PRODUCTION) "4121 {2 } statement ::= (directive | (triples '.'))")4122 (SETF (GET '|directive| :PRODUCTION) "4123 {3 } directive ::= (prefixID | base | BaseDecl | PrefixDecl)")4124 (SETF (GET '|prefixID| :PRODUCTION) "4125 {4 } prefixID ::= '@prefix' PNAME_NS NAMESPACE_REF '.'")4126 (SETF (GET '|base| :PRODUCTION) "4127 {5 } base ::= '@base' NAMESPACE_REF '.'")4128 (SETF (GET '|BaseDecl| :PRODUCTION) "4129 {5s} BaseDecl ::= 'BASE' NAMESPACE_REF")4130 (SETF (GET '|PrefixDecl| :PRODUCTION) "4131 {6s} PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF")4132 (SETF (GET '|triples| :PRODUCTION) "4133 {6 } triples ::= ((subject PropertyListNotEmpty) | (BlankNodePropertyList4134 PropertyListNotEmpty?))")4135 (SETF (GET '|objectList| :PRODUCTION) "4136 {8 } objectList ::= object (',' object)*")4137 (SETF (GET '|verb| :PRODUCTION) "4138 {9 } verb ::= (predicate | 'a')")4139 (SETF (GET '|subject| :PRODUCTION) "4140 {10} subject ::= (iri | BlankNode | collection | group)")4141 (SETF (GET '|group| :PRODUCTION) "4142 {10a} group ::= (('{' triplesList '}') | ('<<' subject verb object '>>'))")4143 (SETF (GET '|triplesList| :PRODUCTION) "4144 {10b} triplesList ::= triples ('.' triplesList)?")4145 (SETF (GET '|predicate| :PRODUCTION) "4146 {11} predicate ::= iri")4147 (SETF (GET '|object| :PRODUCTION) "4148 {12} object ::= (iri | BlankNode | collection | BlankNodePropertyList | literal)")4149 (SETF (GET '|literal| :PRODUCTION) "4150 {13} literal ::= (RDFLiteral | NumericLiteral | BooleanLiteral)")4151 (SETF (GET '|BlankNodePropertyList| :PRODUCTION) "4152 {14} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'")4153 (SETF (GET '|collection| :PRODUCTION) "4154 {15} collection ::= '(' object* ')'")4155 (SETF (GET '|RDFLiteral| :PRODUCTION) "4156 {128s} RDFLiteral ::= String ((LANGTAG | ('^^' iri)))?")4157 (SETF (GET '|iri| :PRODUCTION) "4158 {135s} iri ::= (IRI_REF | PrefixedName)")4159 (SETF (GET '|BlankNode| :PRODUCTION) "4160 {137s} BlankNode ::= (('_:' BLANK_NODE_LABEL) | ANON)")4161 (SETF (GET '|PropertyListNotEmpty| :PRODUCTION) "4162 {72} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*")4163 (SETF (GET '|VerbObjectList| :PRODUCTION) "4164 {72a} VerbObjectList ::= verb objectList")4165 (SETF (GET 'IRI_REF :PRODUCTION) "4166 {128} IRI_REF ::= '<' IRI_NAMESTRING? '>'")4167 (SETF (GET 'NAMESPACE_REF :PRODUCTION) "4168 {128a} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'")4169 (SETF (GET 'ANON :PRODUCTION) "4170 {152} ANON ::= '[' ']'")4171 (DEFUN |turtleDoc-Parser|4172 (ATN-PARSER::*ATN-INPUT4173 &KEY ((:TRACE ATN-PARSER:*ATN-TRACE*) ATN-PARSER:*ATN-TRACE*)4174 ((:TRACE-NETS ATN-PARSER:*ATN-TRACE-NETS*) ATN-PARSER:*ATN-TRACE-NETS*)4175 ((:START-NAME ATN-PARSER::*ATN-START-NAME) '|turtleDoc|) ((:MODE ATN-PARSER::*ATN-MODE) :MULTIPLE)4176 ((:REDUCE ATN-PARSER:*ATN-REDUCE*) T) ((:REGISTER-WORDS ATN-PARSER:*ATN-REGISTER-WORDS) NIL)4177 (ATN-PARSER::ATN-WFST (MAKE-ARRAY 8 :ADJUSTABLE T :ELEMENT-TYPE 'LIST :INITIAL-ELEMENT NIL) ATN-PARSER::AW-S)4178 &ALLOW-OTHER-KEYS4179 &AUX)4180 "// generated 2020.09.05T18:53:50.4181 4182 [[1]] turtleDoc ::= statement*4183 [[2]] statement ::= directive | ( triples '.' )4184 [[3]] directive ::= prefixID | base | BaseDecl | PrefixDecl4185 [[4]] prefixID ::= '@prefix' PNAME_NS NAMESPACE_REF '.'4186 [[5]] base ::= '@base' NAMESPACE_REF '.'4187 [[5s]] BaseDecl ::= 'BASE' NAMESPACE_REF4188 [[6s]] PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF4189 [[6]] triples ::= ( subject PropertyListNotEmpty ) | ( BlankNodePropertyList PropertyListNotEmpty? )4190 //[[7]] PropertyListNotEmpty ::= verb objectList (';' (verb objectList)?)*4191 [[8]] objectList ::= object (',' object)*4192 [[9]] verb ::= predicate | 'a'4193 //[[10]] subject ::= iri | BlankNode | collection4194 [[10]] subject ::= iri | BlankNode | collection | group4195 [[10a]] group ::= ( '{' triplesList '}' ) | ( '<<' subject verb object '>>' )4196 [[10b]] triplesList ::= triples ( '.' triplesList )? // final '.' is present in [[2]]4197 [[11]] predicate ::= iri4198 [[12]] object ::= iri | BlankNode | collection | BlankNodePropertyList | literal4199 [[13]] literal ::= RDFLiteral | NumericLiteral | BooleanLiteral4200 [[14]] BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'4201 [[15]] collection ::= '(' object* ')'4202 //[16]] NumericLiteral ::= INTEGER | DECIMAL | DOUBLE4203 [[128s]] RDFLiteral ::= String (LANGTAG | ( '^^' iri ))?4204 [[133s]] BooleanLiteral ::= 'true' | 'false'4205 //[17]] String ::= STRING_LITERAL_QUOTE | STRING_LITERAL_SINGLE_QUOTE | STRING_LITERAL_LONG_SINGLE_QUOTE | STRING_LITERAL_LONG_QUOTE4206 [[135s]] iri ::= IRI_REF | PrefixedName4207 [[136s]] PrefixedName ::= PNAME_LN | PNAME_NS4208 [[137s]] BlankNode ::= ( '_:' BLANK_NODE_LABEL) | ANON4209 4210 // from sparql4211 [[72]] PropertyListNotEmpty ::= VerbObjectList ( ';' VerbObjectList? )* 4212 [[72a]] VerbObjectList ::= verb objectList4213 [[119]] NumericLiteral ::= NumericLiteralUnsigned | NumericLiteralPositive | NumericLiteralNegative4214 [[120]] NumericLiteralUnsigned ::= INTEGER | DECIMAL | DOUBLE4215 [[121]] NumericLiteralPositive ::= INTEGER_POSITIVE | DECIMAL_POSITIVE | DOUBLE_POSITIVE4216 [[122]] NumericLiteralNegative ::= INTEGER_NEGATIVE | DECIMAL_NEGATIVE | DOUBLE_NEGATIVE4217 [[124]] String ::= STRING_LITERAL1 | STRING_LITERAL2 | STRING_LITERAL_LONG1 | STRING_LITERAL_LONG24218 [[128]] IRI_REF ::= '<' IRI_NAMESTRING? '>'4219 [[128a]] NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'4220 [[152]] ANON ::= '[' ']'4221 4222 "4223 (DECLARE (SPECIAL ATN-PARSER:*ATN-REDUCE* ATN-PARSER::*ATN-MODE ATN-PARSER::*ATN-INPUT))4224 (WHEN ATN-PARSER::AW-S (ATN-PARSER:|wfst-initialize| ATN-PARSER::ATN-WFST))4225 (LET ((ATN-PARSER:*ATN-LEVEL 0)4226 (ATN-PARSER:*ATN-WFST ATN-PARSER::ATN-WFST)4227 (ATN-PARSER:*ATN-STACK '(|turtleDoc-Parser|))4228 (ATN-PARSER:*ATN-NODE NIL)4229 (ATN-PARSER:*ATN-PROPERTIES NIL)4230 (ATN-PARSER:*ATN-CLASS NIL)4231 (|turtleDoc-INDEX| -1)4232 (|statement-INDEX| -1)4233 (|directive-INDEX| -1)4234 (|prefixID-INDEX| -1)4235 (|base-INDEX| -1)4236 (|BaseDecl-INDEX| -1)4237 (|PrefixDecl-INDEX| -1)4238 (|triples-INDEX| -1)4239 (|objectList-INDEX| -1)4240 (|verb-INDEX| -1)4241 (|subject-INDEX| -1)4242 (|group-INDEX| -1)4243 (|triplesList-INDEX| -1)4244 (|predicate-INDEX| -1)4245 (|object-INDEX| -1)4246 (|literal-INDEX| -1)4247 (|BlankNodePropertyList-INDEX| -1)4248 (|collection-INDEX| -1)4249 (|RDFLiteral-INDEX| -1)4250 (|iri-INDEX| -1)4251 (|BlankNode-INDEX| -1)4252 (|PropertyListNotEmpty-INDEX| -1)4253 (|VerbObjectList-INDEX| -1)4254 (IRI_REF-INDEX -1)4255 (NAMESPACE_REF-INDEX -1)4256 (ANON-INDEX -1)4257 (ATN-PARSER::ATN-NET-NAMES4258 '(|turtleDoc| |statement| |directive| |prefixID| |base| |BaseDecl| |PrefixDecl| |triples| |objectList| |verb| |subject|4259 |group| |triplesList| |predicate| |object| |literal| |BlankNodePropertyList| |collection| |RDFLiteral| |iri| |BlankNode|4260 |PropertyListNotEmpty| |VerbObjectList| IRI_REF NAMESPACE_REF ANON)))4261 (DECLARE4262 (SPECIAL |turtleDoc-INDEX| |statement-INDEX| |directive-INDEX| |prefixID-INDEX| |base-INDEX| |BaseDecl-INDEX|4263 |PrefixDecl-INDEX| |triples-INDEX| |objectList-INDEX| |verb-INDEX| |subject-INDEX| |group-INDEX| |triplesList-INDEX|4264 |predicate-INDEX| |object-INDEX| |literal-INDEX| |BlankNodePropertyList-INDEX| |collection-INDEX| |RDFLiteral-INDEX|4265 |iri-INDEX| |BlankNode-INDEX| |PropertyListNotEmpty-INDEX| |VerbObjectList-INDEX| IRI_REF-INDEX NAMESPACE_REF-INDEX4266 ANON-INDEX))4267 (UNLESS (FIND ATN-PARSER::*ATN-START-NAME ATN-PARSER::ATN-NET-NAMES)4268 (ERROR "production not defined in system: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|turtleDoc-Parser|))4269 (UNLESS (FBOUNDP ATN-PARSER::*ATN-START-NAME)4270 (ERROR "parse function missing: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|turtleDoc-Parser|))4271 (HANDLER-BIND ((ATN-PARSER:CONTINUABLE-PARSER-ERROR #'(LAMBDA (CONDITION) (SIGNAL CONDITION)))4272 (ATN-PARSER:TERMINAL-PARSER-ERROR4273 #'(LAMBDA (CONDITION &AUX (ATN-PARSER::ACTION (ATN-PARSER:CONDITION-ACTION CONDITION)))4274 (ETYPECASE ATN-PARSER::ACTION4275 (NULL)4276 (KEYWORD4277 (ECASE ATN-PARSER::ACTION4278 (:ABORT4279 (WHEN ATN-PARSER:*ATN-TRACE*4280 (WARN "terminating parse on condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))4281 (RETURN-FROM |turtleDoc-Parser| (VALUES NIL CONDITION NIL)))4282 (:CONTINUE4283 (WHEN ATN-PARSER:*ATN-TRACE*4284 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))4285 (CONTINUE CONDITION))4286 (:SIGNAL4287 (WHEN ATN-PARSER:*ATN-TRACE*4288 (WARN "signaling parse condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))4289 (SIGNAL CONDITION)4290 (WHEN ATN-PARSER:*ATN-TRACE*4291 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))4292 (CONTINUE CONDITION))))4293 (FUNCTION (FUNCALL ATN-PARSER::ACTION)))))4294 (ERROR #'(LAMBDA (CONDITION) (WHEN ATN-PARSER:*ATN-TRACE* (WARN "parse raised condition: ~a." CONDITION)) NIL)))4295 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4296 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE* ATN-PARSER::*ATN-START-NAME 0)4297 (COND4298 (ATN-PARSER::SUCCESS4299 (RETURN-FROM |turtleDoc-Parser|4300 (PROGN4301 (WHEN (CDR ATN-PARSER::RESULT)4302 (WHEN ATN-PARSER:*ATN-TRACE* (WARN "ambiguous results for term: ~s." ATN-PARSER::*ATN-START-NAME))4303 (SETF ATN-PARSER::RESULT (SORT ATN-PARSER::RESULT #'> :KEY #'REST)))4304 (DESTRUCTURING-BIND4305 (ATN-PARSER::RESULT . ATN-PARSER::INDEX)4306 (FIRST ATN-PARSER::RESULT)4307 (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX (INPUT-EOF? ATN-PARSER::INDEX))))))4308 (T (RETURN-FROM |turtleDoc-Parser| (VALUES NIL (REDUCE #'MAX ATN-PARSER::RESULT :KEY #'REST :INITIAL-VALUE 0) NIL))))))))