| Kind | Covered | All | % |
| expression | 933 | 1646 | 56.7 |
| branch | 34 | 120 | 28.3 |
1 2 (IN-PACKAGE "ORG.DATAGRAPH.NQUADS") 3 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteral|)) 4 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralUnsigned|)) 5 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralPositive|)) 6 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralNegative|)) 7 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-String|)) 8 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BooleanLiteral|)) 9 (DECLAIM (FTYPE (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES T T T)) |nquadsDoc-Parser|)) 10 (DEFUN |IS-NumericLiteral| (ATN-PARSER::ITEM)11 (ATN-PARSER:%ATN-TRACE-FORM12 (AND ATN-PARSER::ITEM13 (OR (|IS-NumericLiteralUnsigned| ATN-PARSER::ITEM) (|IS-NumericLiteralPositive| ATN-PARSER::ITEM)14 (|IS-NumericLiteralNegative| ATN-PARSER::ITEM)))))15 (DEFUN |IS-NumericLiteralUnsigned| (ATN-PARSER::ITEM)16 (ATN-PARSER:%ATN-TRACE-FORM17 (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM) (IS-DECIMAL ATN-PARSER::ITEM) (IS-DOUBLE ATN-PARSER::ITEM)))))18 (DEFUN |IS-NumericLiteralPositive| (ATN-PARSER::ITEM)19 (ATN-PARSER:%ATN-TRACE-FORM20 (AND ATN-PARSER::ITEM21 (OR (IS-INTEGER_POSITIVE ATN-PARSER::ITEM) (IS-DECIMAL_POSITIVE ATN-PARSER::ITEM) (IS-DOUBLE_POSITIVE ATN-PARSER::ITEM)))))22 (DEFUN |IS-NumericLiteralNegative| (ATN-PARSER::ITEM)23 (ATN-PARSER:%ATN-TRACE-FORM24 (AND ATN-PARSER::ITEM25 (OR (IS-INTEGER_NEGATIVE ATN-PARSER::ITEM) (IS-DECIMAL_NEGATIVE ATN-PARSER::ITEM) (IS-DOUBLE_NEGATIVE ATN-PARSER::ITEM)))))26 (DEFUN |IS-String| (ATN-PARSER::ITEM)27 (ATN-PARSER:%ATN-TRACE-FORM28 (AND ATN-PARSER::ITEM29 (OR (IS-STRING_LITERAL1 ATN-PARSER::ITEM) (IS-STRING_LITERAL2 ATN-PARSER::ITEM) (IS-STRING_LITERAL_LONG1 ATN-PARSER::ITEM)30 (IS-STRING_LITERAL_LONG2 ATN-PARSER::ITEM)))))31 (DEFUN |IS-BooleanLiteral| (ATN-PARSER::ITEM)32 (ATN-PARSER:%ATN-TRACE-FORM33 (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:|true|) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|false|)))))34 (PROGN35 (DEFVAR |nquadsDoc-INDEX|)36 (DEFUN |nquadsDoc| (ATN-PARSER::INDEX &AUX (|statement| NIL))37 "{1 } nquadsDoc ::= statement*38 (|statement|)"39 (DECLARE (SPECIAL |nquadsDoc-INDEX|))40 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |nquadsDoc-INDEX| ATN-PARSER:*ATN-LEVEL))41 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))42 (IF (< |nquadsDoc-INDEX| ATN-PARSER::INDEX)43 (LET ((|nquadsDoc-INDEX| ATN-PARSER::INDEX)44 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))45 (ATN-PARSER:*ATN-STACK (CONS '|nquadsDoc| ATN-PARSER:*ATN-STACK))46 (ATN-PARSER::ATN-STRUCTURE NIL))47 (DECLARE (SPECIAL |nquadsDoc-INDEX|))48 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))49 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))50 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))51 (ATN-PARSER:%ATN-BLOCK |nquadsDoc|52 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)53 (SETF ATN-PARSER:*ATN-TERM* '|nquadsDoc|)54 (WHEN (INPUT-EOF? ATN-PARSER::INDEX)55 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE)))56 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)57 ATN-PARSER::INDEX)58 (|nquadsDoc.2| (ATN-PARSER::INDEX)59 (ATN-PARSER:%ATN-NODE-BLOCK |nquadsDoc.2|60 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |nquadsDoc|)61 (WHEN T62 (SETF ATN-PARSER:*ATN-TERM*63 '|nquadsDoc|)64 (ATN-PARSER:%ATN-TRACE65 " [***/~a @ ~s reduce structure: ~a"66 '|nquadsDoc|67 ATN-PARSER::INDEX68 (LIST '|statement|69 |statement|))70 (LET ((ATN-PARSER::RESULT-STRUCTURE71 (IF (EQ72 ATN-PARSER:*ATN-REDUCE*73 T)74 (|nquadsDoc-Constructor|75 |statement|)76 (IF (EQ77 ATN-PARSER:*ATN-REDUCE*78 'CONS)79 (CONS80 '|nquadsDoc|81 (DELETE NIL82 (LIST83 |statement|)))84 '|nquadsDoc|))))85 (ATN-PARSER::SUCCEED86 ATN-PARSER::INDEX87 ATN-PARSER::RESULT-STRUCTURE))))))88 (|nquadsDoc.4| (ATN-PARSER::INDEX)89 (ATN-PARSER:%ATN-NODE-BLOCK |nquadsDoc.4|90 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |statement|)91 (MULTIPLE-VALUE-BIND92 (ATN-PARSER::RESULT93 ATN-PARSER::SUCCESS)94 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*95 '|statement|96 ATN-PARSER::INDEX)97 (COND98 (ATN-PARSER::SUCCESS99 (SETF ATN-PARSER:*ATN-TERM*100 '|statement|)101 (LET ((|statement237|102 |statement|))103 (DOLIST104 (ATN-PARSER::RESULT-AND-INDEX105 ATN-PARSER::RESULT)106 (DESTRUCTURING-BIND107 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)108 ATN-PARSER::RESULT-AND-INDEX109 (WHEN110 ATN-PARSER::RESULT111 (SETF |statement|112 (CONS113 ATN-PARSER::RESULT114 |statement|)))115 (|nquadsDoc.4|116 ATN-PARSER::RESULT-INDEX))117 (SETF |statement|118 |statement237|))))119 (T120 (SETF ATN-PARSER:*ATN-TERM?*121 '|statement|)122 (|nquadsDoc.2|123 ATN-PARSER::INDEX)))))))124 (|nquadsDoc/fail.3| (ATN-PARSER::INDEX)125 (ATN-PARSER:%ATN-NODE-BLOCK |nquadsDoc/fail.3|126 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))127 (|nquadsDoc/start.1| (ATN-PARSER::INDEX)128 (ATN-PARSER:%ATN-NODE-BLOCK |nquadsDoc/start.1|129 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |statement|)130 (MULTIPLE-VALUE-BIND131 (ATN-PARSER::RESULT132 ATN-PARSER::SUCCESS)133 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*134 '|statement|135 ATN-PARSER::INDEX)136 (COND137 (ATN-PARSER::SUCCESS138 (SETF ATN-PARSER:*ATN-TERM*139 '|statement|)140 (LET ((|statement236|141 |statement|))142 (DOLIST143 (ATN-PARSER::RESULT-AND-INDEX144 ATN-PARSER::RESULT)145 (DESTRUCTURING-BIND146 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)147 ATN-PARSER::RESULT-AND-INDEX148 (WHEN149 ATN-PARSER::RESULT150 (SETF |statement|151 (CONS152 ATN-PARSER::RESULT153 |statement|)))154 (|nquadsDoc.4|155 ATN-PARSER::RESULT-INDEX))156 (SETF |statement|157 |statement236|))))158 (T159 (SETF ATN-PARSER:*ATN-TERM?*160 '|statement|)161 (|nquadsDoc.2|162 ATN-PARSER::INDEX))))))))163 (|nquadsDoc/start.1| ATN-PARSER::INDEX)164 (SETF ATN-PARSER:*ATN-NODE NIL)165 NIL166 (IF ATN-PARSER::ATN-STRUCTURE167 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)168 (VALUES `((,NIL ,@ATN-PARSER::INDEX)) NIL NIL))))))169 (WARN "recursive grammar: ~s @ position ~s: ~s" '|nquadsDoc| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))170 (PROGN171 (DEFVAR |statement-INDEX|)172 (DEFUN |statement| (ATN-PARSER::INDEX &AUX (|graph| NIL) (|object| NIL) (|predicate| NIL) (|subject| NIL))173 "{2 } statement ::= subject predicate object graph? '.'174 (|graph| |object| |predicate| |subject|)"175 (DECLARE (SPECIAL |statement-INDEX|))176 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |statement-INDEX| ATN-PARSER:*ATN-LEVEL))177 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))178 (IF (< |statement-INDEX| ATN-PARSER::INDEX)179 (LET ((|statement-INDEX| ATN-PARSER::INDEX)180 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))181 (ATN-PARSER:*ATN-STACK (CONS '|statement| ATN-PARSER:*ATN-STACK))182 (ATN-PARSER::ATN-STRUCTURE NIL))183 (DECLARE (SPECIAL |statement-INDEX|))184 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))185 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))186 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))187 (ATN-PARSER:%ATN-BLOCK |statement|188 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)189 (SETF ATN-PARSER:*ATN-TERM* '|statement|)190 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))191 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)192 ATN-PARSER::INDEX)193 (|statement.2| (ATN-PARSER::INDEX)194 (ATN-PARSER:%ATN-NODE-BLOCK |statement.2|195 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |statement|)196 (WHEN T197 (SETF ATN-PARSER:*ATN-TERM*198 '|statement|)199 (ATN-PARSER:%ATN-TRACE200 " [***/~a @ ~s reduce structure: ~a"201 '|statement|202 ATN-PARSER::INDEX203 (LIST '|graph| |graph|204 '|object| |object|205 '|predicate|206 |predicate|207 '|subject|208 |subject|))209 (LET ((ATN-PARSER::RESULT-STRUCTURE210 (IF (EQ211 ATN-PARSER:*ATN-REDUCE*212 T)213 (|statement-Constructor|214 |graph| |object|215 |predicate|216 |subject|)217 (IF (EQ218 ATN-PARSER:*ATN-REDUCE*219 'CONS)220 (CONS221 '|statement|222 (DELETE NIL223 (LIST224 |graph|225 |object|226 |predicate|227 |subject|)))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 (PUSH |subject|)238 (MULTIPLE-VALUE-BIND239 (ATN-PARSER::RESULT240 ATN-PARSER::SUCCESS)241 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*242 '|subject|243 ATN-PARSER::INDEX)244 (COND245 (ATN-PARSER::SUCCESS246 (SETF ATN-PARSER:*ATN-TERM*247 '|subject|)248 (LET ((|subject241|249 |subject|))250 (DOLIST251 (ATN-PARSER::RESULT-AND-INDEX252 ATN-PARSER::RESULT)253 (DESTRUCTURING-BIND254 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)255 ATN-PARSER::RESULT-AND-INDEX256 (WHEN257 ATN-PARSER::RESULT258 (SETF |subject|259 ATN-PARSER::RESULT))260 (|statement/statement.2.4|261 ATN-PARSER::RESULT-INDEX))262 (SETF |subject|263 |subject241|))))264 (T265 (SETF ATN-PARSER:*ATN-TERM?*266 '|subject|)267 (|statement/fail.3|268 ATN-PARSER::INDEX)))))))269 (|statement/statement.2.4| (ATN-PARSER::INDEX)270 (ATN-PARSER:%ATN-NODE-BLOCK |statement/statement.2.4|271 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |predicate|)272 (MULTIPLE-VALUE-BIND273 (ATN-PARSER::RESULT274 ATN-PARSER::SUCCESS)275 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*276 '|predicate|277 ATN-PARSER::INDEX)278 (COND279 (ATN-PARSER::SUCCESS280 (SETF ATN-PARSER:*ATN-TERM*281 '|predicate|)282 (LET ((|predicate240|283 |predicate|))284 (DOLIST285 (ATN-PARSER::RESULT-AND-INDEX286 ATN-PARSER::RESULT)287 (DESTRUCTURING-BIND288 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)289 ATN-PARSER::RESULT-AND-INDEX290 (WHEN291 ATN-PARSER::RESULT292 (SETF |predicate|293 ATN-PARSER::RESULT))294 (|statement/statement.2.5|295 ATN-PARSER::RESULT-INDEX))296 (SETF |predicate|297 |predicate240|))))298 (T299 (SETF ATN-PARSER:*ATN-TERM?*300 '|predicate|)301 (|statement/fail.3|302 ATN-PARSER::INDEX)))))))303 (|statement/statement.2.5| (ATN-PARSER::INDEX)304 (ATN-PARSER:%ATN-NODE-BLOCK |statement/statement.2.5|305 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |object|)306 (MULTIPLE-VALUE-BIND307 (ATN-PARSER::RESULT308 ATN-PARSER::SUCCESS)309 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*310 '|object|311 ATN-PARSER::INDEX)312 (COND313 (ATN-PARSER::SUCCESS314 (SETF ATN-PARSER:*ATN-TERM*315 '|object|)316 (LET ((|object239|317 |object|))318 (DOLIST319 (ATN-PARSER::RESULT-AND-INDEX320 ATN-PARSER::RESULT)321 (DESTRUCTURING-BIND322 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)323 ATN-PARSER::RESULT-AND-INDEX324 (WHEN325 ATN-PARSER::RESULT326 (SETF |object|327 ATN-PARSER::RESULT))328 (|statement/statement.2.6|329 ATN-PARSER::RESULT-INDEX))330 (SETF |object|331 |object239|))))332 (T333 (SETF ATN-PARSER:*ATN-TERM?*334 '|object|)335 (|statement/fail.3|336 ATN-PARSER::INDEX)))))))337 (|statement/statement.2.6| (ATN-PARSER::INDEX)338 (ATN-PARSER:%ATN-NODE-BLOCK |statement/statement.2.6|339 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |graph|)340 (MULTIPLE-VALUE-BIND341 (ATN-PARSER::RESULT342 ATN-PARSER::SUCCESS)343 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*344 '|graph|345 ATN-PARSER::INDEX)346 (COND347 (ATN-PARSER::SUCCESS348 (SETF ATN-PARSER:*ATN-TERM*349 '|graph|)350 (LET ((|graph238| |graph|))351 (DOLIST352 (ATN-PARSER::RESULT-AND-INDEX353 ATN-PARSER::RESULT)354 (DESTRUCTURING-BIND355 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)356 ATN-PARSER::RESULT-AND-INDEX357 (WHEN358 ATN-PARSER::RESULT359 (SETF |graph|360 ATN-PARSER::RESULT))361 (|statement/statement.2.7|362 ATN-PARSER::RESULT-INDEX))363 (SETF |graph|364 |graph238|))))365 (T366 (SETF ATN-PARSER:*ATN-TERM?*367 '|graph|)368 (|statement/statement.2.7|369 ATN-PARSER::INDEX)))))))370 (|statement/statement.2.7| (ATN-PARSER::INDEX)371 (ATN-PARSER:%ATN-NODE-BLOCK |statement/statement.2.7|372 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)373 (COND374 ((EQ ATN-PARSER::|item|375 'SPOCQ.S:|.|)376 (SETF ATN-PARSER:*ATN-TERM*377 'SPOCQ.S:|.|)378 (|statement.2|379 (1+ ATN-PARSER::INDEX)))380 (T381 (SETF ATN-PARSER:*ATN-TERM?*382 'SPOCQ.S:|.|)383 (|statement/fail.3|384 ATN-PARSER::INDEX)))))))385 (|statement/start.1| ATN-PARSER::INDEX)386 (SETF ATN-PARSER:*ATN-NODE NIL)387 NIL388 (IF ATN-PARSER::ATN-STRUCTURE389 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)390 (VALUES `((,NIL ,@ATN-PARSER::INDEX)) NIL NIL))))))391 (WARN "recursive grammar: ~s @ position ~s: ~s" '|statement| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))392 (PROGN393 (DEFVAR |subject-INDEX|)394 (DEFUN |subject| (ATN-PARSER::INDEX &AUX (|BlankNode| NIL) (|iri| NIL))395 "{10} subject ::= (iri | BlankNode)396 (|BlankNode| |iri|)"397 (DECLARE (SPECIAL |subject-INDEX|))398 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |subject-INDEX| ATN-PARSER:*ATN-LEVEL))399 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))400 (IF (< |subject-INDEX| ATN-PARSER::INDEX)401 (LET ((|subject-INDEX| ATN-PARSER::INDEX)402 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))403 (ATN-PARSER:*ATN-STACK (CONS '|subject| ATN-PARSER:*ATN-STACK))404 (ATN-PARSER::ATN-STRUCTURE NIL))405 (DECLARE (SPECIAL |subject-INDEX|))406 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))407 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))408 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))409 (ATN-PARSER:%ATN-BLOCK |subject|410 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)411 (SETF ATN-PARSER:*ATN-TERM* '|subject|)412 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))413 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)414 ATN-PARSER::INDEX)415 (|subject.2| (ATN-PARSER::INDEX)416 (ATN-PARSER:%ATN-NODE-BLOCK |subject.2|417 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |subject|)418 (WHEN T419 (SETF ATN-PARSER:*ATN-TERM*420 '|subject|)421 (ATN-PARSER:%ATN-TRACE422 " [***/~a @ ~s reduce structure: ~a"423 '|subject|424 ATN-PARSER::INDEX425 (LIST '|BlankNode|426 |BlankNode| '|iri|427 |iri|))428 (LET ((ATN-PARSER::RESULT-STRUCTURE429 (IF (EQ430 ATN-PARSER:*ATN-REDUCE*431 T)432 (|subject-Constructor|433 |BlankNode|434 |iri|)435 (IF (EQ436 ATN-PARSER:*ATN-REDUCE*437 'CONS)438 (CONS439 '|subject|440 (DELETE NIL441 (LIST442 |BlankNode|443 |iri|)))444 '|subject|))))445 (ATN-PARSER::SUCCEED446 ATN-PARSER::INDEX447 ATN-PARSER::RESULT-STRUCTURE))))))448 (|subject/fail.3| (ATN-PARSER::INDEX)449 (ATN-PARSER:%ATN-NODE-BLOCK |subject/fail.3|450 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))451 (|subject/start.1| (ATN-PARSER::INDEX)452 (ATN-PARSER:%ATN-NODE-BLOCK |subject/start.1|453 (ATN-PARSER:%ATN-EDGE-BLOCK OR454 (PROGN455 (ATN-PARSER:%ATN-EDGE-BLOCK456 (PUSH |iri|)457 (MULTIPLE-VALUE-BIND458 (ATN-PARSER::RESULT459 ATN-PARSER::SUCCESS)460 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*461 '|iri|462 ATN-PARSER::INDEX)463 (COND464 (ATN-PARSER::SUCCESS465 (SETF ATN-PARSER:*ATN-TERM*466 '|iri|)467 (LET ((|iri242| |iri|))468 (DOLIST469 (ATN-PARSER::RESULT-AND-INDEX470 ATN-PARSER::RESULT)471 (DESTRUCTURING-BIND472 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)473 ATN-PARSER::RESULT-AND-INDEX474 (WHEN475 ATN-PARSER::RESULT476 (SETF |iri|477 ATN-PARSER::RESULT))478 (|subject.2|479 ATN-PARSER::RESULT-INDEX))480 (SETF |iri|481 |iri242|))))482 (T483 (SETF ATN-PARSER:*ATN-TERM?*484 '|iri|)485 NIL))))486 (ATN-PARSER:%ATN-EDGE-BLOCK487 (PUSH |BlankNode|)488 (MULTIPLE-VALUE-BIND489 (ATN-PARSER::RESULT490 ATN-PARSER::SUCCESS)491 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*492 '|BlankNode|493 ATN-PARSER::INDEX)494 (COND495 (ATN-PARSER::SUCCESS496 (SETF ATN-PARSER:*ATN-TERM*497 '|BlankNode|)498 (LET ((|BlankNode243|499 |BlankNode|))500 (DOLIST501 (ATN-PARSER::RESULT-AND-INDEX502 ATN-PARSER::RESULT)503 (DESTRUCTURING-BIND504 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)505 ATN-PARSER::RESULT-AND-INDEX506 (WHEN507 ATN-PARSER::RESULT508 (SETF |BlankNode|509 ATN-PARSER::RESULT))510 (|subject.2|511 ATN-PARSER::RESULT-INDEX))512 (SETF |BlankNode|513 |BlankNode243|))))514 (T515 (SETF ATN-PARSER:*ATN-TERM?*516 '|BlankNode|)517 NIL))))518 (|subject/fail.3|519 ATN-PARSER::INDEX))))))520 (|subject/start.1| ATN-PARSER::INDEX)521 (SETF ATN-PARSER:*ATN-NODE NIL)522 NIL523 (IF ATN-PARSER::ATN-STRUCTURE524 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)525 (VALUES `((,NIL ,@ATN-PARSER::INDEX)) NIL NIL))))))526 (WARN "recursive grammar: ~s @ position ~s: ~s" '|subject| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))527 (PROGN528 (DEFVAR |predicate-INDEX|)529 (DEFUN |predicate| (ATN-PARSER::INDEX &AUX (|iri| NIL))530 "{11} predicate ::= iri531 (|iri|)"532 (DECLARE (SPECIAL |predicate-INDEX|))533 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |predicate-INDEX| ATN-PARSER:*ATN-LEVEL))534 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))535 (IF (< |predicate-INDEX| ATN-PARSER::INDEX)536 (LET ((|predicate-INDEX| ATN-PARSER::INDEX)537 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))538 (ATN-PARSER:*ATN-STACK (CONS '|predicate| ATN-PARSER:*ATN-STACK))539 (ATN-PARSER::ATN-STRUCTURE NIL))540 (DECLARE (SPECIAL |predicate-INDEX|))541 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))542 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))543 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))544 (ATN-PARSER:%ATN-BLOCK |predicate|545 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)546 (SETF ATN-PARSER:*ATN-TERM* '|predicate|)547 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))548 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)549 ATN-PARSER::INDEX)550 (|predicate.2| (ATN-PARSER::INDEX)551 (ATN-PARSER:%ATN-NODE-BLOCK |predicate.2|552 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |predicate|)553 (WHEN T554 (SETF ATN-PARSER:*ATN-TERM*555 '|predicate|)556 (ATN-PARSER:%ATN-TRACE557 " [***/~a @ ~s reduce structure: ~a"558 '|predicate|559 ATN-PARSER::INDEX560 (LIST '|iri| |iri|))561 (LET ((ATN-PARSER::RESULT-STRUCTURE562 (IF (EQ563 ATN-PARSER:*ATN-REDUCE*564 T)565 (|predicate-Constructor|566 |iri|)567 (IF (EQ568 ATN-PARSER:*ATN-REDUCE*569 'CONS)570 (CONS571 '|predicate|572 (DELETE NIL573 (LIST574 |iri|)))575 '|predicate|))))576 (ATN-PARSER::SUCCEED577 ATN-PARSER::INDEX578 ATN-PARSER::RESULT-STRUCTURE))))))579 (|predicate/fail.3| (ATN-PARSER::INDEX)580 (ATN-PARSER:%ATN-NODE-BLOCK |predicate/fail.3|581 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))582 (|predicate/start.1| (ATN-PARSER::INDEX)583 (ATN-PARSER:%ATN-NODE-BLOCK |predicate/start.1|584 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |iri|)585 (MULTIPLE-VALUE-BIND586 (ATN-PARSER::RESULT587 ATN-PARSER::SUCCESS)588 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*589 '|iri| ATN-PARSER::INDEX)590 (COND591 (ATN-PARSER::SUCCESS592 (SETF ATN-PARSER:*ATN-TERM*593 '|iri|)594 (LET ((|iri244| |iri|))595 (DOLIST596 (ATN-PARSER::RESULT-AND-INDEX597 ATN-PARSER::RESULT)598 (DESTRUCTURING-BIND599 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)600 ATN-PARSER::RESULT-AND-INDEX601 (WHEN602 ATN-PARSER::RESULT603 (SETF |iri|604 ATN-PARSER::RESULT))605 (|predicate.2|606 ATN-PARSER::RESULT-INDEX))607 (SETF |iri|608 |iri244|))))609 (T610 (SETF ATN-PARSER:*ATN-TERM?*611 '|iri|)612 (|predicate/fail.3|613 ATN-PARSER::INDEX))))))))614 (|predicate/start.1| ATN-PARSER::INDEX)615 (SETF ATN-PARSER:*ATN-NODE NIL)616 NIL617 (IF ATN-PARSER::ATN-STRUCTURE618 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)619 (VALUES `((,NIL ,@ATN-PARSER::INDEX)) NIL NIL))))))620 (WARN "recursive grammar: ~s @ position ~s: ~s" '|predicate| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))621 (PROGN622 (DEFVAR |object-INDEX|)623 (DEFUN |object| (ATN-PARSER::INDEX &AUX (|BlankNode| NIL) (|iri| NIL) (|literal| NIL))624 "{12} object ::= (iri | BlankNode | literal)625 (|BlankNode| |iri| |literal|)"626 (DECLARE (SPECIAL |object-INDEX|))627 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |object-INDEX| ATN-PARSER:*ATN-LEVEL))628 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))629 (IF (< |object-INDEX| ATN-PARSER::INDEX)630 (LET ((|object-INDEX| ATN-PARSER::INDEX)631 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))632 (ATN-PARSER:*ATN-STACK (CONS '|object| ATN-PARSER:*ATN-STACK))633 (ATN-PARSER::ATN-STRUCTURE NIL))634 (DECLARE (SPECIAL |object-INDEX|))635 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))636 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))637 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))638 (ATN-PARSER:%ATN-BLOCK |object|639 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)640 (SETF ATN-PARSER:*ATN-TERM* '|object|)641 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))642 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)643 ATN-PARSER::INDEX)644 (|object.2| (ATN-PARSER::INDEX)645 (ATN-PARSER:%ATN-NODE-BLOCK |object.2|646 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |object|)647 (WHEN T648 (SETF ATN-PARSER:*ATN-TERM*649 '|object|)650 (ATN-PARSER:%ATN-TRACE651 " [***/~a @ ~s reduce structure: ~a"652 '|object| ATN-PARSER::INDEX653 (LIST '|BlankNode|654 |BlankNode| '|iri|655 |iri| '|literal|656 |literal|))657 (LET ((ATN-PARSER::RESULT-STRUCTURE658 (IF (EQ659 ATN-PARSER:*ATN-REDUCE*660 T)661 (|object-Constructor|662 |BlankNode|663 |iri| |literal|)664 (IF (EQ665 ATN-PARSER:*ATN-REDUCE*666 'CONS)667 (CONS668 '|object|669 (DELETE NIL670 (LIST671 |BlankNode|672 |iri|673 |literal|)))674 '|object|))))675 (ATN-PARSER::SUCCEED676 ATN-PARSER::INDEX677 ATN-PARSER::RESULT-STRUCTURE))))))678 (|object/fail.3| (ATN-PARSER::INDEX)679 (ATN-PARSER:%ATN-NODE-BLOCK |object/fail.3|680 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))681 (|object/start.1| (ATN-PARSER::INDEX)682 (ATN-PARSER:%ATN-NODE-BLOCK |object/start.1|683 (ATN-PARSER:%ATN-EDGE-BLOCK OR684 (PROGN685 (ATN-PARSER:%ATN-EDGE-BLOCK686 (PUSH |iri|)687 (MULTIPLE-VALUE-BIND688 (ATN-PARSER::RESULT689 ATN-PARSER::SUCCESS)690 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*691 '|iri|692 ATN-PARSER::INDEX)693 (COND694 (ATN-PARSER::SUCCESS695 (SETF ATN-PARSER:*ATN-TERM*696 '|iri|)697 (LET ((|iri245| |iri|))698 (DOLIST699 (ATN-PARSER::RESULT-AND-INDEX700 ATN-PARSER::RESULT)701 (DESTRUCTURING-BIND702 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)703 ATN-PARSER::RESULT-AND-INDEX704 (WHEN705 ATN-PARSER::RESULT706 (SETF |iri|707 ATN-PARSER::RESULT))708 (|object.2|709 ATN-PARSER::RESULT-INDEX))710 (SETF |iri|711 |iri245|))))712 (T713 (SETF ATN-PARSER:*ATN-TERM?*714 '|iri|)715 NIL))))716 (ATN-PARSER:%ATN-EDGE-BLOCK717 (PUSH |BlankNode|)718 (MULTIPLE-VALUE-BIND719 (ATN-PARSER::RESULT720 ATN-PARSER::SUCCESS)721 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*722 '|BlankNode|723 ATN-PARSER::INDEX)724 (COND725 (ATN-PARSER::SUCCESS726 (SETF ATN-PARSER:*ATN-TERM*727 '|BlankNode|)728 (LET ((|BlankNode246|729 |BlankNode|))730 (DOLIST731 (ATN-PARSER::RESULT-AND-INDEX732 ATN-PARSER::RESULT)733 (DESTRUCTURING-BIND734 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)735 ATN-PARSER::RESULT-AND-INDEX736 (WHEN737 ATN-PARSER::RESULT738 (SETF |BlankNode|739 ATN-PARSER::RESULT))740 (|object.2|741 ATN-PARSER::RESULT-INDEX))742 (SETF |BlankNode|743 |BlankNode246|))))744 (T745 (SETF ATN-PARSER:*ATN-TERM?*746 '|BlankNode|)747 NIL))))748 (ATN-PARSER:%ATN-EDGE-BLOCK749 (PUSH |literal|)750 (MULTIPLE-VALUE-BIND751 (ATN-PARSER::RESULT752 ATN-PARSER::SUCCESS)753 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*754 '|literal|755 ATN-PARSER::INDEX)756 (COND757 (ATN-PARSER::SUCCESS758 (SETF ATN-PARSER:*ATN-TERM*759 '|literal|)760 (LET ((|literal247|761 |literal|))762 (DOLIST763 (ATN-PARSER::RESULT-AND-INDEX764 ATN-PARSER::RESULT)765 (DESTRUCTURING-BIND766 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)767 ATN-PARSER::RESULT-AND-INDEX768 (WHEN769 ATN-PARSER::RESULT770 (SETF |literal|771 ATN-PARSER::RESULT))772 (|object.2|773 ATN-PARSER::RESULT-INDEX))774 (SETF |literal|775 |literal247|))))776 (T777 (SETF ATN-PARSER:*ATN-TERM?*778 '|literal|)779 NIL))))780 (|object/fail.3|781 ATN-PARSER::INDEX))))))782 (|object/start.1| ATN-PARSER::INDEX)783 (SETF ATN-PARSER:*ATN-NODE NIL)784 NIL785 (IF ATN-PARSER::ATN-STRUCTURE786 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)787 (VALUES `((,NIL ,@ATN-PARSER::INDEX)) NIL NIL))))))788 (WARN "recursive grammar: ~s @ position ~s: ~s" '|object| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))789 (PROGN790 (DEFVAR |graph-INDEX|)791 (DEFUN |graph| (ATN-PARSER::INDEX &AUX (|BlankNode| NIL) (|iri| NIL))792 "{10} graph ::= (iri | BlankNode)793 (|BlankNode| |iri|)"794 (DECLARE (SPECIAL |graph-INDEX|))795 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |graph-INDEX| ATN-PARSER:*ATN-LEVEL))796 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))797 (IF (< |graph-INDEX| ATN-PARSER::INDEX)798 (LET ((|graph-INDEX| ATN-PARSER::INDEX)799 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))800 (ATN-PARSER:*ATN-STACK (CONS '|graph| ATN-PARSER:*ATN-STACK))801 (ATN-PARSER::ATN-STRUCTURE NIL))802 (DECLARE (SPECIAL |graph-INDEX|))803 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))804 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))805 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))806 (ATN-PARSER:%ATN-BLOCK |graph|807 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)808 (SETF ATN-PARSER:*ATN-TERM* '|graph|)809 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))810 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)811 ATN-PARSER::INDEX)812 (|graph.2| (ATN-PARSER::INDEX)813 (ATN-PARSER:%ATN-NODE-BLOCK |graph.2|814 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |graph|)815 (WHEN T816 (SETF ATN-PARSER:*ATN-TERM*817 '|graph|)818 (ATN-PARSER:%ATN-TRACE819 " [***/~a @ ~s reduce structure: ~a"820 '|graph| ATN-PARSER::INDEX821 (LIST '|BlankNode|822 |BlankNode| '|iri|823 |iri|))824 (LET ((ATN-PARSER::RESULT-STRUCTURE825 (IF (EQ826 ATN-PARSER:*ATN-REDUCE*827 T)828 (|graph-Constructor|829 |BlankNode|830 |iri|)831 (IF (EQ832 ATN-PARSER:*ATN-REDUCE*833 'CONS)834 (CONS835 '|graph|836 (DELETE NIL837 (LIST838 |BlankNode|839 |iri|)))840 '|graph|))))841 (ATN-PARSER::SUCCEED842 ATN-PARSER::INDEX843 ATN-PARSER::RESULT-STRUCTURE))))))844 (|graph/fail.3| (ATN-PARSER::INDEX)845 (ATN-PARSER:%ATN-NODE-BLOCK |graph/fail.3|846 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))847 (|graph/start.1| (ATN-PARSER::INDEX)848 (ATN-PARSER:%ATN-NODE-BLOCK |graph/start.1|849 (ATN-PARSER:%ATN-EDGE-BLOCK OR850 (PROGN851 (ATN-PARSER:%ATN-EDGE-BLOCK852 (PUSH |iri|)853 (MULTIPLE-VALUE-BIND854 (ATN-PARSER::RESULT855 ATN-PARSER::SUCCESS)856 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*857 '|iri|858 ATN-PARSER::INDEX)859 (COND860 (ATN-PARSER::SUCCESS861 (SETF ATN-PARSER:*ATN-TERM*862 '|iri|)863 (LET ((|iri248| |iri|))864 (DOLIST865 (ATN-PARSER::RESULT-AND-INDEX866 ATN-PARSER::RESULT)867 (DESTRUCTURING-BIND868 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)869 ATN-PARSER::RESULT-AND-INDEX870 (WHEN871 ATN-PARSER::RESULT872 (SETF |iri|873 ATN-PARSER::RESULT))874 (|graph.2|875 ATN-PARSER::RESULT-INDEX))876 (SETF |iri|877 |iri248|))))878 (T879 (SETF ATN-PARSER:*ATN-TERM?*880 '|iri|)881 NIL))))882 (ATN-PARSER:%ATN-EDGE-BLOCK883 (PUSH |BlankNode|)884 (MULTIPLE-VALUE-BIND885 (ATN-PARSER::RESULT886 ATN-PARSER::SUCCESS)887 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*888 '|BlankNode|889 ATN-PARSER::INDEX)890 (COND891 (ATN-PARSER::SUCCESS892 (SETF ATN-PARSER:*ATN-TERM*893 '|BlankNode|)894 (LET ((|BlankNode249|895 |BlankNode|))896 (DOLIST897 (ATN-PARSER::RESULT-AND-INDEX898 ATN-PARSER::RESULT)899 (DESTRUCTURING-BIND900 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)901 ATN-PARSER::RESULT-AND-INDEX902 (WHEN903 ATN-PARSER::RESULT904 (SETF |BlankNode|905 ATN-PARSER::RESULT))906 (|graph.2|907 ATN-PARSER::RESULT-INDEX))908 (SETF |BlankNode|909 |BlankNode249|))))910 (T911 (SETF ATN-PARSER:*ATN-TERM?*912 '|BlankNode|)913 NIL))))914 (|graph/fail.3|915 ATN-PARSER::INDEX))))))916 (|graph/start.1| ATN-PARSER::INDEX)917 (SETF ATN-PARSER:*ATN-NODE NIL)918 NIL919 (IF ATN-PARSER::ATN-STRUCTURE920 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)921 (VALUES `((,NIL ,@ATN-PARSER::INDEX)) NIL NIL))))))922 (WARN "recursive grammar: ~s @ position ~s: ~s" '|graph| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))923 (PROGN924 (DEFVAR |literal-INDEX|)925 (DEFUN |literal| (ATN-PARSER::INDEX &AUX (|BooleanLiteral| NIL) (|NumericLiteral| NIL) (|RDFLiteral| NIL))926 "{13} literal ::= (RDFLiteral | NumericLiteral | BooleanLiteral)927 (|BooleanLiteral| |NumericLiteral| |RDFLiteral|)"928 (DECLARE (SPECIAL |literal-INDEX|))929 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |literal-INDEX| ATN-PARSER:*ATN-LEVEL))930 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))931 (IF (< |literal-INDEX| ATN-PARSER::INDEX)932 (LET ((|literal-INDEX| ATN-PARSER::INDEX)933 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))934 (ATN-PARSER:*ATN-STACK (CONS '|literal| ATN-PARSER:*ATN-STACK))935 (ATN-PARSER::ATN-STRUCTURE NIL))936 (DECLARE (SPECIAL |literal-INDEX|))937 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))938 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))939 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))940 (ATN-PARSER:%ATN-BLOCK |literal|941 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)942 (SETF ATN-PARSER:*ATN-TERM* '|literal|)943 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))944 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)945 ATN-PARSER::INDEX)946 (|literal.2| (ATN-PARSER::INDEX)947 (ATN-PARSER:%ATN-NODE-BLOCK |literal.2|948 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |literal|)949 (WHEN T950 (SETF ATN-PARSER:*ATN-TERM*951 '|literal|)952 (ATN-PARSER:%ATN-TRACE953 " [***/~a @ ~s reduce structure: ~a"954 '|literal|955 ATN-PARSER::INDEX956 (LIST '|BooleanLiteral|957 |BooleanLiteral|958 '|NumericLiteral|959 |NumericLiteral|960 '|RDFLiteral|961 |RDFLiteral|))962 (LET ((ATN-PARSER::RESULT-STRUCTURE963 (IF (EQ964 ATN-PARSER:*ATN-REDUCE*965 T)966 (|literal-Constructor|967 |BooleanLiteral|968 |NumericLiteral|969 |RDFLiteral|)970 (IF (EQ971 ATN-PARSER:*ATN-REDUCE*972 'CONS)973 (CONS974 '|literal|975 (DELETE NIL976 (LIST977 |BooleanLiteral|978 |NumericLiteral|979 |RDFLiteral|)))980 '|literal|))))981 (ATN-PARSER::SUCCEED982 ATN-PARSER::INDEX983 ATN-PARSER::RESULT-STRUCTURE))))))984 (|literal/fail.3| (ATN-PARSER::INDEX)985 (ATN-PARSER:%ATN-NODE-BLOCK |literal/fail.3|986 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))987 (|literal/start.1| (ATN-PARSER::INDEX)988 (ATN-PARSER:%ATN-NODE-BLOCK |literal/start.1|989 (ATN-PARSER:%ATN-EDGE-BLOCK OR990 (PROGN991 (ATN-PARSER:%ATN-EDGE-BLOCK992 (PUSH |RDFLiteral|)993 (MULTIPLE-VALUE-BIND994 (ATN-PARSER::RESULT995 ATN-PARSER::SUCCESS)996 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*997 '|RDFLiteral|998 ATN-PARSER::INDEX)999 (COND1000 (ATN-PARSER::SUCCESS1001 (SETF ATN-PARSER:*ATN-TERM*1002 '|RDFLiteral|)1003 (LET ((|RDFLiteral250|1004 |RDFLiteral|))1005 (DOLIST1006 (ATN-PARSER::RESULT-AND-INDEX1007 ATN-PARSER::RESULT)1008 (DESTRUCTURING-BIND1009 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1010 ATN-PARSER::RESULT-AND-INDEX1011 (WHEN1012 ATN-PARSER::RESULT1013 (SETF |RDFLiteral|1014 ATN-PARSER::RESULT))1015 (|literal.2|1016 ATN-PARSER::RESULT-INDEX))1017 (SETF |RDFLiteral|1018 |RDFLiteral250|))))1019 (T1020 (SETF ATN-PARSER:*ATN-TERM?*1021 '|RDFLiteral|)1022 NIL))))1023 (ATN-PARSER:%ATN-EDGE-BLOCK1024 (ATN-PARSER::CAT1025 |NumericLiteral|)1026 (COND1027 ((|IS-NumericLiteral|1028 ATN-PARSER::|item|)1029 (SETF ATN-PARSER:*ATN-TERM*1030 '|NumericLiteral|)1031 (SETF |NumericLiteral|1032 (IF (EQ1033 ATN-PARSER:*ATN-REDUCE*1034 T)1035 (ATN-PARSER:ATN-REDUCE-ITEM1036 #'|NumericLiteral-Constructor|1037 ATN-PARSER::|item|)1038 (IF (EQ1039 ATN-PARSER:*ATN-REDUCE*1040 'CONS)1041 (LIST1042 '|NumericLiteral|1043 ATN-PARSER::|item|)1044 '|NumericLiteral|)))1045 (|literal.2|1046 (1+ ATN-PARSER::INDEX)))1047 (T1048 (SETF ATN-PARSER:*ATN-TERM*1049 '|NumericLiteral|)1050 NIL)))1051 (ATN-PARSER:%ATN-EDGE-BLOCK1052 (ATN-PARSER::CAT1053 |BooleanLiteral|)1054 (COND1055 ((|IS-BooleanLiteral|1056 ATN-PARSER::|item|)1057 (SETF ATN-PARSER:*ATN-TERM*1058 '|BooleanLiteral|)1059 (SETF |BooleanLiteral|1060 (IF (EQ1061 ATN-PARSER:*ATN-REDUCE*1062 T)1063 (ATN-PARSER:ATN-REDUCE-ITEM1064 #'|BooleanLiteral-Constructor|1065 ATN-PARSER::|item|)1066 (IF (EQ1067 ATN-PARSER:*ATN-REDUCE*1068 'CONS)1069 (LIST1070 '|BooleanLiteral|1071 ATN-PARSER::|item|)1072 '|BooleanLiteral|)))1073 (|literal.2|1074 (1+ ATN-PARSER::INDEX)))1075 (T1076 (SETF ATN-PARSER:*ATN-TERM*1077 '|BooleanLiteral|)1078 NIL)))1079 (|literal/fail.3|1080 ATN-PARSER::INDEX))))))1081 (|literal/start.1| ATN-PARSER::INDEX)1082 (SETF ATN-PARSER:*ATN-NODE NIL)1083 NIL1084 (IF ATN-PARSER::ATN-STRUCTURE1085 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1086 (VALUES `((,NIL ,@ATN-PARSER::INDEX)) NIL NIL))))))1087 (WARN "recursive grammar: ~s @ position ~s: ~s" '|literal| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1088 (PROGN1089 (DEFVAR |RDFLiteral-INDEX|)1090 (DEFUN |RDFLiteral| (ATN-PARSER::INDEX &AUX (|iri| NIL) (LANGTAG NIL) (|String| NIL))1091 "{128s} RDFLiteral ::= String ((LANGTAG | ('^^' iri)))?1092 (|iri| LANGTAG |String|)"1093 (DECLARE (SPECIAL |RDFLiteral-INDEX|))1094 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RDFLiteral-INDEX| ATN-PARSER:*ATN-LEVEL))1095 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1096 (IF (< |RDFLiteral-INDEX| ATN-PARSER::INDEX)1097 (LET ((|RDFLiteral-INDEX| ATN-PARSER::INDEX)1098 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1099 (ATN-PARSER:*ATN-STACK (CONS '|RDFLiteral| ATN-PARSER:*ATN-STACK))1100 (ATN-PARSER::ATN-STRUCTURE NIL))1101 (DECLARE (SPECIAL |RDFLiteral-INDEX|))1102 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1103 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1104 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1105 (ATN-PARSER:%ATN-BLOCK |RDFLiteral|1106 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1107 (SETF ATN-PARSER:*ATN-TERM* '|RDFLiteral|)1108 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1109 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1110 ATN-PARSER::INDEX)1111 (|RDFLiteral.2| (ATN-PARSER::INDEX)1112 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral.2|1113 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |RDFLiteral|)1114 (WHEN T1115 (SETF ATN-PARSER:*ATN-TERM*1116 '|RDFLiteral|)1117 (ATN-PARSER:%ATN-TRACE1118 " [***/~a @ ~s reduce structure: ~a"1119 '|RDFLiteral|1120 ATN-PARSER::INDEX1121 (LIST '|iri| |iri| 'LANGTAG1122 LANGTAG '|String|1123 |String|))1124 (LET ((ATN-PARSER::RESULT-STRUCTURE1125 (IF (EQ1126 ATN-PARSER:*ATN-REDUCE*1127 T)1128 (|RDFLiteral-Constructor|1129 |iri| LANGTAG1130 |String|)1131 (IF (EQ1132 ATN-PARSER:*ATN-REDUCE*1133 'CONS)1134 (CONS1135 '|RDFLiteral|1136 (DELETE NIL1137 (LIST1138 |iri|1139 LANGTAG1140 |String|)))1141 '|RDFLiteral|))))1142 (ATN-PARSER::SUCCEED1143 ATN-PARSER::INDEX1144 ATN-PARSER::RESULT-STRUCTURE))))))1145 (|RDFLiteral/fail.3| (ATN-PARSER::INDEX)1146 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/fail.3|1147 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1148 (|RDFLiteral/RDFLiteral.2.4| (ATN-PARSER::INDEX)1149 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/RDFLiteral.2.4|1150 (ATN-PARSER:%ATN-EDGE-BLOCK OR1151 (PROGN1152 (ATN-PARSER:%ATN-EDGE-BLOCK1153 (TEST LANGTAG)1154 (COND1155 ((IS-LANGTAG1156 ATN-PARSER::|item|)1157 (SETF ATN-PARSER:*ATN-TERM*1158 'LANGTAG)1159 (SETF LANGTAG1160 (IF (EQ1161 ATN-PARSER:*ATN-REDUCE*1162 T)1163 (ATN-PARSER:ATN-REDUCE-ITEM1164 #'|LANGTAG-Constructor|1165 ATN-PARSER::|item|)1166 (IF (EQ1167 ATN-PARSER:*ATN-REDUCE*1168 'CONS)1169 (LIST1170 'LANGTAG1171 ATN-PARSER::|item|)1172 'LANGTAG)))1173 (|RDFLiteral.2|1174 (1+ ATN-PARSER::INDEX)))1175 (T1176 (SETF ATN-PARSER:*ATN-TERM?*1177 'LANGTAG)1178 NIL)))1179 (ATN-PARSER:%ATN-EDGE-BLOCK1180 (ATN-PARSER::JUMP1181 |RDFLiteral/RDFLiteral.2.5|)1182 (|RDFLiteral/RDFLiteral.2.5|1183 ATN-PARSER::INDEX))1184 (|RDFLiteral.2|1185 ATN-PARSER::INDEX)))))1186 (|RDFLiteral/RDFLiteral.2.5| (ATN-PARSER::INDEX)1187 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/RDFLiteral.2.5|1188 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:^^)1189 (COND1190 ((EQ ATN-PARSER::|item|1191 'SPOCQ.S:^^)1192 (SETF ATN-PARSER:*ATN-TERM*1193 'SPOCQ.S:^^)1194 (|RDFLiteral/RDFLiteral.2.6|1195 (1+ ATN-PARSER::INDEX)))1196 (T1197 (SETF ATN-PARSER:*ATN-TERM?*1198 'SPOCQ.S:^^)1199 NIL)))))1200 (|RDFLiteral/RDFLiteral.2.6| (ATN-PARSER::INDEX)1201 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/RDFLiteral.2.6|1202 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |iri|)1203 (MULTIPLE-VALUE-BIND1204 (ATN-PARSER::RESULT1205 ATN-PARSER::SUCCESS)1206 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1207 '|iri| ATN-PARSER::INDEX)1208 (COND1209 (ATN-PARSER::SUCCESS1210 (SETF ATN-PARSER:*ATN-TERM*1211 '|iri|)1212 (LET ((|iri251| |iri|))1213 (DOLIST1214 (ATN-PARSER::RESULT-AND-INDEX1215 ATN-PARSER::RESULT)1216 (DESTRUCTURING-BIND1217 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1218 ATN-PARSER::RESULT-AND-INDEX1219 (WHEN1220 ATN-PARSER::RESULT1221 (SETF |iri|1222 ATN-PARSER::RESULT))1223 (|RDFLiteral.2|1224 ATN-PARSER::RESULT-INDEX))1225 (SETF |iri|1226 |iri251|))))1227 (T1228 (SETF ATN-PARSER:*ATN-TERM?*1229 '|iri|)1230 NIL))))))1231 (|RDFLiteral/start.1| (ATN-PARSER::INDEX)1232 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/start.1|1233 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::CAT |String|)1234 (COND1235 ((|IS-String|1236 ATN-PARSER::|item|)1237 (SETF ATN-PARSER:*ATN-TERM*1238 '|String|)1239 (SETF |String|1240 (IF (EQ1241 ATN-PARSER:*ATN-REDUCE*1242 T)1243 (ATN-PARSER:ATN-REDUCE-ITEM1244 #'|String-Constructor|1245 ATN-PARSER::|item|)1246 (IF (EQ1247 ATN-PARSER:*ATN-REDUCE*1248 'CONS)1249 (LIST1250 '|String|1251 ATN-PARSER::|item|)1252 '|String|)))1253 (|RDFLiteral/RDFLiteral.2.4|1254 (1+ ATN-PARSER::INDEX)))1255 (T1256 (SETF ATN-PARSER:*ATN-TERM*1257 '|String|)1258 (|RDFLiteral/fail.3|1259 ATN-PARSER::INDEX)))))))1260 (|RDFLiteral/start.1| ATN-PARSER::INDEX)1261 (SETF ATN-PARSER:*ATN-NODE NIL)1262 NIL1263 (IF ATN-PARSER::ATN-STRUCTURE1264 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1265 (VALUES `((,NIL ,@ATN-PARSER::INDEX)) NIL NIL))))))1266 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RDFLiteral| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1267 (PROGN1268 (DEFVAR |iri-INDEX|)1269 (DEFUN |iri| (ATN-PARSER::INDEX &AUX (IRI_REF NIL))1270 "{135s} iri ::= IRI_REF1271 (IRI_REF)"1272 (DECLARE (SPECIAL |iri-INDEX|))1273 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |iri-INDEX| ATN-PARSER:*ATN-LEVEL))1274 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1275 (IF (< |iri-INDEX| ATN-PARSER::INDEX)1276 (LET ((|iri-INDEX| ATN-PARSER::INDEX)1277 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1278 (ATN-PARSER:*ATN-STACK (CONS '|iri| ATN-PARSER:*ATN-STACK))1279 (ATN-PARSER::ATN-STRUCTURE NIL))1280 (DECLARE (SPECIAL |iri-INDEX|))1281 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1282 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1283 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1284 (ATN-PARSER:%ATN-BLOCK |iri|1285 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1286 (SETF ATN-PARSER:*ATN-TERM* '|iri|)1287 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1288 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1289 ATN-PARSER::INDEX)1290 (|iri.2| (ATN-PARSER::INDEX)1291 (ATN-PARSER:%ATN-NODE-BLOCK |iri.2|1292 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |iri|)1293 (WHEN T1294 (SETF ATN-PARSER:*ATN-TERM*1295 '|iri|)1296 (ATN-PARSER:%ATN-TRACE1297 " [***/~a @ ~s reduce structure: ~a"1298 '|iri| ATN-PARSER::INDEX1299 (LIST 'IRI_REF IRI_REF))1300 (LET ((ATN-PARSER::RESULT-STRUCTURE1301 (IF (EQ1302 ATN-PARSER:*ATN-REDUCE*1303 T)1304 (|iri-Constructor|1305 IRI_REF)1306 (IF (EQ1307 ATN-PARSER:*ATN-REDUCE*1308 'CONS)1309 (CONS '|iri|1310 (DELETE1311 NIL1312 (LIST1313 IRI_REF)))1314 '|iri|))))1315 (ATN-PARSER::SUCCEED1316 ATN-PARSER::INDEX1317 ATN-PARSER::RESULT-STRUCTURE))))))1318 (|iri/fail.3| (ATN-PARSER::INDEX)1319 (ATN-PARSER:%ATN-NODE-BLOCK |iri/fail.3|1320 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1321 (|iri/start.1| (ATN-PARSER::INDEX)1322 (ATN-PARSER:%ATN-NODE-BLOCK |iri/start.1|1323 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH IRI_REF)1324 (MULTIPLE-VALUE-BIND1325 (ATN-PARSER::RESULT1326 ATN-PARSER::SUCCESS)1327 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1328 'IRI_REF1329 ATN-PARSER::INDEX)1330 (COND1331 (ATN-PARSER::SUCCESS1332 (SETF ATN-PARSER:*ATN-TERM*1333 'IRI_REF)1334 (LET ((IRI_REF252 IRI_REF))1335 (DOLIST1336 (ATN-PARSER::RESULT-AND-INDEX1337 ATN-PARSER::RESULT)1338 (DESTRUCTURING-BIND1339 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1340 ATN-PARSER::RESULT-AND-INDEX1341 (WHEN1342 ATN-PARSER::RESULT1343 (SETF IRI_REF1344 ATN-PARSER::RESULT))1345 (|iri.2|1346 ATN-PARSER::RESULT-INDEX))1347 (SETF IRI_REF1348 IRI_REF252))))1349 (T1350 (SETF ATN-PARSER:*ATN-TERM?*1351 'IRI_REF)1352 (|iri/fail.3|1353 ATN-PARSER::INDEX))))))))1354 (|iri/start.1| ATN-PARSER::INDEX)1355 (SETF ATN-PARSER:*ATN-NODE NIL)1356 NIL1357 (IF ATN-PARSER::ATN-STRUCTURE1358 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1359 (VALUES `((,NIL ,@ATN-PARSER::INDEX)) NIL NIL))))))1360 (WARN "recursive grammar: ~s @ position ~s: ~s" '|iri| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1361 (PROGN1362 (DEFVAR |BlankNode-INDEX|)1363 (DEFUN |BlankNode| (ATN-PARSER::INDEX &AUX (BLANK_NODE_LABEL NIL))1364 "{137s} BlankNode ::= '_:' BLANK_NODE_LABEL1365 (BLANK_NODE_LABEL)"1366 (DECLARE (SPECIAL |BlankNode-INDEX|))1367 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNode-INDEX| ATN-PARSER:*ATN-LEVEL))1368 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1369 (IF (< |BlankNode-INDEX| ATN-PARSER::INDEX)1370 (LET ((|BlankNode-INDEX| ATN-PARSER::INDEX)1371 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1372 (ATN-PARSER:*ATN-STACK (CONS '|BlankNode| ATN-PARSER:*ATN-STACK))1373 (ATN-PARSER::ATN-STRUCTURE NIL))1374 (DECLARE (SPECIAL |BlankNode-INDEX|))1375 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1376 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1377 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1378 (ATN-PARSER:%ATN-BLOCK |BlankNode|1379 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1380 (SETF ATN-PARSER:*ATN-TERM* '|BlankNode|)1381 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1382 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1383 ATN-PARSER::INDEX)1384 (|BlankNode.2| (ATN-PARSER::INDEX)1385 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode.2|1386 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |BlankNode|)1387 (WHEN T1388 (SETF ATN-PARSER:*ATN-TERM*1389 '|BlankNode|)1390 (ATN-PARSER:%ATN-TRACE1391 " [***/~a @ ~s reduce structure: ~a"1392 '|BlankNode|1393 ATN-PARSER::INDEX1394 (LIST 'BLANK_NODE_LABEL1395 BLANK_NODE_LABEL))1396 (LET ((ATN-PARSER::RESULT-STRUCTURE1397 (IF (EQ1398 ATN-PARSER:*ATN-REDUCE*1399 T)1400 (|BlankNode-Constructor|1401 BLANK_NODE_LABEL)1402 (IF (EQ1403 ATN-PARSER:*ATN-REDUCE*1404 'CONS)1405 (CONS1406 '|BlankNode|1407 (DELETE NIL1408 (LIST1409 BLANK_NODE_LABEL)))1410 '|BlankNode|))))1411 (ATN-PARSER::SUCCEED1412 ATN-PARSER::INDEX1413 ATN-PARSER::RESULT-STRUCTURE))))))1414 (|BlankNode/BlankNode.2.4| (ATN-PARSER::INDEX)1415 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode/BlankNode.2.4|1416 (ATN-PARSER:%ATN-EDGE-BLOCK (TEST BLANK_NODE_LABEL)1417 (COND1418 ((IS-BLANK_NODE_LABEL1419 ATN-PARSER::|item|)1420 (SETF ATN-PARSER:*ATN-TERM*1421 'BLANK_NODE_LABEL)1422 (SETF BLANK_NODE_LABEL1423 (IF (EQ1424 ATN-PARSER:*ATN-REDUCE*1425 T)1426 (ATN-PARSER:ATN-REDUCE-ITEM1427 #'|BLANK_NODE_LABEL-Constructor|1428 ATN-PARSER::|item|)1429 (IF (EQ1430 ATN-PARSER:*ATN-REDUCE*1431 'CONS)1432 (LIST1433 'BLANK_NODE_LABEL1434 ATN-PARSER::|item|)1435 'BLANK_NODE_LABEL)))1436 (|BlankNode.2|1437 (1+ ATN-PARSER::INDEX)))1438 (T1439 (SETF ATN-PARSER:*ATN-TERM?*1440 'BLANK_NODE_LABEL)1441 (|BlankNode/fail.3|1442 ATN-PARSER::INDEX))))))1443 (|BlankNode/fail.3| (ATN-PARSER::INDEX)1444 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode/fail.3|1445 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1446 (|BlankNode/start.1| (ATN-PARSER::INDEX)1447 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode/start.1|1448 (ATN-PARSER:%ATN-EDGE-BLOCK1449 (ATN-PARSER::WORD SPOCQ.S:|_:|)1450 (COND1451 ((EQ ATN-PARSER::|item| 'SPOCQ.S:|_:|)1452 (SETF ATN-PARSER:*ATN-TERM* 'SPOCQ.S:|_:|)1453 (|BlankNode/BlankNode.2.4| (1+ ATN-PARSER::INDEX)))1454 (T (SETF ATN-PARSER:*ATN-TERM?* 'SPOCQ.S:|_:|)1455 (|BlankNode/fail.3| ATN-PARSER::INDEX)))))))1456 (|BlankNode/start.1| ATN-PARSER::INDEX)1457 (SETF ATN-PARSER:*ATN-NODE NIL)1458 NIL1459 (IF ATN-PARSER::ATN-STRUCTURE1460 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1461 (VALUES `((,NIL ,@ATN-PARSER::INDEX)) NIL NIL))))))1462 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNode| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1463 (PROGN1464 (DEFVAR IRI_REF-INDEX)1465 (DEFUN IRI_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))1466 "{128} IRI_REF ::= '<' IRI_NAMESTRING? '>'1467 (IRI_NAMESTRING)"1468 (DECLARE (SPECIAL IRI_REF-INDEX))1469 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX IRI_REF-INDEX ATN-PARSER:*ATN-LEVEL))1470 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1471 (IF (< IRI_REF-INDEX ATN-PARSER::INDEX)1472 (LET ((IRI_REF-INDEX ATN-PARSER::INDEX)1473 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1474 (ATN-PARSER:*ATN-STACK (CONS 'IRI_REF ATN-PARSER:*ATN-STACK))1475 (ATN-PARSER::ATN-STRUCTURE NIL))1476 (DECLARE (SPECIAL IRI_REF-INDEX))1477 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1478 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1479 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1480 (ATN-PARSER:%ATN-BLOCK IRI_REF1481 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1482 (SETF ATN-PARSER:*ATN-TERM* 'IRI_REF)1483 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1484 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1485 ATN-PARSER::INDEX)1486 (IRI_REF.2 (ATN-PARSER::INDEX)1487 (ATN-PARSER:%ATN-NODE-BLOCK IRI_REF.21488 (ATN-PARSER:%ATN-EDGE-BLOCK (POP IRI_REF)1489 (WHEN T1490 (SETF ATN-PARSER:*ATN-TERM*1491 'IRI_REF)1492 (ATN-PARSER:%ATN-TRACE1493 " [***/~a @ ~s reduce structure: ~a"1494 'IRI_REF ATN-PARSER::INDEX1495 (LIST 'IRI_NAMESTRING1496 IRI_NAMESTRING))1497 (LET ((ATN-PARSER::RESULT-STRUCTURE1498 (IF (EQ1499 ATN-PARSER:*ATN-REDUCE*1500 T)1501 (|IRI_REF-Constructor|1502 IRI_NAMESTRING)1503 (IF (EQ1504 ATN-PARSER:*ATN-REDUCE*1505 'CONS)1506 (CONS1507 'IRI_REF1508 (DELETE NIL1509 (LIST1510 IRI_NAMESTRING)))1511 'IRI_REF))))1512 (ATN-PARSER::SUCCEED1513 ATN-PARSER::INDEX1514 ATN-PARSER::RESULT-STRUCTURE))))))1515 (|IRI_REF/fail.3| (ATN-PARSER::INDEX)1516 (ATN-PARSER:%ATN-NODE-BLOCK |IRI_REF/fail.3|1517 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1518 (IRI_REF/IRI_REF.2.4 (ATN-PARSER::INDEX)1519 (ATN-PARSER:%ATN-NODE-BLOCK IRI_REF/IRI_REF.2.41520 (ATN-PARSER:%ATN-EDGE-BLOCK (TEST IRI_NAMESTRING)1521 (COND1522 ((IS-IRI_NAMESTRING1523 ATN-PARSER::|item|)1524 (SETF ATN-PARSER:*ATN-TERM*1525 'IRI_NAMESTRING)1526 (SETF IRI_NAMESTRING1527 (IF (EQ1528 ATN-PARSER:*ATN-REDUCE*1529 T)1530 (ATN-PARSER:ATN-REDUCE-ITEM1531 #'|IRI_NAMESTRING-Constructor|1532 ATN-PARSER::|item|)1533 (IF (EQ1534 ATN-PARSER:*ATN-REDUCE*1535 'CONS)1536 (LIST1537 'IRI_NAMESTRING1538 ATN-PARSER::|item|)1539 'IRI_NAMESTRING)))1540 (IRI_REF/IRI_REF.2.51541 (1+ ATN-PARSER::INDEX)))1542 (T1543 (SETF ATN-PARSER:*ATN-TERM?*1544 'IRI_NAMESTRING)1545 (IRI_REF/IRI_REF.2.51546 ATN-PARSER::INDEX))))))1547 (IRI_REF/IRI_REF.2.5 (ATN-PARSER::INDEX)1548 (ATN-PARSER:%ATN-NODE-BLOCK IRI_REF/IRI_REF.2.51549 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:>)1550 (COND1551 ((EQ ATN-PARSER::|item|1552 'SPOCQ.S:>)1553 (SETF ATN-PARSER:*ATN-TERM*1554 'SPOCQ.S:>)1555 (IRI_REF.21556 (1+ ATN-PARSER::INDEX)))1557 (T1558 (SETF ATN-PARSER:*ATN-TERM?*1559 'SPOCQ.S:>)1560 (|IRI_REF/fail.3|1561 ATN-PARSER::INDEX))))))1562 (|IRI_REF/start.1| (ATN-PARSER::INDEX)1563 (ATN-PARSER:%ATN-NODE-BLOCK |IRI_REF/start.1|1564 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:<)1565 (COND1566 ((EQ ATN-PARSER::|item|1567 'SPOCQ.S:<)1568 (SETF ATN-PARSER:*ATN-TERM*1569 'SPOCQ.S:<)1570 (IRI_REF/IRI_REF.2.41571 (1+ ATN-PARSER::INDEX)))1572 (T1573 (SETF ATN-PARSER:*ATN-TERM?*1574 'SPOCQ.S:<)1575 (|IRI_REF/fail.3|1576 ATN-PARSER::INDEX)))))))1577 (|IRI_REF/start.1| ATN-PARSER::INDEX)1578 (SETF ATN-PARSER:*ATN-NODE NIL)1579 NIL1580 (IF ATN-PARSER::ATN-STRUCTURE1581 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1582 (VALUES `((,NIL ,@ATN-PARSER::INDEX)) NIL NIL))))))1583 (WARN "recursive grammar: ~s @ position ~s: ~s" 'IRI_REF ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1584 (SETF (GET '|nquadsDoc| :PRODUCTION) "1585 {1 } nquadsDoc ::= statement*")1586 (SETF (GET '|statement| :PRODUCTION) "1587 {2 } statement ::= subject predicate object graph? '.'")1588 (SETF (GET '|subject| :PRODUCTION) "1589 {10} subject ::= (iri | BlankNode)")1590 (SETF (GET '|predicate| :PRODUCTION) "1591 {11} predicate ::= iri")1592 (SETF (GET '|object| :PRODUCTION) "1593 {12} object ::= (iri | BlankNode | literal)")1594 (SETF (GET '|graph| :PRODUCTION) "1595 {10} graph ::= (iri | BlankNode)")1596 (SETF (GET '|literal| :PRODUCTION) "1597 {13} literal ::= (RDFLiteral | NumericLiteral | BooleanLiteral)")1598 (SETF (GET '|RDFLiteral| :PRODUCTION) "1599 {128s} RDFLiteral ::= String ((LANGTAG | ('^^' iri)))?")1600 (SETF (GET '|iri| :PRODUCTION) "1601 {135s} iri ::= IRI_REF")1602 (SETF (GET '|BlankNode| :PRODUCTION) "1603 {137s} BlankNode ::= '_:' BLANK_NODE_LABEL")1604 (SETF (GET 'IRI_REF :PRODUCTION) "1605 {128} IRI_REF ::= '<' IRI_NAMESTRING? '>'")1606 (DEFUN |nquadsDoc-Parser|1607 (ATN-PARSER::*ATN-INPUT1608 &KEY ((:TRACE ATN-PARSER:*ATN-TRACE*) ATN-PARSER:*ATN-TRACE*)1609 ((:TRACE-NETS ATN-PARSER:*ATN-TRACE-NETS*) ATN-PARSER:*ATN-TRACE-NETS*)1610 ((:START-NAME ATN-PARSER::*ATN-START-NAME) '|nquadsDoc|) ((:MODE ATN-PARSER::*ATN-MODE) :MULTIPLE)1611 ((:REDUCE ATN-PARSER:*ATN-REDUCE*) T) ((:REGISTER-WORDS ATN-PARSER:*ATN-REGISTER-WORDS) NIL)1612 (ATN-PARSER::ATN-WFST (MAKE-ARRAY 8 :ADJUSTABLE T :ELEMENT-TYPE 'LIST :INITIAL-ELEMENT NIL) ATN-PARSER::AW-S)1613 &ALLOW-OTHER-KEYS1614 &AUX)1615 "// generated 2015.10.08T19:22:52.1616 1617 [[1]] nquadsDoc ::= statement*1618 [[2]] statement ::= subject predicate object graph? '.'1619 [[10]] subject ::= iri | BlankNode1620 [[11]] predicate ::= iri1621 [[12]] object ::= iri | BlankNode | literal1622 [[10]] graph ::= iri | BlankNode1623 [[13]] literal ::= RDFLiteral | NumericLiteral | BooleanLiteral1624 //[16]] NumericLiteral ::= INTEGER | DECIMAL | DOUBLE1625 [[128s]] RDFLiteral ::= String (LANGTAG | ( '^^' iri ))?1626 [[133s]] BooleanLiteral ::= 'true' | 'false'1627 //[17]] String ::= STRING_LITERAL_QUOTE | STRING_LITERAL_SINGLE_QUOTE | STRING_LITERAL_LONG_SINGLE_QUOTE | STRING_LITERAL_LONG_QUOTE1628 [[135s]] iri ::= IRI_REF1629 [[137s]] BlankNode ::= '_:' BLANK_NODE_LABEL1630 1631 // from sparql1632 [[119]] NumericLiteral ::= NumericLiteralUnsigned | NumericLiteralPositive | NumericLiteralNegative1633 [[120]] NumericLiteralUnsigned ::= INTEGER | DECIMAL | DOUBLE1634 [[121]] NumericLiteralPositive ::= INTEGER_POSITIVE | DECIMAL_POSITIVE | DOUBLE_POSITIVE1635 [[122]] NumericLiteralNegative ::= INTEGER_NEGATIVE | DECIMAL_NEGATIVE | DOUBLE_NEGATIVE1636 [[124]] String ::= STRING_LITERAL1 | STRING_LITERAL2 | STRING_LITERAL_LONG1 | STRING_LITERAL_LONG21637 [[128]] IRI_REF ::= '<' IRI_NAMESTRING? '>'1638 1639 "1640 (DECLARE (SPECIAL ATN-PARSER:*ATN-REDUCE* ATN-PARSER::*ATN-MODE ATN-PARSER::*ATN-INPUT))1641 (WHEN ATN-PARSER::AW-S (ATN-PARSER:|wfst-initialize| ATN-PARSER::ATN-WFST))1642 (LET ((ATN-PARSER:*ATN-LEVEL 0)1643 (ATN-PARSER:*ATN-WFST ATN-PARSER::ATN-WFST)1644 (ATN-PARSER:*ATN-STACK '(|nquadsDoc-Parser|))1645 (ATN-PARSER:*ATN-NODE NIL)1646 (ATN-PARSER:*ATN-PROPERTIES NIL)1647 (ATN-PARSER:*ATN-CLASS NIL)1648 (|nquadsDoc-INDEX| -1)1649 (|statement-INDEX| -1)1650 (|subject-INDEX| -1)1651 (|predicate-INDEX| -1)1652 (|object-INDEX| -1)1653 (|graph-INDEX| -1)1654 (|literal-INDEX| -1)1655 (|RDFLiteral-INDEX| -1)1656 (|iri-INDEX| -1)1657 (|BlankNode-INDEX| -1)1658 (IRI_REF-INDEX -1)1659 (ATN-PARSER::ATN-NET-NAMES1660 '(|nquadsDoc| |statement| |subject| |predicate| |object| |graph| |literal| |RDFLiteral| |iri| |BlankNode| IRI_REF)))1661 (DECLARE1662 (SPECIAL |nquadsDoc-INDEX| |statement-INDEX| |subject-INDEX| |predicate-INDEX| |object-INDEX| |graph-INDEX| |literal-INDEX|1663 |RDFLiteral-INDEX| |iri-INDEX| |BlankNode-INDEX| IRI_REF-INDEX))1664 (UNLESS (FIND ATN-PARSER::*ATN-START-NAME ATN-PARSER::ATN-NET-NAMES)1665 (ERROR "production not defined in system: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|nquadsDoc-Parser|))1666 (UNLESS (FBOUNDP ATN-PARSER::*ATN-START-NAME)1667 (ERROR "parse function missing: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|nquadsDoc-Parser|))1668 (HANDLER-BIND ((ATN-PARSER:CONTINUABLE-PARSER-ERROR #'(LAMBDA (CONDITION) (SIGNAL CONDITION)))1669 (ATN-PARSER:TERMINAL-PARSER-ERROR1670 #'(LAMBDA (CONDITION &AUX (ATN-PARSER::ACTION (ATN-PARSER:CONDITION-ACTION CONDITION)))1671 (ETYPECASE ATN-PARSER::ACTION1672 (NULL)1673 (KEYWORD1674 (ECASE ATN-PARSER::ACTION1675 (:ABORT1676 (WHEN ATN-PARSER:*ATN-TRACE*1677 (WARN "terminating parse on condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))1678 (RETURN-FROM |nquadsDoc-Parser| (VALUES NIL CONDITION NIL)))1679 (:CONTINUE1680 (WHEN ATN-PARSER:*ATN-TRACE*1681 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))1682 (CONTINUE CONDITION))1683 (:SIGNAL1684 (WHEN ATN-PARSER:*ATN-TRACE*1685 (WARN "signaling parse condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))1686 (SIGNAL CONDITION)1687 (WHEN ATN-PARSER:*ATN-TRACE*1688 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))1689 (CONTINUE CONDITION))))1690 (FUNCTION (FUNCALL ATN-PARSER::ACTION)))))1691 (ERROR #'(LAMBDA (CONDITION) (WHEN ATN-PARSER:*ATN-TRACE* (WARN "parse raised condition: ~a." CONDITION)) NIL)))1692 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1693 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE* ATN-PARSER::*ATN-START-NAME 0)1694 (COND1695 (ATN-PARSER::SUCCESS1696 (RETURN-FROM |nquadsDoc-Parser|1697 (PROGN1698 (WHEN (CDR ATN-PARSER::RESULT)1699 (WHEN ATN-PARSER:*ATN-TRACE* (WARN "ambiguous results for term: ~s." ATN-PARSER::*ATN-START-NAME))1700 (SETF ATN-PARSER::RESULT (SORT ATN-PARSER::RESULT #'> :KEY #'REST)))1701 (DESTRUCTURING-BIND1702 (ATN-PARSER::RESULT . ATN-PARSER::INDEX)1703 (FIRST ATN-PARSER::RESULT)1704 (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX (INPUT-EOF? ATN-PARSER::INDEX))))))1705 (T (RETURN-FROM |nquadsDoc-Parser| (VALUES NIL (REDUCE #'MAX ATN-PARSER::RESULT :KEY #'REST :INITIAL-VALUE 0) NIL))))))))