| Kind | Covered | All | % |
| expression | 0 | 3547 | 0.0 |
| branch | 0 | 256 | 0.0 |
1 2 (IN-PACKAGE "ORG.DATAGRAPH.TURTLE") 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 ((|statement2|105 |statement|))106 (DOLIST107 (ATN-PARSER::RESULT-AND-INDEX108 ATN-PARSER::RESULT)109 (DESTRUCTURING-BIND110 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)111 ATN-PARSER::RESULT-AND-INDEX112 (WHEN113 ATN-PARSER::RESULT114 (SETF |statement|115 (CONS116 ATN-PARSER::RESULT117 |statement|)))118 (|turtleDoc.4|119 ATN-PARSER::RESULT-INDEX))120 (SETF |statement|121 |statement2|))))122 (T123 (SETF ATN-PARSER:*ATN-TERM?*124 '|statement|)125 (|turtleDoc.2|126 ATN-PARSER::INDEX)))))))127 (|turtleDoc/fail.3| (ATN-PARSER::INDEX)128 (ATN-PARSER:%ATN-NODE-BLOCK |turtleDoc/fail.3|129 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))130 (|turtleDoc/start.1| (ATN-PARSER::INDEX)131 (ATN-PARSER:%ATN-NODE-BLOCK |turtleDoc/start.1|132 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |statement|)133 (MULTIPLE-VALUE-BIND134 (ATN-PARSER::RESULT135 ATN-PARSER::SUCCESS)136 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*137 '|statement|138 ATN-PARSER::INDEX)139 (COND140 (ATN-PARSER::SUCCESS141 (SETF ATN-PARSER:*ATN-TERM*142 '|statement|)143 (LET ((|statement1|144 |statement|))145 (DOLIST146 (ATN-PARSER::RESULT-AND-INDEX147 ATN-PARSER::RESULT)148 (DESTRUCTURING-BIND149 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)150 ATN-PARSER::RESULT-AND-INDEX151 (WHEN152 ATN-PARSER::RESULT153 (SETF |statement|154 (CONS155 ATN-PARSER::RESULT156 |statement|)))157 (|turtleDoc.4|158 ATN-PARSER::RESULT-INDEX))159 (SETF |statement|160 |statement1|))))161 (T162 (SETF ATN-PARSER:*ATN-TERM?*163 '|statement|)164 (|turtleDoc.2|165 ATN-PARSER::INDEX))))))))166 (|turtleDoc/start.1| ATN-PARSER::INDEX)167 (SETF ATN-PARSER:*ATN-NODE NIL)168 NIL169 (IF ATN-PARSER::ATN-STRUCTURE170 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)171 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))172 (WARN "recursive grammar: ~s @ position ~s: ~s" '|turtleDoc| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))173 (PROGN174 (DEFVAR |statement-INDEX|)175 (DEFUN |statement| (ATN-PARSER::INDEX &AUX (|directive| NIL) (|triples| NIL))176 "{2 } statement ::= (directive | (triples '.'))177 (|directive| |triples|)"178 (DECLARE (SPECIAL |statement-INDEX|))179 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |statement-INDEX| ATN-PARSER:*ATN-LEVEL))180 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))181 (IF (< |statement-INDEX| ATN-PARSER::INDEX)182 (LET ((|statement-INDEX| ATN-PARSER::INDEX)183 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))184 (ATN-PARSER:*ATN-STACK (CONS '|statement| ATN-PARSER:*ATN-STACK))185 (ATN-PARSER::ATN-STRUCTURE NIL))186 (DECLARE (SPECIAL |statement-INDEX|))187 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))188 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))189 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))190 (ATN-PARSER:%ATN-BLOCK |statement|191 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)192 (SETF ATN-PARSER:*ATN-TERM* '|statement|)193 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))194 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)195 ATN-PARSER::INDEX)196 (|statement.2| (ATN-PARSER::INDEX)197 (ATN-PARSER:%ATN-NODE-BLOCK |statement.2|198 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |statement|)199 (WHEN T200 (SETF ATN-PARSER:*ATN-TERM*201 '|statement|)202 (ATN-PARSER:%ATN-TRACE203 " [***/~a @ ~s reduce structure: ~a"204 '|statement|205 ATN-PARSER::INDEX206 (LIST '|directive|207 |directive|208 '|triples|209 |triples|))210 (LET ((ATN-PARSER::RESULT-STRUCTURE211 (IF (EQ212 ATN-PARSER:*ATN-REDUCE*213 T)214 (|statement-Constructor|215 |directive|216 |triples|)217 (IF (EQ218 ATN-PARSER:*ATN-REDUCE*219 'CONS)220 (CONS221 '|statement|222 (DELETE NIL223 (LIST224 |directive|225 |triples|)))226 '|statement|))))227 (ATN-PARSER::SUCCEED228 ATN-PARSER::INDEX229 ATN-PARSER::RESULT-STRUCTURE))))))230 (|statement/fail.3| (ATN-PARSER::INDEX)231 (ATN-PARSER:%ATN-NODE-BLOCK |statement/fail.3|232 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))233 (|statement/start.1| (ATN-PARSER::INDEX)234 (ATN-PARSER:%ATN-NODE-BLOCK |statement/start.1|235 (ATN-PARSER:%ATN-EDGE-BLOCK OR236 (PROGN237 (ATN-PARSER:%ATN-EDGE-BLOCK238 (PUSH |directive|)239 (MULTIPLE-VALUE-BIND240 (ATN-PARSER::RESULT241 ATN-PARSER::SUCCESS)242 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*243 '|directive|244 ATN-PARSER::INDEX)245 (COND246 (ATN-PARSER::SUCCESS247 (SETF ATN-PARSER:*ATN-TERM*248 '|directive|)249 (LET ((|directive3|250 |directive|))251 (DOLIST252 (ATN-PARSER::RESULT-AND-INDEX253 ATN-PARSER::RESULT)254 (DESTRUCTURING-BIND255 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)256 ATN-PARSER::RESULT-AND-INDEX257 (WHEN258 ATN-PARSER::RESULT259 (SETF |directive|260 ATN-PARSER::RESULT))261 (|statement.2|262 ATN-PARSER::RESULT-INDEX))263 (SETF |directive|264 |directive3|))))265 (T266 (SETF ATN-PARSER:*ATN-TERM?*267 '|directive|)268 NIL))))269 (ATN-PARSER:%ATN-EDGE-BLOCK270 (ATN-PARSER::JUMP271 |statement/statement.2.4|)272 (|statement/statement.2.4|273 ATN-PARSER::INDEX))274 (|statement/fail.3|275 ATN-PARSER::INDEX)))))276 (|statement/statement.2.4| (ATN-PARSER::INDEX)277 (ATN-PARSER:%ATN-NODE-BLOCK |statement/statement.2.4|278 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |triples|)279 (MULTIPLE-VALUE-BIND280 (ATN-PARSER::RESULT281 ATN-PARSER::SUCCESS)282 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*283 '|triples|284 ATN-PARSER::INDEX)285 (COND286 (ATN-PARSER::SUCCESS287 (SETF ATN-PARSER:*ATN-TERM*288 '|triples|)289 (LET ((|triples4|290 |triples|))291 (DOLIST292 (ATN-PARSER::RESULT-AND-INDEX293 ATN-PARSER::RESULT)294 (DESTRUCTURING-BIND295 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)296 ATN-PARSER::RESULT-AND-INDEX297 (WHEN298 ATN-PARSER::RESULT299 (SETF |triples|300 ATN-PARSER::RESULT))301 (|statement/statement.2.5|302 ATN-PARSER::RESULT-INDEX))303 (SETF |triples|304 |triples4|))))305 (T306 (SETF ATN-PARSER:*ATN-TERM?*307 '|triples|)308 NIL))))))309 (|statement/statement.2.5| (ATN-PARSER::INDEX)310 (ATN-PARSER:%ATN-NODE-BLOCK |statement/statement.2.5|311 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)312 (COND313 ((EQ ATN-PARSER::|item|314 'SPOCQ.S:|.|)315 (SETF ATN-PARSER:*ATN-TERM*316 'SPOCQ.S:|.|)317 (|statement.2|318 (1+ ATN-PARSER::INDEX)))319 (T320 (SETF ATN-PARSER:*ATN-TERM?*321 'SPOCQ.S:|.|)322 NIL))))))323 (|statement/start.1| ATN-PARSER::INDEX)324 (SETF ATN-PARSER:*ATN-NODE NIL)325 NIL326 (IF ATN-PARSER::ATN-STRUCTURE327 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)328 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))329 (WARN "recursive grammar: ~s @ position ~s: ~s" '|statement| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))330 (PROGN331 (DEFVAR |directive-INDEX|)332 (DEFUN |directive| (ATN-PARSER::INDEX &AUX (|base| NIL) (|BaseDecl| NIL) (|PrefixDecl| NIL) (|prefixID| NIL))333 "{3 } directive ::= (prefixID | base | BaseDecl | PrefixDecl)334 (|base| |BaseDecl| |PrefixDecl| |prefixID|)"335 (DECLARE (SPECIAL |directive-INDEX|))336 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |directive-INDEX| ATN-PARSER:*ATN-LEVEL))337 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))338 (IF (< |directive-INDEX| ATN-PARSER::INDEX)339 (LET ((|directive-INDEX| ATN-PARSER::INDEX)340 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))341 (ATN-PARSER:*ATN-STACK (CONS '|directive| ATN-PARSER:*ATN-STACK))342 (ATN-PARSER::ATN-STRUCTURE NIL))343 (DECLARE (SPECIAL |directive-INDEX|))344 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))345 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))346 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))347 (ATN-PARSER:%ATN-BLOCK |directive|348 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)349 (SETF ATN-PARSER:*ATN-TERM* '|directive|)350 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))351 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)352 ATN-PARSER::INDEX)353 (|directive.2| (ATN-PARSER::INDEX)354 (ATN-PARSER:%ATN-NODE-BLOCK |directive.2|355 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |directive|)356 (WHEN T357 (SETF ATN-PARSER:*ATN-TERM*358 '|directive|)359 (ATN-PARSER:%ATN-TRACE360 " [***/~a @ ~s reduce structure: ~a"361 '|directive|362 ATN-PARSER::INDEX363 (LIST '|base| |base|364 '|BaseDecl|365 |BaseDecl|366 '|PrefixDecl|367 |PrefixDecl|368 '|prefixID|369 |prefixID|))370 (LET ((ATN-PARSER::RESULT-STRUCTURE371 (IF (EQ372 ATN-PARSER:*ATN-REDUCE*373 T)374 (|directive-Constructor|375 |base|376 |BaseDecl|377 |PrefixDecl|378 |prefixID|)379 (IF (EQ380 ATN-PARSER:*ATN-REDUCE*381 'CONS)382 (CONS383 '|directive|384 (DELETE NIL385 (LIST386 |base|387 |BaseDecl|388 |PrefixDecl|389 |prefixID|)))390 '|directive|))))391 (ATN-PARSER::SUCCEED392 ATN-PARSER::INDEX393 ATN-PARSER::RESULT-STRUCTURE))))))394 (|directive/fail.3| (ATN-PARSER::INDEX)395 (ATN-PARSER:%ATN-NODE-BLOCK |directive/fail.3|396 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))397 (|directive/start.1| (ATN-PARSER::INDEX)398 (ATN-PARSER:%ATN-NODE-BLOCK |directive/start.1|399 (ATN-PARSER:%ATN-EDGE-BLOCK OR400 (PROGN401 (ATN-PARSER:%ATN-EDGE-BLOCK402 (PUSH |prefixID|)403 (MULTIPLE-VALUE-BIND404 (ATN-PARSER::RESULT405 ATN-PARSER::SUCCESS)406 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*407 '|prefixID|408 ATN-PARSER::INDEX)409 (COND410 (ATN-PARSER::SUCCESS411 (SETF ATN-PARSER:*ATN-TERM*412 '|prefixID|)413 (LET ((|prefixID5|414 |prefixID|))415 (DOLIST416 (ATN-PARSER::RESULT-AND-INDEX417 ATN-PARSER::RESULT)418 (DESTRUCTURING-BIND419 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)420 ATN-PARSER::RESULT-AND-INDEX421 (WHEN422 ATN-PARSER::RESULT423 (SETF |prefixID|424 ATN-PARSER::RESULT))425 (|directive.2|426 ATN-PARSER::RESULT-INDEX))427 (SETF |prefixID|428 |prefixID5|))))429 (T430 (SETF ATN-PARSER:*ATN-TERM?*431 '|prefixID|)432 NIL))))433 (ATN-PARSER:%ATN-EDGE-BLOCK434 (PUSH |base|)435 (MULTIPLE-VALUE-BIND436 (ATN-PARSER::RESULT437 ATN-PARSER::SUCCESS)438 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*439 '|base|440 ATN-PARSER::INDEX)441 (COND442 (ATN-PARSER::SUCCESS443 (SETF ATN-PARSER:*ATN-TERM*444 '|base|)445 (LET ((|base6| |base|))446 (DOLIST447 (ATN-PARSER::RESULT-AND-INDEX448 ATN-PARSER::RESULT)449 (DESTRUCTURING-BIND450 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)451 ATN-PARSER::RESULT-AND-INDEX452 (WHEN453 ATN-PARSER::RESULT454 (SETF |base|455 ATN-PARSER::RESULT))456 (|directive.2|457 ATN-PARSER::RESULT-INDEX))458 (SETF |base|459 |base6|))))460 (T461 (SETF ATN-PARSER:*ATN-TERM?*462 '|base|)463 NIL))))464 (ATN-PARSER:%ATN-EDGE-BLOCK465 (PUSH |BaseDecl|)466 (MULTIPLE-VALUE-BIND467 (ATN-PARSER::RESULT468 ATN-PARSER::SUCCESS)469 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*470 '|BaseDecl|471 ATN-PARSER::INDEX)472 (COND473 (ATN-PARSER::SUCCESS474 (SETF ATN-PARSER:*ATN-TERM*475 '|BaseDecl|)476 (LET ((|BaseDecl7|477 |BaseDecl|))478 (DOLIST479 (ATN-PARSER::RESULT-AND-INDEX480 ATN-PARSER::RESULT)481 (DESTRUCTURING-BIND482 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)483 ATN-PARSER::RESULT-AND-INDEX484 (WHEN485 ATN-PARSER::RESULT486 (SETF |BaseDecl|487 ATN-PARSER::RESULT))488 (|directive.2|489 ATN-PARSER::RESULT-INDEX))490 (SETF |BaseDecl|491 |BaseDecl7|))))492 (T493 (SETF ATN-PARSER:*ATN-TERM?*494 '|BaseDecl|)495 NIL))))496 (ATN-PARSER:%ATN-EDGE-BLOCK497 (PUSH |PrefixDecl|)498 (MULTIPLE-VALUE-BIND499 (ATN-PARSER::RESULT500 ATN-PARSER::SUCCESS)501 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*502 '|PrefixDecl|503 ATN-PARSER::INDEX)504 (COND505 (ATN-PARSER::SUCCESS506 (SETF ATN-PARSER:*ATN-TERM*507 '|PrefixDecl|)508 (LET ((|PrefixDecl8|509 |PrefixDecl|))510 (DOLIST511 (ATN-PARSER::RESULT-AND-INDEX512 ATN-PARSER::RESULT)513 (DESTRUCTURING-BIND514 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)515 ATN-PARSER::RESULT-AND-INDEX516 (WHEN517 ATN-PARSER::RESULT518 (SETF |PrefixDecl|519 ATN-PARSER::RESULT))520 (|directive.2|521 ATN-PARSER::RESULT-INDEX))522 (SETF |PrefixDecl|523 |PrefixDecl8|))))524 (T525 (SETF ATN-PARSER:*ATN-TERM?*526 '|PrefixDecl|)527 NIL))))528 (|directive/fail.3|529 ATN-PARSER::INDEX))))))530 (|directive/start.1| ATN-PARSER::INDEX)531 (SETF ATN-PARSER:*ATN-NODE NIL)532 NIL533 (IF ATN-PARSER::ATN-STRUCTURE534 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)535 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))536 (WARN "recursive grammar: ~s @ position ~s: ~s" '|directive| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))537 (PROGN538 (DEFVAR |prefixID-INDEX|)539 (DEFUN |prefixID| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL) (PNAME_NS NIL))540 "{4 } prefixID ::= '@prefix' PNAME_NS NAMESPACE_REF '.'541 (NAMESPACE_REF PNAME_NS)"542 (DECLARE (SPECIAL |prefixID-INDEX|))543 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |prefixID-INDEX| ATN-PARSER:*ATN-LEVEL))544 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))545 (IF (< |prefixID-INDEX| ATN-PARSER::INDEX)546 (LET ((|prefixID-INDEX| ATN-PARSER::INDEX)547 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))548 (ATN-PARSER:*ATN-STACK (CONS '|prefixID| ATN-PARSER:*ATN-STACK))549 (ATN-PARSER::ATN-STRUCTURE NIL))550 (DECLARE (SPECIAL |prefixID-INDEX|))551 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))552 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))553 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))554 (ATN-PARSER:%ATN-BLOCK |prefixID|555 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)556 (SETF ATN-PARSER:*ATN-TERM* '|prefixID|)557 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))558 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)559 ATN-PARSER::INDEX)560 (|prefixID.2| (ATN-PARSER::INDEX)561 (ATN-PARSER:%ATN-NODE-BLOCK |prefixID.2|562 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |prefixID|)563 (WHEN T564 (SETF ATN-PARSER:*ATN-TERM*565 '|prefixID|)566 (ATN-PARSER:%ATN-TRACE567 " [***/~a @ ~s reduce structure: ~a"568 '|prefixID|569 ATN-PARSER::INDEX570 (LIST 'NAMESPACE_REF571 NAMESPACE_REF572 'PNAME_NS PNAME_NS))573 (LET ((ATN-PARSER::RESULT-STRUCTURE574 (IF (EQ575 ATN-PARSER:*ATN-REDUCE*576 T)577 (|prefixID-Constructor|578 NAMESPACE_REF579 PNAME_NS)580 (IF (EQ581 ATN-PARSER:*ATN-REDUCE*582 'CONS)583 (CONS584 '|prefixID|585 (DELETE NIL586 (LIST587 NAMESPACE_REF588 PNAME_NS)))589 '|prefixID|))))590 (ATN-PARSER::SUCCEED591 ATN-PARSER::INDEX592 ATN-PARSER::RESULT-STRUCTURE))))))593 (|prefixID/fail.3| (ATN-PARSER::INDEX)594 (ATN-PARSER:%ATN-NODE-BLOCK |prefixID/fail.3|595 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))596 (|prefixID/prefixID.2.4| (ATN-PARSER::INDEX)597 (ATN-PARSER:%ATN-NODE-BLOCK |prefixID/prefixID.2.4|598 (ATN-PARSER:%ATN-EDGE-BLOCK (TEST PNAME_NS)599 (COND600 ((IS-PNAME_NS601 ATN-PARSER::|item|)602 (SETF ATN-PARSER:*ATN-TERM*603 'PNAME_NS)604 (SETF PNAME_NS605 (IF (EQ606 ATN-PARSER:*ATN-REDUCE*607 T)608 (ATN-PARSER:ATN-REDUCE-ITEM609 #'|PNAME_NS-Constructor|610 ATN-PARSER::|item|)611 (IF (EQ612 ATN-PARSER:*ATN-REDUCE*613 'CONS)614 (LIST615 'PNAME_NS616 ATN-PARSER::|item|)617 'PNAME_NS)))618 (|prefixID/prefixID.2.5|619 (1+ ATN-PARSER::INDEX)))620 (T621 (SETF ATN-PARSER:*ATN-TERM?*622 'PNAME_NS)623 (|prefixID/fail.3|624 ATN-PARSER::INDEX))))))625 (|prefixID/prefixID.2.5| (ATN-PARSER::INDEX)626 (ATN-PARSER:%ATN-NODE-BLOCK |prefixID/prefixID.2.5|627 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH NAMESPACE_REF)628 (MULTIPLE-VALUE-BIND629 (ATN-PARSER::RESULT630 ATN-PARSER::SUCCESS)631 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*632 'NAMESPACE_REF633 ATN-PARSER::INDEX)634 (COND635 (ATN-PARSER::SUCCESS636 (SETF ATN-PARSER:*ATN-TERM*637 'NAMESPACE_REF)638 (LET ((NAMESPACE_REF9639 NAMESPACE_REF))640 (DOLIST641 (ATN-PARSER::RESULT-AND-INDEX642 ATN-PARSER::RESULT)643 (DESTRUCTURING-BIND644 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)645 ATN-PARSER::RESULT-AND-INDEX646 (WHEN647 ATN-PARSER::RESULT648 (SETF NAMESPACE_REF649 ATN-PARSER::RESULT))650 (|prefixID/prefixID.2.6|651 ATN-PARSER::RESULT-INDEX))652 (SETF NAMESPACE_REF653 NAMESPACE_REF9))))654 (T655 (SETF ATN-PARSER:*ATN-TERM?*656 'NAMESPACE_REF)657 (|prefixID/fail.3|658 ATN-PARSER::INDEX)))))))659 (|prefixID/prefixID.2.6| (ATN-PARSER::INDEX)660 (ATN-PARSER:%ATN-NODE-BLOCK |prefixID/prefixID.2.6|661 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)662 (COND663 ((EQ ATN-PARSER::|item|664 'SPOCQ.S:|.|)665 (SETF ATN-PARSER:*ATN-TERM*666 'SPOCQ.S:|.|)667 (|prefixID.2|668 (1+ ATN-PARSER::INDEX)))669 (T670 (SETF ATN-PARSER:*ATN-TERM?*671 'SPOCQ.S:|.|)672 (|prefixID/fail.3|673 ATN-PARSER::INDEX))))))674 (|prefixID/start.1| (ATN-PARSER::INDEX)675 (ATN-PARSER:%ATN-NODE-BLOCK |prefixID/start.1|676 (ATN-PARSER:%ATN-EDGE-BLOCK677 (ATN-PARSER::WORD SPOCQ.S::|@prefix|)678 (COND679 ((EQ ATN-PARSER::|item| 'SPOCQ.S::|@prefix|)680 (SETF ATN-PARSER:*ATN-TERM* 'SPOCQ.S::|@prefix|)681 (|prefixID/prefixID.2.4| (1+ ATN-PARSER::INDEX)))682 (T (SETF ATN-PARSER:*ATN-TERM?* 'SPOCQ.S::|@prefix|)683 (|prefixID/fail.3| ATN-PARSER::INDEX)))))))684 (|prefixID/start.1| ATN-PARSER::INDEX)685 (SETF ATN-PARSER:*ATN-NODE NIL)686 NIL687 (IF ATN-PARSER::ATN-STRUCTURE688 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)689 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))690 (WARN "recursive grammar: ~s @ position ~s: ~s" '|prefixID| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))691 (PROGN692 (DEFVAR |base-INDEX|)693 (DEFUN |base| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL))694 "{5 } base ::= '@base' NAMESPACE_REF '.'695 (NAMESPACE_REF)"696 (DECLARE (SPECIAL |base-INDEX|))697 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |base-INDEX| ATN-PARSER:*ATN-LEVEL))698 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))699 (IF (< |base-INDEX| ATN-PARSER::INDEX)700 (LET ((|base-INDEX| ATN-PARSER::INDEX)701 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))702 (ATN-PARSER:*ATN-STACK (CONS '|base| ATN-PARSER:*ATN-STACK))703 (ATN-PARSER::ATN-STRUCTURE NIL))704 (DECLARE (SPECIAL |base-INDEX|))705 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))706 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))707 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))708 (ATN-PARSER:%ATN-BLOCK |base|709 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)710 (SETF ATN-PARSER:*ATN-TERM* '|base|)711 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))712 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)713 ATN-PARSER::INDEX)714 (|base.2| (ATN-PARSER::INDEX)715 (ATN-PARSER:%ATN-NODE-BLOCK |base.2|716 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |base|)717 (WHEN T718 (SETF ATN-PARSER:*ATN-TERM*719 '|base|)720 (ATN-PARSER:%ATN-TRACE721 " [***/~a @ ~s reduce structure: ~a"722 '|base| ATN-PARSER::INDEX723 (LIST 'NAMESPACE_REF724 NAMESPACE_REF))725 (LET ((ATN-PARSER::RESULT-STRUCTURE726 (IF (EQ727 ATN-PARSER:*ATN-REDUCE*728 T)729 (|base-Constructor|730 NAMESPACE_REF)731 (IF (EQ732 ATN-PARSER:*ATN-REDUCE*733 'CONS)734 (CONS '|base|735 (DELETE736 NIL737 (LIST738 NAMESPACE_REF)))739 '|base|))))740 (ATN-PARSER::SUCCEED741 ATN-PARSER::INDEX742 ATN-PARSER::RESULT-STRUCTURE))))))743 (|base/base.2.4| (ATN-PARSER::INDEX)744 (ATN-PARSER:%ATN-NODE-BLOCK |base/base.2.4|745 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH NAMESPACE_REF)746 (MULTIPLE-VALUE-BIND747 (ATN-PARSER::RESULT748 ATN-PARSER::SUCCESS)749 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*750 'NAMESPACE_REF751 ATN-PARSER::INDEX)752 (COND753 (ATN-PARSER::SUCCESS754 (SETF ATN-PARSER:*ATN-TERM*755 'NAMESPACE_REF)756 (LET ((NAMESPACE_REF10757 NAMESPACE_REF))758 (DOLIST759 (ATN-PARSER::RESULT-AND-INDEX760 ATN-PARSER::RESULT)761 (DESTRUCTURING-BIND762 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)763 ATN-PARSER::RESULT-AND-INDEX764 (WHEN765 ATN-PARSER::RESULT766 (SETF NAMESPACE_REF767 ATN-PARSER::RESULT))768 (|base/base.2.5|769 ATN-PARSER::RESULT-INDEX))770 (SETF NAMESPACE_REF771 NAMESPACE_REF10))))772 (T773 (SETF ATN-PARSER:*ATN-TERM?*774 'NAMESPACE_REF)775 (|base/fail.3|776 ATN-PARSER::INDEX)))))))777 (|base/base.2.5| (ATN-PARSER::INDEX)778 (ATN-PARSER:%ATN-NODE-BLOCK |base/base.2.5|779 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|.|)780 (COND781 ((EQ ATN-PARSER::|item|782 'SPOCQ.S:|.|)783 (SETF ATN-PARSER:*ATN-TERM*784 'SPOCQ.S:|.|)785 (|base.2|786 (1+ ATN-PARSER::INDEX)))787 (T788 (SETF ATN-PARSER:*ATN-TERM?*789 'SPOCQ.S:|.|)790 (|base/fail.3|791 ATN-PARSER::INDEX))))))792 (|base/fail.3| (ATN-PARSER::INDEX)793 (ATN-PARSER:%ATN-NODE-BLOCK |base/fail.3|794 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))795 (|base/start.1| (ATN-PARSER::INDEX)796 (ATN-PARSER:%ATN-NODE-BLOCK |base/start.1|797 (ATN-PARSER:%ATN-EDGE-BLOCK798 (ATN-PARSER::WORD SPOCQ.S::|@base|)799 (COND800 ((EQ ATN-PARSER::|item| 'SPOCQ.S::|@base|)801 (SETF ATN-PARSER:*ATN-TERM* 'SPOCQ.S::|@base|)802 (|base/base.2.4| (1+ ATN-PARSER::INDEX)))803 (T (SETF ATN-PARSER:*ATN-TERM?* 'SPOCQ.S::|@base|)804 (|base/fail.3| ATN-PARSER::INDEX)))))))805 (|base/start.1| ATN-PARSER::INDEX)806 (SETF ATN-PARSER:*ATN-NODE NIL)807 NIL808 (IF ATN-PARSER::ATN-STRUCTURE809 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)810 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))811 (WARN "recursive grammar: ~s @ position ~s: ~s" '|base| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))812 (PROGN813 (DEFVAR |BaseDecl-INDEX|)814 (DEFUN |BaseDecl| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL))815 "{5s} BaseDecl ::= 'BASE' NAMESPACE_REF816 (NAMESPACE_REF)"817 (DECLARE (SPECIAL |BaseDecl-INDEX|))818 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BaseDecl-INDEX| ATN-PARSER:*ATN-LEVEL))819 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))820 (IF (< |BaseDecl-INDEX| ATN-PARSER::INDEX)821 (LET ((|BaseDecl-INDEX| ATN-PARSER::INDEX)822 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))823 (ATN-PARSER:*ATN-STACK (CONS '|BaseDecl| ATN-PARSER:*ATN-STACK))824 (ATN-PARSER::ATN-STRUCTURE NIL))825 (DECLARE (SPECIAL |BaseDecl-INDEX|))826 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))827 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))828 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))829 (ATN-PARSER:%ATN-BLOCK |BaseDecl|830 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)831 (SETF ATN-PARSER:*ATN-TERM* '|BaseDecl|)832 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))833 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)834 ATN-PARSER::INDEX)835 (|BaseDecl.2| (ATN-PARSER::INDEX)836 (ATN-PARSER:%ATN-NODE-BLOCK |BaseDecl.2|837 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |BaseDecl|)838 (WHEN T839 (SETF ATN-PARSER:*ATN-TERM*840 '|BaseDecl|)841 (ATN-PARSER:%ATN-TRACE842 " [***/~a @ ~s reduce structure: ~a"843 '|BaseDecl|844 ATN-PARSER::INDEX845 (LIST 'NAMESPACE_REF846 NAMESPACE_REF))847 (LET ((ATN-PARSER::RESULT-STRUCTURE848 (IF (EQ849 ATN-PARSER:*ATN-REDUCE*850 T)851 (|BaseDecl-Constructor|852 NAMESPACE_REF)853 (IF (EQ854 ATN-PARSER:*ATN-REDUCE*855 'CONS)856 (CONS857 '|BaseDecl|858 (DELETE NIL859 (LIST860 NAMESPACE_REF)))861 '|BaseDecl|))))862 (ATN-PARSER::SUCCEED863 ATN-PARSER::INDEX864 ATN-PARSER::RESULT-STRUCTURE))))))865 (|BaseDecl/BaseDecl.2.4| (ATN-PARSER::INDEX)866 (ATN-PARSER:%ATN-NODE-BLOCK |BaseDecl/BaseDecl.2.4|867 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH NAMESPACE_REF)868 (MULTIPLE-VALUE-BIND869 (ATN-PARSER::RESULT870 ATN-PARSER::SUCCESS)871 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*872 'NAMESPACE_REF873 ATN-PARSER::INDEX)874 (COND875 (ATN-PARSER::SUCCESS876 (SETF ATN-PARSER:*ATN-TERM*877 'NAMESPACE_REF)878 (LET ((NAMESPACE_REF11879 NAMESPACE_REF))880 (DOLIST881 (ATN-PARSER::RESULT-AND-INDEX882 ATN-PARSER::RESULT)883 (DESTRUCTURING-BIND884 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)885 ATN-PARSER::RESULT-AND-INDEX886 (WHEN887 ATN-PARSER::RESULT888 (SETF NAMESPACE_REF889 ATN-PARSER::RESULT))890 (|BaseDecl.2|891 ATN-PARSER::RESULT-INDEX))892 (SETF NAMESPACE_REF893 NAMESPACE_REF11))))894 (T895 (SETF ATN-PARSER:*ATN-TERM?*896 'NAMESPACE_REF)897 (|BaseDecl/fail.3|898 ATN-PARSER::INDEX)))))))899 (|BaseDecl/fail.3| (ATN-PARSER::INDEX)900 (ATN-PARSER:%ATN-NODE-BLOCK |BaseDecl/fail.3|901 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))902 (|BaseDecl/start.1| (ATN-PARSER::INDEX)903 (ATN-PARSER:%ATN-NODE-BLOCK |BaseDecl/start.1|904 (ATN-PARSER:%ATN-EDGE-BLOCK905 (ATN-PARSER::WORD SPOCQ.S:BASE)906 (COND907 ((EQ ATN-PARSER::|item| 'SPOCQ.S:BASE)908 (SETF ATN-PARSER:*ATN-TERM* 'SPOCQ.S:BASE)909 (|BaseDecl/BaseDecl.2.4| (1+ ATN-PARSER::INDEX)))910 (T (SETF ATN-PARSER:*ATN-TERM?* 'SPOCQ.S:BASE)911 (|BaseDecl/fail.3| ATN-PARSER::INDEX)))))))912 (|BaseDecl/start.1| ATN-PARSER::INDEX)913 (SETF ATN-PARSER:*ATN-NODE NIL)914 NIL915 (IF ATN-PARSER::ATN-STRUCTURE916 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)917 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))918 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BaseDecl| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))919 (PROGN920 (DEFVAR |PrefixDecl-INDEX|)921 (DEFUN |PrefixDecl| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL) (PNAME_NS NIL))922 "{6s} PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF923 (NAMESPACE_REF PNAME_NS)"924 (DECLARE (SPECIAL |PrefixDecl-INDEX|))925 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PrefixDecl-INDEX| ATN-PARSER:*ATN-LEVEL))926 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))927 (IF (< |PrefixDecl-INDEX| ATN-PARSER::INDEX)928 (LET ((|PrefixDecl-INDEX| ATN-PARSER::INDEX)929 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))930 (ATN-PARSER:*ATN-STACK (CONS '|PrefixDecl| ATN-PARSER:*ATN-STACK))931 (ATN-PARSER::ATN-STRUCTURE NIL))932 (DECLARE (SPECIAL |PrefixDecl-INDEX|))933 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))934 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))935 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))936 (ATN-PARSER:%ATN-BLOCK |PrefixDecl|937 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)938 (SETF ATN-PARSER:*ATN-TERM* '|PrefixDecl|)939 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))940 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)941 ATN-PARSER::INDEX)942 (|PrefixDecl.2| (ATN-PARSER::INDEX)943 (ATN-PARSER:%ATN-NODE-BLOCK |PrefixDecl.2|944 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |PrefixDecl|)945 (WHEN T946 (SETF ATN-PARSER:*ATN-TERM*947 '|PrefixDecl|)948 (ATN-PARSER:%ATN-TRACE949 " [***/~a @ ~s reduce structure: ~a"950 '|PrefixDecl|951 ATN-PARSER::INDEX952 (LIST 'NAMESPACE_REF953 NAMESPACE_REF954 'PNAME_NS PNAME_NS))955 (LET ((ATN-PARSER::RESULT-STRUCTURE956 (IF (EQ957 ATN-PARSER:*ATN-REDUCE*958 T)959 (|PrefixDecl-Constructor|960 NAMESPACE_REF961 PNAME_NS)962 (IF (EQ963 ATN-PARSER:*ATN-REDUCE*964 'CONS)965 (CONS966 '|PrefixDecl|967 (DELETE NIL968 (LIST969 NAMESPACE_REF970 PNAME_NS)))971 '|PrefixDecl|))))972 (ATN-PARSER::SUCCEED973 ATN-PARSER::INDEX974 ATN-PARSER::RESULT-STRUCTURE))))))975 (|PrefixDecl/fail.3| (ATN-PARSER::INDEX)976 (ATN-PARSER:%ATN-NODE-BLOCK |PrefixDecl/fail.3|977 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))978 (|PrefixDecl/PrefixDecl.2.4| (ATN-PARSER::INDEX)979 (ATN-PARSER:%ATN-NODE-BLOCK |PrefixDecl/PrefixDecl.2.4|980 (ATN-PARSER:%ATN-EDGE-BLOCK (TEST PNAME_NS)981 (COND982 ((IS-PNAME_NS983 ATN-PARSER::|item|)984 (SETF ATN-PARSER:*ATN-TERM*985 'PNAME_NS)986 (SETF PNAME_NS987 (IF (EQ988 ATN-PARSER:*ATN-REDUCE*989 T)990 (ATN-PARSER:ATN-REDUCE-ITEM991 #'|PNAME_NS-Constructor|992 ATN-PARSER::|item|)993 (IF (EQ994 ATN-PARSER:*ATN-REDUCE*995 'CONS)996 (LIST997 'PNAME_NS998 ATN-PARSER::|item|)999 'PNAME_NS)))1000 (|PrefixDecl/PrefixDecl.2.5|1001 (1+ ATN-PARSER::INDEX)))1002 (T1003 (SETF ATN-PARSER:*ATN-TERM?*1004 'PNAME_NS)1005 (|PrefixDecl/fail.3|1006 ATN-PARSER::INDEX))))))1007 (|PrefixDecl/PrefixDecl.2.5| (ATN-PARSER::INDEX)1008 (ATN-PARSER:%ATN-NODE-BLOCK |PrefixDecl/PrefixDecl.2.5|1009 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH NAMESPACE_REF)1010 (MULTIPLE-VALUE-BIND1011 (ATN-PARSER::RESULT1012 ATN-PARSER::SUCCESS)1013 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1014 'NAMESPACE_REF1015 ATN-PARSER::INDEX)1016 (COND1017 (ATN-PARSER::SUCCESS1018 (SETF ATN-PARSER:*ATN-TERM*1019 'NAMESPACE_REF)1020 (LET ((NAMESPACE_REF121021 NAMESPACE_REF))1022 (DOLIST1023 (ATN-PARSER::RESULT-AND-INDEX1024 ATN-PARSER::RESULT)1025 (DESTRUCTURING-BIND1026 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1027 ATN-PARSER::RESULT-AND-INDEX1028 (WHEN1029 ATN-PARSER::RESULT1030 (SETF NAMESPACE_REF1031 ATN-PARSER::RESULT))1032 (|PrefixDecl.2|1033 ATN-PARSER::RESULT-INDEX))1034 (SETF NAMESPACE_REF1035 NAMESPACE_REF12))))1036 (T1037 (SETF ATN-PARSER:*ATN-TERM?*1038 'NAMESPACE_REF)1039 (|PrefixDecl/fail.3|1040 ATN-PARSER::INDEX)))))))1041 (|PrefixDecl/start.1| (ATN-PARSER::INDEX)1042 (ATN-PARSER:%ATN-NODE-BLOCK |PrefixDecl/start.1|1043 (ATN-PARSER:%ATN-EDGE-BLOCK1044 (ATN-PARSER::WORD SPOCQ.S:PREFIX)1045 (COND1046 ((EQ ATN-PARSER::|item| 'SPOCQ.S:PREFIX)1047 (SETF ATN-PARSER:*ATN-TERM* 'SPOCQ.S:PREFIX)1048 (|PrefixDecl/PrefixDecl.2.4| (1+ ATN-PARSER::INDEX)))1049 (T (SETF ATN-PARSER:*ATN-TERM?* 'SPOCQ.S:PREFIX)1050 (|PrefixDecl/fail.3| ATN-PARSER::INDEX)))))))1051 (|PrefixDecl/start.1| ATN-PARSER::INDEX)1052 (SETF ATN-PARSER:*ATN-NODE NIL)1053 NIL1054 (IF ATN-PARSER::ATN-STRUCTURE1055 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1056 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))1057 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PrefixDecl| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1058 (PROGN1059 (DEFVAR |triples-INDEX|)1060 (DEFUN |triples| (ATN-PARSER::INDEX &AUX (|BlankNodePropertyList| NIL) (|PropertyListNotEmpty| NIL) (|subject| NIL))1061 "{6 } triples ::= ((subject PropertyListNotEmpty) | (BlankNodePropertyList1062 PropertyListNotEmpty?))1063 (|BlankNodePropertyList| |PropertyListNotEmpty| |subject|)"1064 (DECLARE (SPECIAL |triples-INDEX|))1065 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |triples-INDEX| ATN-PARSER:*ATN-LEVEL))1066 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1067 (IF (< |triples-INDEX| ATN-PARSER::INDEX)1068 (LET ((|triples-INDEX| ATN-PARSER::INDEX)1069 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1070 (ATN-PARSER:*ATN-STACK (CONS '|triples| ATN-PARSER:*ATN-STACK))1071 (ATN-PARSER::ATN-STRUCTURE NIL))1072 (DECLARE (SPECIAL |triples-INDEX|))1073 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1074 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1075 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1076 (ATN-PARSER:%ATN-BLOCK |triples|1077 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1078 (SETF ATN-PARSER:*ATN-TERM* '|triples|)1079 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1080 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1081 ATN-PARSER::INDEX)1082 (|triples.2| (ATN-PARSER::INDEX)1083 (ATN-PARSER:%ATN-NODE-BLOCK |triples.2|1084 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |triples|)1085 (WHEN T1086 (SETF ATN-PARSER:*ATN-TERM*1087 '|triples|)1088 (ATN-PARSER:%ATN-TRACE1089 " [***/~a @ ~s reduce structure: ~a"1090 '|triples|1091 ATN-PARSER::INDEX1092 (LIST1093 '|BlankNodePropertyList|1094 |BlankNodePropertyList|1095 '|PropertyListNotEmpty|1096 |PropertyListNotEmpty|1097 '|subject| |subject|))1098 (LET ((ATN-PARSER::RESULT-STRUCTURE1099 (IF (EQ1100 ATN-PARSER:*ATN-REDUCE*1101 T)1102 (|triples-Constructor|1103 |BlankNodePropertyList|1104 |PropertyListNotEmpty|1105 |subject|)1106 (IF (EQ1107 ATN-PARSER:*ATN-REDUCE*1108 'CONS)1109 (CONS1110 '|triples|1111 (DELETE NIL1112 (LIST1113 |BlankNodePropertyList|1114 |PropertyListNotEmpty|1115 |subject|)))1116 '|triples|))))1117 (ATN-PARSER::SUCCEED1118 ATN-PARSER::INDEX1119 ATN-PARSER::RESULT-STRUCTURE))))))1120 (|triples/fail.3| (ATN-PARSER::INDEX)1121 (ATN-PARSER:%ATN-NODE-BLOCK |triples/fail.3|1122 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1123 (|triples/start.1| (ATN-PARSER::INDEX)1124 (ATN-PARSER:%ATN-NODE-BLOCK |triples/start.1|1125 (ATN-PARSER:%ATN-EDGE-BLOCK OR1126 (PROGN1127 (ATN-PARSER:%ATN-EDGE-BLOCK1128 (ATN-PARSER::JUMP1129 |triples/triples.2.4|)1130 (|triples/triples.2.4|1131 ATN-PARSER::INDEX))1132 (ATN-PARSER:%ATN-EDGE-BLOCK1133 (ATN-PARSER::JUMP1134 |triples/triples.2.6|)1135 (|triples/triples.2.6|1136 ATN-PARSER::INDEX))1137 (|triples/fail.3|1138 ATN-PARSER::INDEX)))))1139 (|triples/triples.2.4| (ATN-PARSER::INDEX)1140 (ATN-PARSER:%ATN-NODE-BLOCK |triples/triples.2.4|1141 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |subject|)1142 (MULTIPLE-VALUE-BIND1143 (ATN-PARSER::RESULT1144 ATN-PARSER::SUCCESS)1145 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1146 '|subject|1147 ATN-PARSER::INDEX)1148 (COND1149 (ATN-PARSER::SUCCESS1150 (SETF ATN-PARSER:*ATN-TERM*1151 '|subject|)1152 (LET ((|subject16|1153 |subject|))1154 (DOLIST1155 (ATN-PARSER::RESULT-AND-INDEX1156 ATN-PARSER::RESULT)1157 (DESTRUCTURING-BIND1158 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1159 ATN-PARSER::RESULT-AND-INDEX1160 (WHEN1161 ATN-PARSER::RESULT1162 (SETF |subject|1163 ATN-PARSER::RESULT))1164 (|triples/triples.2.5|1165 ATN-PARSER::RESULT-INDEX))1166 (SETF |subject|1167 |subject16|))))1168 (T1169 (SETF ATN-PARSER:*ATN-TERM?*1170 '|subject|)1171 NIL))))))1172 (|triples/triples.2.5| (ATN-PARSER::INDEX)1173 (ATN-PARSER:%ATN-NODE-BLOCK |triples/triples.2.5|1174 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |PropertyListNotEmpty|)1175 (MULTIPLE-VALUE-BIND1176 (ATN-PARSER::RESULT1177 ATN-PARSER::SUCCESS)1178 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1179 '|PropertyListNotEmpty|1180 ATN-PARSER::INDEX)1181 (COND1182 (ATN-PARSER::SUCCESS1183 (SETF ATN-PARSER:*ATN-TERM*1184 '|PropertyListNotEmpty|)1185 (LET ((|PropertyListNotEmpty15|1186 |PropertyListNotEmpty|))1187 (DOLIST1188 (ATN-PARSER::RESULT-AND-INDEX1189 ATN-PARSER::RESULT)1190 (DESTRUCTURING-BIND1191 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1192 ATN-PARSER::RESULT-AND-INDEX1193 (WHEN1194 ATN-PARSER::RESULT1195 (SETF |PropertyListNotEmpty|1196 ATN-PARSER::RESULT))1197 (|triples.2|1198 ATN-PARSER::RESULT-INDEX))1199 (SETF |PropertyListNotEmpty|1200 |PropertyListNotEmpty15|))))1201 (T1202 (SETF ATN-PARSER:*ATN-TERM?*1203 '|PropertyListNotEmpty|)1204 NIL))))))1205 (|triples/triples.2.6| (ATN-PARSER::INDEX)1206 (ATN-PARSER:%ATN-NODE-BLOCK |triples/triples.2.6|1207 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |BlankNodePropertyList|)1208 (MULTIPLE-VALUE-BIND1209 (ATN-PARSER::RESULT1210 ATN-PARSER::SUCCESS)1211 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1212 '|BlankNodePropertyList|1213 ATN-PARSER::INDEX)1214 (COND1215 (ATN-PARSER::SUCCESS1216 (SETF ATN-PARSER:*ATN-TERM*1217 '|BlankNodePropertyList|)1218 (LET ((|BlankNodePropertyList14|1219 |BlankNodePropertyList|))1220 (DOLIST1221 (ATN-PARSER::RESULT-AND-INDEX1222 ATN-PARSER::RESULT)1223 (DESTRUCTURING-BIND1224 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1225 ATN-PARSER::RESULT-AND-INDEX1226 (WHEN1227 ATN-PARSER::RESULT1228 (SETF |BlankNodePropertyList|1229 ATN-PARSER::RESULT))1230 (|triples/triples.2.7|1231 ATN-PARSER::RESULT-INDEX))1232 (SETF |BlankNodePropertyList|1233 |BlankNodePropertyList14|))))1234 (T1235 (SETF ATN-PARSER:*ATN-TERM?*1236 '|BlankNodePropertyList|)1237 NIL))))))1238 (|triples/triples.2.7| (ATN-PARSER::INDEX)1239 (ATN-PARSER:%ATN-NODE-BLOCK |triples/triples.2.7|1240 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |PropertyListNotEmpty|)1241 (MULTIPLE-VALUE-BIND1242 (ATN-PARSER::RESULT1243 ATN-PARSER::SUCCESS)1244 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1245 '|PropertyListNotEmpty|1246 ATN-PARSER::INDEX)1247 (COND1248 (ATN-PARSER::SUCCESS1249 (SETF ATN-PARSER:*ATN-TERM*1250 '|PropertyListNotEmpty|)1251 (LET ((|PropertyListNotEmpty13|1252 |PropertyListNotEmpty|))1253 (DOLIST1254 (ATN-PARSER::RESULT-AND-INDEX1255 ATN-PARSER::RESULT)1256 (DESTRUCTURING-BIND1257 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1258 ATN-PARSER::RESULT-AND-INDEX1259 (WHEN1260 ATN-PARSER::RESULT1261 (SETF |PropertyListNotEmpty|1262 ATN-PARSER::RESULT))1263 (|triples.2|1264 ATN-PARSER::RESULT-INDEX))1265 (SETF |PropertyListNotEmpty|1266 |PropertyListNotEmpty13|))))1267 (T1268 (SETF ATN-PARSER:*ATN-TERM?*1269 '|PropertyListNotEmpty|)1270 (|triples.2|1271 ATN-PARSER::INDEX))))))))1272 (|triples/start.1| ATN-PARSER::INDEX)1273 (SETF ATN-PARSER:*ATN-NODE NIL)1274 NIL1275 (IF ATN-PARSER::ATN-STRUCTURE1276 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1277 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))1278 (WARN "recursive grammar: ~s @ position ~s: ~s" '|triples| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1279 (PROGN1280 (DEFVAR |objectList-INDEX|)1281 (DEFUN |objectList| (ATN-PARSER::INDEX &AUX (|object| NIL))1282 "{8 } objectList ::= object (',' object)*1283 (|object|)"1284 (DECLARE (SPECIAL |objectList-INDEX|))1285 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |objectList-INDEX| ATN-PARSER:*ATN-LEVEL))1286 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1287 (IF (< |objectList-INDEX| ATN-PARSER::INDEX)1288 (LET ((|objectList-INDEX| ATN-PARSER::INDEX)1289 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1290 (ATN-PARSER:*ATN-STACK (CONS '|objectList| ATN-PARSER:*ATN-STACK))1291 (ATN-PARSER::ATN-STRUCTURE NIL))1292 (DECLARE (SPECIAL |objectList-INDEX|))1293 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1294 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1295 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1296 (ATN-PARSER:%ATN-BLOCK |objectList|1297 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1298 (SETF ATN-PARSER:*ATN-TERM* '|objectList|)1299 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1300 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1301 ATN-PARSER::INDEX)1302 (|objectList.2| (ATN-PARSER::INDEX)1303 (ATN-PARSER:%ATN-NODE-BLOCK |objectList.2|1304 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |objectList|)1305 (WHEN T1306 (SETF ATN-PARSER:*ATN-TERM*1307 '|objectList|)1308 (ATN-PARSER:%ATN-TRACE1309 " [***/~a @ ~s reduce structure: ~a"1310 '|objectList|1311 ATN-PARSER::INDEX1312 (LIST '|object| |object|))1313 (LET ((ATN-PARSER::RESULT-STRUCTURE1314 (IF (EQ1315 ATN-PARSER:*ATN-REDUCE*1316 T)1317 (|objectList-Constructor|1318 |object|)1319 (IF (EQ1320 ATN-PARSER:*ATN-REDUCE*1321 'CONS)1322 (CONS1323 '|objectList|1324 (DELETE NIL1325 (LIST1326 |object|)))1327 '|objectList|))))1328 (ATN-PARSER::SUCCEED1329 ATN-PARSER::INDEX1330 ATN-PARSER::RESULT-STRUCTURE))))))1331 (|objectList.5| (ATN-PARSER::INDEX)1332 (ATN-PARSER:%ATN-NODE-BLOCK |objectList.5|1333 (ATN-PARSER:%ATN-EDGE-BLOCK1334 (ATN-PARSER::JUMP |objectList/objectList.5.6|)1335 (|objectList/objectList.5.6| ATN-PARSER::INDEX))1336 (ATN-PARSER:%ATN-EDGE-BLOCK1337 (ATN-PARSER::JUMP |objectList.2|)1338 (|objectList.2| ATN-PARSER::INDEX))))1339 (|objectList/fail.3| (ATN-PARSER::INDEX)1340 (ATN-PARSER:%ATN-NODE-BLOCK |objectList/fail.3|1341 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1342 (|objectList/objectList.2.4| (ATN-PARSER::INDEX)1343 (ATN-PARSER:%ATN-NODE-BLOCK |objectList/objectList.2.4|1344 (ATN-PARSER:%ATN-EDGE-BLOCK1345 (ATN-PARSER::JUMP |objectList/objectList.5.6|)1346 (|objectList/objectList.5.6| ATN-PARSER::INDEX))1347 (ATN-PARSER:%ATN-EDGE-BLOCK1348 (ATN-PARSER::JUMP |objectList.2|)1349 (|objectList.2| ATN-PARSER::INDEX))))1350 (|objectList/objectList.5.6| (ATN-PARSER::INDEX)1351 (ATN-PARSER:%ATN-NODE-BLOCK |objectList/objectList.5.6|1352 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|,|)1353 (COND1354 ((EQ ATN-PARSER::|item|1355 'SPOCQ.S:|,|)1356 (SETF ATN-PARSER:*ATN-TERM*1357 'SPOCQ.S:|,|)1358 (|objectList/objectList.5.7|1359 (1+ ATN-PARSER::INDEX)))1360 (T1361 (SETF ATN-PARSER:*ATN-TERM?*1362 'SPOCQ.S:|,|)1363 NIL)))))1364 (|objectList/objectList.5.7| (ATN-PARSER::INDEX)1365 (ATN-PARSER:%ATN-NODE-BLOCK |objectList/objectList.5.7|1366 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |object|)1367 (MULTIPLE-VALUE-BIND1368 (ATN-PARSER::RESULT1369 ATN-PARSER::SUCCESS)1370 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1371 '|object|1372 ATN-PARSER::INDEX)1373 (COND1374 (ATN-PARSER::SUCCESS1375 (SETF ATN-PARSER:*ATN-TERM*1376 '|object|)1377 (LET ((|object17|1378 |object|))1379 (DOLIST1380 (ATN-PARSER::RESULT-AND-INDEX1381 ATN-PARSER::RESULT)1382 (DESTRUCTURING-BIND1383 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1384 ATN-PARSER::RESULT-AND-INDEX1385 (WHEN1386 ATN-PARSER::RESULT1387 (SETF |object|1388 (CONS1389 ATN-PARSER::RESULT1390 |object|)))1391 (|objectList.5|1392 ATN-PARSER::RESULT-INDEX))1393 (SETF |object|1394 |object17|))))1395 (T1396 (SETF ATN-PARSER:*ATN-TERM?*1397 '|object|)1398 NIL))))))1399 (|objectList/start.1| (ATN-PARSER::INDEX)1400 (ATN-PARSER:%ATN-NODE-BLOCK |objectList/start.1|1401 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |object|)1402 (MULTIPLE-VALUE-BIND1403 (ATN-PARSER::RESULT1404 ATN-PARSER::SUCCESS)1405 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1406 '|object|1407 ATN-PARSER::INDEX)1408 (COND1409 (ATN-PARSER::SUCCESS1410 (SETF ATN-PARSER:*ATN-TERM*1411 '|object|)1412 (LET ((|object18|1413 |object|))1414 (DOLIST1415 (ATN-PARSER::RESULT-AND-INDEX1416 ATN-PARSER::RESULT)1417 (DESTRUCTURING-BIND1418 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1419 ATN-PARSER::RESULT-AND-INDEX1420 (WHEN1421 ATN-PARSER::RESULT1422 (SETF |object|1423 (CONS1424 ATN-PARSER::RESULT1425 |object|)))1426 (|objectList/objectList.2.4|1427 ATN-PARSER::RESULT-INDEX))1428 (SETF |object|1429 |object18|))))1430 (T1431 (SETF ATN-PARSER:*ATN-TERM?*1432 '|object|)1433 (|objectList/fail.3|1434 ATN-PARSER::INDEX))))))))1435 (|objectList/start.1| ATN-PARSER::INDEX)1436 (SETF ATN-PARSER:*ATN-NODE NIL)1437 NIL1438 (IF ATN-PARSER::ATN-STRUCTURE1439 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1440 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))1441 (WARN "recursive grammar: ~s @ position ~s: ~s" '|objectList| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1442 (PROGN1443 (DEFVAR |verb-INDEX|)1444 (DEFUN |verb| (ATN-PARSER::INDEX &AUX (|predicate| NIL))1445 "{9 } verb ::= (predicate | 'a')1446 (|predicate|)"1447 (DECLARE (SPECIAL |verb-INDEX|))1448 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |verb-INDEX| ATN-PARSER:*ATN-LEVEL))1449 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1450 (IF (< |verb-INDEX| ATN-PARSER::INDEX)1451 (LET ((|verb-INDEX| ATN-PARSER::INDEX)1452 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1453 (ATN-PARSER:*ATN-STACK (CONS '|verb| ATN-PARSER:*ATN-STACK))1454 (ATN-PARSER::ATN-STRUCTURE NIL))1455 (DECLARE (SPECIAL |verb-INDEX|))1456 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1457 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1458 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1459 (ATN-PARSER:%ATN-BLOCK |verb|1460 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1461 (SETF ATN-PARSER:*ATN-TERM* '|verb|)1462 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1463 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1464 ATN-PARSER::INDEX)1465 (|verb.2| (ATN-PARSER::INDEX)1466 (ATN-PARSER:%ATN-NODE-BLOCK |verb.2|1467 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |verb|)1468 (WHEN T1469 (SETF ATN-PARSER:*ATN-TERM*1470 '|verb|)1471 (ATN-PARSER:%ATN-TRACE1472 " [***/~a @ ~s reduce structure: ~a"1473 '|verb| ATN-PARSER::INDEX1474 (LIST '|predicate|1475 |predicate|))1476 (LET ((ATN-PARSER::RESULT-STRUCTURE1477 (IF (EQ1478 ATN-PARSER:*ATN-REDUCE*1479 T)1480 (|verb-Constructor|1481 |predicate|)1482 (IF (EQ1483 ATN-PARSER:*ATN-REDUCE*1484 'CONS)1485 (CONS '|verb|1486 (DELETE1487 NIL1488 (LIST1489 |predicate|)))1490 '|verb|))))1491 (ATN-PARSER::SUCCEED1492 ATN-PARSER::INDEX1493 ATN-PARSER::RESULT-STRUCTURE))))))1494 (|verb/fail.3| (ATN-PARSER::INDEX)1495 (ATN-PARSER:%ATN-NODE-BLOCK |verb/fail.3|1496 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1497 (|verb/start.1| (ATN-PARSER::INDEX)1498 (ATN-PARSER:%ATN-NODE-BLOCK |verb/start.1|1499 (ATN-PARSER:%ATN-EDGE-BLOCK OR1500 (PROGN1501 (ATN-PARSER:%ATN-EDGE-BLOCK1502 (PUSH |predicate|)1503 (MULTIPLE-VALUE-BIND1504 (ATN-PARSER::RESULT1505 ATN-PARSER::SUCCESS)1506 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1507 '|predicate|1508 ATN-PARSER::INDEX)1509 (COND1510 (ATN-PARSER::SUCCESS1511 (SETF ATN-PARSER:*ATN-TERM*1512 '|predicate|)1513 (LET ((|predicate19|1514 |predicate|))1515 (DOLIST1516 (ATN-PARSER::RESULT-AND-INDEX1517 ATN-PARSER::RESULT)1518 (DESTRUCTURING-BIND1519 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1520 ATN-PARSER::RESULT-AND-INDEX1521 (WHEN1522 ATN-PARSER::RESULT1523 (SETF |predicate|1524 ATN-PARSER::RESULT))1525 (|verb.2|1526 ATN-PARSER::RESULT-INDEX))1527 (SETF |predicate|1528 |predicate19|))))1529 (T1530 (SETF ATN-PARSER:*ATN-TERM?*1531 '|predicate|)1532 NIL))))1533 (ATN-PARSER:%ATN-EDGE-BLOCK1534 (ATN-PARSER::WORD1535 SPOCQ.S:|a|)1536 (COND1537 ((EQ ATN-PARSER::|item|1538 'SPOCQ.S:|a|)1539 (SETF ATN-PARSER:*ATN-TERM*1540 'SPOCQ.S:|a|)1541 (|verb.2|1542 (1+ ATN-PARSER::INDEX)))1543 (T1544 (SETF ATN-PARSER:*ATN-TERM?*1545 'SPOCQ.S:|a|)1546 NIL)))1547 (|verb/fail.3|1548 ATN-PARSER::INDEX))))))1549 (|verb/start.1| ATN-PARSER::INDEX)1550 (SETF ATN-PARSER:*ATN-NODE NIL)1551 NIL1552 (IF ATN-PARSER::ATN-STRUCTURE1553 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1554 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))1555 (WARN "recursive grammar: ~s @ position ~s: ~s" '|verb| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1556 (PROGN1557 (DEFVAR |subject-INDEX|)1558 (DEFUN |subject| (ATN-PARSER::INDEX &AUX (|BlankNode| NIL) (|collection| NIL) (|iri| NIL))1559 "{10} subject ::= (iri | BlankNode | collection)1560 (|BlankNode| |collection| |iri|)"1561 (DECLARE (SPECIAL |subject-INDEX|))1562 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |subject-INDEX| ATN-PARSER:*ATN-LEVEL))1563 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1564 (IF (< |subject-INDEX| ATN-PARSER::INDEX)1565 (LET ((|subject-INDEX| ATN-PARSER::INDEX)1566 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1567 (ATN-PARSER:*ATN-STACK (CONS '|subject| ATN-PARSER:*ATN-STACK))1568 (ATN-PARSER::ATN-STRUCTURE NIL))1569 (DECLARE (SPECIAL |subject-INDEX|))1570 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1571 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1572 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1573 (ATN-PARSER:%ATN-BLOCK |subject|1574 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1575 (SETF ATN-PARSER:*ATN-TERM* '|subject|)1576 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1577 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1578 ATN-PARSER::INDEX)1579 (|subject.2| (ATN-PARSER::INDEX)1580 (ATN-PARSER:%ATN-NODE-BLOCK |subject.2|1581 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |subject|)1582 (WHEN T1583 (SETF ATN-PARSER:*ATN-TERM*1584 '|subject|)1585 (ATN-PARSER:%ATN-TRACE1586 " [***/~a @ ~s reduce structure: ~a"1587 '|subject|1588 ATN-PARSER::INDEX1589 (LIST '|BlankNode|1590 |BlankNode|1591 '|collection|1592 |collection| '|iri|1593 |iri|))1594 (LET ((ATN-PARSER::RESULT-STRUCTURE1595 (IF (EQ1596 ATN-PARSER:*ATN-REDUCE*1597 T)1598 (|subject-Constructor|1599 |BlankNode|1600 |collection|1601 |iri|)1602 (IF (EQ1603 ATN-PARSER:*ATN-REDUCE*1604 'CONS)1605 (CONS1606 '|subject|1607 (DELETE NIL1608 (LIST1609 |BlankNode|1610 |collection|1611 |iri|)))1612 '|subject|))))1613 (ATN-PARSER::SUCCEED1614 ATN-PARSER::INDEX1615 ATN-PARSER::RESULT-STRUCTURE))))))1616 (|subject/fail.3| (ATN-PARSER::INDEX)1617 (ATN-PARSER:%ATN-NODE-BLOCK |subject/fail.3|1618 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1619 (|subject/start.1| (ATN-PARSER::INDEX)1620 (ATN-PARSER:%ATN-NODE-BLOCK |subject/start.1|1621 (ATN-PARSER:%ATN-EDGE-BLOCK OR1622 (PROGN1623 (ATN-PARSER:%ATN-EDGE-BLOCK1624 (PUSH |iri|)1625 (MULTIPLE-VALUE-BIND1626 (ATN-PARSER::RESULT1627 ATN-PARSER::SUCCESS)1628 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1629 '|iri|1630 ATN-PARSER::INDEX)1631 (COND1632 (ATN-PARSER::SUCCESS1633 (SETF ATN-PARSER:*ATN-TERM*1634 '|iri|)1635 (LET ((|iri20| |iri|))1636 (DOLIST1637 (ATN-PARSER::RESULT-AND-INDEX1638 ATN-PARSER::RESULT)1639 (DESTRUCTURING-BIND1640 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1641 ATN-PARSER::RESULT-AND-INDEX1642 (WHEN1643 ATN-PARSER::RESULT1644 (SETF |iri|1645 ATN-PARSER::RESULT))1646 (|subject.2|1647 ATN-PARSER::RESULT-INDEX))1648 (SETF |iri|1649 |iri20|))))1650 (T1651 (SETF ATN-PARSER:*ATN-TERM?*1652 '|iri|)1653 NIL))))1654 (ATN-PARSER:%ATN-EDGE-BLOCK1655 (PUSH |BlankNode|)1656 (MULTIPLE-VALUE-BIND1657 (ATN-PARSER::RESULT1658 ATN-PARSER::SUCCESS)1659 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1660 '|BlankNode|1661 ATN-PARSER::INDEX)1662 (COND1663 (ATN-PARSER::SUCCESS1664 (SETF ATN-PARSER:*ATN-TERM*1665 '|BlankNode|)1666 (LET ((|BlankNode21|1667 |BlankNode|))1668 (DOLIST1669 (ATN-PARSER::RESULT-AND-INDEX1670 ATN-PARSER::RESULT)1671 (DESTRUCTURING-BIND1672 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1673 ATN-PARSER::RESULT-AND-INDEX1674 (WHEN1675 ATN-PARSER::RESULT1676 (SETF |BlankNode|1677 ATN-PARSER::RESULT))1678 (|subject.2|1679 ATN-PARSER::RESULT-INDEX))1680 (SETF |BlankNode|1681 |BlankNode21|))))1682 (T1683 (SETF ATN-PARSER:*ATN-TERM?*1684 '|BlankNode|)1685 NIL))))1686 (ATN-PARSER:%ATN-EDGE-BLOCK1687 (PUSH |collection|)1688 (MULTIPLE-VALUE-BIND1689 (ATN-PARSER::RESULT1690 ATN-PARSER::SUCCESS)1691 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1692 '|collection|1693 ATN-PARSER::INDEX)1694 (COND1695 (ATN-PARSER::SUCCESS1696 (SETF ATN-PARSER:*ATN-TERM*1697 '|collection|)1698 (LET ((|collection22|1699 |collection|))1700 (DOLIST1701 (ATN-PARSER::RESULT-AND-INDEX1702 ATN-PARSER::RESULT)1703 (DESTRUCTURING-BIND1704 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1705 ATN-PARSER::RESULT-AND-INDEX1706 (WHEN1707 ATN-PARSER::RESULT1708 (SETF |collection|1709 ATN-PARSER::RESULT))1710 (|subject.2|1711 ATN-PARSER::RESULT-INDEX))1712 (SETF |collection|1713 |collection22|))))1714 (T1715 (SETF ATN-PARSER:*ATN-TERM?*1716 '|collection|)1717 NIL))))1718 (|subject/fail.3|1719 ATN-PARSER::INDEX))))))1720 (|subject/start.1| ATN-PARSER::INDEX)1721 (SETF ATN-PARSER:*ATN-NODE NIL)1722 NIL1723 (IF ATN-PARSER::ATN-STRUCTURE1724 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1725 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))1726 (WARN "recursive grammar: ~s @ position ~s: ~s" '|subject| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1727 (PROGN1728 (DEFVAR |predicate-INDEX|)1729 (DEFUN |predicate| (ATN-PARSER::INDEX &AUX (|iri| NIL))1730 "{11} predicate ::= iri1731 (|iri|)"1732 (DECLARE (SPECIAL |predicate-INDEX|))1733 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |predicate-INDEX| ATN-PARSER:*ATN-LEVEL))1734 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1735 (IF (< |predicate-INDEX| ATN-PARSER::INDEX)1736 (LET ((|predicate-INDEX| ATN-PARSER::INDEX)1737 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1738 (ATN-PARSER:*ATN-STACK (CONS '|predicate| ATN-PARSER:*ATN-STACK))1739 (ATN-PARSER::ATN-STRUCTURE NIL))1740 (DECLARE (SPECIAL |predicate-INDEX|))1741 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1742 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1743 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1744 (ATN-PARSER:%ATN-BLOCK |predicate|1745 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1746 (SETF ATN-PARSER:*ATN-TERM* '|predicate|)1747 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1748 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1749 ATN-PARSER::INDEX)1750 (|predicate.2| (ATN-PARSER::INDEX)1751 (ATN-PARSER:%ATN-NODE-BLOCK |predicate.2|1752 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |predicate|)1753 (WHEN T1754 (SETF ATN-PARSER:*ATN-TERM*1755 '|predicate|)1756 (ATN-PARSER:%ATN-TRACE1757 " [***/~a @ ~s reduce structure: ~a"1758 '|predicate|1759 ATN-PARSER::INDEX1760 (LIST '|iri| |iri|))1761 (LET ((ATN-PARSER::RESULT-STRUCTURE1762 (IF (EQ1763 ATN-PARSER:*ATN-REDUCE*1764 T)1765 (|predicate-Constructor|1766 |iri|)1767 (IF (EQ1768 ATN-PARSER:*ATN-REDUCE*1769 'CONS)1770 (CONS1771 '|predicate|1772 (DELETE NIL1773 (LIST1774 |iri|)))1775 '|predicate|))))1776 (ATN-PARSER::SUCCEED1777 ATN-PARSER::INDEX1778 ATN-PARSER::RESULT-STRUCTURE))))))1779 (|predicate/fail.3| (ATN-PARSER::INDEX)1780 (ATN-PARSER:%ATN-NODE-BLOCK |predicate/fail.3|1781 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1782 (|predicate/start.1| (ATN-PARSER::INDEX)1783 (ATN-PARSER:%ATN-NODE-BLOCK |predicate/start.1|1784 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |iri|)1785 (MULTIPLE-VALUE-BIND1786 (ATN-PARSER::RESULT1787 ATN-PARSER::SUCCESS)1788 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1789 '|iri| ATN-PARSER::INDEX)1790 (COND1791 (ATN-PARSER::SUCCESS1792 (SETF ATN-PARSER:*ATN-TERM*1793 '|iri|)1794 (LET ((|iri23| |iri|))1795 (DOLIST1796 (ATN-PARSER::RESULT-AND-INDEX1797 ATN-PARSER::RESULT)1798 (DESTRUCTURING-BIND1799 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1800 ATN-PARSER::RESULT-AND-INDEX1801 (WHEN1802 ATN-PARSER::RESULT1803 (SETF |iri|1804 ATN-PARSER::RESULT))1805 (|predicate.2|1806 ATN-PARSER::RESULT-INDEX))1807 (SETF |iri|1808 |iri23|))))1809 (T1810 (SETF ATN-PARSER:*ATN-TERM?*1811 '|iri|)1812 (|predicate/fail.3|1813 ATN-PARSER::INDEX))))))))1814 (|predicate/start.1| ATN-PARSER::INDEX)1815 (SETF ATN-PARSER:*ATN-NODE NIL)1816 NIL1817 (IF ATN-PARSER::ATN-STRUCTURE1818 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1819 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))1820 (WARN "recursive grammar: ~s @ position ~s: ~s" '|predicate| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1821 (PROGN1822 (DEFVAR |object-INDEX|)1823 (DEFUN |object|1824 (ATN-PARSER::INDEX &AUX (|BlankNode| NIL) (|BlankNodePropertyList| NIL) (|collection| NIL) (|iri| NIL) (|literal| NIL))1825 "{12} object ::= (iri | BlankNode | collection | BlankNodePropertyList | literal)1826 (|BlankNode| |BlankNodePropertyList| |collection| |iri| |literal|)"1827 (DECLARE (SPECIAL |object-INDEX|))1828 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |object-INDEX| ATN-PARSER:*ATN-LEVEL))1829 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1830 (IF (< |object-INDEX| ATN-PARSER::INDEX)1831 (LET ((|object-INDEX| ATN-PARSER::INDEX)1832 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1833 (ATN-PARSER:*ATN-STACK (CONS '|object| ATN-PARSER:*ATN-STACK))1834 (ATN-PARSER::ATN-STRUCTURE NIL))1835 (DECLARE (SPECIAL |object-INDEX|))1836 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1837 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1838 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1839 (ATN-PARSER:%ATN-BLOCK |object|1840 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1841 (SETF ATN-PARSER:*ATN-TERM* '|object|)1842 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1843 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1844 ATN-PARSER::INDEX)1845 (|object.2| (ATN-PARSER::INDEX)1846 (ATN-PARSER:%ATN-NODE-BLOCK |object.2|1847 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |object|)1848 (WHEN T1849 (SETF ATN-PARSER:*ATN-TERM*1850 '|object|)1851 (ATN-PARSER:%ATN-TRACE1852 " [***/~a @ ~s reduce structure: ~a"1853 '|object| ATN-PARSER::INDEX1854 (LIST '|BlankNode|1855 |BlankNode|1856 '|BlankNodePropertyList|1857 |BlankNodePropertyList|1858 '|collection|1859 |collection| '|iri|1860 |iri| '|literal|1861 |literal|))1862 (LET ((ATN-PARSER::RESULT-STRUCTURE1863 (IF (EQ1864 ATN-PARSER:*ATN-REDUCE*1865 T)1866 (|object-Constructor|1867 |BlankNode|1868 |BlankNodePropertyList|1869 |collection|1870 |iri| |literal|)1871 (IF (EQ1872 ATN-PARSER:*ATN-REDUCE*1873 'CONS)1874 (CONS1875 '|object|1876 (DELETE NIL1877 (LIST1878 |BlankNode|1879 |BlankNodePropertyList|1880 |collection|1881 |iri|1882 |literal|)))1883 '|object|))))1884 (ATN-PARSER::SUCCEED1885 ATN-PARSER::INDEX1886 ATN-PARSER::RESULT-STRUCTURE))))))1887 (|object/fail.3| (ATN-PARSER::INDEX)1888 (ATN-PARSER:%ATN-NODE-BLOCK |object/fail.3|1889 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1890 (|object/start.1| (ATN-PARSER::INDEX)1891 (ATN-PARSER:%ATN-NODE-BLOCK |object/start.1|1892 (ATN-PARSER:%ATN-EDGE-BLOCK OR1893 (PROGN1894 (ATN-PARSER:%ATN-EDGE-BLOCK1895 (PUSH |iri|)1896 (MULTIPLE-VALUE-BIND1897 (ATN-PARSER::RESULT1898 ATN-PARSER::SUCCESS)1899 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1900 '|iri|1901 ATN-PARSER::INDEX)1902 (COND1903 (ATN-PARSER::SUCCESS1904 (SETF ATN-PARSER:*ATN-TERM*1905 '|iri|)1906 (LET ((|iri24| |iri|))1907 (DOLIST1908 (ATN-PARSER::RESULT-AND-INDEX1909 ATN-PARSER::RESULT)1910 (DESTRUCTURING-BIND1911 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1912 ATN-PARSER::RESULT-AND-INDEX1913 (WHEN1914 ATN-PARSER::RESULT1915 (SETF |iri|1916 ATN-PARSER::RESULT))1917 (|object.2|1918 ATN-PARSER::RESULT-INDEX))1919 (SETF |iri|1920 |iri24|))))1921 (T1922 (SETF ATN-PARSER:*ATN-TERM?*1923 '|iri|)1924 NIL))))1925 (ATN-PARSER:%ATN-EDGE-BLOCK1926 (PUSH |BlankNode|)1927 (MULTIPLE-VALUE-BIND1928 (ATN-PARSER::RESULT1929 ATN-PARSER::SUCCESS)1930 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1931 '|BlankNode|1932 ATN-PARSER::INDEX)1933 (COND1934 (ATN-PARSER::SUCCESS1935 (SETF ATN-PARSER:*ATN-TERM*1936 '|BlankNode|)1937 (LET ((|BlankNode25|1938 |BlankNode|))1939 (DOLIST1940 (ATN-PARSER::RESULT-AND-INDEX1941 ATN-PARSER::RESULT)1942 (DESTRUCTURING-BIND1943 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1944 ATN-PARSER::RESULT-AND-INDEX1945 (WHEN1946 ATN-PARSER::RESULT1947 (SETF |BlankNode|1948 ATN-PARSER::RESULT))1949 (|object.2|1950 ATN-PARSER::RESULT-INDEX))1951 (SETF |BlankNode|1952 |BlankNode25|))))1953 (T1954 (SETF ATN-PARSER:*ATN-TERM?*1955 '|BlankNode|)1956 NIL))))1957 (ATN-PARSER:%ATN-EDGE-BLOCK1958 (PUSH |collection|)1959 (MULTIPLE-VALUE-BIND1960 (ATN-PARSER::RESULT1961 ATN-PARSER::SUCCESS)1962 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1963 '|collection|1964 ATN-PARSER::INDEX)1965 (COND1966 (ATN-PARSER::SUCCESS1967 (SETF ATN-PARSER:*ATN-TERM*1968 '|collection|)1969 (LET ((|collection26|1970 |collection|))1971 (DOLIST1972 (ATN-PARSER::RESULT-AND-INDEX1973 ATN-PARSER::RESULT)1974 (DESTRUCTURING-BIND1975 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1976 ATN-PARSER::RESULT-AND-INDEX1977 (WHEN1978 ATN-PARSER::RESULT1979 (SETF |collection|1980 ATN-PARSER::RESULT))1981 (|object.2|1982 ATN-PARSER::RESULT-INDEX))1983 (SETF |collection|1984 |collection26|))))1985 (T1986 (SETF ATN-PARSER:*ATN-TERM?*1987 '|collection|)1988 NIL))))1989 (ATN-PARSER:%ATN-EDGE-BLOCK1990 (PUSH1991 |BlankNodePropertyList|)1992 (MULTIPLE-VALUE-BIND1993 (ATN-PARSER::RESULT1994 ATN-PARSER::SUCCESS)1995 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*1996 '|BlankNodePropertyList|1997 ATN-PARSER::INDEX)1998 (COND1999 (ATN-PARSER::SUCCESS2000 (SETF ATN-PARSER:*ATN-TERM*2001 '|BlankNodePropertyList|)2002 (LET ((|BlankNodePropertyList27|2003 |BlankNodePropertyList|))2004 (DOLIST2005 (ATN-PARSER::RESULT-AND-INDEX2006 ATN-PARSER::RESULT)2007 (DESTRUCTURING-BIND2008 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2009 ATN-PARSER::RESULT-AND-INDEX2010 (WHEN2011 ATN-PARSER::RESULT2012 (SETF |BlankNodePropertyList|2013 ATN-PARSER::RESULT))2014 (|object.2|2015 ATN-PARSER::RESULT-INDEX))2016 (SETF |BlankNodePropertyList|2017 |BlankNodePropertyList27|))))2018 (T2019 (SETF ATN-PARSER:*ATN-TERM?*2020 '|BlankNodePropertyList|)2021 NIL))))2022 (ATN-PARSER:%ATN-EDGE-BLOCK2023 (PUSH |literal|)2024 (MULTIPLE-VALUE-BIND2025 (ATN-PARSER::RESULT2026 ATN-PARSER::SUCCESS)2027 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2028 '|literal|2029 ATN-PARSER::INDEX)2030 (COND2031 (ATN-PARSER::SUCCESS2032 (SETF ATN-PARSER:*ATN-TERM*2033 '|literal|)2034 (LET ((|literal28|2035 |literal|))2036 (DOLIST2037 (ATN-PARSER::RESULT-AND-INDEX2038 ATN-PARSER::RESULT)2039 (DESTRUCTURING-BIND2040 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2041 ATN-PARSER::RESULT-AND-INDEX2042 (WHEN2043 ATN-PARSER::RESULT2044 (SETF |literal|2045 ATN-PARSER::RESULT))2046 (|object.2|2047 ATN-PARSER::RESULT-INDEX))2048 (SETF |literal|2049 |literal28|))))2050 (T2051 (SETF ATN-PARSER:*ATN-TERM?*2052 '|literal|)2053 NIL))))2054 (|object/fail.3|2055 ATN-PARSER::INDEX))))))2056 (|object/start.1| ATN-PARSER::INDEX)2057 (SETF ATN-PARSER:*ATN-NODE NIL)2058 NIL2059 (IF ATN-PARSER::ATN-STRUCTURE2060 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2061 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2062 (WARN "recursive grammar: ~s @ position ~s: ~s" '|object| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2063 (PROGN2064 (DEFVAR |literal-INDEX|)2065 (DEFUN |literal| (ATN-PARSER::INDEX &AUX (|BooleanLiteral| NIL) (|NumericLiteral| NIL) (|RDFLiteral| NIL))2066 "{13} literal ::= (RDFLiteral | NumericLiteral | BooleanLiteral)2067 (|BooleanLiteral| |NumericLiteral| |RDFLiteral|)"2068 (DECLARE (SPECIAL |literal-INDEX|))2069 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |literal-INDEX| ATN-PARSER:*ATN-LEVEL))2070 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2071 (IF (< |literal-INDEX| ATN-PARSER::INDEX)2072 (LET ((|literal-INDEX| ATN-PARSER::INDEX)2073 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2074 (ATN-PARSER:*ATN-STACK (CONS '|literal| ATN-PARSER:*ATN-STACK))2075 (ATN-PARSER::ATN-STRUCTURE NIL))2076 (DECLARE (SPECIAL |literal-INDEX|))2077 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2078 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2079 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2080 (ATN-PARSER:%ATN-BLOCK |literal|2081 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2082 (SETF ATN-PARSER:*ATN-TERM* '|literal|)2083 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2084 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2085 ATN-PARSER::INDEX)2086 (|literal.2| (ATN-PARSER::INDEX)2087 (ATN-PARSER:%ATN-NODE-BLOCK |literal.2|2088 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |literal|)2089 (WHEN T2090 (SETF ATN-PARSER:*ATN-TERM*2091 '|literal|)2092 (ATN-PARSER:%ATN-TRACE2093 " [***/~a @ ~s reduce structure: ~a"2094 '|literal|2095 ATN-PARSER::INDEX2096 (LIST '|BooleanLiteral|2097 |BooleanLiteral|2098 '|NumericLiteral|2099 |NumericLiteral|2100 '|RDFLiteral|2101 |RDFLiteral|))2102 (LET ((ATN-PARSER::RESULT-STRUCTURE2103 (IF (EQ2104 ATN-PARSER:*ATN-REDUCE*2105 T)2106 (|literal-Constructor|2107 |BooleanLiteral|2108 |NumericLiteral|2109 |RDFLiteral|)2110 (IF (EQ2111 ATN-PARSER:*ATN-REDUCE*2112 'CONS)2113 (CONS2114 '|literal|2115 (DELETE NIL2116 (LIST2117 |BooleanLiteral|2118 |NumericLiteral|2119 |RDFLiteral|)))2120 '|literal|))))2121 (ATN-PARSER::SUCCEED2122 ATN-PARSER::INDEX2123 ATN-PARSER::RESULT-STRUCTURE))))))2124 (|literal/fail.3| (ATN-PARSER::INDEX)2125 (ATN-PARSER:%ATN-NODE-BLOCK |literal/fail.3|2126 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2127 (|literal/start.1| (ATN-PARSER::INDEX)2128 (ATN-PARSER:%ATN-NODE-BLOCK |literal/start.1|2129 (ATN-PARSER:%ATN-EDGE-BLOCK OR2130 (PROGN2131 (ATN-PARSER:%ATN-EDGE-BLOCK2132 (PUSH |RDFLiteral|)2133 (MULTIPLE-VALUE-BIND2134 (ATN-PARSER::RESULT2135 ATN-PARSER::SUCCESS)2136 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2137 '|RDFLiteral|2138 ATN-PARSER::INDEX)2139 (COND2140 (ATN-PARSER::SUCCESS2141 (SETF ATN-PARSER:*ATN-TERM*2142 '|RDFLiteral|)2143 (LET ((|RDFLiteral29|2144 |RDFLiteral|))2145 (DOLIST2146 (ATN-PARSER::RESULT-AND-INDEX2147 ATN-PARSER::RESULT)2148 (DESTRUCTURING-BIND2149 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2150 ATN-PARSER::RESULT-AND-INDEX2151 (WHEN2152 ATN-PARSER::RESULT2153 (SETF |RDFLiteral|2154 ATN-PARSER::RESULT))2155 (|literal.2|2156 ATN-PARSER::RESULT-INDEX))2157 (SETF |RDFLiteral|2158 |RDFLiteral29|))))2159 (T2160 (SETF ATN-PARSER:*ATN-TERM?*2161 '|RDFLiteral|)2162 NIL))))2163 (ATN-PARSER:%ATN-EDGE-BLOCK2164 (ATN-PARSER::CAT2165 |NumericLiteral|)2166 (COND2167 ((|IS-NumericLiteral|2168 ATN-PARSER::|item|)2169 (SETF ATN-PARSER:*ATN-TERM*2170 '|NumericLiteral|)2171 (SETF |NumericLiteral|2172 (IF (EQ2173 ATN-PARSER:*ATN-REDUCE*2174 T)2175 (ATN-PARSER:ATN-REDUCE-ITEM2176 #'|NumericLiteral-Constructor|2177 ATN-PARSER::|item|)2178 (IF (EQ2179 ATN-PARSER:*ATN-REDUCE*2180 'CONS)2181 (LIST2182 '|NumericLiteral|2183 ATN-PARSER::|item|)2184 '|NumericLiteral|)))2185 (|literal.2|2186 (1+ ATN-PARSER::INDEX)))2187 (T2188 (SETF ATN-PARSER:*ATN-TERM*2189 '|NumericLiteral|)2190 NIL)))2191 (ATN-PARSER:%ATN-EDGE-BLOCK2192 (ATN-PARSER::CAT2193 |BooleanLiteral|)2194 (COND2195 ((|IS-BooleanLiteral|2196 ATN-PARSER::|item|)2197 (SETF ATN-PARSER:*ATN-TERM*2198 '|BooleanLiteral|)2199 (SETF |BooleanLiteral|2200 (IF (EQ2201 ATN-PARSER:*ATN-REDUCE*2202 T)2203 (ATN-PARSER:ATN-REDUCE-ITEM2204 #'|BooleanLiteral-Constructor|2205 ATN-PARSER::|item|)2206 (IF (EQ2207 ATN-PARSER:*ATN-REDUCE*2208 'CONS)2209 (LIST2210 '|BooleanLiteral|2211 ATN-PARSER::|item|)2212 '|BooleanLiteral|)))2213 (|literal.2|2214 (1+ ATN-PARSER::INDEX)))2215 (T2216 (SETF ATN-PARSER:*ATN-TERM*2217 '|BooleanLiteral|)2218 NIL)))2219 (|literal/fail.3|2220 ATN-PARSER::INDEX))))))2221 (|literal/start.1| ATN-PARSER::INDEX)2222 (SETF ATN-PARSER:*ATN-NODE NIL)2223 NIL2224 (IF ATN-PARSER::ATN-STRUCTURE2225 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2226 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2227 (WARN "recursive grammar: ~s @ position ~s: ~s" '|literal| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2228 (PROGN2229 (DEFVAR |BlankNodePropertyList-INDEX|)2230 (DEFUN |BlankNodePropertyList| (ATN-PARSER::INDEX &AUX (|PropertyListNotEmpty| NIL))2231 "{14} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'2232 (|PropertyListNotEmpty|)"2233 (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))2234 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNodePropertyList-INDEX| ATN-PARSER:*ATN-LEVEL))2235 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2236 (IF (< |BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)2237 (LET ((|BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)2238 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2239 (ATN-PARSER:*ATN-STACK (CONS '|BlankNodePropertyList| ATN-PARSER:*ATN-STACK))2240 (ATN-PARSER::ATN-STRUCTURE NIL))2241 (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))2242 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2243 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2244 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2245 (ATN-PARSER:%ATN-BLOCK |BlankNodePropertyList|2246 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2247 (SETF ATN-PARSER:*ATN-TERM* '|BlankNodePropertyList|)2248 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2249 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2250 ATN-PARSER::INDEX)2251 (|BlankNodePropertyList.2| (ATN-PARSER::INDEX)2252 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNodePropertyList.2|2253 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |BlankNodePropertyList|)2254 (WHEN T2255 (SETF ATN-PARSER:*ATN-TERM*2256 '|BlankNodePropertyList|)2257 (ATN-PARSER:%ATN-TRACE2258 " [***/~a @ ~s reduce structure: ~a"2259 '|BlankNodePropertyList|2260 ATN-PARSER::INDEX2261 (LIST2262 '|PropertyListNotEmpty|2263 |PropertyListNotEmpty|))2264 (LET ((ATN-PARSER::RESULT-STRUCTURE2265 (IF (EQ2266 ATN-PARSER:*ATN-REDUCE*2267 T)2268 (|BlankNodePropertyList-Constructor|2269 |PropertyListNotEmpty|)2270 (IF (EQ2271 ATN-PARSER:*ATN-REDUCE*2272 'CONS)2273 (CONS2274 '|BlankNodePropertyList|2275 (DELETE NIL2276 (LIST2277 |PropertyListNotEmpty|)))2278 '|BlankNodePropertyList|))))2279 (ATN-PARSER::SUCCEED2280 ATN-PARSER::INDEX2281 ATN-PARSER::RESULT-STRUCTURE))))))2282 (|BlankNodePropertyList/BlankNodePropertyList.2.4| (ATN-PARSER::INDEX)2283 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNodePropertyList/BlankNodePropertyList.2.4|2284 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |PropertyListNotEmpty|)2285 (MULTIPLE-VALUE-BIND2286 (ATN-PARSER::RESULT2287 ATN-PARSER::SUCCESS)2288 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2289 '|PropertyListNotEmpty|2290 ATN-PARSER::INDEX)2291 (COND2292 (ATN-PARSER::SUCCESS2293 (SETF ATN-PARSER:*ATN-TERM*2294 '|PropertyListNotEmpty|)2295 (LET ((|PropertyListNotEmpty30|2296 |PropertyListNotEmpty|))2297 (DOLIST2298 (ATN-PARSER::RESULT-AND-INDEX2299 ATN-PARSER::RESULT)2300 (DESTRUCTURING-BIND2301 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2302 ATN-PARSER::RESULT-AND-INDEX2303 (WHEN2304 ATN-PARSER::RESULT2305 (SETF |PropertyListNotEmpty|2306 ATN-PARSER::RESULT))2307 (|BlankNodePropertyList/BlankNodePropertyList.2.5|2308 ATN-PARSER::RESULT-INDEX))2309 (SETF |PropertyListNotEmpty|2310 |PropertyListNotEmpty30|))))2311 (T2312 (SETF ATN-PARSER:*ATN-TERM?*2313 '|PropertyListNotEmpty|)2314 (|BlankNodePropertyList/fail.3|2315 ATN-PARSER::INDEX)))))))2316 (|BlankNodePropertyList/BlankNodePropertyList.2.5| (ATN-PARSER::INDEX)2317 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNodePropertyList/BlankNodePropertyList.2.5|2318 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:])2319 (COND2320 ((EQ ATN-PARSER::|item|2321 'SPOCQ.S:])2322 (SETF ATN-PARSER:*ATN-TERM*2323 'SPOCQ.S:])2324 (|BlankNodePropertyList.2|2325 (1+ ATN-PARSER::INDEX)))2326 (T2327 (SETF ATN-PARSER:*ATN-TERM?*2328 'SPOCQ.S:])2329 (|BlankNodePropertyList/fail.3|2330 ATN-PARSER::INDEX))))))2331 (|BlankNodePropertyList/fail.3| (ATN-PARSER::INDEX)2332 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNodePropertyList/fail.3|2333 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2334 (|BlankNodePropertyList/start.1| (ATN-PARSER::INDEX)2335 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNodePropertyList/start.1|2336 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:[)2337 (COND2338 ((EQ ATN-PARSER::|item|2339 'SPOCQ.S:[)2340 (SETF ATN-PARSER:*ATN-TERM*2341 'SPOCQ.S:[)2342 (|BlankNodePropertyList/BlankNodePropertyList.2.4|2343 (1+ ATN-PARSER::INDEX)))2344 (T2345 (SETF ATN-PARSER:*ATN-TERM?*2346 'SPOCQ.S:[)2347 (|BlankNodePropertyList/fail.3|2348 ATN-PARSER::INDEX)))))))2349 (|BlankNodePropertyList/start.1| ATN-PARSER::INDEX)2350 (SETF ATN-PARSER:*ATN-NODE NIL)2351 NIL2352 (IF ATN-PARSER::ATN-STRUCTURE2353 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2354 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2355 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNodePropertyList| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2356 (PROGN2357 (DEFVAR |collection-INDEX|)2358 (DEFUN |collection| (ATN-PARSER::INDEX &AUX (|object| NIL))2359 "{15} collection ::= '(' object* ')'2360 (|object|)"2361 (DECLARE (SPECIAL |collection-INDEX|))2362 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |collection-INDEX| ATN-PARSER:*ATN-LEVEL))2363 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2364 (IF (< |collection-INDEX| ATN-PARSER::INDEX)2365 (LET ((|collection-INDEX| ATN-PARSER::INDEX)2366 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2367 (ATN-PARSER:*ATN-STACK (CONS '|collection| ATN-PARSER:*ATN-STACK))2368 (ATN-PARSER::ATN-STRUCTURE NIL))2369 (DECLARE (SPECIAL |collection-INDEX|))2370 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2371 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2372 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2373 (ATN-PARSER:%ATN-BLOCK |collection|2374 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2375 (SETF ATN-PARSER:*ATN-TERM* '|collection|)2376 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2377 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2378 ATN-PARSER::INDEX)2379 (|collection.2| (ATN-PARSER::INDEX)2380 (ATN-PARSER:%ATN-NODE-BLOCK |collection.2|2381 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |collection|)2382 (WHEN T2383 (SETF ATN-PARSER:*ATN-TERM*2384 '|collection|)2385 (ATN-PARSER:%ATN-TRACE2386 " [***/~a @ ~s reduce structure: ~a"2387 '|collection|2388 ATN-PARSER::INDEX2389 (LIST '|object| |object|))2390 (LET ((ATN-PARSER::RESULT-STRUCTURE2391 (IF (EQ2392 ATN-PARSER:*ATN-REDUCE*2393 T)2394 (|collection-Constructor|2395 |object|)2396 (IF (EQ2397 ATN-PARSER:*ATN-REDUCE*2398 'CONS)2399 (CONS2400 '|collection|2401 (DELETE NIL2402 (LIST2403 |object|)))2404 '|collection|))))2405 (ATN-PARSER::SUCCEED2406 ATN-PARSER::INDEX2407 ATN-PARSER::RESULT-STRUCTURE))))))2408 (|collection.6| (ATN-PARSER::INDEX)2409 (ATN-PARSER:%ATN-NODE-BLOCK |collection.6|2410 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |object|)2411 (MULTIPLE-VALUE-BIND2412 (ATN-PARSER::RESULT2413 ATN-PARSER::SUCCESS)2414 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2415 '|object|2416 ATN-PARSER::INDEX)2417 (COND2418 (ATN-PARSER::SUCCESS2419 (SETF ATN-PARSER:*ATN-TERM*2420 '|object|)2421 (LET ((|object32|2422 |object|))2423 (DOLIST2424 (ATN-PARSER::RESULT-AND-INDEX2425 ATN-PARSER::RESULT)2426 (DESTRUCTURING-BIND2427 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2428 ATN-PARSER::RESULT-AND-INDEX2429 (WHEN2430 ATN-PARSER::RESULT2431 (SETF |object|2432 (CONS2433 ATN-PARSER::RESULT2434 |object|)))2435 (|collection.6|2436 ATN-PARSER::RESULT-INDEX))2437 (SETF |object|2438 |object32|))))2439 (T2440 (SETF ATN-PARSER:*ATN-TERM?*2441 '|object|)2442 (|collection/collection.2.5|2443 ATN-PARSER::INDEX)))))))2444 (|collection/collection.2.4| (ATN-PARSER::INDEX)2445 (ATN-PARSER:%ATN-NODE-BLOCK |collection/collection.2.4|2446 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |object|)2447 (MULTIPLE-VALUE-BIND2448 (ATN-PARSER::RESULT2449 ATN-PARSER::SUCCESS)2450 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2451 '|object|2452 ATN-PARSER::INDEX)2453 (COND2454 (ATN-PARSER::SUCCESS2455 (SETF ATN-PARSER:*ATN-TERM*2456 '|object|)2457 (LET ((|object31|2458 |object|))2459 (DOLIST2460 (ATN-PARSER::RESULT-AND-INDEX2461 ATN-PARSER::RESULT)2462 (DESTRUCTURING-BIND2463 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2464 ATN-PARSER::RESULT-AND-INDEX2465 (WHEN2466 ATN-PARSER::RESULT2467 (SETF |object|2468 (CONS2469 ATN-PARSER::RESULT2470 |object|)))2471 (|collection.6|2472 ATN-PARSER::RESULT-INDEX))2473 (SETF |object|2474 |object31|))))2475 (T2476 (SETF ATN-PARSER:*ATN-TERM?*2477 '|object|)2478 (|collection/collection.2.5|2479 ATN-PARSER::INDEX)))))))2480 (|collection/collection.2.5| (ATN-PARSER::INDEX)2481 (ATN-PARSER:%ATN-NODE-BLOCK |collection/collection.2.5|2482 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|)|)2483 (COND2484 ((EQ ATN-PARSER::|item|2485 'SPOCQ.S:|)|)2486 (SETF ATN-PARSER:*ATN-TERM*2487 'SPOCQ.S:|)|)2488 (|collection.2|2489 (1+ ATN-PARSER::INDEX)))2490 (T2491 (SETF ATN-PARSER:*ATN-TERM?*2492 'SPOCQ.S:|)|)2493 (|collection/fail.3|2494 ATN-PARSER::INDEX))))))2495 (|collection/fail.3| (ATN-PARSER::INDEX)2496 (ATN-PARSER:%ATN-NODE-BLOCK |collection/fail.3|2497 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2498 (|collection/start.1| (ATN-PARSER::INDEX)2499 (ATN-PARSER:%ATN-NODE-BLOCK |collection/start.1|2500 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|(|)2501 (COND2502 ((EQ ATN-PARSER::|item|2503 'SPOCQ.S:|(|)2504 (SETF ATN-PARSER:*ATN-TERM*2505 'SPOCQ.S:|(|)2506 (|collection/collection.2.4|2507 (1+ ATN-PARSER::INDEX)))2508 (T2509 (SETF ATN-PARSER:*ATN-TERM?*2510 'SPOCQ.S:|(|)2511 (|collection/fail.3|2512 ATN-PARSER::INDEX)))))))2513 (|collection/start.1| ATN-PARSER::INDEX)2514 (SETF ATN-PARSER:*ATN-NODE NIL)2515 NIL2516 (IF ATN-PARSER::ATN-STRUCTURE2517 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2518 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2519 (WARN "recursive grammar: ~s @ position ~s: ~s" '|collection| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2520 (PROGN2521 (DEFVAR |RDFLiteral-INDEX|)2522 (DEFUN |RDFLiteral| (ATN-PARSER::INDEX &AUX (|iri| NIL) (LANGTAG NIL) (|String| NIL))2523 "{128s} RDFLiteral ::= String ((LANGTAG | ('^^' iri)))?2524 (|iri| LANGTAG |String|)"2525 (DECLARE (SPECIAL |RDFLiteral-INDEX|))2526 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RDFLiteral-INDEX| ATN-PARSER:*ATN-LEVEL))2527 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2528 (IF (< |RDFLiteral-INDEX| ATN-PARSER::INDEX)2529 (LET ((|RDFLiteral-INDEX| ATN-PARSER::INDEX)2530 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2531 (ATN-PARSER:*ATN-STACK (CONS '|RDFLiteral| ATN-PARSER:*ATN-STACK))2532 (ATN-PARSER::ATN-STRUCTURE NIL))2533 (DECLARE (SPECIAL |RDFLiteral-INDEX|))2534 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2535 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2536 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2537 (ATN-PARSER:%ATN-BLOCK |RDFLiteral|2538 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2539 (SETF ATN-PARSER:*ATN-TERM* '|RDFLiteral|)2540 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2541 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2542 ATN-PARSER::INDEX)2543 (|RDFLiteral.2| (ATN-PARSER::INDEX)2544 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral.2|2545 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |RDFLiteral|)2546 (WHEN T2547 (SETF ATN-PARSER:*ATN-TERM*2548 '|RDFLiteral|)2549 (ATN-PARSER:%ATN-TRACE2550 " [***/~a @ ~s reduce structure: ~a"2551 '|RDFLiteral|2552 ATN-PARSER::INDEX2553 (LIST '|iri| |iri| 'LANGTAG2554 LANGTAG '|String|2555 |String|))2556 (LET ((ATN-PARSER::RESULT-STRUCTURE2557 (IF (EQ2558 ATN-PARSER:*ATN-REDUCE*2559 T)2560 (|RDFLiteral-Constructor|2561 |iri| LANGTAG2562 |String|)2563 (IF (EQ2564 ATN-PARSER:*ATN-REDUCE*2565 'CONS)2566 (CONS2567 '|RDFLiteral|2568 (DELETE NIL2569 (LIST2570 |iri|2571 LANGTAG2572 |String|)))2573 '|RDFLiteral|))))2574 (ATN-PARSER::SUCCEED2575 ATN-PARSER::INDEX2576 ATN-PARSER::RESULT-STRUCTURE))))))2577 (|RDFLiteral/fail.3| (ATN-PARSER::INDEX)2578 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/fail.3|2579 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2580 (|RDFLiteral/RDFLiteral.2.4| (ATN-PARSER::INDEX)2581 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/RDFLiteral.2.4|2582 (ATN-PARSER:%ATN-EDGE-BLOCK OR2583 (PROGN2584 (ATN-PARSER:%ATN-EDGE-BLOCK2585 (TEST LANGTAG)2586 (COND2587 ((IS-LANGTAG2588 ATN-PARSER::|item|)2589 (SETF ATN-PARSER:*ATN-TERM*2590 'LANGTAG)2591 (SETF LANGTAG2592 (IF (EQ2593 ATN-PARSER:*ATN-REDUCE*2594 T)2595 (ATN-PARSER:ATN-REDUCE-ITEM2596 #'|LANGTAG-Constructor|2597 ATN-PARSER::|item|)2598 (IF (EQ2599 ATN-PARSER:*ATN-REDUCE*2600 'CONS)2601 (LIST2602 'LANGTAG2603 ATN-PARSER::|item|)2604 'LANGTAG)))2605 (|RDFLiteral.2|2606 (1+ ATN-PARSER::INDEX)))2607 (T2608 (SETF ATN-PARSER:*ATN-TERM?*2609 'LANGTAG)2610 NIL)))2611 (ATN-PARSER:%ATN-EDGE-BLOCK2612 (ATN-PARSER::JUMP2613 |RDFLiteral/RDFLiteral.2.5|)2614 (|RDFLiteral/RDFLiteral.2.5|2615 ATN-PARSER::INDEX))2616 (|RDFLiteral.2|2617 ATN-PARSER::INDEX)))))2618 (|RDFLiteral/RDFLiteral.2.5| (ATN-PARSER::INDEX)2619 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/RDFLiteral.2.5|2620 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:^^)2621 (COND2622 ((EQ ATN-PARSER::|item|2623 'SPOCQ.S:^^)2624 (SETF ATN-PARSER:*ATN-TERM*2625 'SPOCQ.S:^^)2626 (|RDFLiteral/RDFLiteral.2.6|2627 (1+ ATN-PARSER::INDEX)))2628 (T2629 (SETF ATN-PARSER:*ATN-TERM?*2630 'SPOCQ.S:^^)2631 NIL)))))2632 (|RDFLiteral/RDFLiteral.2.6| (ATN-PARSER::INDEX)2633 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/RDFLiteral.2.6|2634 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |iri|)2635 (MULTIPLE-VALUE-BIND2636 (ATN-PARSER::RESULT2637 ATN-PARSER::SUCCESS)2638 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2639 '|iri| ATN-PARSER::INDEX)2640 (COND2641 (ATN-PARSER::SUCCESS2642 (SETF ATN-PARSER:*ATN-TERM*2643 '|iri|)2644 (LET ((|iri33| |iri|))2645 (DOLIST2646 (ATN-PARSER::RESULT-AND-INDEX2647 ATN-PARSER::RESULT)2648 (DESTRUCTURING-BIND2649 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2650 ATN-PARSER::RESULT-AND-INDEX2651 (WHEN2652 ATN-PARSER::RESULT2653 (SETF |iri|2654 ATN-PARSER::RESULT))2655 (|RDFLiteral.2|2656 ATN-PARSER::RESULT-INDEX))2657 (SETF |iri|2658 |iri33|))))2659 (T2660 (SETF ATN-PARSER:*ATN-TERM?*2661 '|iri|)2662 NIL))))))2663 (|RDFLiteral/start.1| (ATN-PARSER::INDEX)2664 (ATN-PARSER:%ATN-NODE-BLOCK |RDFLiteral/start.1|2665 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::CAT |String|)2666 (COND2667 ((|IS-String|2668 ATN-PARSER::|item|)2669 (SETF ATN-PARSER:*ATN-TERM*2670 '|String|)2671 (SETF |String|2672 (IF (EQ2673 ATN-PARSER:*ATN-REDUCE*2674 T)2675 (ATN-PARSER:ATN-REDUCE-ITEM2676 #'|String-Constructor|2677 ATN-PARSER::|item|)2678 (IF (EQ2679 ATN-PARSER:*ATN-REDUCE*2680 'CONS)2681 (LIST2682 '|String|2683 ATN-PARSER::|item|)2684 '|String|)))2685 (|RDFLiteral/RDFLiteral.2.4|2686 (1+ ATN-PARSER::INDEX)))2687 (T2688 (SETF ATN-PARSER:*ATN-TERM*2689 '|String|)2690 (|RDFLiteral/fail.3|2691 ATN-PARSER::INDEX)))))))2692 (|RDFLiteral/start.1| ATN-PARSER::INDEX)2693 (SETF ATN-PARSER:*ATN-NODE NIL)2694 NIL2695 (IF ATN-PARSER::ATN-STRUCTURE2696 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2697 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2698 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RDFLiteral| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2699 (PROGN2700 (DEFVAR |iri-INDEX|)2701 (DEFUN |iri| (ATN-PARSER::INDEX &AUX (IRI_REF NIL) (|PrefixedName| NIL))2702 "{135s} iri ::= (IRI_REF | PrefixedName)2703 (IRI_REF |PrefixedName|)"2704 (DECLARE (SPECIAL |iri-INDEX|))2705 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |iri-INDEX| ATN-PARSER:*ATN-LEVEL))2706 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2707 (IF (< |iri-INDEX| ATN-PARSER::INDEX)2708 (LET ((|iri-INDEX| ATN-PARSER::INDEX)2709 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2710 (ATN-PARSER:*ATN-STACK (CONS '|iri| ATN-PARSER:*ATN-STACK))2711 (ATN-PARSER::ATN-STRUCTURE NIL))2712 (DECLARE (SPECIAL |iri-INDEX|))2713 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2714 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2715 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2716 (ATN-PARSER:%ATN-BLOCK |iri|2717 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2718 (SETF ATN-PARSER:*ATN-TERM* '|iri|)2719 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2720 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2721 ATN-PARSER::INDEX)2722 (|iri.2| (ATN-PARSER::INDEX)2723 (ATN-PARSER:%ATN-NODE-BLOCK |iri.2|2724 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |iri|)2725 (WHEN T2726 (SETF ATN-PARSER:*ATN-TERM*2727 '|iri|)2728 (ATN-PARSER:%ATN-TRACE2729 " [***/~a @ ~s reduce structure: ~a"2730 '|iri| ATN-PARSER::INDEX2731 (LIST 'IRI_REF IRI_REF2732 '|PrefixedName|2733 |PrefixedName|))2734 (LET ((ATN-PARSER::RESULT-STRUCTURE2735 (IF (EQ2736 ATN-PARSER:*ATN-REDUCE*2737 T)2738 (|iri-Constructor|2739 IRI_REF2740 |PrefixedName|)2741 (IF (EQ2742 ATN-PARSER:*ATN-REDUCE*2743 'CONS)2744 (CONS '|iri|2745 (DELETE2746 NIL2747 (LIST2748 IRI_REF2749 |PrefixedName|)))2750 '|iri|))))2751 (ATN-PARSER::SUCCEED2752 ATN-PARSER::INDEX2753 ATN-PARSER::RESULT-STRUCTURE))))))2754 (|iri/fail.3| (ATN-PARSER::INDEX)2755 (ATN-PARSER:%ATN-NODE-BLOCK |iri/fail.3|2756 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2757 (|iri/start.1| (ATN-PARSER::INDEX)2758 (ATN-PARSER:%ATN-NODE-BLOCK |iri/start.1|2759 (ATN-PARSER:%ATN-EDGE-BLOCK OR2760 (PROGN2761 (ATN-PARSER:%ATN-EDGE-BLOCK2762 (PUSH IRI_REF)2763 (MULTIPLE-VALUE-BIND2764 (ATN-PARSER::RESULT2765 ATN-PARSER::SUCCESS)2766 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2767 'IRI_REF2768 ATN-PARSER::INDEX)2769 (COND2770 (ATN-PARSER::SUCCESS2771 (SETF ATN-PARSER:*ATN-TERM*2772 'IRI_REF)2773 (LET ((IRI_REF342774 IRI_REF))2775 (DOLIST2776 (ATN-PARSER::RESULT-AND-INDEX2777 ATN-PARSER::RESULT)2778 (DESTRUCTURING-BIND2779 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2780 ATN-PARSER::RESULT-AND-INDEX2781 (WHEN2782 ATN-PARSER::RESULT2783 (SETF IRI_REF2784 ATN-PARSER::RESULT))2785 (|iri.2|2786 ATN-PARSER::RESULT-INDEX))2787 (SETF IRI_REF2788 IRI_REF34))))2789 (T2790 (SETF ATN-PARSER:*ATN-TERM?*2791 'IRI_REF)2792 NIL))))2793 (ATN-PARSER:%ATN-EDGE-BLOCK2794 (ATN-PARSER::CAT2795 |PrefixedName|)2796 (COND2797 ((|IS-PrefixedName|2798 ATN-PARSER::|item|)2799 (SETF ATN-PARSER:*ATN-TERM*2800 '|PrefixedName|)2801 (SETF |PrefixedName|2802 (IF (EQ2803 ATN-PARSER:*ATN-REDUCE*2804 T)2805 (ATN-PARSER:ATN-REDUCE-ITEM2806 #'|PrefixedName-Constructor|2807 ATN-PARSER::|item|)2808 (IF (EQ2809 ATN-PARSER:*ATN-REDUCE*2810 'CONS)2811 (LIST2812 '|PrefixedName|2813 ATN-PARSER::|item|)2814 '|PrefixedName|)))2815 (|iri.2|2816 (1+ ATN-PARSER::INDEX)))2817 (T2818 (SETF ATN-PARSER:*ATN-TERM*2819 '|PrefixedName|)2820 NIL)))2821 (|iri/fail.3|2822 ATN-PARSER::INDEX))))))2823 (|iri/start.1| ATN-PARSER::INDEX)2824 (SETF ATN-PARSER:*ATN-NODE NIL)2825 NIL2826 (IF ATN-PARSER::ATN-STRUCTURE2827 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2828 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2829 (WARN "recursive grammar: ~s @ position ~s: ~s" '|iri| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2830 (PROGN2831 (DEFVAR |BlankNode-INDEX|)2832 (DEFUN |BlankNode| (ATN-PARSER::INDEX &AUX (ANON NIL) (BLANK_NODE_LABEL NIL))2833 "{137s} BlankNode ::= (('_:' BLANK_NODE_LABEL) | ANON)2834 (ANON BLANK_NODE_LABEL)"2835 (DECLARE (SPECIAL |BlankNode-INDEX|))2836 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNode-INDEX| ATN-PARSER:*ATN-LEVEL))2837 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2838 (IF (< |BlankNode-INDEX| ATN-PARSER::INDEX)2839 (LET ((|BlankNode-INDEX| ATN-PARSER::INDEX)2840 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2841 (ATN-PARSER:*ATN-STACK (CONS '|BlankNode| ATN-PARSER:*ATN-STACK))2842 (ATN-PARSER::ATN-STRUCTURE NIL))2843 (DECLARE (SPECIAL |BlankNode-INDEX|))2844 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2845 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2846 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2847 (ATN-PARSER:%ATN-BLOCK |BlankNode|2848 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2849 (SETF ATN-PARSER:*ATN-TERM* '|BlankNode|)2850 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2851 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2852 ATN-PARSER::INDEX)2853 (|BlankNode.2| (ATN-PARSER::INDEX)2854 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode.2|2855 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |BlankNode|)2856 (WHEN T2857 (SETF ATN-PARSER:*ATN-TERM*2858 '|BlankNode|)2859 (ATN-PARSER:%ATN-TRACE2860 " [***/~a @ ~s reduce structure: ~a"2861 '|BlankNode|2862 ATN-PARSER::INDEX2863 (LIST 'ANON ANON2864 'BLANK_NODE_LABEL2865 BLANK_NODE_LABEL))2866 (LET ((ATN-PARSER::RESULT-STRUCTURE2867 (IF (EQ2868 ATN-PARSER:*ATN-REDUCE*2869 T)2870 (|BlankNode-Constructor|2871 ANON2872 BLANK_NODE_LABEL)2873 (IF (EQ2874 ATN-PARSER:*ATN-REDUCE*2875 'CONS)2876 (CONS2877 '|BlankNode|2878 (DELETE NIL2879 (LIST2880 ANON2881 BLANK_NODE_LABEL)))2882 '|BlankNode|))))2883 (ATN-PARSER::SUCCEED2884 ATN-PARSER::INDEX2885 ATN-PARSER::RESULT-STRUCTURE))))))2886 (|BlankNode/BlankNode.2.4| (ATN-PARSER::INDEX)2887 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode/BlankNode.2.4|2888 (ATN-PARSER:%ATN-EDGE-BLOCK2889 (ATN-PARSER::WORD SPOCQ.S:|_:|)2890 (COND2891 ((EQ ATN-PARSER::|item| 'SPOCQ.S:|_:|)2892 (SETF ATN-PARSER:*ATN-TERM* 'SPOCQ.S:|_:|)2893 (|BlankNode/BlankNode.2.5| (1+ ATN-PARSER::INDEX)))2894 (T (SETF ATN-PARSER:*ATN-TERM?* 'SPOCQ.S:|_:|) NIL)))))2895 (|BlankNode/BlankNode.2.5| (ATN-PARSER::INDEX)2896 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode/BlankNode.2.5|2897 (ATN-PARSER:%ATN-EDGE-BLOCK (TEST BLANK_NODE_LABEL)2898 (COND2899 ((IS-BLANK_NODE_LABEL2900 ATN-PARSER::|item|)2901 (SETF ATN-PARSER:*ATN-TERM*2902 'BLANK_NODE_LABEL)2903 (SETF BLANK_NODE_LABEL2904 (IF (EQ2905 ATN-PARSER:*ATN-REDUCE*2906 T)2907 (ATN-PARSER:ATN-REDUCE-ITEM2908 #'|BLANK_NODE_LABEL-Constructor|2909 ATN-PARSER::|item|)2910 (IF (EQ2911 ATN-PARSER:*ATN-REDUCE*2912 'CONS)2913 (LIST2914 'BLANK_NODE_LABEL2915 ATN-PARSER::|item|)2916 'BLANK_NODE_LABEL)))2917 (|BlankNode.2|2918 (1+ ATN-PARSER::INDEX)))2919 (T2920 (SETF ATN-PARSER:*ATN-TERM?*2921 'BLANK_NODE_LABEL)2922 NIL)))))2923 (|BlankNode/fail.3| (ATN-PARSER::INDEX)2924 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode/fail.3|2925 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2926 (|BlankNode/start.1| (ATN-PARSER::INDEX)2927 (ATN-PARSER:%ATN-NODE-BLOCK |BlankNode/start.1|2928 (ATN-PARSER:%ATN-EDGE-BLOCK OR2929 (PROGN2930 (ATN-PARSER:%ATN-EDGE-BLOCK2931 (ATN-PARSER::JUMP2932 |BlankNode/BlankNode.2.4|)2933 (|BlankNode/BlankNode.2.4|2934 ATN-PARSER::INDEX))2935 (ATN-PARSER:%ATN-EDGE-BLOCK2936 (PUSH ANON)2937 (MULTIPLE-VALUE-BIND2938 (ATN-PARSER::RESULT2939 ATN-PARSER::SUCCESS)2940 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*2941 'ANON2942 ATN-PARSER::INDEX)2943 (COND2944 (ATN-PARSER::SUCCESS2945 (SETF ATN-PARSER:*ATN-TERM*2946 'ANON)2947 (LET ((ANON35 ANON))2948 (DOLIST2949 (ATN-PARSER::RESULT-AND-INDEX2950 ATN-PARSER::RESULT)2951 (DESTRUCTURING-BIND2952 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2953 ATN-PARSER::RESULT-AND-INDEX2954 (WHEN2955 ATN-PARSER::RESULT2956 (SETF ANON2957 ATN-PARSER::RESULT))2958 (|BlankNode.2|2959 ATN-PARSER::RESULT-INDEX))2960 (SETF ANON2961 ANON35))))2962 (T2963 (SETF ATN-PARSER:*ATN-TERM?*2964 'ANON)2965 NIL))))2966 (|BlankNode/fail.3|2967 ATN-PARSER::INDEX))))))2968 (|BlankNode/start.1| ATN-PARSER::INDEX)2969 (SETF ATN-PARSER:*ATN-NODE NIL)2970 NIL2971 (IF ATN-PARSER::ATN-STRUCTURE2972 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2973 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))2974 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNode| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2975 (PROGN2976 (DEFVAR |PropertyListNotEmpty-INDEX|)2977 (DEFUN |PropertyListNotEmpty| (ATN-PARSER::INDEX &AUX (|VerbObjectList| NIL))2978 "{72} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*2979 (|VerbObjectList|)"2980 (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))2981 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PropertyListNotEmpty-INDEX| ATN-PARSER:*ATN-LEVEL))2982 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2983 (IF (< |PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)2984 (LET ((|PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)2985 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2986 (ATN-PARSER:*ATN-STACK (CONS '|PropertyListNotEmpty| ATN-PARSER:*ATN-STACK))2987 (ATN-PARSER::ATN-STRUCTURE NIL))2988 (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))2989 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2990 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2991 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2992 (ATN-PARSER:%ATN-BLOCK |PropertyListNotEmpty|2993 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2994 (SETF ATN-PARSER:*ATN-TERM* '|PropertyListNotEmpty|)2995 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2996 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2997 ATN-PARSER::INDEX)2998 (|PropertyListNotEmpty.2| (ATN-PARSER::INDEX)2999 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty.2|3000 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |PropertyListNotEmpty|)3001 (WHEN T3002 (SETF ATN-PARSER:*ATN-TERM*3003 '|PropertyListNotEmpty|)3004 (ATN-PARSER:%ATN-TRACE3005 " [***/~a @ ~s reduce structure: ~a"3006 '|PropertyListNotEmpty|3007 ATN-PARSER::INDEX3008 (LIST '|VerbObjectList|3009 |VerbObjectList|))3010 (LET ((ATN-PARSER::RESULT-STRUCTURE3011 (IF (EQ3012 ATN-PARSER:*ATN-REDUCE*3013 T)3014 (|PropertyListNotEmpty-Constructor|3015 |VerbObjectList|)3016 (IF (EQ3017 ATN-PARSER:*ATN-REDUCE*3018 'CONS)3019 (CONS3020 '|PropertyListNotEmpty|3021 (DELETE NIL3022 (LIST3023 |VerbObjectList|)))3024 '|PropertyListNotEmpty|))))3025 (ATN-PARSER::SUCCEED3026 ATN-PARSER::INDEX3027 ATN-PARSER::RESULT-STRUCTURE))))))3028 (|PropertyListNotEmpty.5| (ATN-PARSER::INDEX)3029 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty.5|3030 (ATN-PARSER:%ATN-EDGE-BLOCK3031 (ATN-PARSER::JUMP3032 |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)3033 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6|3034 ATN-PARSER::INDEX))3035 (ATN-PARSER:%ATN-EDGE-BLOCK3036 (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)3037 (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))3038 (|PropertyListNotEmpty/fail.3| (ATN-PARSER::INDEX)3039 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty/fail.3|3040 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3041 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4| (ATN-PARSER::INDEX)3042 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty/PropertyListNotEmpty.2.4|3043 (ATN-PARSER:%ATN-EDGE-BLOCK3044 (ATN-PARSER::JUMP3045 |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)3046 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6|3047 ATN-PARSER::INDEX))3048 (ATN-PARSER:%ATN-EDGE-BLOCK3049 (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)3050 (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))3051 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| (ATN-PARSER::INDEX)3052 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty/PropertyListNotEmpty.5.6|3053 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:|;|)3054 (COND3055 ((EQ ATN-PARSER::|item|3056 'SPOCQ.S:|;|)3057 (SETF ATN-PARSER:*ATN-TERM*3058 'SPOCQ.S:|;|)3059 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7|3060 (1+ ATN-PARSER::INDEX)))3061 (T3062 (SETF ATN-PARSER:*ATN-TERM?*3063 'SPOCQ.S:|;|)3064 NIL)))))3065 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7| (ATN-PARSER::INDEX)3066 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty/PropertyListNotEmpty.5.7|3067 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |VerbObjectList|)3068 (MULTIPLE-VALUE-BIND3069 (ATN-PARSER::RESULT3070 ATN-PARSER::SUCCESS)3071 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*3072 '|VerbObjectList|3073 ATN-PARSER::INDEX)3074 (COND3075 (ATN-PARSER::SUCCESS3076 (SETF ATN-PARSER:*ATN-TERM*3077 '|VerbObjectList|)3078 (LET ((|VerbObjectList36|3079 |VerbObjectList|))3080 (DOLIST3081 (ATN-PARSER::RESULT-AND-INDEX3082 ATN-PARSER::RESULT)3083 (DESTRUCTURING-BIND3084 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3085 ATN-PARSER::RESULT-AND-INDEX3086 (WHEN3087 ATN-PARSER::RESULT3088 (SETF |VerbObjectList|3089 (CONS3090 ATN-PARSER::RESULT3091 |VerbObjectList|)))3092 (|PropertyListNotEmpty.5|3093 ATN-PARSER::RESULT-INDEX))3094 (SETF |VerbObjectList|3095 |VerbObjectList36|))))3096 (T3097 (SETF ATN-PARSER:*ATN-TERM?*3098 '|VerbObjectList|)3099 (|PropertyListNotEmpty.5|3100 ATN-PARSER::INDEX)))))))3101 (|PropertyListNotEmpty/start.1| (ATN-PARSER::INDEX)3102 (ATN-PARSER:%ATN-NODE-BLOCK |PropertyListNotEmpty/start.1|3103 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |VerbObjectList|)3104 (MULTIPLE-VALUE-BIND3105 (ATN-PARSER::RESULT3106 ATN-PARSER::SUCCESS)3107 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*3108 '|VerbObjectList|3109 ATN-PARSER::INDEX)3110 (COND3111 (ATN-PARSER::SUCCESS3112 (SETF ATN-PARSER:*ATN-TERM*3113 '|VerbObjectList|)3114 (LET ((|VerbObjectList37|3115 |VerbObjectList|))3116 (DOLIST3117 (ATN-PARSER::RESULT-AND-INDEX3118 ATN-PARSER::RESULT)3119 (DESTRUCTURING-BIND3120 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3121 ATN-PARSER::RESULT-AND-INDEX3122 (WHEN3123 ATN-PARSER::RESULT3124 (SETF |VerbObjectList|3125 (CONS3126 ATN-PARSER::RESULT3127 |VerbObjectList|)))3128 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4|3129 ATN-PARSER::RESULT-INDEX))3130 (SETF |VerbObjectList|3131 |VerbObjectList37|))))3132 (T3133 (SETF ATN-PARSER:*ATN-TERM?*3134 '|VerbObjectList|)3135 (|PropertyListNotEmpty/fail.3|3136 ATN-PARSER::INDEX))))))))3137 (|PropertyListNotEmpty/start.1| ATN-PARSER::INDEX)3138 (SETF ATN-PARSER:*ATN-NODE NIL)3139 NIL3140 (IF ATN-PARSER::ATN-STRUCTURE3141 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3142 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))3143 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PropertyListNotEmpty| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3144 (PROGN3145 (DEFVAR |VerbObjectList-INDEX|)3146 (DEFUN |VerbObjectList| (ATN-PARSER::INDEX &AUX (|objectList| NIL) (|verb| NIL))3147 "{72a} VerbObjectList ::= verb objectList3148 (|objectList| |verb|)"3149 (DECLARE (SPECIAL |VerbObjectList-INDEX|))3150 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VerbObjectList-INDEX| ATN-PARSER:*ATN-LEVEL))3151 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3152 (IF (< |VerbObjectList-INDEX| ATN-PARSER::INDEX)3153 (LET ((|VerbObjectList-INDEX| ATN-PARSER::INDEX)3154 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3155 (ATN-PARSER:*ATN-STACK (CONS '|VerbObjectList| ATN-PARSER:*ATN-STACK))3156 (ATN-PARSER::ATN-STRUCTURE NIL))3157 (DECLARE (SPECIAL |VerbObjectList-INDEX|))3158 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3159 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3160 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3161 (ATN-PARSER:%ATN-BLOCK |VerbObjectList|3162 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3163 (SETF ATN-PARSER:*ATN-TERM* '|VerbObjectList|)3164 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3165 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3166 ATN-PARSER::INDEX)3167 (|VerbObjectList.2| (ATN-PARSER::INDEX)3168 (ATN-PARSER:%ATN-NODE-BLOCK |VerbObjectList.2|3169 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |VerbObjectList|)3170 (WHEN T3171 (SETF ATN-PARSER:*ATN-TERM*3172 '|VerbObjectList|)3173 (ATN-PARSER:%ATN-TRACE3174 " [***/~a @ ~s reduce structure: ~a"3175 '|VerbObjectList|3176 ATN-PARSER::INDEX3177 (LIST '|objectList|3178 |objectList| '|verb|3179 |verb|))3180 (LET ((ATN-PARSER::RESULT-STRUCTURE3181 (IF (EQ3182 ATN-PARSER:*ATN-REDUCE*3183 T)3184 (|VerbObjectList-Constructor|3185 |objectList|3186 |verb|)3187 (IF (EQ3188 ATN-PARSER:*ATN-REDUCE*3189 'CONS)3190 (CONS3191 '|VerbObjectList|3192 (DELETE NIL3193 (LIST3194 |objectList|3195 |verb|)))3196 '|VerbObjectList|))))3197 (ATN-PARSER::SUCCEED3198 ATN-PARSER::INDEX3199 ATN-PARSER::RESULT-STRUCTURE))))))3200 (|VerbObjectList/fail.3| (ATN-PARSER::INDEX)3201 (ATN-PARSER:%ATN-NODE-BLOCK |VerbObjectList/fail.3|3202 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3203 (|VerbObjectList/start.1| (ATN-PARSER::INDEX)3204 (ATN-PARSER:%ATN-NODE-BLOCK |VerbObjectList/start.1|3205 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |verb|)3206 (MULTIPLE-VALUE-BIND3207 (ATN-PARSER::RESULT3208 ATN-PARSER::SUCCESS)3209 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*3210 '|verb|3211 ATN-PARSER::INDEX)3212 (COND3213 (ATN-PARSER::SUCCESS3214 (SETF ATN-PARSER:*ATN-TERM*3215 '|verb|)3216 (LET ((|verb39| |verb|))3217 (DOLIST3218 (ATN-PARSER::RESULT-AND-INDEX3219 ATN-PARSER::RESULT)3220 (DESTRUCTURING-BIND3221 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3222 ATN-PARSER::RESULT-AND-INDEX3223 (WHEN3224 ATN-PARSER::RESULT3225 (SETF |verb|3226 ATN-PARSER::RESULT))3227 (|VerbObjectList/VerbObjectList.2.4|3228 ATN-PARSER::RESULT-INDEX))3229 (SETF |verb|3230 |verb39|))))3231 (T3232 (SETF ATN-PARSER:*ATN-TERM?*3233 '|verb|)3234 (|VerbObjectList/fail.3|3235 ATN-PARSER::INDEX)))))))3236 (|VerbObjectList/VerbObjectList.2.4| (ATN-PARSER::INDEX)3237 (ATN-PARSER:%ATN-NODE-BLOCK |VerbObjectList/VerbObjectList.2.4|3238 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |objectList|)3239 (MULTIPLE-VALUE-BIND3240 (ATN-PARSER::RESULT3241 ATN-PARSER::SUCCESS)3242 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE*3243 '|objectList|3244 ATN-PARSER::INDEX)3245 (COND3246 (ATN-PARSER::SUCCESS3247 (SETF ATN-PARSER:*ATN-TERM*3248 '|objectList|)3249 (LET ((|objectList38|3250 |objectList|))3251 (DOLIST3252 (ATN-PARSER::RESULT-AND-INDEX3253 ATN-PARSER::RESULT)3254 (DESTRUCTURING-BIND3255 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3256 ATN-PARSER::RESULT-AND-INDEX3257 (WHEN3258 ATN-PARSER::RESULT3259 (SETF |objectList|3260 ATN-PARSER::RESULT))3261 (|VerbObjectList.2|3262 ATN-PARSER::RESULT-INDEX))3263 (SETF |objectList|3264 |objectList38|))))3265 (T3266 (SETF ATN-PARSER:*ATN-TERM?*3267 '|objectList|)3268 (|VerbObjectList/fail.3|3269 ATN-PARSER::INDEX))))))))3270 (|VerbObjectList/start.1| ATN-PARSER::INDEX)3271 (SETF ATN-PARSER:*ATN-NODE NIL)3272 NIL3273 (IF ATN-PARSER::ATN-STRUCTURE3274 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3275 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))3276 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VerbObjectList| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3277 (PROGN3278 (DEFVAR IRI_REF-INDEX)3279 (DEFUN IRI_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))3280 "{128} IRI_REF ::= '<' IRI_NAMESTRING? '>'3281 (IRI_NAMESTRING)"3282 (DECLARE (SPECIAL IRI_REF-INDEX))3283 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX IRI_REF-INDEX ATN-PARSER:*ATN-LEVEL))3284 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3285 (IF (< IRI_REF-INDEX ATN-PARSER::INDEX)3286 (LET ((IRI_REF-INDEX ATN-PARSER::INDEX)3287 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3288 (ATN-PARSER:*ATN-STACK (CONS 'IRI_REF ATN-PARSER:*ATN-STACK))3289 (ATN-PARSER::ATN-STRUCTURE NIL))3290 (DECLARE (SPECIAL IRI_REF-INDEX))3291 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3292 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3293 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3294 (ATN-PARSER:%ATN-BLOCK IRI_REF3295 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3296 (SETF ATN-PARSER:*ATN-TERM* 'IRI_REF)3297 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3298 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3299 ATN-PARSER::INDEX)3300 (IRI_REF.2 (ATN-PARSER::INDEX)3301 (ATN-PARSER:%ATN-NODE-BLOCK IRI_REF.23302 (ATN-PARSER:%ATN-EDGE-BLOCK (POP IRI_REF)3303 (WHEN T3304 (SETF ATN-PARSER:*ATN-TERM*3305 'IRI_REF)3306 (ATN-PARSER:%ATN-TRACE3307 " [***/~a @ ~s reduce structure: ~a"3308 'IRI_REF ATN-PARSER::INDEX3309 (LIST 'IRI_NAMESTRING3310 IRI_NAMESTRING))3311 (LET ((ATN-PARSER::RESULT-STRUCTURE3312 (IF (EQ3313 ATN-PARSER:*ATN-REDUCE*3314 T)3315 (|IRI_REF-Constructor|3316 IRI_NAMESTRING)3317 (IF (EQ3318 ATN-PARSER:*ATN-REDUCE*3319 'CONS)3320 (CONS3321 'IRI_REF3322 (DELETE NIL3323 (LIST3324 IRI_NAMESTRING)))3325 'IRI_REF))))3326 (ATN-PARSER::SUCCEED3327 ATN-PARSER::INDEX3328 ATN-PARSER::RESULT-STRUCTURE))))))3329 (|IRI_REF/fail.3| (ATN-PARSER::INDEX)3330 (ATN-PARSER:%ATN-NODE-BLOCK |IRI_REF/fail.3|3331 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3332 (IRI_REF/IRI_REF.2.4 (ATN-PARSER::INDEX)3333 (ATN-PARSER:%ATN-NODE-BLOCK IRI_REF/IRI_REF.2.43334 (ATN-PARSER:%ATN-EDGE-BLOCK (TEST IRI_NAMESTRING)3335 (COND3336 ((IS-IRI_NAMESTRING3337 ATN-PARSER::|item|)3338 (SETF ATN-PARSER:*ATN-TERM*3339 'IRI_NAMESTRING)3340 (SETF IRI_NAMESTRING3341 (IF (EQ3342 ATN-PARSER:*ATN-REDUCE*3343 T)3344 (ATN-PARSER:ATN-REDUCE-ITEM3345 #'|IRI_NAMESTRING-Constructor|3346 ATN-PARSER::|item|)3347 (IF (EQ3348 ATN-PARSER:*ATN-REDUCE*3349 'CONS)3350 (LIST3351 'IRI_NAMESTRING3352 ATN-PARSER::|item|)3353 'IRI_NAMESTRING)))3354 (IRI_REF/IRI_REF.2.53355 (1+ ATN-PARSER::INDEX)))3356 (T3357 (SETF ATN-PARSER:*ATN-TERM?*3358 'IRI_NAMESTRING)3359 (IRI_REF/IRI_REF.2.53360 ATN-PARSER::INDEX))))))3361 (IRI_REF/IRI_REF.2.5 (ATN-PARSER::INDEX)3362 (ATN-PARSER:%ATN-NODE-BLOCK IRI_REF/IRI_REF.2.53363 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:>)3364 (COND3365 ((EQ ATN-PARSER::|item|3366 'SPOCQ.S:>)3367 (SETF ATN-PARSER:*ATN-TERM*3368 'SPOCQ.S:>)3369 (IRI_REF.23370 (1+ ATN-PARSER::INDEX)))3371 (T3372 (SETF ATN-PARSER:*ATN-TERM?*3373 'SPOCQ.S:>)3374 (|IRI_REF/fail.3|3375 ATN-PARSER::INDEX))))))3376 (|IRI_REF/start.1| (ATN-PARSER::INDEX)3377 (ATN-PARSER:%ATN-NODE-BLOCK |IRI_REF/start.1|3378 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:<)3379 (COND3380 ((EQ ATN-PARSER::|item|3381 'SPOCQ.S:<)3382 (SETF ATN-PARSER:*ATN-TERM*3383 'SPOCQ.S:<)3384 (IRI_REF/IRI_REF.2.43385 (1+ ATN-PARSER::INDEX)))3386 (T3387 (SETF ATN-PARSER:*ATN-TERM?*3388 'SPOCQ.S:<)3389 (|IRI_REF/fail.3|3390 ATN-PARSER::INDEX)))))))3391 (|IRI_REF/start.1| ATN-PARSER::INDEX)3392 (SETF ATN-PARSER:*ATN-NODE NIL)3393 NIL3394 (IF ATN-PARSER::ATN-STRUCTURE3395 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3396 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))3397 (WARN "recursive grammar: ~s @ position ~s: ~s" 'IRI_REF ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3398 (PROGN3399 (DEFVAR NAMESPACE_REF-INDEX)3400 (DEFUN NAMESPACE_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))3401 "{128a} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'3402 (IRI_NAMESTRING)"3403 (DECLARE (SPECIAL NAMESPACE_REF-INDEX))3404 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX NAMESPACE_REF-INDEX ATN-PARSER:*ATN-LEVEL))3405 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3406 (IF (< NAMESPACE_REF-INDEX ATN-PARSER::INDEX)3407 (LET ((NAMESPACE_REF-INDEX ATN-PARSER::INDEX)3408 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3409 (ATN-PARSER:*ATN-STACK (CONS 'NAMESPACE_REF ATN-PARSER:*ATN-STACK))3410 (ATN-PARSER::ATN-STRUCTURE NIL))3411 (DECLARE (SPECIAL NAMESPACE_REF-INDEX))3412 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3413 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3414 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3415 (ATN-PARSER:%ATN-BLOCK NAMESPACE_REF3416 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3417 (SETF ATN-PARSER:*ATN-TERM* 'NAMESPACE_REF)3418 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3419 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3420 ATN-PARSER::INDEX)3421 (NAMESPACE_REF.2 (ATN-PARSER::INDEX)3422 (ATN-PARSER:%ATN-NODE-BLOCK NAMESPACE_REF.23423 (ATN-PARSER:%ATN-EDGE-BLOCK (POP NAMESPACE_REF)3424 (WHEN T3425 (SETF ATN-PARSER:*ATN-TERM*3426 'NAMESPACE_REF)3427 (ATN-PARSER:%ATN-TRACE3428 " [***/~a @ ~s reduce structure: ~a"3429 'NAMESPACE_REF3430 ATN-PARSER::INDEX3431 (LIST 'IRI_NAMESTRING3432 IRI_NAMESTRING))3433 (LET ((ATN-PARSER::RESULT-STRUCTURE3434 (IF (EQ3435 ATN-PARSER:*ATN-REDUCE*3436 T)3437 (|NAMESPACE_REF-Constructor|3438 IRI_NAMESTRING)3439 (IF (EQ3440 ATN-PARSER:*ATN-REDUCE*3441 'CONS)3442 (CONS3443 'NAMESPACE_REF3444 (DELETE NIL3445 (LIST3446 IRI_NAMESTRING)))3447 'NAMESPACE_REF))))3448 (ATN-PARSER::SUCCEED3449 ATN-PARSER::INDEX3450 ATN-PARSER::RESULT-STRUCTURE))))))3451 (|NAMESPACE_REF/fail.3| (ATN-PARSER::INDEX)3452 (ATN-PARSER:%ATN-NODE-BLOCK |NAMESPACE_REF/fail.3|3453 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3454 (NAMESPACE_REF/NAMESPACE_REF.2.4 (ATN-PARSER::INDEX)3455 (ATN-PARSER:%ATN-NODE-BLOCK NAMESPACE_REF/NAMESPACE_REF.2.43456 (ATN-PARSER:%ATN-EDGE-BLOCK (TEST IRI_NAMESTRING)3457 (COND3458 ((IS-IRI_NAMESTRING3459 ATN-PARSER::|item|)3460 (SETF ATN-PARSER:*ATN-TERM*3461 'IRI_NAMESTRING)3462 (SETF IRI_NAMESTRING3463 (IF (EQ3464 ATN-PARSER:*ATN-REDUCE*3465 T)3466 (ATN-PARSER:ATN-REDUCE-ITEM3467 #'|IRI_NAMESTRING-Constructor|3468 ATN-PARSER::|item|)3469 (IF (EQ3470 ATN-PARSER:*ATN-REDUCE*3471 'CONS)3472 (LIST3473 'IRI_NAMESTRING3474 ATN-PARSER::|item|)3475 'IRI_NAMESTRING)))3476 (NAMESPACE_REF/NAMESPACE_REF.2.53477 (1+ ATN-PARSER::INDEX)))3478 (T3479 (SETF ATN-PARSER:*ATN-TERM?*3480 'IRI_NAMESTRING)3481 (NAMESPACE_REF/NAMESPACE_REF.2.53482 ATN-PARSER::INDEX))))))3483 (NAMESPACE_REF/NAMESPACE_REF.2.5 (ATN-PARSER::INDEX)3484 (ATN-PARSER:%ATN-NODE-BLOCK NAMESPACE_REF/NAMESPACE_REF.2.53485 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:>)3486 (COND3487 ((EQ ATN-PARSER::|item|3488 'SPOCQ.S:>)3489 (SETF ATN-PARSER:*ATN-TERM*3490 'SPOCQ.S:>)3491 (NAMESPACE_REF.23492 (1+ ATN-PARSER::INDEX)))3493 (T3494 (SETF ATN-PARSER:*ATN-TERM?*3495 'SPOCQ.S:>)3496 (|NAMESPACE_REF/fail.3|3497 ATN-PARSER::INDEX))))))3498 (|NAMESPACE_REF/start.1| (ATN-PARSER::INDEX)3499 (ATN-PARSER:%ATN-NODE-BLOCK |NAMESPACE_REF/start.1|3500 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:<)3501 (COND3502 ((EQ ATN-PARSER::|item|3503 'SPOCQ.S:<)3504 (SETF ATN-PARSER:*ATN-TERM*3505 'SPOCQ.S:<)3506 (NAMESPACE_REF/NAMESPACE_REF.2.43507 (1+ ATN-PARSER::INDEX)))3508 (T3509 (SETF ATN-PARSER:*ATN-TERM?*3510 'SPOCQ.S:<)3511 (|NAMESPACE_REF/fail.3|3512 ATN-PARSER::INDEX)))))))3513 (|NAMESPACE_REF/start.1| ATN-PARSER::INDEX)3514 (SETF ATN-PARSER:*ATN-NODE NIL)3515 NIL3516 (IF ATN-PARSER::ATN-STRUCTURE3517 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3518 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))3519 (WARN "recursive grammar: ~s @ position ~s: ~s" 'NAMESPACE_REF ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3520 (PROGN3521 (DEFVAR ANON-INDEX)3522 (DEFUN ANON (ATN-PARSER::INDEX &AUX)3523 "{152} ANON ::= '[' ']'3524 NIL"3525 (DECLARE (SPECIAL ANON-INDEX))3526 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX ANON-INDEX ATN-PARSER:*ATN-LEVEL))3527 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3528 (IF (< ANON-INDEX ATN-PARSER::INDEX)3529 (LET ((ANON-INDEX ATN-PARSER::INDEX)3530 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3531 (ATN-PARSER:*ATN-STACK (CONS 'ANON ATN-PARSER:*ATN-STACK))3532 (ATN-PARSER::ATN-STRUCTURE NIL))3533 (DECLARE (SPECIAL ANON-INDEX))3534 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3535 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3536 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3537 (ATN-PARSER:%ATN-BLOCK ANON3538 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3539 (SETF ATN-PARSER:*ATN-TERM* 'ANON)3540 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3541 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3542 ATN-PARSER::INDEX)3543 (ANON.2 (ATN-PARSER::INDEX)3544 (ATN-PARSER:%ATN-NODE-BLOCK ANON.23545 (ATN-PARSER:%ATN-EDGE-BLOCK (POP ANON)3546 (WHEN T3547 (SETF ATN-PARSER:*ATN-TERM*3548 'ANON)3549 (ATN-PARSER:%ATN-TRACE3550 " [***/~a @ ~s reduce structure: ~a"3551 'ANON ATN-PARSER::INDEX3552 (LIST))3553 (LET ((ATN-PARSER::RESULT-STRUCTURE3554 (IF (EQ3555 ATN-PARSER:*ATN-REDUCE*3556 T)3557 (|ANON-Constructor|)3558 (IF (EQ3559 ATN-PARSER:*ATN-REDUCE*3560 'CONS)3561 (CONS 'ANON3562 (DELETE3563 NIL3564 (LIST)))3565 'ANON))))3566 (ATN-PARSER::SUCCEED3567 ATN-PARSER::INDEX3568 ATN-PARSER::RESULT-STRUCTURE))))))3569 (ANON/ANON.2.4 (ATN-PARSER::INDEX)3570 (ATN-PARSER:%ATN-NODE-BLOCK ANON/ANON.2.43571 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:])3572 (COND3573 ((EQ ATN-PARSER::|item|3574 'SPOCQ.S:])3575 (SETF ATN-PARSER:*ATN-TERM*3576 'SPOCQ.S:])3577 (ANON.23578 (1+ ATN-PARSER::INDEX)))3579 (T3580 (SETF ATN-PARSER:*ATN-TERM?*3581 'SPOCQ.S:])3582 (|ANON/fail.3|3583 ATN-PARSER::INDEX))))))3584 (|ANON/fail.3| (ATN-PARSER::INDEX)3585 (ATN-PARSER:%ATN-NODE-BLOCK |ANON/fail.3|3586 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3587 (|ANON/start.1| (ATN-PARSER::INDEX)3588 (ATN-PARSER:%ATN-NODE-BLOCK |ANON/start.1|3589 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::WORD SPOCQ.S:[)3590 (COND3591 ((EQ ATN-PARSER::|item|3592 'SPOCQ.S:[)3593 (SETF ATN-PARSER:*ATN-TERM*3594 'SPOCQ.S:[)3595 (ANON/ANON.2.43596 (1+ ATN-PARSER::INDEX)))3597 (T3598 (SETF ATN-PARSER:*ATN-TERM?*3599 'SPOCQ.S:[)3600 (|ANON/fail.3|3601 ATN-PARSER::INDEX)))))))3602 (|ANON/start.1| ATN-PARSER::INDEX)3603 (SETF ATN-PARSER:*ATN-NODE NIL)3604 NIL3605 (IF ATN-PARSER::ATN-STRUCTURE3606 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3607 (VALUES `((NIL . ,ATN-PARSER::INDEX)) NIL NIL))))))3608 (WARN "recursive grammar: ~s @ position ~s: ~s" 'ANON ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3609 (SETF (GET '|turtleDoc| :PRODUCTION) "3610 {1 } turtleDoc ::= statement*")3611 (SETF (GET '|statement| :PRODUCTION) "3612 {2 } statement ::= (directive | (triples '.'))")3613 (SETF (GET '|directive| :PRODUCTION) "3614 {3 } directive ::= (prefixID | base | BaseDecl | PrefixDecl)")3615 (SETF (GET '|prefixID| :PRODUCTION) "3616 {4 } prefixID ::= '@prefix' PNAME_NS NAMESPACE_REF '.'")3617 (SETF (GET '|base| :PRODUCTION) "3618 {5 } base ::= '@base' NAMESPACE_REF '.'")3619 (SETF (GET '|BaseDecl| :PRODUCTION) "3620 {5s} BaseDecl ::= 'BASE' NAMESPACE_REF")3621 (SETF (GET '|PrefixDecl| :PRODUCTION) "3622 {6s} PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF")3623 (SETF (GET '|triples| :PRODUCTION) "3624 {6 } triples ::= ((subject PropertyListNotEmpty) | (BlankNodePropertyList3625 PropertyListNotEmpty?))")3626 (SETF (GET '|objectList| :PRODUCTION) "3627 {8 } objectList ::= object (',' object)*")3628 (SETF (GET '|verb| :PRODUCTION) "3629 {9 } verb ::= (predicate | 'a')")3630 (SETF (GET '|subject| :PRODUCTION) "3631 {10} subject ::= (iri | BlankNode | collection)")3632 (SETF (GET '|predicate| :PRODUCTION) "3633 {11} predicate ::= iri")3634 (SETF (GET '|object| :PRODUCTION) "3635 {12} object ::= (iri | BlankNode | collection | BlankNodePropertyList | literal)")3636 (SETF (GET '|literal| :PRODUCTION) "3637 {13} literal ::= (RDFLiteral | NumericLiteral | BooleanLiteral)")3638 (SETF (GET '|BlankNodePropertyList| :PRODUCTION) "3639 {14} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'")3640 (SETF (GET '|collection| :PRODUCTION) "3641 {15} collection ::= '(' object* ')'")3642 (SETF (GET '|RDFLiteral| :PRODUCTION) "3643 {128s} RDFLiteral ::= String ((LANGTAG | ('^^' iri)))?")3644 (SETF (GET '|iri| :PRODUCTION) "3645 {135s} iri ::= (IRI_REF | PrefixedName)")3646 (SETF (GET '|BlankNode| :PRODUCTION) "3647 {137s} BlankNode ::= (('_:' BLANK_NODE_LABEL) | ANON)")3648 (SETF (GET '|PropertyListNotEmpty| :PRODUCTION) "3649 {72} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*")3650 (SETF (GET '|VerbObjectList| :PRODUCTION) "3651 {72a} VerbObjectList ::= verb objectList")3652 (SETF (GET 'IRI_REF :PRODUCTION) "3653 {128} IRI_REF ::= '<' IRI_NAMESTRING? '>'")3654 (SETF (GET 'NAMESPACE_REF :PRODUCTION) "3655 {128a} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'")3656 (SETF (GET 'ANON :PRODUCTION) "3657 {152} ANON ::= '[' ']'")3658 (DEFUN |turtleDoc-Parser|3659 (ATN-PARSER::*ATN-INPUT3660 &KEY ((:TRACE ATN-PARSER:*ATN-TRACE*) ATN-PARSER:*ATN-TRACE*)3661 ((:TRACE-NETS ATN-PARSER:*ATN-TRACE-NETS*) ATN-PARSER:*ATN-TRACE-NETS*)3662 ((:START-NAME ATN-PARSER::*ATN-START-NAME) '|turtleDoc|) ((:MODE ATN-PARSER::*ATN-MODE) :MULTIPLE)3663 ((:REDUCE ATN-PARSER:*ATN-REDUCE*) T) ((:REGISTER-WORDS ATN-PARSER:*ATN-REGISTER-WORDS) NIL)3664 (ATN-PARSER::ATN-WFST (MAKE-ARRAY 8 :ADJUSTABLE T :ELEMENT-TYPE 'LIST :INITIAL-ELEMENT NIL) ATN-PARSER::AW-S)3665 &ALLOW-OTHER-KEYS3666 &AUX)3667 "// generated 2015.08.17T21:39:29.3668 3669 [[1]] turtleDoc ::= statement*3670 [[2]] statement ::= directive | ( triples '.' )3671 [[3]] directive ::= prefixID | base | BaseDecl | PrefixDecl3672 [[4]] prefixID ::= '@prefix' PNAME_NS NAMESPACE_REF '.'3673 [[5]] base ::= '@base' NAMESPACE_REF '.'3674 [[5s]] BaseDecl ::= 'BASE' NAMESPACE_REF3675 [[6s]] PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF3676 [[6]] triples ::= ( subject PropertyListNotEmpty ) | ( BlankNodePropertyList PropertyListNotEmpty? )3677 //[[7]] PropertyListNotEmpty ::= verb objectList (';' (verb objectList)?)*3678 [[8]] objectList ::= object (',' object)*3679 [[9]] verb ::= predicate | 'a'3680 [[10]] subject ::= iri | BlankNode | collection3681 [[11]] predicate ::= iri3682 [[12]] object ::= iri | BlankNode | collection | BlankNodePropertyList | literal3683 [[13]] literal ::= RDFLiteral | NumericLiteral | BooleanLiteral3684 [[14]] BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'3685 [[15]] collection ::= '(' object* ')'3686 //[16]] NumericLiteral ::= INTEGER | DECIMAL | DOUBLE3687 [[128s]] RDFLiteral ::= String (LANGTAG | ( '^^' iri ))?3688 [[133s]] BooleanLiteral ::= 'true' | 'false'3689 //[17]] String ::= STRING_LITERAL_QUOTE | STRING_LITERAL_SINGLE_QUOTE | STRING_LITERAL_LONG_SINGLE_QUOTE | STRING_LITERAL_LONG_QUOTE3690 [[135s]] iri ::= IRI_REF | PrefixedName3691 [[136s]] PrefixedName ::= PNAME_LN | PNAME_NS3692 [[137s]] BlankNode ::= ( '_:' BLANK_NODE_LABEL ) | ANON3693 3694 // from sparql3695 [[72]] PropertyListNotEmpty ::= VerbObjectList ( ';' VerbObjectList? )* 3696 [[72a]] VerbObjectList ::= verb objectList3697 [[119]] NumericLiteral ::= NumericLiteralUnsigned | NumericLiteralPositive | NumericLiteralNegative3698 [[120]] NumericLiteralUnsigned ::= INTEGER | DECIMAL | DOUBLE3699 [[121]] NumericLiteralPositive ::= INTEGER_POSITIVE | DECIMAL_POSITIVE | DOUBLE_POSITIVE3700 [[122]] NumericLiteralNegative ::= INTEGER_NEGATIVE | DECIMAL_NEGATIVE | DOUBLE_NEGATIVE3701 [[124]] String ::= STRING_LITERAL1 | STRING_LITERAL2 | STRING_LITERAL_LONG1 | STRING_LITERAL_LONG23702 [[128]] IRI_REF ::= '<' IRI_NAMESTRING? '>'3703 [[128a]] NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'3704 [[152]] ANON ::= '[' ']'3705 3706 "3707 (DECLARE (SPECIAL ATN-PARSER:*ATN-REDUCE* ATN-PARSER::*ATN-MODE ATN-PARSER::*ATN-INPUT))3708 (WHEN ATN-PARSER::AW-S (ATN-PARSER:|wfst-initialize| ATN-PARSER::ATN-WFST))3709 (LET ((ATN-PARSER:*ATN-LEVEL 0)3710 (ATN-PARSER:*ATN-WFST ATN-PARSER::ATN-WFST)3711 (ATN-PARSER:*ATN-STACK '(|turtleDoc-Parser|))3712 (ATN-PARSER:*ATN-NODE NIL)3713 (ATN-PARSER:*ATN-PROPERTIES NIL)3714 (ATN-PARSER:*ATN-CLASS NIL)3715 (|turtleDoc-INDEX| -1)3716 (|statement-INDEX| -1)3717 (|directive-INDEX| -1)3718 (|prefixID-INDEX| -1)3719 (|base-INDEX| -1)3720 (|BaseDecl-INDEX| -1)3721 (|PrefixDecl-INDEX| -1)3722 (|triples-INDEX| -1)3723 (|objectList-INDEX| -1)3724 (|verb-INDEX| -1)3725 (|subject-INDEX| -1)3726 (|predicate-INDEX| -1)3727 (|object-INDEX| -1)3728 (|literal-INDEX| -1)3729 (|BlankNodePropertyList-INDEX| -1)3730 (|collection-INDEX| -1)3731 (|RDFLiteral-INDEX| -1)3732 (|iri-INDEX| -1)3733 (|BlankNode-INDEX| -1)3734 (|PropertyListNotEmpty-INDEX| -1)3735 (|VerbObjectList-INDEX| -1)3736 (IRI_REF-INDEX -1)3737 (NAMESPACE_REF-INDEX -1)3738 (ANON-INDEX -1)3739 (ATN-PARSER::ATN-NET-NAMES3740 '(|turtleDoc| |statement| |directive| |prefixID| |base| |BaseDecl| |PrefixDecl| |triples| |objectList| |verb| |subject|3741 |predicate| |object| |literal| |BlankNodePropertyList| |collection| |RDFLiteral| |iri| |BlankNode|3742 |PropertyListNotEmpty| |VerbObjectList| IRI_REF NAMESPACE_REF ANON)))3743 (DECLARE3744 (SPECIAL |turtleDoc-INDEX| |statement-INDEX| |directive-INDEX| |prefixID-INDEX| |base-INDEX| |BaseDecl-INDEX|3745 |PrefixDecl-INDEX| |triples-INDEX| |objectList-INDEX| |verb-INDEX| |subject-INDEX| |predicate-INDEX| |object-INDEX|3746 |literal-INDEX| |BlankNodePropertyList-INDEX| |collection-INDEX| |RDFLiteral-INDEX| |iri-INDEX| |BlankNode-INDEX|3747 |PropertyListNotEmpty-INDEX| |VerbObjectList-INDEX| IRI_REF-INDEX NAMESPACE_REF-INDEX ANON-INDEX))3748 (UNLESS (FIND ATN-PARSER::*ATN-START-NAME ATN-PARSER::ATN-NET-NAMES)3749 (ERROR "production not defined in system: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|turtleDoc-Parser|))3750 (UNLESS (FBOUNDP ATN-PARSER::*ATN-START-NAME)3751 (ERROR "parse function missing: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|turtleDoc-Parser|))3752 (HANDLER-BIND ((ATN-PARSER:CONTINUABLE-PARSER-ERROR #'(LAMBDA (CONDITION) (SIGNAL CONDITION)))3753 (ATN-PARSER:TERMINAL-PARSER-ERROR3754 #'(LAMBDA (CONDITION &AUX (ATN-PARSER::ACTION (ATN-PARSER:CONDITION-ACTION CONDITION)))3755 (ETYPECASE ATN-PARSER::ACTION3756 (NULL)3757 (KEYWORD3758 (ECASE ATN-PARSER::ACTION3759 (:ABORT3760 (WHEN ATN-PARSER:*ATN-TRACE*3761 (WARN "terminating parse on condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))3762 (RETURN-FROM |turtleDoc-Parser| (VALUES NIL CONDITION NIL)))3763 (:CONTINUE3764 (WHEN ATN-PARSER:*ATN-TRACE*3765 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))3766 (CONTINUE CONDITION))3767 (:SIGNAL3768 (WHEN ATN-PARSER:*ATN-TRACE*3769 (WARN "signaling parse condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))3770 (SIGNAL CONDITION)3771 (WHEN ATN-PARSER:*ATN-TRACE*3772 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))3773 (CONTINUE CONDITION))))3774 (FUNCTION (FUNCALL ATN-PARSER::ACTION)))))3775 (ERROR #'(LAMBDA (CONDITION) (WHEN ATN-PARSER:*ATN-TRACE* (WARN "parse raised condition: ~a." CONDITION)) NIL)))3776 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3777 (ATN-PARSER:ATN-PARSE-SUBSTRUCTURE* ATN-PARSER::*ATN-START-NAME 0)3778 (COND3779 (ATN-PARSER::SUCCESS3780 (RETURN-FROM |turtleDoc-Parser|3781 (PROGN3782 (WHEN (CDR ATN-PARSER::RESULT)3783 (WHEN ATN-PARSER:*ATN-TRACE* (WARN "ambiguous results for term: ~s." ATN-PARSER::*ATN-START-NAME))3784 (SETF ATN-PARSER::RESULT (SORT ATN-PARSER::RESULT #'> :KEY #'REST)))3785 (DESTRUCTURING-BIND3786 (ATN-PARSER::RESULT . ATN-PARSER::INDEX)3787 (FIRST ATN-PARSER::RESULT)3788 (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX (INPUT-EOF? ATN-PARSER::INDEX))))))3789 (T (RETURN-FROM |turtleDoc-Parser| (VALUES NIL (REDUCE #'MAX ATN-PARSER::RESULT :KEY #'REST :INITIAL-VALUE 0) NIL))))))))