| Kind | Covered | All | % |
| expression | 0 | 4841 | 0.0 |
| branch | 0 | 408 | 0.0 |
1 2 (IN-PACKAGE "ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1") 3 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-operation_name|)) 4 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-field_name|)) 5 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-argument_name|)) 6 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-alias_name|)) 7 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-fragment_name|)) 8 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-string_value|)) 9 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-enum_value|)) 10 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-var_name|)) 11 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-named_type|)) 12 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-directive_name|)) 13 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-keywords|)) 14 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-type_category|)) 15 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-operation_type|)) 16 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-boolean_value|)) 17 (DECLAIM (FTYPE (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES T T T)) |graphqlFile-Parser|)) 18 (DEFUN |IS-operation_name| (ATN-PARSER::ITEM) (ATN-PARSER:%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-ID ATN-PARSER::ITEM)))))19 (DEFUN |IS-field_name| (ATN-PARSER::ITEM)20 (ATN-PARSER:%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (|IS-keywords| ATN-PARSER::ITEM) (IS-ID ATN-PARSER::ITEM)))))21 (DEFUN |IS-argument_name| (ATN-PARSER::ITEM)22 (ATN-PARSER:%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (|IS-keywords| ATN-PARSER::ITEM) (IS-ID ATN-PARSER::ITEM)))))23 (DEFUN |IS-alias_name| (ATN-PARSER::ITEM) (ATN-PARSER:%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-ID ATN-PARSER::ITEM)))))24 (DEFUN |IS-fragment_name| (ATN-PARSER::ITEM) (ATN-PARSER:%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-ID ATN-PARSER::ITEM)))))25 (DEFUN |IS-string_value| (ATN-PARSER::ITEM) (ATN-PARSER:%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-STRING ATN-PARSER::ITEM)))))26 (DEFUN |IS-enum_value| (ATN-PARSER::ITEM) (ATN-PARSER:%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-STRING ATN-PARSER::ITEM)))))27 (DEFUN |IS-var_name| (ATN-PARSER::ITEM)28 (ATN-PARSER:%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (|IS-keywords| ATN-PARSER::ITEM) (IS-ID ATN-PARSER::ITEM)))))29 (DEFUN |IS-named_type| (ATN-PARSER::ITEM) (ATN-PARSER:%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-ID ATN-PARSER::ITEM)))))30 (DEFUN |IS-directive_name| (ATN-PARSER::ITEM) (ATN-PARSER:%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-ID ATN-PARSER::ITEM)))))31 (DEFUN |IS-keywords| (ATN-PARSER::ITEM)32 (ATN-PARSER:%ATN-TRACE-FORM33 (AND ATN-PARSER::ITEM34 (OR (EQ ATN-PARSER::ITEM 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|type|)35 (EQ ATN-PARSER::ITEM 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|interface|)36 (EQ ATN-PARSER::ITEM 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|input|) (EQ ATN-PARSER::ITEM 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|query|)37 (EQ ATN-PARSER::ITEM 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|mutation|)))))38 (DEFUN |IS-type_category| (ATN-PARSER::ITEM)39 (ATN-PARSER:%ATN-TRACE-FORM40 (AND ATN-PARSER::ITEM41 (OR (EQ ATN-PARSER::ITEM 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|type|)42 (EQ ATN-PARSER::ITEM 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|interface|)43 (EQ ATN-PARSER::ITEM 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|input|)))))44 (DEFUN |IS-operation_type| (ATN-PARSER::ITEM)45 (ATN-PARSER:%ATN-TRACE-FORM46 (AND ATN-PARSER::ITEM47 (OR (EQ ATN-PARSER::ITEM 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|query|)48 (EQ ATN-PARSER::ITEM 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|mutation|)))))49 (DEFUN |IS-boolean_value| (ATN-PARSER::ITEM)50 (ATN-PARSER:%ATN-TRACE-FORM51 (AND ATN-PARSER::ITEM52 (OR (EQ ATN-PARSER::ITEM 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|true|)53 (EQ ATN-PARSER::ITEM 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|false|)))))54 (PROGN55 (DEFVAR |graphqlFile-INDEX|)56 (DEFUN |graphqlFile| (ATN-PARSER::INDEX &AUX (|definition| NIL))57 "{1 } graphqlFile ::= definition*58 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|definition|)"59 (DECLARE (SPECIAL |graphqlFile-INDEX|))60 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |graphqlFile-INDEX| ATN-PARSER:*ATN-LEVEL))61 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))62 (IF (< |graphqlFile-INDEX| ATN-PARSER::INDEX)63 (LET ((|graphqlFile-INDEX| ATN-PARSER::INDEX)64 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))65 (ATN-PARSER:*ATN-STACK (CONS '|graphqlFile| ATN-PARSER:*ATN-STACK)))66 (DECLARE (SPECIAL |graphqlFile-INDEX|))67 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))68 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))69 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))70 (ATN-PARSER:%ATN-BLOCK |graphqlFile|71 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)72 (SETF ATN-PARSER:*ATN-TERM* '|graphqlFile|)73 (RETURN-FROM |graphqlFile| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))74 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)75 (RETURN-FROM |graphqlFile| (VALUES NIL ATN-PARSER::INDEX NIL)))76 (|graphqlFile.2| (ATN-PARSER::INDEX)77 (ATN-PARSER:%ATN-NODE-BLOCK |graphqlFile.2|78 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |graphqlFile|)79 (WHEN T80 (SETF ATN-PARSER:*ATN-TERM*81 '|graphqlFile|)82 (ATN-PARSER:%ATN-TRACE83 " [***/~a @ ~s reduce structure: ~a"84 '|graphqlFile|85 ATN-PARSER::INDEX86 (LIST '|definition|87 |definition|))88 (LET ((ATN-PARSER::RESULT-STRUCTURE89 (IF (EQ90 ATN-PARSER:*ATN-REDUCE*91 T)92 (|graphqlFile-Constructor|93 |definition|)94 (IF (EQ95 ATN-PARSER:*ATN-REDUCE*96 'CONS)97 (CONS98 '|graphqlFile|99 (DELETE NIL100 (LIST101 |definition|)))102 '|graphqlFile|))))103 (ATN-PARSER::SUCCEED104 ATN-PARSER::INDEX105 ATN-PARSER::RESULT-STRUCTURE))))))106 (|graphqlFile.4| (ATN-PARSER::INDEX)107 (ATN-PARSER:%ATN-NODE-BLOCK |graphqlFile.4|108 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |definition|)109 (MULTIPLE-VALUE-BIND110 (ATN-PARSER::RESULT111 ATN-PARSER::RESULT-INDEX112 ATN-PARSER::SUCCESS)113 (|definition|114 ATN-PARSER::INDEX)115 (COND116 (ATN-PARSER::SUCCESS117 (WHEN ATN-PARSER::RESULT118 (SETF |definition|119 (CONS120 ATN-PARSER::RESULT121 |definition|)))122 (|graphqlFile.4|123 ATN-PARSER::RESULT-INDEX))124 (T125 (SETF ATN-PARSER:*ATN-TERM?*126 '|definition|)127 (|graphqlFile.2|128 ATN-PARSER::INDEX)))))))129 (|graphqlFile/fail.3| (ATN-PARSER::INDEX)130 (ATN-PARSER:%ATN-NODE-BLOCK |graphqlFile/fail.3|131 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))132 (|graphqlFile/start.1| (ATN-PARSER::INDEX)133 (ATN-PARSER:%ATN-NODE-BLOCK |graphqlFile/start.1|134 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |definition|)135 (MULTIPLE-VALUE-BIND136 (ATN-PARSER::RESULT137 ATN-PARSER::RESULT-INDEX138 ATN-PARSER::SUCCESS)139 (|definition|140 ATN-PARSER::INDEX)141 (COND142 (ATN-PARSER::SUCCESS143 (WHEN ATN-PARSER::RESULT144 (SETF |definition|145 (CONS146 ATN-PARSER::RESULT147 |definition|)))148 (|graphqlFile.4|149 ATN-PARSER::RESULT-INDEX))150 (T151 (SETF ATN-PARSER:*ATN-TERM?*152 '|definition|)153 (|graphqlFile.2|154 ATN-PARSER::INDEX))))))))155 (DECLARE156 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |graphqlFile.2| |graphqlFile.4|157 |graphqlFile/fail.3| |graphqlFile/start.1|))158 (|graphqlFile/start.1| ATN-PARSER::INDEX)159 (SETF ATN-PARSER:*ATN-NODE NIL)160 NIL161 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))162 (WARN "recursive grammar: ~s @ position ~s: ~s" '|graphqlFile| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))163 (PROGN164 (DEFVAR |definition-INDEX|)165 (DEFUN |definition| (ATN-PARSER::INDEX &AUX (|fragment_definition| NIL) (|operation_definition| NIL) (|type_definition| NIL))166 "{3 } definition ::= (type_definition | operation_definition | fragment_definition)167 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|fragment_definition|168 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|operation_definition|169 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|type_definition|)"170 (DECLARE (SPECIAL |definition-INDEX|))171 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |definition-INDEX| ATN-PARSER:*ATN-LEVEL))172 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))173 (IF (< |definition-INDEX| ATN-PARSER::INDEX)174 (LET ((|definition-INDEX| ATN-PARSER::INDEX)175 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))176 (ATN-PARSER:*ATN-STACK (CONS '|definition| ATN-PARSER:*ATN-STACK)))177 (DECLARE (SPECIAL |definition-INDEX|))178 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))179 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))180 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))181 (ATN-PARSER:%ATN-BLOCK |definition|182 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)183 (SETF ATN-PARSER:*ATN-TERM* '|definition|)184 (RETURN-FROM |definition| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))185 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)186 (RETURN-FROM |definition| (VALUES NIL ATN-PARSER::INDEX NIL)))187 (|definition.2| (ATN-PARSER::INDEX)188 (ATN-PARSER:%ATN-NODE-BLOCK |definition.2|189 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |definition|)190 (WHEN T191 (SETF ATN-PARSER:*ATN-TERM*192 '|definition|)193 (ATN-PARSER:%ATN-TRACE194 " [***/~a @ ~s reduce structure: ~a"195 '|definition|196 ATN-PARSER::INDEX197 (LIST198 '|fragment_definition|199 |fragment_definition|200 '|operation_definition|201 |operation_definition|202 '|type_definition|203 |type_definition|))204 (LET ((ATN-PARSER::RESULT-STRUCTURE205 (IF (EQ206 ATN-PARSER:*ATN-REDUCE*207 T)208 (|definition-Constructor|209 |fragment_definition|210 |operation_definition|211 |type_definition|)212 (IF (EQ213 ATN-PARSER:*ATN-REDUCE*214 'CONS)215 (CONS216 '|definition|217 (DELETE NIL218 (LIST219 |fragment_definition|220 |operation_definition|221 |type_definition|)))222 '|definition|))))223 (ATN-PARSER::SUCCEED224 ATN-PARSER::INDEX225 ATN-PARSER::RESULT-STRUCTURE))))))226 (|definition/fail.3| (ATN-PARSER::INDEX)227 (ATN-PARSER:%ATN-NODE-BLOCK |definition/fail.3|228 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))229 (|definition/start.1| (ATN-PARSER::INDEX)230 (ATN-PARSER:%ATN-NODE-BLOCK |definition/start.1|231 (ATN-PARSER:%ATN-EDGE-BLOCK OR232 (OR233 (ATN-PARSER:%ATN-EDGE-BLOCK234 (PUSH |type_definition|)235 (MULTIPLE-VALUE-BIND236 (ATN-PARSER::RESULT237 ATN-PARSER::RESULT-INDEX238 ATN-PARSER::SUCCESS)239 (|type_definition|240 ATN-PARSER::INDEX)241 (COND242 (ATN-PARSER::SUCCESS243 (WHEN ATN-PARSER::RESULT244 (SETF |type_definition|245 ATN-PARSER::RESULT))246 (|definition.2|247 ATN-PARSER::RESULT-INDEX))248 (T249 (SETF ATN-PARSER:*ATN-TERM?*250 '|type_definition|)251 NIL))))252 (ATN-PARSER:%ATN-EDGE-BLOCK253 (PUSH254 |operation_definition|)255 (MULTIPLE-VALUE-BIND256 (ATN-PARSER::RESULT257 ATN-PARSER::RESULT-INDEX258 ATN-PARSER::SUCCESS)259 (|operation_definition|260 ATN-PARSER::INDEX)261 (COND262 (ATN-PARSER::SUCCESS263 (WHEN ATN-PARSER::RESULT264 (SETF |operation_definition|265 ATN-PARSER::RESULT))266 (|definition.2|267 ATN-PARSER::RESULT-INDEX))268 (T269 (SETF ATN-PARSER:*ATN-TERM?*270 '|operation_definition|)271 NIL))))272 (ATN-PARSER:%ATN-EDGE-BLOCK273 (PUSH |fragment_definition|)274 (MULTIPLE-VALUE-BIND275 (ATN-PARSER::RESULT276 ATN-PARSER::RESULT-INDEX277 ATN-PARSER::SUCCESS)278 (|fragment_definition|279 ATN-PARSER::INDEX)280 (COND281 (ATN-PARSER::SUCCESS282 (WHEN ATN-PARSER::RESULT283 (SETF |fragment_definition|284 ATN-PARSER::RESULT))285 (|definition.2|286 ATN-PARSER::RESULT-INDEX))287 (T288 (SETF ATN-PARSER:*ATN-TERM?*289 '|fragment_definition|)290 NIL))))291 (|definition/fail.3|292 ATN-PARSER::INDEX))))))293 (DECLARE294 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |definition.2| |definition/fail.3|295 |definition/start.1|))296 (|definition/start.1| ATN-PARSER::INDEX)297 (SETF ATN-PARSER:*ATN-NODE NIL)298 NIL299 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))300 (WARN "recursive grammar: ~s @ position ~s: ~s" '|definition| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))301 (PROGN302 (DEFVAR |type_definition-INDEX|)303 (DEFUN |type_definition|304 (ATN-PARSER::INDEX &AUX (|field_definitions| NIL) (|interfaces| NIL) (|named_type| NIL) (|type_category| NIL))305 "{4 } type_definition ::= type_category named_type interfaces? field_definitions306 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|field_definitions|307 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|interfaces|308 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|named_type|309 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|type_category|)"310 (DECLARE (SPECIAL |type_definition-INDEX|))311 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |type_definition-INDEX| ATN-PARSER:*ATN-LEVEL))312 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))313 (IF (< |type_definition-INDEX| ATN-PARSER::INDEX)314 (LET ((|type_definition-INDEX| ATN-PARSER::INDEX)315 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))316 (ATN-PARSER:*ATN-STACK (CONS '|type_definition| ATN-PARSER:*ATN-STACK)))317 (DECLARE (SPECIAL |type_definition-INDEX|))318 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))319 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))320 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))321 (ATN-PARSER:%ATN-BLOCK |type_definition|322 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)323 (SETF ATN-PARSER:*ATN-TERM* '|type_definition|)324 (RETURN-FROM |type_definition| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))325 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)326 (RETURN-FROM |type_definition| (VALUES NIL ATN-PARSER::INDEX NIL)))327 (|type_definition.2| (ATN-PARSER::INDEX)328 (ATN-PARSER:%ATN-NODE-BLOCK |type_definition.2|329 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |type_definition|)330 (WHEN T331 (SETF ATN-PARSER:*ATN-TERM*332 '|type_definition|)333 (ATN-PARSER:%ATN-TRACE334 " [***/~a @ ~s reduce structure: ~a"335 '|type_definition|336 ATN-PARSER::INDEX337 (LIST '|field_definitions|338 |field_definitions|339 '|interfaces|340 |interfaces|341 '|named_type|342 |named_type|343 '|type_category|344 |type_category|))345 (LET ((ATN-PARSER::RESULT-STRUCTURE346 (IF (EQ347 ATN-PARSER:*ATN-REDUCE*348 T)349 (|type_definition-Constructor|350 |field_definitions|351 |interfaces|352 |named_type|353 |type_category|)354 (IF (EQ355 ATN-PARSER:*ATN-REDUCE*356 'CONS)357 (CONS358 '|type_definition|359 (DELETE NIL360 (LIST361 |field_definitions|362 |interfaces|363 |named_type|364 |type_category|)))365 '|type_definition|))))366 (ATN-PARSER::SUCCEED367 ATN-PARSER::INDEX368 ATN-PARSER::RESULT-STRUCTURE))))))369 (|type_definition/fail.3| (ATN-PARSER::INDEX)370 (ATN-PARSER:%ATN-NODE-BLOCK |type_definition/fail.3|371 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))372 (|type_definition/start.1| (ATN-PARSER::INDEX)373 (ATN-PARSER:%ATN-NODE-BLOCK |type_definition/start.1|374 (ATN-PARSER:%ATN-EDGE-BLOCK375 (ATN-PARSER::CAT |type_category|)376 (COND377 ((|IS-type_category| ATN-PARSER::|item|)378 (SETF ATN-PARSER:*ATN-TERM* '|type_category|)379 (SETF |type_category|380 (IF (EQ ATN-PARSER:*ATN-REDUCE* T)381 (ATN-PARSER:ATN-REDUCE-ITEM382 #'|type_category-Constructor|383 ATN-PARSER::|item|)384 (IF (EQ ATN-PARSER:*ATN-REDUCE* 'CONS)385 (LIST '|type_category|386 ATN-PARSER::|item|)387 '|type_category|)))388 (|type_definition/type_definition.2.4|389 (1+ ATN-PARSER::INDEX)))390 (T (SETF ATN-PARSER:*ATN-TERM* '|type_category|)391 (|type_definition/fail.3| ATN-PARSER::INDEX))))))392 (|type_definition/type_definition.2.4| (ATN-PARSER::INDEX)393 (ATN-PARSER:%ATN-NODE-BLOCK |type_definition/type_definition.2.4|394 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::CAT |named_type|)395 (COND396 ((|IS-named_type|397 ATN-PARSER::|item|)398 (SETF ATN-PARSER:*ATN-TERM*399 '|named_type|)400 (SETF |named_type|401 (IF (EQ402 ATN-PARSER:*ATN-REDUCE*403 T)404 (ATN-PARSER:ATN-REDUCE-ITEM405 #'|named_type-Constructor|406 ATN-PARSER::|item|)407 (IF (EQ408 ATN-PARSER:*ATN-REDUCE*409 'CONS)410 (LIST411 '|named_type|412 ATN-PARSER::|item|)413 '|named_type|)))414 (|type_definition/type_definition.2.5|415 (1+ ATN-PARSER::INDEX)))416 (T417 (SETF ATN-PARSER:*ATN-TERM*418 '|named_type|)419 (|type_definition/fail.3|420 ATN-PARSER::INDEX))))))421 (|type_definition/type_definition.2.5| (ATN-PARSER::INDEX)422 (ATN-PARSER:%ATN-NODE-BLOCK |type_definition/type_definition.2.5|423 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |interfaces|)424 (MULTIPLE-VALUE-BIND425 (ATN-PARSER::RESULT426 ATN-PARSER::RESULT-INDEX427 ATN-PARSER::SUCCESS)428 (|interfaces|429 ATN-PARSER::INDEX)430 (COND431 (ATN-PARSER::SUCCESS432 (WHEN ATN-PARSER::RESULT433 (SETF |interfaces|434 ATN-PARSER::RESULT))435 (|type_definition/type_definition.2.6|436 ATN-PARSER::RESULT-INDEX))437 (T438 (SETF ATN-PARSER:*ATN-TERM?*439 '|interfaces|)440 (|type_definition/type_definition.2.6|441 ATN-PARSER::INDEX)))))))442 (|type_definition/type_definition.2.6| (ATN-PARSER::INDEX)443 (ATN-PARSER:%ATN-NODE-BLOCK |type_definition/type_definition.2.6|444 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |field_definitions|)445 (MULTIPLE-VALUE-BIND446 (ATN-PARSER::RESULT447 ATN-PARSER::RESULT-INDEX448 ATN-PARSER::SUCCESS)449 (|field_definitions|450 ATN-PARSER::INDEX)451 (COND452 (ATN-PARSER::SUCCESS453 (WHEN ATN-PARSER::RESULT454 (SETF |field_definitions|455 ATN-PARSER::RESULT))456 (|type_definition.2|457 ATN-PARSER::RESULT-INDEX))458 (T459 (SETF ATN-PARSER:*ATN-TERM?*460 '|field_definitions|)461 (|type_definition/fail.3|462 ATN-PARSER::INDEX))))))))463 (DECLARE464 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |type_definition.2| |type_definition/fail.3|465 |type_definition/start.1| |type_definition/type_definition.2.4|466 |type_definition/type_definition.2.5| |type_definition/type_definition.2.6|))467 (|type_definition/start.1| ATN-PARSER::INDEX)468 (SETF ATN-PARSER:*ATN-NODE NIL)469 NIL470 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))471 (WARN "recursive grammar: ~s @ position ~s: ~s" '|type_definition| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))472 (PROGN473 (DEFVAR |interfaces-INDEX|)474 (DEFUN |interfaces| (ATN-PARSER::INDEX &AUX (|named_type| NIL))475 "{5 } interfaces ::= 'implements' named_type476 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|named_type|)"477 (DECLARE (SPECIAL |interfaces-INDEX|))478 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |interfaces-INDEX| ATN-PARSER:*ATN-LEVEL))479 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))480 (IF (< |interfaces-INDEX| ATN-PARSER::INDEX)481 (LET ((|interfaces-INDEX| ATN-PARSER::INDEX)482 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))483 (ATN-PARSER:*ATN-STACK (CONS '|interfaces| ATN-PARSER:*ATN-STACK)))484 (DECLARE (SPECIAL |interfaces-INDEX|))485 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))486 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))487 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))488 (ATN-PARSER:%ATN-BLOCK |interfaces|489 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)490 (SETF ATN-PARSER:*ATN-TERM* '|interfaces|)491 (RETURN-FROM |interfaces| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))492 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)493 (RETURN-FROM |interfaces| (VALUES NIL ATN-PARSER::INDEX NIL)))494 (|interfaces.2| (ATN-PARSER::INDEX)495 (ATN-PARSER:%ATN-NODE-BLOCK |interfaces.2|496 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |interfaces|)497 (WHEN T498 (SETF ATN-PARSER:*ATN-TERM*499 '|interfaces|)500 (ATN-PARSER:%ATN-TRACE501 " [***/~a @ ~s reduce structure: ~a"502 '|interfaces|503 ATN-PARSER::INDEX504 (LIST '|named_type|505 |named_type|))506 (LET ((ATN-PARSER::RESULT-STRUCTURE507 (IF (EQ508 ATN-PARSER:*ATN-REDUCE*509 T)510 (|interfaces-Constructor|511 |named_type|)512 (IF (EQ513 ATN-PARSER:*ATN-REDUCE*514 'CONS)515 (CONS516 '|interfaces|517 (DELETE NIL518 (LIST519 |named_type|)))520 '|interfaces|))))521 (ATN-PARSER::SUCCEED522 ATN-PARSER::INDEX523 ATN-PARSER::RESULT-STRUCTURE))))))524 (|interfaces/fail.3| (ATN-PARSER::INDEX)525 (ATN-PARSER:%ATN-NODE-BLOCK |interfaces/fail.3|526 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))527 (|interfaces/interfaces.2.4| (ATN-PARSER::INDEX)528 (ATN-PARSER:%ATN-NODE-BLOCK |interfaces/interfaces.2.4|529 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::CAT |named_type|)530 (COND531 ((|IS-named_type|532 ATN-PARSER::|item|)533 (SETF ATN-PARSER:*ATN-TERM*534 '|named_type|)535 (SETF |named_type|536 (IF (EQ537 ATN-PARSER:*ATN-REDUCE*538 T)539 (ATN-PARSER:ATN-REDUCE-ITEM540 #'|named_type-Constructor|541 ATN-PARSER::|item|)542 (IF (EQ543 ATN-PARSER:*ATN-REDUCE*544 'CONS)545 (LIST546 '|named_type|547 ATN-PARSER::|item|)548 '|named_type|)))549 (|interfaces.2|550 (1+ ATN-PARSER::INDEX)))551 (T552 (SETF ATN-PARSER:*ATN-TERM*553 '|named_type|)554 (|interfaces/fail.3|555 ATN-PARSER::INDEX))))))556 (|interfaces/start.1| (ATN-PARSER::INDEX)557 (ATN-PARSER:%ATN-NODE-BLOCK |interfaces/start.1|558 (ATN-PARSER:%ATN-EDGE-BLOCK559 (ATN-PARSER::WORD560 ORG.DATAGRAPH.SPOCQ.GRAPHQL::|implements|)561 (COND562 ((EQ ATN-PARSER::|item|563 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|implements|)564 (SETF ATN-PARSER:*ATN-TERM*565 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|implements|)566 (|interfaces/interfaces.2.4| (1+ ATN-PARSER::INDEX)))567 (T568 (SETF ATN-PARSER:*ATN-TERM?*569 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|implements|)570 (|interfaces/fail.3| ATN-PARSER::INDEX)))))))571 (DECLARE572 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |interfaces.2| |interfaces/fail.3|573 |interfaces/interfaces.2.4| |interfaces/start.1|))574 (|interfaces/start.1| ATN-PARSER::INDEX)575 (SETF ATN-PARSER:*ATN-NODE NIL)576 NIL577 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))578 (WARN "recursive grammar: ~s @ position ~s: ~s" '|interfaces| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))579 (PROGN580 (DEFVAR |field_definitions-INDEX|)581 (DEFUN |field_definitions| (ATN-PARSER::INDEX &AUX (|field_definition| NIL))582 "{6 } field_definitions ::= '{' field_definition (','? field_definition)* ','? '}'583 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|field_definition|)"584 (DECLARE (SPECIAL |field_definitions-INDEX|))585 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |field_definitions-INDEX| ATN-PARSER:*ATN-LEVEL))586 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))587 (IF (< |field_definitions-INDEX| ATN-PARSER::INDEX)588 (LET ((|field_definitions-INDEX| ATN-PARSER::INDEX)589 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))590 (ATN-PARSER:*ATN-STACK (CONS '|field_definitions| ATN-PARSER:*ATN-STACK)))591 (DECLARE (SPECIAL |field_definitions-INDEX|))592 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))593 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))594 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))595 (ATN-PARSER:%ATN-BLOCK |field_definitions|596 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)597 (SETF ATN-PARSER:*ATN-TERM* '|field_definitions|)598 (RETURN-FROM |field_definitions| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))599 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)600 (RETURN-FROM |field_definitions| (VALUES NIL ATN-PARSER::INDEX NIL)))601 (|field_definitions.2| (ATN-PARSER::INDEX)602 (ATN-PARSER:%ATN-NODE-BLOCK |field_definitions.2|603 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |field_definitions|)604 (WHEN T605 (SETF ATN-PARSER:*ATN-TERM*606 '|field_definitions|)607 (ATN-PARSER:%ATN-TRACE608 " [***/~a @ ~s reduce structure: ~a"609 '|field_definitions|610 ATN-PARSER::INDEX611 (LIST '|field_definition|612 |field_definition|))613 (LET ((ATN-PARSER::RESULT-STRUCTURE614 (IF (EQ615 ATN-PARSER:*ATN-REDUCE*616 T)617 (|field_definitions-Constructor|618 |field_definition|)619 (IF (EQ620 ATN-PARSER:*ATN-REDUCE*621 'CONS)622 (CONS623 '|field_definitions|624 (DELETE NIL625 (LIST626 |field_definition|)))627 '|field_definitions|))))628 (ATN-PARSER::SUCCEED629 ATN-PARSER::INDEX630 ATN-PARSER::RESULT-STRUCTURE))))))631 (|field_definitions.8| (ATN-PARSER::INDEX)632 (ATN-PARSER:%ATN-NODE-BLOCK |field_definitions.8|633 (ATN-PARSER:%ATN-EDGE-BLOCK634 (ATN-PARSER::JUMP635 |field_definitions/field_definitions.8.9|)636 (|field_definitions/field_definitions.8.9|637 ATN-PARSER::INDEX))638 (ATN-PARSER:%ATN-EDGE-BLOCK639 (ATN-PARSER::JUMP640 |field_definitions/field_definitions.2.6|)641 (|field_definitions/field_definitions.2.6|642 ATN-PARSER::INDEX))))643 (|field_definitions/fail.3| (ATN-PARSER::INDEX)644 (ATN-PARSER:%ATN-NODE-BLOCK |field_definitions/fail.3|645 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))646 (|field_definitions/field_definitions.2.4| (ATN-PARSER::INDEX)647 (ATN-PARSER:%ATN-NODE-BLOCK |field_definitions/field_definitions.2.4|648 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |field_definition|)649 (MULTIPLE-VALUE-BIND650 (ATN-PARSER::RESULT651 ATN-PARSER::RESULT-INDEX652 ATN-PARSER::SUCCESS)653 (|field_definition|654 ATN-PARSER::INDEX)655 (COND656 (ATN-PARSER::SUCCESS657 (WHEN ATN-PARSER::RESULT658 (SETF |field_definition|659 (CONS660 ATN-PARSER::RESULT661 |field_definition|)))662 (|field_definitions/field_definitions.2.5|663 ATN-PARSER::RESULT-INDEX))664 (T665 (SETF ATN-PARSER:*ATN-TERM?*666 '|field_definition|)667 (|field_definitions/fail.3|668 ATN-PARSER::INDEX)))))))669 (|field_definitions/field_definitions.2.5| (ATN-PARSER::INDEX)670 (ATN-PARSER:%ATN-NODE-BLOCK |field_definitions/field_definitions.2.5|671 (ATN-PARSER:%ATN-EDGE-BLOCK672 (ATN-PARSER::JUMP673 |field_definitions/field_definitions.8.9|)674 (|field_definitions/field_definitions.8.9|675 ATN-PARSER::INDEX))676 (ATN-PARSER:%ATN-EDGE-BLOCK677 (ATN-PARSER::JUMP678 |field_definitions/field_definitions.2.6|)679 (|field_definitions/field_definitions.2.6|680 ATN-PARSER::INDEX))))681 (|field_definitions/field_definitions.2.6| (ATN-PARSER::INDEX)682 (ATN-PARSER:%ATN-NODE-BLOCK |field_definitions/field_definitions.2.6|683 (ATN-PARSER:%ATN-EDGE-BLOCK684 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)685 (COND686 ((EQ ATN-PARSER::|item|687 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)688 (SETF ATN-PARSER:*ATN-TERM*689 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)690 (|field_definitions/field_definitions.2.7|691 (1+ ATN-PARSER::INDEX)))692 (T693 (SETF ATN-PARSER:*ATN-TERM?*694 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)695 (|field_definitions/field_definitions.2.7|696 ATN-PARSER::INDEX))))))697 (|field_definitions/field_definitions.2.7| (ATN-PARSER::INDEX)698 (ATN-PARSER:%ATN-NODE-BLOCK |field_definitions/field_definitions.2.7|699 (ATN-PARSER:%ATN-EDGE-BLOCK700 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::})701 (COND702 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::})703 (SETF ATN-PARSER:*ATN-TERM*704 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::})705 (|field_definitions.2| (1+ ATN-PARSER::INDEX)))706 (T707 (SETF ATN-PARSER:*ATN-TERM?*708 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::})709 (|field_definitions/fail.3| ATN-PARSER::INDEX))))))710 (|field_definitions/field_definitions.8.10| (ATN-PARSER::INDEX)711 (ATN-PARSER:%ATN-NODE-BLOCK |field_definitions/field_definitions.8.10|712 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |field_definition|)713 (MULTIPLE-VALUE-BIND714 (ATN-PARSER::RESULT715 ATN-PARSER::RESULT-INDEX716 ATN-PARSER::SUCCESS)717 (|field_definition|718 ATN-PARSER::INDEX)719 (COND720 (ATN-PARSER::SUCCESS721 (WHEN ATN-PARSER::RESULT722 (SETF |field_definition|723 (CONS724 ATN-PARSER::RESULT725 |field_definition|)))726 (|field_definitions.8|727 ATN-PARSER::RESULT-INDEX))728 (T729 (SETF ATN-PARSER:*ATN-TERM?*730 '|field_definition|)731 NIL))))))732 (|field_definitions/field_definitions.8.9| (ATN-PARSER::INDEX)733 (ATN-PARSER:%ATN-NODE-BLOCK |field_definitions/field_definitions.8.9|734 (ATN-PARSER:%ATN-EDGE-BLOCK735 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)736 (COND737 ((EQ ATN-PARSER::|item|738 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)739 (SETF ATN-PARSER:*ATN-TERM*740 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)741 (|field_definitions/field_definitions.8.10|742 (1+ ATN-PARSER::INDEX)))743 (T744 (SETF ATN-PARSER:*ATN-TERM?*745 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)746 (|field_definitions/field_definitions.8.10|747 ATN-PARSER::INDEX))))))748 (|field_definitions/start.1| (ATN-PARSER::INDEX)749 (ATN-PARSER:%ATN-NODE-BLOCK |field_definitions/start.1|750 (ATN-PARSER:%ATN-EDGE-BLOCK751 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::{)752 (COND753 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::{)754 (SETF ATN-PARSER:*ATN-TERM*755 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::{)756 (|field_definitions/field_definitions.2.4|757 (1+ ATN-PARSER::INDEX)))758 (T759 (SETF ATN-PARSER:*ATN-TERM?*760 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::{)761 (|field_definitions/fail.3| ATN-PARSER::INDEX)))))))762 (DECLARE763 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |field_definitions.2| |field_definitions.8|764 |field_definitions/fail.3| |field_definitions/field_definitions.2.4|765 |field_definitions/field_definitions.2.5| |field_definitions/field_definitions.2.6|766 |field_definitions/field_definitions.2.7| |field_definitions/field_definitions.8.10|767 |field_definitions/field_definitions.8.9| |field_definitions/start.1|))768 (|field_definitions/start.1| ATN-PARSER::INDEX)769 (SETF ATN-PARSER:*ATN-NODE NIL)770 NIL771 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))772 (WARN "recursive grammar: ~s @ position ~s: ~s" '|field_definitions| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))773 (PROGN774 (DEFVAR |field_definition-INDEX|)775 (DEFUN |field_definition| (ATN-PARSER::INDEX &AUX (|argument_definitions| NIL) (|field_name| NIL) (|type_ref| NIL))776 "{7 } field_definition ::= field_name argument_definitions? ':' type_ref777 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|argument_definitions|778 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|field_name|779 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|type_ref|)"780 (DECLARE (SPECIAL |field_definition-INDEX|))781 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |field_definition-INDEX| ATN-PARSER:*ATN-LEVEL))782 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))783 (IF (< |field_definition-INDEX| ATN-PARSER::INDEX)784 (LET ((|field_definition-INDEX| ATN-PARSER::INDEX)785 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))786 (ATN-PARSER:*ATN-STACK (CONS '|field_definition| ATN-PARSER:*ATN-STACK)))787 (DECLARE (SPECIAL |field_definition-INDEX|))788 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))789 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))790 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))791 (ATN-PARSER:%ATN-BLOCK |field_definition|792 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)793 (SETF ATN-PARSER:*ATN-TERM* '|field_definition|)794 (RETURN-FROM |field_definition| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))795 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)796 (RETURN-FROM |field_definition| (VALUES NIL ATN-PARSER::INDEX NIL)))797 (|field_definition.2| (ATN-PARSER::INDEX)798 (ATN-PARSER:%ATN-NODE-BLOCK |field_definition.2|799 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |field_definition|)800 (WHEN T801 (SETF ATN-PARSER:*ATN-TERM*802 '|field_definition|)803 (ATN-PARSER:%ATN-TRACE804 " [***/~a @ ~s reduce structure: ~a"805 '|field_definition|806 ATN-PARSER::INDEX807 (LIST808 '|argument_definitions|809 |argument_definitions|810 '|field_name| |field_name|811 '|type_ref| |type_ref|))812 (LET ((ATN-PARSER::RESULT-STRUCTURE813 (IF (EQ814 ATN-PARSER:*ATN-REDUCE*815 T)816 (|field_definition-Constructor|817 |argument_definitions|818 |field_name|819 |type_ref|)820 (IF (EQ821 ATN-PARSER:*ATN-REDUCE*822 'CONS)823 (CONS824 '|field_definition|825 (DELETE NIL826 (LIST827 |argument_definitions|828 |field_name|829 |type_ref|)))830 '|field_definition|))))831 (ATN-PARSER::SUCCEED832 ATN-PARSER::INDEX833 ATN-PARSER::RESULT-STRUCTURE))))))834 (|field_definition/fail.3| (ATN-PARSER::INDEX)835 (ATN-PARSER:%ATN-NODE-BLOCK |field_definition/fail.3|836 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))837 (|field_definition/field_definition.2.4| (ATN-PARSER::INDEX)838 (ATN-PARSER:%ATN-NODE-BLOCK |field_definition/field_definition.2.4|839 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |argument_definitions|)840 (MULTIPLE-VALUE-BIND841 (ATN-PARSER::RESULT842 ATN-PARSER::RESULT-INDEX843 ATN-PARSER::SUCCESS)844 (|argument_definitions|845 ATN-PARSER::INDEX)846 (COND847 (ATN-PARSER::SUCCESS848 (WHEN ATN-PARSER::RESULT849 (SETF |argument_definitions|850 ATN-PARSER::RESULT))851 (|field_definition/field_definition.2.5|852 ATN-PARSER::RESULT-INDEX))853 (T854 (SETF ATN-PARSER:*ATN-TERM?*855 '|argument_definitions|)856 (|field_definition/field_definition.2.5|857 ATN-PARSER::INDEX)))))))858 (|field_definition/field_definition.2.5| (ATN-PARSER::INDEX)859 (ATN-PARSER:%ATN-NODE-BLOCK |field_definition/field_definition.2.5|860 (ATN-PARSER:%ATN-EDGE-BLOCK861 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)862 (COND863 ((EQ ATN-PARSER::|item|864 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)865 (SETF ATN-PARSER:*ATN-TERM*866 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)867 (|field_definition/field_definition.2.6|868 (1+ ATN-PARSER::INDEX)))869 (T870 (SETF ATN-PARSER:*ATN-TERM?*871 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)872 (|field_definition/fail.3| ATN-PARSER::INDEX))))))873 (|field_definition/field_definition.2.6| (ATN-PARSER::INDEX)874 (ATN-PARSER:%ATN-NODE-BLOCK |field_definition/field_definition.2.6|875 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |type_ref|)876 (MULTIPLE-VALUE-BIND877 (ATN-PARSER::RESULT878 ATN-PARSER::RESULT-INDEX879 ATN-PARSER::SUCCESS)880 (|type_ref|881 ATN-PARSER::INDEX)882 (COND883 (ATN-PARSER::SUCCESS884 (WHEN ATN-PARSER::RESULT885 (SETF |type_ref|886 ATN-PARSER::RESULT))887 (|field_definition.2|888 ATN-PARSER::RESULT-INDEX))889 (T890 (SETF ATN-PARSER:*ATN-TERM?*891 '|type_ref|)892 (|field_definition/fail.3|893 ATN-PARSER::INDEX)))))))894 (|field_definition/start.1| (ATN-PARSER::INDEX)895 (ATN-PARSER:%ATN-NODE-BLOCK |field_definition/start.1|896 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::CAT |field_name|)897 (COND898 ((|IS-field_name|899 ATN-PARSER::|item|)900 (SETF ATN-PARSER:*ATN-TERM*901 '|field_name|)902 (SETF |field_name|903 (IF (EQ904 ATN-PARSER:*ATN-REDUCE*905 T)906 (ATN-PARSER:ATN-REDUCE-ITEM907 #'|field_name-Constructor|908 ATN-PARSER::|item|)909 (IF (EQ910 ATN-PARSER:*ATN-REDUCE*911 'CONS)912 (LIST913 '|field_name|914 ATN-PARSER::|item|)915 '|field_name|)))916 (|field_definition/field_definition.2.4|917 (1+ ATN-PARSER::INDEX)))918 (T919 (SETF ATN-PARSER:*ATN-TERM*920 '|field_name|)921 (|field_definition/fail.3|922 ATN-PARSER::INDEX)))))))923 (DECLARE924 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |field_definition.2| |field_definition/fail.3|925 |field_definition/field_definition.2.4| |field_definition/field_definition.2.5|926 |field_definition/field_definition.2.6| |field_definition/start.1|))927 (|field_definition/start.1| ATN-PARSER::INDEX)928 (SETF ATN-PARSER:*ATN-NODE NIL)929 NIL930 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))931 (WARN "recursive grammar: ~s @ position ~s: ~s" '|field_definition| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))932 (PROGN933 (DEFVAR |argument_definitions-INDEX|)934 (DEFUN |argument_definitions| (ATN-PARSER::INDEX &AUX (|argument_definition| NIL))935 "{8 } argument_definitions ::= '(' argument_definition (','? argument_definition)* ','? ')'936 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|argument_definition|)"937 (DECLARE (SPECIAL |argument_definitions-INDEX|))938 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |argument_definitions-INDEX| ATN-PARSER:*ATN-LEVEL))939 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))940 (IF (< |argument_definitions-INDEX| ATN-PARSER::INDEX)941 (LET ((|argument_definitions-INDEX| ATN-PARSER::INDEX)942 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))943 (ATN-PARSER:*ATN-STACK (CONS '|argument_definitions| ATN-PARSER:*ATN-STACK)))944 (DECLARE (SPECIAL |argument_definitions-INDEX|))945 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))946 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))947 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))948 (ATN-PARSER:%ATN-BLOCK |argument_definitions|949 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)950 (SETF ATN-PARSER:*ATN-TERM* '|argument_definitions|)951 (RETURN-FROM |argument_definitions| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))952 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)953 (RETURN-FROM |argument_definitions| (VALUES NIL ATN-PARSER::INDEX NIL)))954 (|argument_definitions.2| (ATN-PARSER::INDEX)955 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definitions.2|956 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |argument_definitions|)957 (WHEN T958 (SETF ATN-PARSER:*ATN-TERM*959 '|argument_definitions|)960 (ATN-PARSER:%ATN-TRACE961 " [***/~a @ ~s reduce structure: ~a"962 '|argument_definitions|963 ATN-PARSER::INDEX964 (LIST965 '|argument_definition|966 |argument_definition|))967 (LET ((ATN-PARSER::RESULT-STRUCTURE968 (IF (EQ969 ATN-PARSER:*ATN-REDUCE*970 T)971 (|argument_definitions-Constructor|972 |argument_definition|)973 (IF (EQ974 ATN-PARSER:*ATN-REDUCE*975 'CONS)976 (CONS977 '|argument_definitions|978 (DELETE NIL979 (LIST980 |argument_definition|)))981 '|argument_definitions|))))982 (ATN-PARSER::SUCCEED983 ATN-PARSER::INDEX984 ATN-PARSER::RESULT-STRUCTURE))))))985 (|argument_definitions.8| (ATN-PARSER::INDEX)986 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definitions.8|987 (ATN-PARSER:%ATN-EDGE-BLOCK988 (ATN-PARSER::JUMP989 |argument_definitions/argument_definitions.8.9|)990 (|argument_definitions/argument_definitions.8.9|991 ATN-PARSER::INDEX))992 (ATN-PARSER:%ATN-EDGE-BLOCK993 (ATN-PARSER::JUMP994 |argument_definitions/argument_definitions.2.6|)995 (|argument_definitions/argument_definitions.2.6|996 ATN-PARSER::INDEX))))997 (|argument_definitions/argument_definitions.2.4| (ATN-PARSER::INDEX)998 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definitions/argument_definitions.2.4|999 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |argument_definition|)1000 (MULTIPLE-VALUE-BIND1001 (ATN-PARSER::RESULT1002 ATN-PARSER::RESULT-INDEX1003 ATN-PARSER::SUCCESS)1004 (|argument_definition|1005 ATN-PARSER::INDEX)1006 (COND1007 (ATN-PARSER::SUCCESS1008 (WHEN ATN-PARSER::RESULT1009 (SETF |argument_definition|1010 (CONS1011 ATN-PARSER::RESULT1012 |argument_definition|)))1013 (|argument_definitions/argument_definitions.2.5|1014 ATN-PARSER::RESULT-INDEX))1015 (T1016 (SETF ATN-PARSER:*ATN-TERM?*1017 '|argument_definition|)1018 (|argument_definitions/fail.3|1019 ATN-PARSER::INDEX)))))))1020 (|argument_definitions/argument_definitions.2.5| (ATN-PARSER::INDEX)1021 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definitions/argument_definitions.2.5|1022 (ATN-PARSER:%ATN-EDGE-BLOCK1023 (ATN-PARSER::JUMP1024 |argument_definitions/argument_definitions.8.9|)1025 (|argument_definitions/argument_definitions.8.9|1026 ATN-PARSER::INDEX))1027 (ATN-PARSER:%ATN-EDGE-BLOCK1028 (ATN-PARSER::JUMP1029 |argument_definitions/argument_definitions.2.6|)1030 (|argument_definitions/argument_definitions.2.6|1031 ATN-PARSER::INDEX))))1032 (|argument_definitions/argument_definitions.2.6| (ATN-PARSER::INDEX)1033 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definitions/argument_definitions.2.6|1034 (ATN-PARSER:%ATN-EDGE-BLOCK1035 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1036 (COND1037 ((EQ ATN-PARSER::|item|1038 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1039 (SETF ATN-PARSER:*ATN-TERM*1040 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1041 (|argument_definitions/argument_definitions.2.7|1042 (1+ ATN-PARSER::INDEX)))1043 (T1044 (SETF ATN-PARSER:*ATN-TERM?*1045 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1046 (|argument_definitions/argument_definitions.2.7|1047 ATN-PARSER::INDEX))))))1048 (|argument_definitions/argument_definitions.2.7| (ATN-PARSER::INDEX)1049 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definitions/argument_definitions.2.7|1050 (ATN-PARSER:%ATN-EDGE-BLOCK1051 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|)|)1052 (COND1053 ((EQ ATN-PARSER::|item|1054 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|)|)1055 (SETF ATN-PARSER:*ATN-TERM*1056 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|)|)1057 (|argument_definitions.2| (1+ ATN-PARSER::INDEX)))1058 (T1059 (SETF ATN-PARSER:*ATN-TERM?*1060 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|)|)1061 (|argument_definitions/fail.3| ATN-PARSER::INDEX))))))1062 (|argument_definitions/argument_definitions.8.10| (ATN-PARSER::INDEX)1063 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definitions/argument_definitions.8.10|1064 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |argument_definition|)1065 (MULTIPLE-VALUE-BIND1066 (ATN-PARSER::RESULT1067 ATN-PARSER::RESULT-INDEX1068 ATN-PARSER::SUCCESS)1069 (|argument_definition|1070 ATN-PARSER::INDEX)1071 (COND1072 (ATN-PARSER::SUCCESS1073 (WHEN ATN-PARSER::RESULT1074 (SETF |argument_definition|1075 (CONS1076 ATN-PARSER::RESULT1077 |argument_definition|)))1078 (|argument_definitions.8|1079 ATN-PARSER::RESULT-INDEX))1080 (T1081 (SETF ATN-PARSER:*ATN-TERM?*1082 '|argument_definition|)1083 NIL))))))1084 (|argument_definitions/argument_definitions.8.9| (ATN-PARSER::INDEX)1085 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definitions/argument_definitions.8.9|1086 (ATN-PARSER:%ATN-EDGE-BLOCK1087 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1088 (COND1089 ((EQ ATN-PARSER::|item|1090 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1091 (SETF ATN-PARSER:*ATN-TERM*1092 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1093 (|argument_definitions/argument_definitions.8.10|1094 (1+ ATN-PARSER::INDEX)))1095 (T1096 (SETF ATN-PARSER:*ATN-TERM?*1097 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1098 (|argument_definitions/argument_definitions.8.10|1099 ATN-PARSER::INDEX))))))1100 (|argument_definitions/fail.3| (ATN-PARSER::INDEX)1101 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definitions/fail.3|1102 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1103 (|argument_definitions/start.1| (ATN-PARSER::INDEX)1104 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definitions/start.1|1105 (ATN-PARSER:%ATN-EDGE-BLOCK1106 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|(|)1107 (COND1108 ((EQ ATN-PARSER::|item|1109 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|(|)1110 (SETF ATN-PARSER:*ATN-TERM*1111 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|(|)1112 (|argument_definitions/argument_definitions.2.4|1113 (1+ ATN-PARSER::INDEX)))1114 (T1115 (SETF ATN-PARSER:*ATN-TERM?*1116 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|(|)1117 (|argument_definitions/fail.3| ATN-PARSER::INDEX)))))))1118 (DECLARE1119 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |argument_definitions.2| |argument_definitions.8|1120 |argument_definitions/argument_definitions.2.4|1121 |argument_definitions/argument_definitions.2.5|1122 |argument_definitions/argument_definitions.2.6|1123 |argument_definitions/argument_definitions.2.7|1124 |argument_definitions/argument_definitions.8.10|1125 |argument_definitions/argument_definitions.8.9| |argument_definitions/fail.3|1126 |argument_definitions/start.1|))1127 (|argument_definitions/start.1| ATN-PARSER::INDEX)1128 (SETF ATN-PARSER:*ATN-NODE NIL)1129 NIL1130 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))1131 (WARN "recursive grammar: ~s @ position ~s: ~s" '|argument_definitions| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1132 (PROGN1133 (DEFVAR |argument_definition-INDEX|)1134 (DEFUN |argument_definition| (ATN-PARSER::INDEX &AUX (|argument_name| NIL) (|type_ref| NIL))1135 "{9 } argument_definition ::= argument_name ':' type_ref1136 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|argument_name|1137 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|type_ref|)"1138 (DECLARE (SPECIAL |argument_definition-INDEX|))1139 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |argument_definition-INDEX| ATN-PARSER:*ATN-LEVEL))1140 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1141 (IF (< |argument_definition-INDEX| ATN-PARSER::INDEX)1142 (LET ((|argument_definition-INDEX| ATN-PARSER::INDEX)1143 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1144 (ATN-PARSER:*ATN-STACK (CONS '|argument_definition| ATN-PARSER:*ATN-STACK)))1145 (DECLARE (SPECIAL |argument_definition-INDEX|))1146 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1147 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1148 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1149 (ATN-PARSER:%ATN-BLOCK |argument_definition|1150 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1151 (SETF ATN-PARSER:*ATN-TERM* '|argument_definition|)1152 (RETURN-FROM |argument_definition| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))1153 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1154 (RETURN-FROM |argument_definition| (VALUES NIL ATN-PARSER::INDEX NIL)))1155 (|argument_definition.2| (ATN-PARSER::INDEX)1156 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definition.2|1157 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |argument_definition|)1158 (WHEN T1159 (SETF ATN-PARSER:*ATN-TERM*1160 '|argument_definition|)1161 (ATN-PARSER:%ATN-TRACE1162 " [***/~a @ ~s reduce structure: ~a"1163 '|argument_definition|1164 ATN-PARSER::INDEX1165 (LIST '|argument_name|1166 |argument_name|1167 '|type_ref|1168 |type_ref|))1169 (LET ((ATN-PARSER::RESULT-STRUCTURE1170 (IF (EQ1171 ATN-PARSER:*ATN-REDUCE*1172 T)1173 (|argument_definition-Constructor|1174 |argument_name|1175 |type_ref|)1176 (IF (EQ1177 ATN-PARSER:*ATN-REDUCE*1178 'CONS)1179 (CONS1180 '|argument_definition|1181 (DELETE NIL1182 (LIST1183 |argument_name|1184 |type_ref|)))1185 '|argument_definition|))))1186 (ATN-PARSER::SUCCEED1187 ATN-PARSER::INDEX1188 ATN-PARSER::RESULT-STRUCTURE))))))1189 (|argument_definition/argument_definition.2.4| (ATN-PARSER::INDEX)1190 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definition/argument_definition.2.4|1191 (ATN-PARSER:%ATN-EDGE-BLOCK1192 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)1193 (COND1194 ((EQ ATN-PARSER::|item|1195 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)1196 (SETF ATN-PARSER:*ATN-TERM*1197 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)1198 (|argument_definition/argument_definition.2.5|1199 (1+ ATN-PARSER::INDEX)))1200 (T1201 (SETF ATN-PARSER:*ATN-TERM?*1202 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)1203 (|argument_definition/fail.3| ATN-PARSER::INDEX))))))1204 (|argument_definition/argument_definition.2.5| (ATN-PARSER::INDEX)1205 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definition/argument_definition.2.5|1206 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |type_ref|)1207 (MULTIPLE-VALUE-BIND1208 (ATN-PARSER::RESULT1209 ATN-PARSER::RESULT-INDEX1210 ATN-PARSER::SUCCESS)1211 (|type_ref|1212 ATN-PARSER::INDEX)1213 (COND1214 (ATN-PARSER::SUCCESS1215 (WHEN ATN-PARSER::RESULT1216 (SETF |type_ref|1217 ATN-PARSER::RESULT))1218 (|argument_definition.2|1219 ATN-PARSER::RESULT-INDEX))1220 (T1221 (SETF ATN-PARSER:*ATN-TERM?*1222 '|type_ref|)1223 (|argument_definition/fail.3|1224 ATN-PARSER::INDEX)))))))1225 (|argument_definition/fail.3| (ATN-PARSER::INDEX)1226 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definition/fail.3|1227 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1228 (|argument_definition/start.1| (ATN-PARSER::INDEX)1229 (ATN-PARSER:%ATN-NODE-BLOCK |argument_definition/start.1|1230 (ATN-PARSER:%ATN-EDGE-BLOCK1231 (ATN-PARSER::CAT |argument_name|)1232 (COND1233 ((|IS-argument_name| ATN-PARSER::|item|)1234 (SETF ATN-PARSER:*ATN-TERM* '|argument_name|)1235 (SETF |argument_name|1236 (IF (EQ ATN-PARSER:*ATN-REDUCE* T)1237 (ATN-PARSER:ATN-REDUCE-ITEM1238 #'|argument_name-Constructor|1239 ATN-PARSER::|item|)1240 (IF (EQ ATN-PARSER:*ATN-REDUCE* 'CONS)1241 (LIST '|argument_name|1242 ATN-PARSER::|item|)1243 '|argument_name|)))1244 (|argument_definition/argument_definition.2.4|1245 (1+ ATN-PARSER::INDEX)))1246 (T (SETF ATN-PARSER:*ATN-TERM* '|argument_name|)1247 (|argument_definition/fail.3| ATN-PARSER::INDEX)))))))1248 (DECLARE1249 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |argument_definition.2|1250 |argument_definition/argument_definition.2.4| |argument_definition/argument_definition.2.5|1251 |argument_definition/fail.3| |argument_definition/start.1|))1252 (|argument_definition/start.1| ATN-PARSER::INDEX)1253 (SETF ATN-PARSER:*ATN-NODE NIL)1254 NIL1255 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))1256 (WARN "recursive grammar: ~s @ position ~s: ~s" '|argument_definition| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1257 (PROGN1258 (DEFVAR |operation_definition-INDEX|)1259 (DEFUN |operation_definition|1260 (ATN-PARSER::INDEX1261 &AUX (|directive| NIL) (|operation_name| NIL) (|operation_type| NIL) (|selection_set| NIL) (|variable_definitions| NIL))1262 "{10} operation_definition ::= (selection_set | (operation_type operation_name?1263 variable_definitions?1264 directive? selection_set))1265 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|directive|1266 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|operation_name|1267 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|operation_type|1268 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|selection_set|1269 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|variable_definitions|)"1270 (DECLARE (SPECIAL |operation_definition-INDEX|))1271 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |operation_definition-INDEX| ATN-PARSER:*ATN-LEVEL))1272 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1273 (IF (< |operation_definition-INDEX| ATN-PARSER::INDEX)1274 (LET ((|operation_definition-INDEX| ATN-PARSER::INDEX)1275 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1276 (ATN-PARSER:*ATN-STACK (CONS '|operation_definition| ATN-PARSER:*ATN-STACK)))1277 (DECLARE (SPECIAL |operation_definition-INDEX|))1278 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1279 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1280 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1281 (ATN-PARSER:%ATN-BLOCK |operation_definition|1282 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1283 (SETF ATN-PARSER:*ATN-TERM* '|operation_definition|)1284 (RETURN-FROM |operation_definition| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))1285 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1286 (RETURN-FROM |operation_definition| (VALUES NIL ATN-PARSER::INDEX NIL)))1287 (|operation_definition.2| (ATN-PARSER::INDEX)1288 (ATN-PARSER:%ATN-NODE-BLOCK |operation_definition.2|1289 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |operation_definition|)1290 (WHEN T1291 (SETF ATN-PARSER:*ATN-TERM*1292 '|operation_definition|)1293 (ATN-PARSER:%ATN-TRACE1294 " [***/~a @ ~s reduce structure: ~a"1295 '|operation_definition|1296 ATN-PARSER::INDEX1297 (LIST '|directive|1298 |directive|1299 '|operation_name|1300 |operation_name|1301 '|operation_type|1302 |operation_type|1303 '|selection_set|1304 |selection_set|1305 '|variable_definitions|1306 |variable_definitions|))1307 (LET ((ATN-PARSER::RESULT-STRUCTURE1308 (IF (EQ1309 ATN-PARSER:*ATN-REDUCE*1310 T)1311 (|operation_definition-Constructor|1312 |directive|1313 |operation_name|1314 |operation_type|1315 |selection_set|1316 |variable_definitions|)1317 (IF (EQ1318 ATN-PARSER:*ATN-REDUCE*1319 'CONS)1320 (CONS1321 '|operation_definition|1322 (DELETE NIL1323 (LIST1324 |directive|1325 |operation_name|1326 |operation_type|1327 |selection_set|1328 |variable_definitions|)))1329 '|operation_definition|))))1330 (ATN-PARSER::SUCCEED1331 ATN-PARSER::INDEX1332 ATN-PARSER::RESULT-STRUCTURE))))))1333 (|operation_definition/fail.3| (ATN-PARSER::INDEX)1334 (ATN-PARSER:%ATN-NODE-BLOCK |operation_definition/fail.3|1335 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1336 (|operation_definition/operation_definition.2.4| (ATN-PARSER::INDEX)1337 (ATN-PARSER:%ATN-NODE-BLOCK |operation_definition/operation_definition.2.4|1338 (ATN-PARSER:%ATN-EDGE-BLOCK1339 (ATN-PARSER::CAT |operation_type|)1340 (COND1341 ((|IS-operation_type| ATN-PARSER::|item|)1342 (SETF ATN-PARSER:*ATN-TERM* '|operation_type|)1343 (SETF |operation_type|1344 (IF (EQ ATN-PARSER:*ATN-REDUCE* T)1345 (ATN-PARSER:ATN-REDUCE-ITEM1346 #'|operation_type-Constructor|1347 ATN-PARSER::|item|)1348 (IF (EQ ATN-PARSER:*ATN-REDUCE* 'CONS)1349 (LIST '|operation_type|1350 ATN-PARSER::|item|)1351 '|operation_type|)))1352 (|operation_definition/operation_definition.2.5|1353 (1+ ATN-PARSER::INDEX)))1354 (T (SETF ATN-PARSER:*ATN-TERM* '|operation_type|)1355 NIL)))))1356 (|operation_definition/operation_definition.2.5| (ATN-PARSER::INDEX)1357 (ATN-PARSER:%ATN-NODE-BLOCK |operation_definition/operation_definition.2.5|1358 (ATN-PARSER:%ATN-EDGE-BLOCK1359 (ATN-PARSER::CAT |operation_name|)1360 (COND1361 ((|IS-operation_name| ATN-PARSER::|item|)1362 (SETF ATN-PARSER:*ATN-TERM* '|operation_name|)1363 (SETF |operation_name|1364 (IF (EQ ATN-PARSER:*ATN-REDUCE* T)1365 (ATN-PARSER:ATN-REDUCE-ITEM1366 #'|operation_name-Constructor|1367 ATN-PARSER::|item|)1368 (IF (EQ ATN-PARSER:*ATN-REDUCE* 'CONS)1369 (LIST '|operation_name|1370 ATN-PARSER::|item|)1371 '|operation_name|)))1372 (|operation_definition/operation_definition.2.6|1373 (1+ ATN-PARSER::INDEX)))1374 (T (SETF ATN-PARSER:*ATN-TERM* '|operation_name|)1375 (|operation_definition/operation_definition.2.6|1376 ATN-PARSER::INDEX))))))1377 (|operation_definition/operation_definition.2.6| (ATN-PARSER::INDEX)1378 (ATN-PARSER:%ATN-NODE-BLOCK |operation_definition/operation_definition.2.6|1379 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |variable_definitions|)1380 (MULTIPLE-VALUE-BIND1381 (ATN-PARSER::RESULT1382 ATN-PARSER::RESULT-INDEX1383 ATN-PARSER::SUCCESS)1384 (|variable_definitions|1385 ATN-PARSER::INDEX)1386 (COND1387 (ATN-PARSER::SUCCESS1388 (WHEN ATN-PARSER::RESULT1389 (SETF |variable_definitions|1390 ATN-PARSER::RESULT))1391 (|operation_definition/operation_definition.2.7|1392 ATN-PARSER::RESULT-INDEX))1393 (T1394 (SETF ATN-PARSER:*ATN-TERM?*1395 '|variable_definitions|)1396 (|operation_definition/operation_definition.2.7|1397 ATN-PARSER::INDEX)))))))1398 (|operation_definition/operation_definition.2.7| (ATN-PARSER::INDEX)1399 (ATN-PARSER:%ATN-NODE-BLOCK |operation_definition/operation_definition.2.7|1400 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |directive|)1401 (MULTIPLE-VALUE-BIND1402 (ATN-PARSER::RESULT1403 ATN-PARSER::RESULT-INDEX1404 ATN-PARSER::SUCCESS)1405 (|directive|1406 ATN-PARSER::INDEX)1407 (COND1408 (ATN-PARSER::SUCCESS1409 (WHEN ATN-PARSER::RESULT1410 (SETF |directive|1411 ATN-PARSER::RESULT))1412 (|operation_definition/operation_definition.2.8|1413 ATN-PARSER::RESULT-INDEX))1414 (T1415 (SETF ATN-PARSER:*ATN-TERM?*1416 '|directive|)1417 (|operation_definition/operation_definition.2.8|1418 ATN-PARSER::INDEX)))))))1419 (|operation_definition/operation_definition.2.8| (ATN-PARSER::INDEX)1420 (ATN-PARSER:%ATN-NODE-BLOCK |operation_definition/operation_definition.2.8|1421 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |selection_set|)1422 (MULTIPLE-VALUE-BIND1423 (ATN-PARSER::RESULT1424 ATN-PARSER::RESULT-INDEX1425 ATN-PARSER::SUCCESS)1426 (|selection_set|1427 ATN-PARSER::INDEX)1428 (COND1429 (ATN-PARSER::SUCCESS1430 (WHEN ATN-PARSER::RESULT1431 (SETF |selection_set|1432 ATN-PARSER::RESULT))1433 (|operation_definition.2|1434 ATN-PARSER::RESULT-INDEX))1435 (T1436 (SETF ATN-PARSER:*ATN-TERM?*1437 '|selection_set|)1438 NIL))))))1439 (|operation_definition/start.1| (ATN-PARSER::INDEX)1440 (ATN-PARSER:%ATN-NODE-BLOCK |operation_definition/start.1|1441 (ATN-PARSER:%ATN-EDGE-BLOCK OR1442 (OR1443 (ATN-PARSER:%ATN-EDGE-BLOCK1444 (PUSH |selection_set|)1445 (MULTIPLE-VALUE-BIND1446 (ATN-PARSER::RESULT1447 ATN-PARSER::RESULT-INDEX1448 ATN-PARSER::SUCCESS)1449 (|selection_set|1450 ATN-PARSER::INDEX)1451 (COND1452 (ATN-PARSER::SUCCESS1453 (WHEN ATN-PARSER::RESULT1454 (SETF |selection_set|1455 ATN-PARSER::RESULT))1456 (|operation_definition.2|1457 ATN-PARSER::RESULT-INDEX))1458 (T1459 (SETF ATN-PARSER:*ATN-TERM?*1460 '|selection_set|)1461 NIL))))1462 (ATN-PARSER:%ATN-EDGE-BLOCK1463 (ATN-PARSER::JUMP1464 |operation_definition/operation_definition.2.4|)1465 (|operation_definition/operation_definition.2.4|1466 ATN-PARSER::INDEX))1467 (|operation_definition/fail.3|1468 ATN-PARSER::INDEX))))))1469 (DECLARE1470 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |operation_definition.2|1471 |operation_definition/fail.3| |operation_definition/operation_definition.2.4|1472 |operation_definition/operation_definition.2.5|1473 |operation_definition/operation_definition.2.6|1474 |operation_definition/operation_definition.2.7|1475 |operation_definition/operation_definition.2.8| |operation_definition/start.1|))1476 (|operation_definition/start.1| ATN-PARSER::INDEX)1477 (SETF ATN-PARSER:*ATN-NODE NIL)1478 NIL1479 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))1480 (WARN "recursive grammar: ~s @ position ~s: ~s" '|operation_definition| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1481 (PROGN1482 (DEFVAR |selection_set-INDEX|)1483 (DEFUN |selection_set| (ATN-PARSER::INDEX &AUX (|selection| NIL))1484 "{13} selection_set ::= '{' selection (','? selection)* ','? '}'1485 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|selection|)"1486 (DECLARE (SPECIAL |selection_set-INDEX|))1487 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |selection_set-INDEX| ATN-PARSER:*ATN-LEVEL))1488 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1489 (IF (< |selection_set-INDEX| ATN-PARSER::INDEX)1490 (LET ((|selection_set-INDEX| ATN-PARSER::INDEX)1491 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1492 (ATN-PARSER:*ATN-STACK (CONS '|selection_set| ATN-PARSER:*ATN-STACK)))1493 (DECLARE (SPECIAL |selection_set-INDEX|))1494 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1495 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1496 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1497 (ATN-PARSER:%ATN-BLOCK |selection_set|1498 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1499 (SETF ATN-PARSER:*ATN-TERM* '|selection_set|)1500 (RETURN-FROM |selection_set| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))1501 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1502 (RETURN-FROM |selection_set| (VALUES NIL ATN-PARSER::INDEX NIL)))1503 (|selection_set.2| (ATN-PARSER::INDEX)1504 (ATN-PARSER:%ATN-NODE-BLOCK |selection_set.2|1505 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |selection_set|)1506 (WHEN T1507 (SETF ATN-PARSER:*ATN-TERM*1508 '|selection_set|)1509 (ATN-PARSER:%ATN-TRACE1510 " [***/~a @ ~s reduce structure: ~a"1511 '|selection_set|1512 ATN-PARSER::INDEX1513 (LIST '|selection|1514 |selection|))1515 (LET ((ATN-PARSER::RESULT-STRUCTURE1516 (IF (EQ1517 ATN-PARSER:*ATN-REDUCE*1518 T)1519 (|selection_set-Constructor|1520 |selection|)1521 (IF (EQ1522 ATN-PARSER:*ATN-REDUCE*1523 'CONS)1524 (CONS1525 '|selection_set|1526 (DELETE NIL1527 (LIST1528 |selection|)))1529 '|selection_set|))))1530 (ATN-PARSER::SUCCEED1531 ATN-PARSER::INDEX1532 ATN-PARSER::RESULT-STRUCTURE))))))1533 (|selection_set.8| (ATN-PARSER::INDEX)1534 (ATN-PARSER:%ATN-NODE-BLOCK |selection_set.8|1535 (ATN-PARSER:%ATN-EDGE-BLOCK1536 (ATN-PARSER::JUMP |selection_set/selection_set.8.9|)1537 (|selection_set/selection_set.8.9| ATN-PARSER::INDEX))1538 (ATN-PARSER:%ATN-EDGE-BLOCK1539 (ATN-PARSER::JUMP |selection_set/selection_set.2.6|)1540 (|selection_set/selection_set.2.6| ATN-PARSER::INDEX))))1541 (|selection_set/fail.3| (ATN-PARSER::INDEX)1542 (ATN-PARSER:%ATN-NODE-BLOCK |selection_set/fail.3|1543 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1544 (|selection_set/selection_set.2.4| (ATN-PARSER::INDEX)1545 (ATN-PARSER:%ATN-NODE-BLOCK |selection_set/selection_set.2.4|1546 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |selection|)1547 (MULTIPLE-VALUE-BIND1548 (ATN-PARSER::RESULT1549 ATN-PARSER::RESULT-INDEX1550 ATN-PARSER::SUCCESS)1551 (|selection|1552 ATN-PARSER::INDEX)1553 (COND1554 (ATN-PARSER::SUCCESS1555 (WHEN ATN-PARSER::RESULT1556 (SETF |selection|1557 (CONS1558 ATN-PARSER::RESULT1559 |selection|)))1560 (|selection_set/selection_set.2.5|1561 ATN-PARSER::RESULT-INDEX))1562 (T1563 (SETF ATN-PARSER:*ATN-TERM?*1564 '|selection|)1565 (|selection_set/fail.3|1566 ATN-PARSER::INDEX)))))))1567 (|selection_set/selection_set.2.5| (ATN-PARSER::INDEX)1568 (ATN-PARSER:%ATN-NODE-BLOCK |selection_set/selection_set.2.5|1569 (ATN-PARSER:%ATN-EDGE-BLOCK1570 (ATN-PARSER::JUMP |selection_set/selection_set.8.9|)1571 (|selection_set/selection_set.8.9| ATN-PARSER::INDEX))1572 (ATN-PARSER:%ATN-EDGE-BLOCK1573 (ATN-PARSER::JUMP |selection_set/selection_set.2.6|)1574 (|selection_set/selection_set.2.6| ATN-PARSER::INDEX))))1575 (|selection_set/selection_set.2.6| (ATN-PARSER::INDEX)1576 (ATN-PARSER:%ATN-NODE-BLOCK |selection_set/selection_set.2.6|1577 (ATN-PARSER:%ATN-EDGE-BLOCK1578 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1579 (COND1580 ((EQ ATN-PARSER::|item|1581 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1582 (SETF ATN-PARSER:*ATN-TERM*1583 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1584 (|selection_set/selection_set.2.7|1585 (1+ ATN-PARSER::INDEX)))1586 (T1587 (SETF ATN-PARSER:*ATN-TERM?*1588 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1589 (|selection_set/selection_set.2.7|1590 ATN-PARSER::INDEX))))))1591 (|selection_set/selection_set.2.7| (ATN-PARSER::INDEX)1592 (ATN-PARSER:%ATN-NODE-BLOCK |selection_set/selection_set.2.7|1593 (ATN-PARSER:%ATN-EDGE-BLOCK1594 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::})1595 (COND1596 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::})1597 (SETF ATN-PARSER:*ATN-TERM*1598 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::})1599 (|selection_set.2| (1+ ATN-PARSER::INDEX)))1600 (T1601 (SETF ATN-PARSER:*ATN-TERM?*1602 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::})1603 (|selection_set/fail.3| ATN-PARSER::INDEX))))))1604 (|selection_set/selection_set.8.10| (ATN-PARSER::INDEX)1605 (ATN-PARSER:%ATN-NODE-BLOCK |selection_set/selection_set.8.10|1606 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |selection|)1607 (MULTIPLE-VALUE-BIND1608 (ATN-PARSER::RESULT1609 ATN-PARSER::RESULT-INDEX1610 ATN-PARSER::SUCCESS)1611 (|selection|1612 ATN-PARSER::INDEX)1613 (COND1614 (ATN-PARSER::SUCCESS1615 (WHEN ATN-PARSER::RESULT1616 (SETF |selection|1617 (CONS1618 ATN-PARSER::RESULT1619 |selection|)))1620 (|selection_set.8|1621 ATN-PARSER::RESULT-INDEX))1622 (T1623 (SETF ATN-PARSER:*ATN-TERM?*1624 '|selection|)1625 NIL))))))1626 (|selection_set/selection_set.8.9| (ATN-PARSER::INDEX)1627 (ATN-PARSER:%ATN-NODE-BLOCK |selection_set/selection_set.8.9|1628 (ATN-PARSER:%ATN-EDGE-BLOCK1629 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1630 (COND1631 ((EQ ATN-PARSER::|item|1632 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1633 (SETF ATN-PARSER:*ATN-TERM*1634 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1635 (|selection_set/selection_set.8.10|1636 (1+ ATN-PARSER::INDEX)))1637 (T1638 (SETF ATN-PARSER:*ATN-TERM?*1639 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)1640 (|selection_set/selection_set.8.10|1641 ATN-PARSER::INDEX))))))1642 (|selection_set/start.1| (ATN-PARSER::INDEX)1643 (ATN-PARSER:%ATN-NODE-BLOCK |selection_set/start.1|1644 (ATN-PARSER:%ATN-EDGE-BLOCK1645 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::{)1646 (COND1647 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::{)1648 (SETF ATN-PARSER:*ATN-TERM*1649 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::{)1650 (|selection_set/selection_set.2.4|1651 (1+ ATN-PARSER::INDEX)))1652 (T1653 (SETF ATN-PARSER:*ATN-TERM?*1654 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::{)1655 (|selection_set/fail.3| ATN-PARSER::INDEX)))))))1656 (DECLARE1657 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |selection_set.2| |selection_set.8|1658 |selection_set/fail.3| |selection_set/selection_set.2.4| |selection_set/selection_set.2.5|1659 |selection_set/selection_set.2.6| |selection_set/selection_set.2.7|1660 |selection_set/selection_set.8.10| |selection_set/selection_set.8.9|1661 |selection_set/start.1|))1662 (|selection_set/start.1| ATN-PARSER::INDEX)1663 (SETF ATN-PARSER:*ATN-NODE NIL)1664 NIL1665 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))1666 (WARN "recursive grammar: ~s @ position ~s: ~s" '|selection_set| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1667 (PROGN1668 (DEFVAR |selection-INDEX|)1669 (DEFUN |selection| (ATN-PARSER::INDEX &AUX (|field| NIL) (|fragment_spread| NIL) (|inline_fragment| NIL))1670 "{14} selection ::= (field | fragment_spread | inline_fragment)1671 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|field|1672 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|fragment_spread|1673 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|inline_fragment|)"1674 (DECLARE (SPECIAL |selection-INDEX|))1675 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |selection-INDEX| ATN-PARSER:*ATN-LEVEL))1676 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1677 (IF (< |selection-INDEX| ATN-PARSER::INDEX)1678 (LET ((|selection-INDEX| ATN-PARSER::INDEX)1679 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1680 (ATN-PARSER:*ATN-STACK (CONS '|selection| ATN-PARSER:*ATN-STACK)))1681 (DECLARE (SPECIAL |selection-INDEX|))1682 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1683 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1684 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1685 (ATN-PARSER:%ATN-BLOCK |selection|1686 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1687 (SETF ATN-PARSER:*ATN-TERM* '|selection|)1688 (RETURN-FROM |selection| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))1689 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1690 (RETURN-FROM |selection| (VALUES NIL ATN-PARSER::INDEX NIL)))1691 (|selection.2| (ATN-PARSER::INDEX)1692 (ATN-PARSER:%ATN-NODE-BLOCK |selection.2|1693 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |selection|)1694 (WHEN T1695 (SETF ATN-PARSER:*ATN-TERM*1696 '|selection|)1697 (ATN-PARSER:%ATN-TRACE1698 " [***/~a @ ~s reduce structure: ~a"1699 '|selection|1700 ATN-PARSER::INDEX1701 (LIST '|field| |field|1702 '|fragment_spread|1703 |fragment_spread|1704 '|inline_fragment|1705 |inline_fragment|))1706 (LET ((ATN-PARSER::RESULT-STRUCTURE1707 (IF (EQ1708 ATN-PARSER:*ATN-REDUCE*1709 T)1710 (|selection-Constructor|1711 |field|1712 |fragment_spread|1713 |inline_fragment|)1714 (IF (EQ1715 ATN-PARSER:*ATN-REDUCE*1716 'CONS)1717 (CONS1718 '|selection|1719 (DELETE NIL1720 (LIST1721 |field|1722 |fragment_spread|1723 |inline_fragment|)))1724 '|selection|))))1725 (ATN-PARSER::SUCCEED1726 ATN-PARSER::INDEX1727 ATN-PARSER::RESULT-STRUCTURE))))))1728 (|selection/fail.3| (ATN-PARSER::INDEX)1729 (ATN-PARSER:%ATN-NODE-BLOCK |selection/fail.3|1730 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1731 (|selection/start.1| (ATN-PARSER::INDEX)1732 (ATN-PARSER:%ATN-NODE-BLOCK |selection/start.1|1733 (ATN-PARSER:%ATN-EDGE-BLOCK OR1734 (OR1735 (ATN-PARSER:%ATN-EDGE-BLOCK1736 (PUSH |field|)1737 (MULTIPLE-VALUE-BIND1738 (ATN-PARSER::RESULT1739 ATN-PARSER::RESULT-INDEX1740 ATN-PARSER::SUCCESS)1741 (|field|1742 ATN-PARSER::INDEX)1743 (COND1744 (ATN-PARSER::SUCCESS1745 (WHEN ATN-PARSER::RESULT1746 (SETF |field|1747 ATN-PARSER::RESULT))1748 (|selection.2|1749 ATN-PARSER::RESULT-INDEX))1750 (T1751 (SETF ATN-PARSER:*ATN-TERM?*1752 '|field|)1753 NIL))))1754 (ATN-PARSER:%ATN-EDGE-BLOCK1755 (PUSH |fragment_spread|)1756 (MULTIPLE-VALUE-BIND1757 (ATN-PARSER::RESULT1758 ATN-PARSER::RESULT-INDEX1759 ATN-PARSER::SUCCESS)1760 (|fragment_spread|1761 ATN-PARSER::INDEX)1762 (COND1763 (ATN-PARSER::SUCCESS1764 (WHEN ATN-PARSER::RESULT1765 (SETF |fragment_spread|1766 ATN-PARSER::RESULT))1767 (|selection.2|1768 ATN-PARSER::RESULT-INDEX))1769 (T1770 (SETF ATN-PARSER:*ATN-TERM?*1771 '|fragment_spread|)1772 NIL))))1773 (ATN-PARSER:%ATN-EDGE-BLOCK1774 (PUSH |inline_fragment|)1775 (MULTIPLE-VALUE-BIND1776 (ATN-PARSER::RESULT1777 ATN-PARSER::RESULT-INDEX1778 ATN-PARSER::SUCCESS)1779 (|inline_fragment|1780 ATN-PARSER::INDEX)1781 (COND1782 (ATN-PARSER::SUCCESS1783 (WHEN ATN-PARSER::RESULT1784 (SETF |inline_fragment|1785 ATN-PARSER::RESULT))1786 (|selection.2|1787 ATN-PARSER::RESULT-INDEX))1788 (T1789 (SETF ATN-PARSER:*ATN-TERM?*1790 '|inline_fragment|)1791 NIL))))1792 (|selection/fail.3|1793 ATN-PARSER::INDEX))))))1794 (DECLARE1795 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |selection.2| |selection/fail.3|1796 |selection/start.1|))1797 (|selection/start.1| ATN-PARSER::INDEX)1798 (SETF ATN-PARSER:*ATN-NODE NIL)1799 NIL1800 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))1801 (WARN "recursive grammar: ~s @ position ~s: ~s" '|selection| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1802 (PROGN1803 (DEFVAR |field-INDEX|)1804 (DEFUN |field|1805 (ATN-PARSER::INDEX &AUX (|alias| NIL) (|arguments| NIL) (|directives| NIL) (|field_name| NIL) (|selection_set| NIL))1806 "{15} field ::= alias? field_name arguments? directives? selection_set?1807 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|alias|1808 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|arguments|1809 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|directives|1810 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|field_name|1811 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|selection_set|)"1812 (DECLARE (SPECIAL |field-INDEX|))1813 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |field-INDEX| ATN-PARSER:*ATN-LEVEL))1814 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1815 (IF (< |field-INDEX| ATN-PARSER::INDEX)1816 (LET ((|field-INDEX| ATN-PARSER::INDEX)1817 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))1818 (ATN-PARSER:*ATN-STACK (CONS '|field| ATN-PARSER:*ATN-STACK)))1819 (DECLARE (SPECIAL |field-INDEX|))1820 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))1821 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))1822 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1823 (ATN-PARSER:%ATN-BLOCK |field|1824 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1825 (SETF ATN-PARSER:*ATN-TERM* '|field|)1826 (RETURN-FROM |field| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))1827 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)1828 (RETURN-FROM |field| (VALUES NIL ATN-PARSER::INDEX NIL)))1829 (|field.2| (ATN-PARSER::INDEX)1830 (ATN-PARSER:%ATN-NODE-BLOCK |field.2|1831 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |field|)1832 (WHEN T1833 (SETF ATN-PARSER:*ATN-TERM*1834 '|field|)1835 (ATN-PARSER:%ATN-TRACE1836 " [***/~a @ ~s reduce structure: ~a"1837 '|field| ATN-PARSER::INDEX1838 (LIST '|alias| |alias|1839 '|arguments|1840 |arguments|1841 '|directives|1842 |directives|1843 '|field_name|1844 |field_name|1845 '|selection_set|1846 |selection_set|))1847 (LET ((ATN-PARSER::RESULT-STRUCTURE1848 (IF (EQ1849 ATN-PARSER:*ATN-REDUCE*1850 T)1851 (|field-Constructor|1852 |alias|1853 |arguments|1854 |directives|1855 |field_name|1856 |selection_set|)1857 (IF (EQ1858 ATN-PARSER:*ATN-REDUCE*1859 'CONS)1860 (CONS1861 '|field|1862 (DELETE NIL1863 (LIST1864 |alias|1865 |arguments|1866 |directives|1867 |field_name|1868 |selection_set|)))1869 '|field|))))1870 (ATN-PARSER::SUCCEED1871 ATN-PARSER::INDEX1872 ATN-PARSER::RESULT-STRUCTURE))))))1873 (|field/fail.3| (ATN-PARSER::INDEX)1874 (ATN-PARSER:%ATN-NODE-BLOCK |field/fail.3|1875 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1876 (|field/field.2.4| (ATN-PARSER::INDEX)1877 (ATN-PARSER:%ATN-NODE-BLOCK |field/field.2.4|1878 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::CAT |field_name|)1879 (COND1880 ((|IS-field_name|1881 ATN-PARSER::|item|)1882 (SETF ATN-PARSER:*ATN-TERM*1883 '|field_name|)1884 (SETF |field_name|1885 (IF (EQ1886 ATN-PARSER:*ATN-REDUCE*1887 T)1888 (ATN-PARSER:ATN-REDUCE-ITEM1889 #'|field_name-Constructor|1890 ATN-PARSER::|item|)1891 (IF (EQ1892 ATN-PARSER:*ATN-REDUCE*1893 'CONS)1894 (LIST1895 '|field_name|1896 ATN-PARSER::|item|)1897 '|field_name|)))1898 (|field/field.2.5|1899 (1+ ATN-PARSER::INDEX)))1900 (T1901 (SETF ATN-PARSER:*ATN-TERM*1902 '|field_name|)1903 (|field/fail.3|1904 ATN-PARSER::INDEX))))))1905 (|field/field.2.5| (ATN-PARSER::INDEX)1906 (ATN-PARSER:%ATN-NODE-BLOCK |field/field.2.5|1907 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |arguments|)1908 (MULTIPLE-VALUE-BIND1909 (ATN-PARSER::RESULT1910 ATN-PARSER::RESULT-INDEX1911 ATN-PARSER::SUCCESS)1912 (|arguments|1913 ATN-PARSER::INDEX)1914 (COND1915 (ATN-PARSER::SUCCESS1916 (WHEN ATN-PARSER::RESULT1917 (SETF |arguments|1918 ATN-PARSER::RESULT))1919 (|field/field.2.6|1920 ATN-PARSER::RESULT-INDEX))1921 (T1922 (SETF ATN-PARSER:*ATN-TERM?*1923 '|arguments|)1924 (|field/field.2.6|1925 ATN-PARSER::INDEX)))))))1926 (|field/field.2.6| (ATN-PARSER::INDEX)1927 (ATN-PARSER:%ATN-NODE-BLOCK |field/field.2.6|1928 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |directives|)1929 (MULTIPLE-VALUE-BIND1930 (ATN-PARSER::RESULT1931 ATN-PARSER::RESULT-INDEX1932 ATN-PARSER::SUCCESS)1933 (|directives|1934 ATN-PARSER::INDEX)1935 (COND1936 (ATN-PARSER::SUCCESS1937 (WHEN ATN-PARSER::RESULT1938 (SETF |directives|1939 ATN-PARSER::RESULT))1940 (|field/field.2.7|1941 ATN-PARSER::RESULT-INDEX))1942 (T1943 (SETF ATN-PARSER:*ATN-TERM?*1944 '|directives|)1945 (|field/field.2.7|1946 ATN-PARSER::INDEX)))))))1947 (|field/field.2.7| (ATN-PARSER::INDEX)1948 (ATN-PARSER:%ATN-NODE-BLOCK |field/field.2.7|1949 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |selection_set|)1950 (MULTIPLE-VALUE-BIND1951 (ATN-PARSER::RESULT1952 ATN-PARSER::RESULT-INDEX1953 ATN-PARSER::SUCCESS)1954 (|selection_set|1955 ATN-PARSER::INDEX)1956 (COND1957 (ATN-PARSER::SUCCESS1958 (WHEN ATN-PARSER::RESULT1959 (SETF |selection_set|1960 ATN-PARSER::RESULT))1961 (|field.2|1962 ATN-PARSER::RESULT-INDEX))1963 (T1964 (SETF ATN-PARSER:*ATN-TERM?*1965 '|selection_set|)1966 (|field.2|1967 ATN-PARSER::INDEX)))))))1968 (|field/start.1| (ATN-PARSER::INDEX)1969 (ATN-PARSER:%ATN-NODE-BLOCK |field/start.1|1970 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |alias|)1971 (MULTIPLE-VALUE-BIND1972 (ATN-PARSER::RESULT1973 ATN-PARSER::RESULT-INDEX1974 ATN-PARSER::SUCCESS)1975 (|alias|1976 ATN-PARSER::INDEX)1977 (COND1978 (ATN-PARSER::SUCCESS1979 (WHEN ATN-PARSER::RESULT1980 (SETF |alias|1981 ATN-PARSER::RESULT))1982 (|field/field.2.4|1983 ATN-PARSER::RESULT-INDEX))1984 (T1985 (SETF ATN-PARSER:*ATN-TERM?*1986 '|alias|)1987 (|field/field.2.4|1988 ATN-PARSER::INDEX))))))))1989 (DECLARE1990 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |field.2| |field/fail.3| |field/field.2.4|1991 |field/field.2.5| |field/field.2.6| |field/field.2.7| |field/start.1|))1992 (|field/start.1| ATN-PARSER::INDEX)1993 (SETF ATN-PARSER:*ATN-NODE NIL)1994 NIL1995 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))1996 (WARN "recursive grammar: ~s @ position ~s: ~s" '|field| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))1997 (PROGN1998 (DEFVAR |arguments-INDEX|)1999 (DEFUN |arguments| (ATN-PARSER::INDEX &AUX (|argument| NIL))2000 "{17} arguments ::= '(' argument (','? argument)* ','? ')'2001 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|argument|)"2002 (DECLARE (SPECIAL |arguments-INDEX|))2003 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |arguments-INDEX| ATN-PARSER:*ATN-LEVEL))2004 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2005 (IF (< |arguments-INDEX| ATN-PARSER::INDEX)2006 (LET ((|arguments-INDEX| ATN-PARSER::INDEX)2007 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2008 (ATN-PARSER:*ATN-STACK (CONS '|arguments| ATN-PARSER:*ATN-STACK)))2009 (DECLARE (SPECIAL |arguments-INDEX|))2010 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2011 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2012 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2013 (ATN-PARSER:%ATN-BLOCK |arguments|2014 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2015 (SETF ATN-PARSER:*ATN-TERM* '|arguments|)2016 (RETURN-FROM |arguments| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))2017 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2018 (RETURN-FROM |arguments| (VALUES NIL ATN-PARSER::INDEX NIL)))2019 (|arguments.2| (ATN-PARSER::INDEX)2020 (ATN-PARSER:%ATN-NODE-BLOCK |arguments.2|2021 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |arguments|)2022 (WHEN T2023 (SETF ATN-PARSER:*ATN-TERM*2024 '|arguments|)2025 (ATN-PARSER:%ATN-TRACE2026 " [***/~a @ ~s reduce structure: ~a"2027 '|arguments|2028 ATN-PARSER::INDEX2029 (LIST '|argument|2030 |argument|))2031 (LET ((ATN-PARSER::RESULT-STRUCTURE2032 (IF (EQ2033 ATN-PARSER:*ATN-REDUCE*2034 T)2035 (|arguments-Constructor|2036 |argument|)2037 (IF (EQ2038 ATN-PARSER:*ATN-REDUCE*2039 'CONS)2040 (CONS2041 '|arguments|2042 (DELETE NIL2043 (LIST2044 |argument|)))2045 '|arguments|))))2046 (ATN-PARSER::SUCCEED2047 ATN-PARSER::INDEX2048 ATN-PARSER::RESULT-STRUCTURE))))))2049 (|arguments.8| (ATN-PARSER::INDEX)2050 (ATN-PARSER:%ATN-NODE-BLOCK |arguments.8|2051 (ATN-PARSER:%ATN-EDGE-BLOCK2052 (ATN-PARSER::JUMP |arguments/arguments.8.9|)2053 (|arguments/arguments.8.9| ATN-PARSER::INDEX))2054 (ATN-PARSER:%ATN-EDGE-BLOCK2055 (ATN-PARSER::JUMP |arguments/arguments.2.6|)2056 (|arguments/arguments.2.6| ATN-PARSER::INDEX))))2057 (|arguments/arguments.2.4| (ATN-PARSER::INDEX)2058 (ATN-PARSER:%ATN-NODE-BLOCK |arguments/arguments.2.4|2059 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |argument|)2060 (MULTIPLE-VALUE-BIND2061 (ATN-PARSER::RESULT2062 ATN-PARSER::RESULT-INDEX2063 ATN-PARSER::SUCCESS)2064 (|argument|2065 ATN-PARSER::INDEX)2066 (COND2067 (ATN-PARSER::SUCCESS2068 (WHEN ATN-PARSER::RESULT2069 (SETF |argument|2070 (CONS2071 ATN-PARSER::RESULT2072 |argument|)))2073 (|arguments/arguments.2.5|2074 ATN-PARSER::RESULT-INDEX))2075 (T2076 (SETF ATN-PARSER:*ATN-TERM?*2077 '|argument|)2078 (|arguments/fail.3|2079 ATN-PARSER::INDEX)))))))2080 (|arguments/arguments.2.5| (ATN-PARSER::INDEX)2081 (ATN-PARSER:%ATN-NODE-BLOCK |arguments/arguments.2.5|2082 (ATN-PARSER:%ATN-EDGE-BLOCK2083 (ATN-PARSER::JUMP |arguments/arguments.8.9|)2084 (|arguments/arguments.8.9| ATN-PARSER::INDEX))2085 (ATN-PARSER:%ATN-EDGE-BLOCK2086 (ATN-PARSER::JUMP |arguments/arguments.2.6|)2087 (|arguments/arguments.2.6| ATN-PARSER::INDEX))))2088 (|arguments/arguments.2.6| (ATN-PARSER::INDEX)2089 (ATN-PARSER:%ATN-NODE-BLOCK |arguments/arguments.2.6|2090 (ATN-PARSER:%ATN-EDGE-BLOCK2091 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)2092 (COND2093 ((EQ ATN-PARSER::|item|2094 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)2095 (SETF ATN-PARSER:*ATN-TERM*2096 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)2097 (|arguments/arguments.2.7| (1+ ATN-PARSER::INDEX)))2098 (T2099 (SETF ATN-PARSER:*ATN-TERM?*2100 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)2101 (|arguments/arguments.2.7| ATN-PARSER::INDEX))))))2102 (|arguments/arguments.2.7| (ATN-PARSER::INDEX)2103 (ATN-PARSER:%ATN-NODE-BLOCK |arguments/arguments.2.7|2104 (ATN-PARSER:%ATN-EDGE-BLOCK2105 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|)|)2106 (COND2107 ((EQ ATN-PARSER::|item|2108 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|)|)2109 (SETF ATN-PARSER:*ATN-TERM*2110 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|)|)2111 (|arguments.2| (1+ ATN-PARSER::INDEX)))2112 (T2113 (SETF ATN-PARSER:*ATN-TERM?*2114 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|)|)2115 (|arguments/fail.3| ATN-PARSER::INDEX))))))2116 (|arguments/arguments.8.10| (ATN-PARSER::INDEX)2117 (ATN-PARSER:%ATN-NODE-BLOCK |arguments/arguments.8.10|2118 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |argument|)2119 (MULTIPLE-VALUE-BIND2120 (ATN-PARSER::RESULT2121 ATN-PARSER::RESULT-INDEX2122 ATN-PARSER::SUCCESS)2123 (|argument|2124 ATN-PARSER::INDEX)2125 (COND2126 (ATN-PARSER::SUCCESS2127 (WHEN ATN-PARSER::RESULT2128 (SETF |argument|2129 (CONS2130 ATN-PARSER::RESULT2131 |argument|)))2132 (|arguments.8|2133 ATN-PARSER::RESULT-INDEX))2134 (T2135 (SETF ATN-PARSER:*ATN-TERM?*2136 '|argument|)2137 NIL))))))2138 (|arguments/arguments.8.9| (ATN-PARSER::INDEX)2139 (ATN-PARSER:%ATN-NODE-BLOCK |arguments/arguments.8.9|2140 (ATN-PARSER:%ATN-EDGE-BLOCK2141 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)2142 (COND2143 ((EQ ATN-PARSER::|item|2144 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)2145 (SETF ATN-PARSER:*ATN-TERM*2146 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)2147 (|arguments/arguments.8.10| (1+ ATN-PARSER::INDEX)))2148 (T2149 (SETF ATN-PARSER:*ATN-TERM?*2150 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)2151 (|arguments/arguments.8.10| ATN-PARSER::INDEX))))))2152 (|arguments/fail.3| (ATN-PARSER::INDEX)2153 (ATN-PARSER:%ATN-NODE-BLOCK |arguments/fail.3|2154 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2155 (|arguments/start.1| (ATN-PARSER::INDEX)2156 (ATN-PARSER:%ATN-NODE-BLOCK |arguments/start.1|2157 (ATN-PARSER:%ATN-EDGE-BLOCK2158 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|(|)2159 (COND2160 ((EQ ATN-PARSER::|item|2161 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|(|)2162 (SETF ATN-PARSER:*ATN-TERM*2163 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|(|)2164 (|arguments/arguments.2.4| (1+ ATN-PARSER::INDEX)))2165 (T2166 (SETF ATN-PARSER:*ATN-TERM?*2167 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|(|)2168 (|arguments/fail.3| ATN-PARSER::INDEX)))))))2169 (DECLARE2170 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |arguments.2| |arguments.8|2171 |arguments/arguments.2.4| |arguments/arguments.2.5| |arguments/arguments.2.6|2172 |arguments/arguments.2.7| |arguments/arguments.8.10| |arguments/arguments.8.9|2173 |arguments/fail.3| |arguments/start.1|))2174 (|arguments/start.1| ATN-PARSER::INDEX)2175 (SETF ATN-PARSER:*ATN-NODE NIL)2176 NIL2177 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))2178 (WARN "recursive grammar: ~s @ position ~s: ~s" '|arguments| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2179 (PROGN2180 (DEFVAR |argument-INDEX|)2181 (DEFUN |argument| (ATN-PARSER::INDEX &AUX (|argument_name| NIL) (|argument_value| NIL))2182 "{18} argument ::= argument_name ':' argument_value2183 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|argument_name|2184 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|argument_value|)"2185 (DECLARE (SPECIAL |argument-INDEX|))2186 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |argument-INDEX| ATN-PARSER:*ATN-LEVEL))2187 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2188 (IF (< |argument-INDEX| ATN-PARSER::INDEX)2189 (LET ((|argument-INDEX| ATN-PARSER::INDEX)2190 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2191 (ATN-PARSER:*ATN-STACK (CONS '|argument| ATN-PARSER:*ATN-STACK)))2192 (DECLARE (SPECIAL |argument-INDEX|))2193 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2194 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2195 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2196 (ATN-PARSER:%ATN-BLOCK |argument|2197 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2198 (SETF ATN-PARSER:*ATN-TERM* '|argument|)2199 (RETURN-FROM |argument| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))2200 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2201 (RETURN-FROM |argument| (VALUES NIL ATN-PARSER::INDEX NIL)))2202 (|argument.2| (ATN-PARSER::INDEX)2203 (ATN-PARSER:%ATN-NODE-BLOCK |argument.2|2204 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |argument|)2205 (WHEN T2206 (SETF ATN-PARSER:*ATN-TERM*2207 '|argument|)2208 (ATN-PARSER:%ATN-TRACE2209 " [***/~a @ ~s reduce structure: ~a"2210 '|argument|2211 ATN-PARSER::INDEX2212 (LIST '|argument_name|2213 |argument_name|2214 '|argument_value|2215 |argument_value|))2216 (LET ((ATN-PARSER::RESULT-STRUCTURE2217 (IF (EQ2218 ATN-PARSER:*ATN-REDUCE*2219 T)2220 (|argument-Constructor|2221 |argument_name|2222 |argument_value|)2223 (IF (EQ2224 ATN-PARSER:*ATN-REDUCE*2225 'CONS)2226 (CONS2227 '|argument|2228 (DELETE NIL2229 (LIST2230 |argument_name|2231 |argument_value|)))2232 '|argument|))))2233 (ATN-PARSER::SUCCEED2234 ATN-PARSER::INDEX2235 ATN-PARSER::RESULT-STRUCTURE))))))2236 (|argument/argument.2.4| (ATN-PARSER::INDEX)2237 (ATN-PARSER:%ATN-NODE-BLOCK |argument/argument.2.4|2238 (ATN-PARSER:%ATN-EDGE-BLOCK2239 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)2240 (COND2241 ((EQ ATN-PARSER::|item|2242 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)2243 (SETF ATN-PARSER:*ATN-TERM*2244 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)2245 (|argument/argument.2.5| (1+ ATN-PARSER::INDEX)))2246 (T2247 (SETF ATN-PARSER:*ATN-TERM?*2248 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)2249 (|argument/fail.3| ATN-PARSER::INDEX))))))2250 (|argument/argument.2.5| (ATN-PARSER::INDEX)2251 (ATN-PARSER:%ATN-NODE-BLOCK |argument/argument.2.5|2252 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |argument_value|)2253 (MULTIPLE-VALUE-BIND2254 (ATN-PARSER::RESULT2255 ATN-PARSER::RESULT-INDEX2256 ATN-PARSER::SUCCESS)2257 (|argument_value|2258 ATN-PARSER::INDEX)2259 (COND2260 (ATN-PARSER::SUCCESS2261 (WHEN ATN-PARSER::RESULT2262 (SETF |argument_value|2263 ATN-PARSER::RESULT))2264 (|argument.2|2265 ATN-PARSER::RESULT-INDEX))2266 (T2267 (SETF ATN-PARSER:*ATN-TERM?*2268 '|argument_value|)2269 (|argument/fail.3|2270 ATN-PARSER::INDEX)))))))2271 (|argument/fail.3| (ATN-PARSER::INDEX)2272 (ATN-PARSER:%ATN-NODE-BLOCK |argument/fail.3|2273 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2274 (|argument/start.1| (ATN-PARSER::INDEX)2275 (ATN-PARSER:%ATN-NODE-BLOCK |argument/start.1|2276 (ATN-PARSER:%ATN-EDGE-BLOCK2277 (ATN-PARSER::CAT |argument_name|)2278 (COND2279 ((|IS-argument_name| ATN-PARSER::|item|)2280 (SETF ATN-PARSER:*ATN-TERM* '|argument_name|)2281 (SETF |argument_name|2282 (IF (EQ ATN-PARSER:*ATN-REDUCE* T)2283 (ATN-PARSER:ATN-REDUCE-ITEM2284 #'|argument_name-Constructor|2285 ATN-PARSER::|item|)2286 (IF (EQ ATN-PARSER:*ATN-REDUCE* 'CONS)2287 (LIST '|argument_name|2288 ATN-PARSER::|item|)2289 '|argument_name|)))2290 (|argument/argument.2.4| (1+ ATN-PARSER::INDEX)))2291 (T (SETF ATN-PARSER:*ATN-TERM* '|argument_name|)2292 (|argument/fail.3| ATN-PARSER::INDEX)))))))2293 (DECLARE2294 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |argument.2| |argument/argument.2.4|2295 |argument/argument.2.5| |argument/fail.3| |argument/start.1|))2296 (|argument/start.1| ATN-PARSER::INDEX)2297 (SETF ATN-PARSER:*ATN-NODE NIL)2298 NIL2299 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))2300 (WARN "recursive grammar: ~s @ position ~s: ~s" '|argument| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2301 (PROGN2302 (DEFVAR |argument_value-INDEX|)2303 (DEFUN |argument_value| (ATN-PARSER::INDEX &AUX (|value| NIL))2304 "{20} argument_value ::= value2305 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|value|)"2306 (DECLARE (SPECIAL |argument_value-INDEX|))2307 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |argument_value-INDEX| ATN-PARSER:*ATN-LEVEL))2308 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2309 (IF (< |argument_value-INDEX| ATN-PARSER::INDEX)2310 (LET ((|argument_value-INDEX| ATN-PARSER::INDEX)2311 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2312 (ATN-PARSER:*ATN-STACK (CONS '|argument_value| ATN-PARSER:*ATN-STACK)))2313 (DECLARE (SPECIAL |argument_value-INDEX|))2314 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2315 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2316 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2317 (ATN-PARSER:%ATN-BLOCK |argument_value|2318 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2319 (SETF ATN-PARSER:*ATN-TERM* '|argument_value|)2320 (RETURN-FROM |argument_value| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))2321 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2322 (RETURN-FROM |argument_value| (VALUES NIL ATN-PARSER::INDEX NIL)))2323 (|argument_value.2| (ATN-PARSER::INDEX)2324 (ATN-PARSER:%ATN-NODE-BLOCK |argument_value.2|2325 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |argument_value|)2326 (WHEN T2327 (SETF ATN-PARSER:*ATN-TERM*2328 '|argument_value|)2329 (ATN-PARSER:%ATN-TRACE2330 " [***/~a @ ~s reduce structure: ~a"2331 '|argument_value|2332 ATN-PARSER::INDEX2333 (LIST '|value| |value|))2334 (LET ((ATN-PARSER::RESULT-STRUCTURE2335 (IF (EQ2336 ATN-PARSER:*ATN-REDUCE*2337 T)2338 (|argument_value-Constructor|2339 |value|)2340 (IF (EQ2341 ATN-PARSER:*ATN-REDUCE*2342 'CONS)2343 (CONS2344 '|argument_value|2345 (DELETE NIL2346 (LIST2347 |value|)))2348 '|argument_value|))))2349 (ATN-PARSER::SUCCEED2350 ATN-PARSER::INDEX2351 ATN-PARSER::RESULT-STRUCTURE))))))2352 (|argument_value/fail.3| (ATN-PARSER::INDEX)2353 (ATN-PARSER:%ATN-NODE-BLOCK |argument_value/fail.3|2354 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2355 (|argument_value/start.1| (ATN-PARSER::INDEX)2356 (ATN-PARSER:%ATN-NODE-BLOCK |argument_value/start.1|2357 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |value|)2358 (MULTIPLE-VALUE-BIND2359 (ATN-PARSER::RESULT2360 ATN-PARSER::RESULT-INDEX2361 ATN-PARSER::SUCCESS)2362 (|value|2363 ATN-PARSER::INDEX)2364 (COND2365 (ATN-PARSER::SUCCESS2366 (WHEN ATN-PARSER::RESULT2367 (SETF |value|2368 ATN-PARSER::RESULT))2369 (|argument_value.2|2370 ATN-PARSER::RESULT-INDEX))2371 (T2372 (SETF ATN-PARSER:*ATN-TERM?*2373 '|value|)2374 (|argument_value/fail.3|2375 ATN-PARSER::INDEX))))))))2376 (DECLARE2377 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |argument_value.2| |argument_value/fail.3|2378 |argument_value/start.1|))2379 (|argument_value/start.1| ATN-PARSER::INDEX)2380 (SETF ATN-PARSER:*ATN-NODE NIL)2381 NIL2382 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))2383 (WARN "recursive grammar: ~s @ position ~s: ~s" '|argument_value| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2384 (PROGN2385 (DEFVAR |alias-INDEX|)2386 (DEFUN |alias| (ATN-PARSER::INDEX &AUX (|alias_name| NIL))2387 "{21} alias ::= alias_name ':'2388 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|alias_name|)"2389 (DECLARE (SPECIAL |alias-INDEX|))2390 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |alias-INDEX| ATN-PARSER:*ATN-LEVEL))2391 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2392 (IF (< |alias-INDEX| ATN-PARSER::INDEX)2393 (LET ((|alias-INDEX| ATN-PARSER::INDEX)2394 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2395 (ATN-PARSER:*ATN-STACK (CONS '|alias| ATN-PARSER:*ATN-STACK)))2396 (DECLARE (SPECIAL |alias-INDEX|))2397 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2398 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2399 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2400 (ATN-PARSER:%ATN-BLOCK |alias|2401 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2402 (SETF ATN-PARSER:*ATN-TERM* '|alias|)2403 (RETURN-FROM |alias| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))2404 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2405 (RETURN-FROM |alias| (VALUES NIL ATN-PARSER::INDEX NIL)))2406 (|alias.2| (ATN-PARSER::INDEX)2407 (ATN-PARSER:%ATN-NODE-BLOCK |alias.2|2408 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |alias|)2409 (WHEN T2410 (SETF ATN-PARSER:*ATN-TERM*2411 '|alias|)2412 (ATN-PARSER:%ATN-TRACE2413 " [***/~a @ ~s reduce structure: ~a"2414 '|alias| ATN-PARSER::INDEX2415 (LIST '|alias_name|2416 |alias_name|))2417 (LET ((ATN-PARSER::RESULT-STRUCTURE2418 (IF (EQ2419 ATN-PARSER:*ATN-REDUCE*2420 T)2421 (|alias-Constructor|2422 |alias_name|)2423 (IF (EQ2424 ATN-PARSER:*ATN-REDUCE*2425 'CONS)2426 (CONS2427 '|alias|2428 (DELETE NIL2429 (LIST2430 |alias_name|)))2431 '|alias|))))2432 (ATN-PARSER::SUCCEED2433 ATN-PARSER::INDEX2434 ATN-PARSER::RESULT-STRUCTURE))))))2435 (|alias/alias.2.4| (ATN-PARSER::INDEX)2436 (ATN-PARSER:%ATN-NODE-BLOCK |alias/alias.2.4|2437 (ATN-PARSER:%ATN-EDGE-BLOCK2438 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)2439 (COND2440 ((EQ ATN-PARSER::|item|2441 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)2442 (SETF ATN-PARSER:*ATN-TERM*2443 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)2444 (|alias.2| (1+ ATN-PARSER::INDEX)))2445 (T2446 (SETF ATN-PARSER:*ATN-TERM?*2447 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)2448 (|alias/fail.3| ATN-PARSER::INDEX))))))2449 (|alias/fail.3| (ATN-PARSER::INDEX)2450 (ATN-PARSER:%ATN-NODE-BLOCK |alias/fail.3|2451 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2452 (|alias/start.1| (ATN-PARSER::INDEX)2453 (ATN-PARSER:%ATN-NODE-BLOCK |alias/start.1|2454 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::CAT |alias_name|)2455 (COND2456 ((|IS-alias_name|2457 ATN-PARSER::|item|)2458 (SETF ATN-PARSER:*ATN-TERM*2459 '|alias_name|)2460 (SETF |alias_name|2461 (IF (EQ2462 ATN-PARSER:*ATN-REDUCE*2463 T)2464 (ATN-PARSER:ATN-REDUCE-ITEM2465 #'|alias_name-Constructor|2466 ATN-PARSER::|item|)2467 (IF (EQ2468 ATN-PARSER:*ATN-REDUCE*2469 'CONS)2470 (LIST2471 '|alias_name|2472 ATN-PARSER::|item|)2473 '|alias_name|)))2474 (|alias/alias.2.4|2475 (1+ ATN-PARSER::INDEX)))2476 (T2477 (SETF ATN-PARSER:*ATN-TERM*2478 '|alias_name|)2479 (|alias/fail.3|2480 ATN-PARSER::INDEX)))))))2481 (DECLARE2482 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |alias.2| |alias/alias.2.4| |alias/fail.3|2483 |alias/start.1|))2484 (|alias/start.1| ATN-PARSER::INDEX)2485 (SETF ATN-PARSER:*ATN-NODE NIL)2486 NIL2487 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))2488 (WARN "recursive grammar: ~s @ position ~s: ~s" '|alias| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2489 (PROGN2490 (DEFVAR |fragment_spread-INDEX|)2491 (DEFUN |fragment_spread| (ATN-PARSER::INDEX &AUX (|directives| NIL) (|fragment_name| NIL))2492 "{23} fragment_spread ::= '...' fragment_name directives?2493 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|directives|2494 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|fragment_name|)"2495 (DECLARE (SPECIAL |fragment_spread-INDEX|))2496 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |fragment_spread-INDEX| ATN-PARSER:*ATN-LEVEL))2497 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2498 (IF (< |fragment_spread-INDEX| ATN-PARSER::INDEX)2499 (LET ((|fragment_spread-INDEX| ATN-PARSER::INDEX)2500 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2501 (ATN-PARSER:*ATN-STACK (CONS '|fragment_spread| ATN-PARSER:*ATN-STACK)))2502 (DECLARE (SPECIAL |fragment_spread-INDEX|))2503 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2504 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2505 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2506 (ATN-PARSER:%ATN-BLOCK |fragment_spread|2507 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2508 (SETF ATN-PARSER:*ATN-TERM* '|fragment_spread|)2509 (RETURN-FROM |fragment_spread| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))2510 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2511 (RETURN-FROM |fragment_spread| (VALUES NIL ATN-PARSER::INDEX NIL)))2512 (|fragment_spread.2| (ATN-PARSER::INDEX)2513 (ATN-PARSER:%ATN-NODE-BLOCK |fragment_spread.2|2514 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |fragment_spread|)2515 (WHEN T2516 (SETF ATN-PARSER:*ATN-TERM*2517 '|fragment_spread|)2518 (ATN-PARSER:%ATN-TRACE2519 " [***/~a @ ~s reduce structure: ~a"2520 '|fragment_spread|2521 ATN-PARSER::INDEX2522 (LIST '|directives|2523 |directives|2524 '|fragment_name|2525 |fragment_name|))2526 (LET ((ATN-PARSER::RESULT-STRUCTURE2527 (IF (EQ2528 ATN-PARSER:*ATN-REDUCE*2529 T)2530 (|fragment_spread-Constructor|2531 |directives|2532 |fragment_name|)2533 (IF (EQ2534 ATN-PARSER:*ATN-REDUCE*2535 'CONS)2536 (CONS2537 '|fragment_spread|2538 (DELETE NIL2539 (LIST2540 |directives|2541 |fragment_name|)))2542 '|fragment_spread|))))2543 (ATN-PARSER::SUCCEED2544 ATN-PARSER::INDEX2545 ATN-PARSER::RESULT-STRUCTURE))))))2546 (|fragment_spread/fail.3| (ATN-PARSER::INDEX)2547 (ATN-PARSER:%ATN-NODE-BLOCK |fragment_spread/fail.3|2548 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2549 (|fragment_spread/fragment_spread.2.4| (ATN-PARSER::INDEX)2550 (ATN-PARSER:%ATN-NODE-BLOCK |fragment_spread/fragment_spread.2.4|2551 (ATN-PARSER:%ATN-EDGE-BLOCK2552 (ATN-PARSER::CAT |fragment_name|)2553 (COND2554 ((|IS-fragment_name| ATN-PARSER::|item|)2555 (SETF ATN-PARSER:*ATN-TERM* '|fragment_name|)2556 (SETF |fragment_name|2557 (IF (EQ ATN-PARSER:*ATN-REDUCE* T)2558 (ATN-PARSER:ATN-REDUCE-ITEM2559 #'|fragment_name-Constructor|2560 ATN-PARSER::|item|)2561 (IF (EQ ATN-PARSER:*ATN-REDUCE* 'CONS)2562 (LIST '|fragment_name|2563 ATN-PARSER::|item|)2564 '|fragment_name|)))2565 (|fragment_spread/fragment_spread.2.5|2566 (1+ ATN-PARSER::INDEX)))2567 (T (SETF ATN-PARSER:*ATN-TERM* '|fragment_name|)2568 (|fragment_spread/fail.3| ATN-PARSER::INDEX))))))2569 (|fragment_spread/fragment_spread.2.5| (ATN-PARSER::INDEX)2570 (ATN-PARSER:%ATN-NODE-BLOCK |fragment_spread/fragment_spread.2.5|2571 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |directives|)2572 (MULTIPLE-VALUE-BIND2573 (ATN-PARSER::RESULT2574 ATN-PARSER::RESULT-INDEX2575 ATN-PARSER::SUCCESS)2576 (|directives|2577 ATN-PARSER::INDEX)2578 (COND2579 (ATN-PARSER::SUCCESS2580 (WHEN ATN-PARSER::RESULT2581 (SETF |directives|2582 ATN-PARSER::RESULT))2583 (|fragment_spread.2|2584 ATN-PARSER::RESULT-INDEX))2585 (T2586 (SETF ATN-PARSER:*ATN-TERM?*2587 '|directives|)2588 (|fragment_spread.2|2589 ATN-PARSER::INDEX)))))))2590 (|fragment_spread/start.1| (ATN-PARSER::INDEX)2591 (ATN-PARSER:%ATN-NODE-BLOCK |fragment_spread/start.1|2592 (ATN-PARSER:%ATN-EDGE-BLOCK2593 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|...|)2594 (COND2595 ((EQ ATN-PARSER::|item|2596 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|...|)2597 (SETF ATN-PARSER:*ATN-TERM*2598 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|...|)2599 (|fragment_spread/fragment_spread.2.4|2600 (1+ ATN-PARSER::INDEX)))2601 (T2602 (SETF ATN-PARSER:*ATN-TERM?*2603 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|...|)2604 (|fragment_spread/fail.3| ATN-PARSER::INDEX)))))))2605 (DECLARE2606 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |fragment_spread.2| |fragment_spread/fail.3|2607 |fragment_spread/fragment_spread.2.4| |fragment_spread/fragment_spread.2.5|2608 |fragment_spread/start.1|))2609 (|fragment_spread/start.1| ATN-PARSER::INDEX)2610 (SETF ATN-PARSER:*ATN-NODE NIL)2611 NIL2612 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))2613 (WARN "recursive grammar: ~s @ position ~s: ~s" '|fragment_spread| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2614 (PROGN2615 (DEFVAR |fragment_definition-INDEX|)2616 (DEFUN |fragment_definition|2617 (ATN-PARSER::INDEX &AUX (|directives| NIL) (|fragment_name| NIL) (|selection_set| NIL) (|type_condition| NIL))2618 "{24} fragment_definition ::= 'fragment' fragment_name? type_condition directives? selection_set2619 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|directives|2620 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|fragment_name|2621 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|selection_set|2622 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|type_condition|)"2623 (DECLARE (SPECIAL |fragment_definition-INDEX|))2624 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |fragment_definition-INDEX| ATN-PARSER:*ATN-LEVEL))2625 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2626 (IF (< |fragment_definition-INDEX| ATN-PARSER::INDEX)2627 (LET ((|fragment_definition-INDEX| ATN-PARSER::INDEX)2628 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2629 (ATN-PARSER:*ATN-STACK (CONS '|fragment_definition| ATN-PARSER:*ATN-STACK)))2630 (DECLARE (SPECIAL |fragment_definition-INDEX|))2631 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2632 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2633 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2634 (ATN-PARSER:%ATN-BLOCK |fragment_definition|2635 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2636 (SETF ATN-PARSER:*ATN-TERM* '|fragment_definition|)2637 (RETURN-FROM |fragment_definition| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))2638 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2639 (RETURN-FROM |fragment_definition| (VALUES NIL ATN-PARSER::INDEX NIL)))2640 (|fragment_definition.2| (ATN-PARSER::INDEX)2641 (ATN-PARSER:%ATN-NODE-BLOCK |fragment_definition.2|2642 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |fragment_definition|)2643 (WHEN T2644 (SETF ATN-PARSER:*ATN-TERM*2645 '|fragment_definition|)2646 (ATN-PARSER:%ATN-TRACE2647 " [***/~a @ ~s reduce structure: ~a"2648 '|fragment_definition|2649 ATN-PARSER::INDEX2650 (LIST '|directives|2651 |directives|2652 '|fragment_name|2653 |fragment_name|2654 '|selection_set|2655 |selection_set|2656 '|type_condition|2657 |type_condition|))2658 (LET ((ATN-PARSER::RESULT-STRUCTURE2659 (IF (EQ2660 ATN-PARSER:*ATN-REDUCE*2661 T)2662 (|fragment_definition-Constructor|2663 |directives|2664 |fragment_name|2665 |selection_set|2666 |type_condition|)2667 (IF (EQ2668 ATN-PARSER:*ATN-REDUCE*2669 'CONS)2670 (CONS2671 '|fragment_definition|2672 (DELETE NIL2673 (LIST2674 |directives|2675 |fragment_name|2676 |selection_set|2677 |type_condition|)))2678 '|fragment_definition|))))2679 (ATN-PARSER::SUCCEED2680 ATN-PARSER::INDEX2681 ATN-PARSER::RESULT-STRUCTURE))))))2682 (|fragment_definition/fail.3| (ATN-PARSER::INDEX)2683 (ATN-PARSER:%ATN-NODE-BLOCK |fragment_definition/fail.3|2684 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2685 (|fragment_definition/fragment_definition.2.4| (ATN-PARSER::INDEX)2686 (ATN-PARSER:%ATN-NODE-BLOCK |fragment_definition/fragment_definition.2.4|2687 (ATN-PARSER:%ATN-EDGE-BLOCK2688 (ATN-PARSER::CAT |fragment_name|)2689 (COND2690 ((|IS-fragment_name| ATN-PARSER::|item|)2691 (SETF ATN-PARSER:*ATN-TERM* '|fragment_name|)2692 (SETF |fragment_name|2693 (IF (EQ ATN-PARSER:*ATN-REDUCE* T)2694 (ATN-PARSER:ATN-REDUCE-ITEM2695 #'|fragment_name-Constructor|2696 ATN-PARSER::|item|)2697 (IF (EQ ATN-PARSER:*ATN-REDUCE* 'CONS)2698 (LIST '|fragment_name|2699 ATN-PARSER::|item|)2700 '|fragment_name|)))2701 (|fragment_definition/fragment_definition.2.5|2702 (1+ ATN-PARSER::INDEX)))2703 (T (SETF ATN-PARSER:*ATN-TERM* '|fragment_name|)2704 (|fragment_definition/fragment_definition.2.5|2705 ATN-PARSER::INDEX))))))2706 (|fragment_definition/fragment_definition.2.5| (ATN-PARSER::INDEX)2707 (ATN-PARSER:%ATN-NODE-BLOCK |fragment_definition/fragment_definition.2.5|2708 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |type_condition|)2709 (MULTIPLE-VALUE-BIND2710 (ATN-PARSER::RESULT2711 ATN-PARSER::RESULT-INDEX2712 ATN-PARSER::SUCCESS)2713 (|type_condition|2714 ATN-PARSER::INDEX)2715 (COND2716 (ATN-PARSER::SUCCESS2717 (WHEN ATN-PARSER::RESULT2718 (SETF |type_condition|2719 ATN-PARSER::RESULT))2720 (|fragment_definition/fragment_definition.2.6|2721 ATN-PARSER::RESULT-INDEX))2722 (T2723 (SETF ATN-PARSER:*ATN-TERM?*2724 '|type_condition|)2725 (|fragment_definition/fail.3|2726 ATN-PARSER::INDEX)))))))2727 (|fragment_definition/fragment_definition.2.6| (ATN-PARSER::INDEX)2728 (ATN-PARSER:%ATN-NODE-BLOCK |fragment_definition/fragment_definition.2.6|2729 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |directives|)2730 (MULTIPLE-VALUE-BIND2731 (ATN-PARSER::RESULT2732 ATN-PARSER::RESULT-INDEX2733 ATN-PARSER::SUCCESS)2734 (|directives|2735 ATN-PARSER::INDEX)2736 (COND2737 (ATN-PARSER::SUCCESS2738 (WHEN ATN-PARSER::RESULT2739 (SETF |directives|2740 ATN-PARSER::RESULT))2741 (|fragment_definition/fragment_definition.2.7|2742 ATN-PARSER::RESULT-INDEX))2743 (T2744 (SETF ATN-PARSER:*ATN-TERM?*2745 '|directives|)2746 (|fragment_definition/fragment_definition.2.7|2747 ATN-PARSER::INDEX)))))))2748 (|fragment_definition/fragment_definition.2.7| (ATN-PARSER::INDEX)2749 (ATN-PARSER:%ATN-NODE-BLOCK |fragment_definition/fragment_definition.2.7|2750 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |selection_set|)2751 (MULTIPLE-VALUE-BIND2752 (ATN-PARSER::RESULT2753 ATN-PARSER::RESULT-INDEX2754 ATN-PARSER::SUCCESS)2755 (|selection_set|2756 ATN-PARSER::INDEX)2757 (COND2758 (ATN-PARSER::SUCCESS2759 (WHEN ATN-PARSER::RESULT2760 (SETF |selection_set|2761 ATN-PARSER::RESULT))2762 (|fragment_definition.2|2763 ATN-PARSER::RESULT-INDEX))2764 (T2765 (SETF ATN-PARSER:*ATN-TERM?*2766 '|selection_set|)2767 (|fragment_definition/fail.3|2768 ATN-PARSER::INDEX)))))))2769 (|fragment_definition/start.1| (ATN-PARSER::INDEX)2770 (ATN-PARSER:%ATN-NODE-BLOCK |fragment_definition/start.1|2771 (ATN-PARSER:%ATN-EDGE-BLOCK2772 (ATN-PARSER::WORD2773 ORG.DATAGRAPH.SPOCQ.GRAPHQL::|fragment|)2774 (COND2775 ((EQ ATN-PARSER::|item|2776 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|fragment|)2777 (SETF ATN-PARSER:*ATN-TERM*2778 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|fragment|)2779 (|fragment_definition/fragment_definition.2.4|2780 (1+ ATN-PARSER::INDEX)))2781 (T2782 (SETF ATN-PARSER:*ATN-TERM?*2783 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|fragment|)2784 (|fragment_definition/fail.3| ATN-PARSER::INDEX)))))))2785 (DECLARE2786 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |fragment_definition.2|2787 |fragment_definition/fail.3| |fragment_definition/fragment_definition.2.4|2788 |fragment_definition/fragment_definition.2.5| |fragment_definition/fragment_definition.2.6|2789 |fragment_definition/fragment_definition.2.7| |fragment_definition/start.1|))2790 (|fragment_definition/start.1| ATN-PARSER::INDEX)2791 (SETF ATN-PARSER:*ATN-NODE NIL)2792 NIL2793 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))2794 (WARN "recursive grammar: ~s @ position ~s: ~s" '|fragment_definition| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2795 (PROGN2796 (DEFVAR |inline_fragment-INDEX|)2797 (DEFUN |inline_fragment| (ATN-PARSER::INDEX &AUX (|directives| NIL) (|selection_set| NIL) (|type_condition| NIL))2798 "{26} inline_fragment ::= '...' type_condition? directives? selection_set2799 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|directives|2800 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|selection_set|2801 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|type_condition|)"2802 (DECLARE (SPECIAL |inline_fragment-INDEX|))2803 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |inline_fragment-INDEX| ATN-PARSER:*ATN-LEVEL))2804 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2805 (IF (< |inline_fragment-INDEX| ATN-PARSER::INDEX)2806 (LET ((|inline_fragment-INDEX| ATN-PARSER::INDEX)2807 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2808 (ATN-PARSER:*ATN-STACK (CONS '|inline_fragment| ATN-PARSER:*ATN-STACK)))2809 (DECLARE (SPECIAL |inline_fragment-INDEX|))2810 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2811 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2812 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2813 (ATN-PARSER:%ATN-BLOCK |inline_fragment|2814 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2815 (SETF ATN-PARSER:*ATN-TERM* '|inline_fragment|)2816 (RETURN-FROM |inline_fragment| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))2817 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2818 (RETURN-FROM |inline_fragment| (VALUES NIL ATN-PARSER::INDEX NIL)))2819 (|inline_fragment.2| (ATN-PARSER::INDEX)2820 (ATN-PARSER:%ATN-NODE-BLOCK |inline_fragment.2|2821 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |inline_fragment|)2822 (WHEN T2823 (SETF ATN-PARSER:*ATN-TERM*2824 '|inline_fragment|)2825 (ATN-PARSER:%ATN-TRACE2826 " [***/~a @ ~s reduce structure: ~a"2827 '|inline_fragment|2828 ATN-PARSER::INDEX2829 (LIST '|directives|2830 |directives|2831 '|selection_set|2832 |selection_set|2833 '|type_condition|2834 |type_condition|))2835 (LET ((ATN-PARSER::RESULT-STRUCTURE2836 (IF (EQ2837 ATN-PARSER:*ATN-REDUCE*2838 T)2839 (|inline_fragment-Constructor|2840 |directives|2841 |selection_set|2842 |type_condition|)2843 (IF (EQ2844 ATN-PARSER:*ATN-REDUCE*2845 'CONS)2846 (CONS2847 '|inline_fragment|2848 (DELETE NIL2849 (LIST2850 |directives|2851 |selection_set|2852 |type_condition|)))2853 '|inline_fragment|))))2854 (ATN-PARSER::SUCCEED2855 ATN-PARSER::INDEX2856 ATN-PARSER::RESULT-STRUCTURE))))))2857 (|inline_fragment/fail.3| (ATN-PARSER::INDEX)2858 (ATN-PARSER:%ATN-NODE-BLOCK |inline_fragment/fail.3|2859 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2860 (|inline_fragment/inline_fragment.2.4| (ATN-PARSER::INDEX)2861 (ATN-PARSER:%ATN-NODE-BLOCK |inline_fragment/inline_fragment.2.4|2862 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |type_condition|)2863 (MULTIPLE-VALUE-BIND2864 (ATN-PARSER::RESULT2865 ATN-PARSER::RESULT-INDEX2866 ATN-PARSER::SUCCESS)2867 (|type_condition|2868 ATN-PARSER::INDEX)2869 (COND2870 (ATN-PARSER::SUCCESS2871 (WHEN ATN-PARSER::RESULT2872 (SETF |type_condition|2873 ATN-PARSER::RESULT))2874 (|inline_fragment/inline_fragment.2.5|2875 ATN-PARSER::RESULT-INDEX))2876 (T2877 (SETF ATN-PARSER:*ATN-TERM?*2878 '|type_condition|)2879 (|inline_fragment/inline_fragment.2.5|2880 ATN-PARSER::INDEX)))))))2881 (|inline_fragment/inline_fragment.2.5| (ATN-PARSER::INDEX)2882 (ATN-PARSER:%ATN-NODE-BLOCK |inline_fragment/inline_fragment.2.5|2883 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |directives|)2884 (MULTIPLE-VALUE-BIND2885 (ATN-PARSER::RESULT2886 ATN-PARSER::RESULT-INDEX2887 ATN-PARSER::SUCCESS)2888 (|directives|2889 ATN-PARSER::INDEX)2890 (COND2891 (ATN-PARSER::SUCCESS2892 (WHEN ATN-PARSER::RESULT2893 (SETF |directives|2894 ATN-PARSER::RESULT))2895 (|inline_fragment/inline_fragment.2.6|2896 ATN-PARSER::RESULT-INDEX))2897 (T2898 (SETF ATN-PARSER:*ATN-TERM?*2899 '|directives|)2900 (|inline_fragment/inline_fragment.2.6|2901 ATN-PARSER::INDEX)))))))2902 (|inline_fragment/inline_fragment.2.6| (ATN-PARSER::INDEX)2903 (ATN-PARSER:%ATN-NODE-BLOCK |inline_fragment/inline_fragment.2.6|2904 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |selection_set|)2905 (MULTIPLE-VALUE-BIND2906 (ATN-PARSER::RESULT2907 ATN-PARSER::RESULT-INDEX2908 ATN-PARSER::SUCCESS)2909 (|selection_set|2910 ATN-PARSER::INDEX)2911 (COND2912 (ATN-PARSER::SUCCESS2913 (WHEN ATN-PARSER::RESULT2914 (SETF |selection_set|2915 ATN-PARSER::RESULT))2916 (|inline_fragment.2|2917 ATN-PARSER::RESULT-INDEX))2918 (T2919 (SETF ATN-PARSER:*ATN-TERM?*2920 '|selection_set|)2921 (|inline_fragment/fail.3|2922 ATN-PARSER::INDEX)))))))2923 (|inline_fragment/start.1| (ATN-PARSER::INDEX)2924 (ATN-PARSER:%ATN-NODE-BLOCK |inline_fragment/start.1|2925 (ATN-PARSER:%ATN-EDGE-BLOCK2926 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|...|)2927 (COND2928 ((EQ ATN-PARSER::|item|2929 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|...|)2930 (SETF ATN-PARSER:*ATN-TERM*2931 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|...|)2932 (|inline_fragment/inline_fragment.2.4|2933 (1+ ATN-PARSER::INDEX)))2934 (T2935 (SETF ATN-PARSER:*ATN-TERM?*2936 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|...|)2937 (|inline_fragment/fail.3| ATN-PARSER::INDEX)))))))2938 (DECLARE2939 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |inline_fragment.2| |inline_fragment/fail.3|2940 |inline_fragment/inline_fragment.2.4| |inline_fragment/inline_fragment.2.5|2941 |inline_fragment/inline_fragment.2.6| |inline_fragment/start.1|))2942 (|inline_fragment/start.1| ATN-PARSER::INDEX)2943 (SETF ATN-PARSER:*ATN-NODE NIL)2944 NIL2945 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))2946 (WARN "recursive grammar: ~s @ position ~s: ~s" '|inline_fragment| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))2947 (PROGN2948 (DEFVAR |type_condition-INDEX|)2949 (DEFUN |type_condition| (ATN-PARSER::INDEX &AUX (|named_type| NIL))2950 "{27} type_condition ::= 'on' named_type2951 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|named_type|)"2952 (DECLARE (SPECIAL |type_condition-INDEX|))2953 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |type_condition-INDEX| ATN-PARSER:*ATN-LEVEL))2954 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2955 (IF (< |type_condition-INDEX| ATN-PARSER::INDEX)2956 (LET ((|type_condition-INDEX| ATN-PARSER::INDEX)2957 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))2958 (ATN-PARSER:*ATN-STACK (CONS '|type_condition| ATN-PARSER:*ATN-STACK)))2959 (DECLARE (SPECIAL |type_condition-INDEX|))2960 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))2961 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))2962 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2963 (ATN-PARSER:%ATN-BLOCK |type_condition|2964 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2965 (SETF ATN-PARSER:*ATN-TERM* '|type_condition|)2966 (RETURN-FROM |type_condition| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))2967 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)2968 (RETURN-FROM |type_condition| (VALUES NIL ATN-PARSER::INDEX NIL)))2969 (|type_condition.2| (ATN-PARSER::INDEX)2970 (ATN-PARSER:%ATN-NODE-BLOCK |type_condition.2|2971 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |type_condition|)2972 (WHEN T2973 (SETF ATN-PARSER:*ATN-TERM*2974 '|type_condition|)2975 (ATN-PARSER:%ATN-TRACE2976 " [***/~a @ ~s reduce structure: ~a"2977 '|type_condition|2978 ATN-PARSER::INDEX2979 (LIST '|named_type|2980 |named_type|))2981 (LET ((ATN-PARSER::RESULT-STRUCTURE2982 (IF (EQ2983 ATN-PARSER:*ATN-REDUCE*2984 T)2985 (|type_condition-Constructor|2986 |named_type|)2987 (IF (EQ2988 ATN-PARSER:*ATN-REDUCE*2989 'CONS)2990 (CONS2991 '|type_condition|2992 (DELETE NIL2993 (LIST2994 |named_type|)))2995 '|type_condition|))))2996 (ATN-PARSER::SUCCEED2997 ATN-PARSER::INDEX2998 ATN-PARSER::RESULT-STRUCTURE))))))2999 (|type_condition/fail.3| (ATN-PARSER::INDEX)3000 (ATN-PARSER:%ATN-NODE-BLOCK |type_condition/fail.3|3001 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3002 (|type_condition/start.1| (ATN-PARSER::INDEX)3003 (ATN-PARSER:%ATN-NODE-BLOCK |type_condition/start.1|3004 (ATN-PARSER:%ATN-EDGE-BLOCK3005 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|on|)3006 (COND3007 ((EQ ATN-PARSER::|item|3008 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|on|)3009 (SETF ATN-PARSER:*ATN-TERM*3010 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|on|)3011 (|type_condition/type_condition.2.4|3012 (1+ ATN-PARSER::INDEX)))3013 (T3014 (SETF ATN-PARSER:*ATN-TERM?*3015 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|on|)3016 (|type_condition/fail.3| ATN-PARSER::INDEX))))))3017 (|type_condition/type_condition.2.4| (ATN-PARSER::INDEX)3018 (ATN-PARSER:%ATN-NODE-BLOCK |type_condition/type_condition.2.4|3019 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::CAT |named_type|)3020 (COND3021 ((|IS-named_type|3022 ATN-PARSER::|item|)3023 (SETF ATN-PARSER:*ATN-TERM*3024 '|named_type|)3025 (SETF |named_type|3026 (IF (EQ3027 ATN-PARSER:*ATN-REDUCE*3028 T)3029 (ATN-PARSER:ATN-REDUCE-ITEM3030 #'|named_type-Constructor|3031 ATN-PARSER::|item|)3032 (IF (EQ3033 ATN-PARSER:*ATN-REDUCE*3034 'CONS)3035 (LIST3036 '|named_type|3037 ATN-PARSER::|item|)3038 '|named_type|)))3039 (|type_condition.2|3040 (1+ ATN-PARSER::INDEX)))3041 (T3042 (SETF ATN-PARSER:*ATN-TERM*3043 '|named_type|)3044 (|type_condition/fail.3|3045 ATN-PARSER::INDEX)))))))3046 (DECLARE3047 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |type_condition.2| |type_condition/fail.3|3048 |type_condition/start.1| |type_condition/type_condition.2.4|))3049 (|type_condition/start.1| ATN-PARSER::INDEX)3050 (SETF ATN-PARSER:*ATN-NODE NIL)3051 NIL3052 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))3053 (WARN "recursive grammar: ~s @ position ~s: ~s" '|type_condition| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3054 (PROGN3055 (DEFVAR |value-INDEX|)3056 (DEFUN |value|3057 (ATN-PARSER::INDEX3058 &AUX (|boolean_value| NIL) (|enum_value| NIL) (|list_value| NIL) (NUMBER NIL) (|object_value| NIL) (|string_value| NIL)3059 (|variable| NIL))3060 "{28} value ::= (variable | NUMBER | string_value | boolean_value | enum_value | list_value | object_value)3061 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|boolean_value|3062 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|enum_value|3063 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|list_value| NUMBER3064 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|object_value|3065 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|string_value|3066 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|variable|)"3067 (DECLARE (SPECIAL |value-INDEX|))3068 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |value-INDEX| ATN-PARSER:*ATN-LEVEL))3069 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3070 (IF (< |value-INDEX| ATN-PARSER::INDEX)3071 (LET ((|value-INDEX| ATN-PARSER::INDEX)3072 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3073 (ATN-PARSER:*ATN-STACK (CONS '|value| ATN-PARSER:*ATN-STACK)))3074 (DECLARE (SPECIAL |value-INDEX|))3075 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3076 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3077 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3078 (ATN-PARSER:%ATN-BLOCK |value|3079 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3080 (SETF ATN-PARSER:*ATN-TERM* '|value|)3081 (RETURN-FROM |value| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))3082 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3083 (RETURN-FROM |value| (VALUES NIL ATN-PARSER::INDEX NIL)))3084 (|value.2| (ATN-PARSER::INDEX)3085 (ATN-PARSER:%ATN-NODE-BLOCK |value.2|3086 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |value|)3087 (WHEN T3088 (SETF ATN-PARSER:*ATN-TERM*3089 '|value|)3090 (ATN-PARSER:%ATN-TRACE3091 " [***/~a @ ~s reduce structure: ~a"3092 '|value| ATN-PARSER::INDEX3093 (LIST '|boolean_value|3094 |boolean_value|3095 '|enum_value|3096 |enum_value|3097 '|list_value|3098 |list_value| 'NUMBER3099 NUMBER3100 '|object_value|3101 |object_value|3102 '|string_value|3103 |string_value|3104 '|variable|3105 |variable|))3106 (LET ((ATN-PARSER::RESULT-STRUCTURE3107 (IF (EQ3108 ATN-PARSER:*ATN-REDUCE*3109 T)3110 (|value-Constructor|3111 |boolean_value|3112 |enum_value|3113 |list_value|3114 NUMBER3115 |object_value|3116 |string_value|3117 |variable|)3118 (IF (EQ3119 ATN-PARSER:*ATN-REDUCE*3120 'CONS)3121 (CONS3122 '|value|3123 (DELETE NIL3124 (LIST3125 |boolean_value|3126 |enum_value|3127 |list_value|3128 NUMBER3129 |object_value|3130 |string_value|3131 |variable|)))3132 '|value|))))3133 (ATN-PARSER::SUCCEED3134 ATN-PARSER::INDEX3135 ATN-PARSER::RESULT-STRUCTURE))))))3136 (|value/fail.3| (ATN-PARSER::INDEX)3137 (ATN-PARSER:%ATN-NODE-BLOCK |value/fail.3|3138 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3139 (|value/start.1| (ATN-PARSER::INDEX)3140 (ATN-PARSER:%ATN-NODE-BLOCK |value/start.1|3141 (ATN-PARSER:%ATN-EDGE-BLOCK OR3142 (OR3143 (ATN-PARSER:%ATN-EDGE-BLOCK3144 (PUSH |variable|)3145 (MULTIPLE-VALUE-BIND3146 (ATN-PARSER::RESULT3147 ATN-PARSER::RESULT-INDEX3148 ATN-PARSER::SUCCESS)3149 (|variable|3150 ATN-PARSER::INDEX)3151 (COND3152 (ATN-PARSER::SUCCESS3153 (WHEN ATN-PARSER::RESULT3154 (SETF |variable|3155 ATN-PARSER::RESULT))3156 (|value.2|3157 ATN-PARSER::RESULT-INDEX))3158 (T3159 (SETF ATN-PARSER:*ATN-TERM?*3160 '|variable|)3161 NIL))))3162 (ATN-PARSER:%ATN-EDGE-BLOCK3163 (DE.SETF.UTILITY.IMPLEMENTATION::TEST3164 NUMBER)3165 (COND3166 ((IS-NUMBER3167 ATN-PARSER::|item|)3168 (SETF ATN-PARSER:*ATN-TERM*3169 'NUMBER)3170 (SETF NUMBER3171 (IF (EQ3172 ATN-PARSER:*ATN-REDUCE*3173 T)3174 (ATN-PARSER:ATN-REDUCE-ITEM3175 #'|NUMBER-Constructor|3176 ATN-PARSER::|item|)3177 (IF (EQ3178 ATN-PARSER:*ATN-REDUCE*3179 'CONS)3180 (LIST3181 'NUMBER3182 ATN-PARSER::|item|)3183 'NUMBER)))3184 (|value.2|3185 (1+ ATN-PARSER::INDEX)))3186 (T3187 (SETF ATN-PARSER:*ATN-TERM?*3188 'NUMBER)3189 NIL)))3190 (ATN-PARSER:%ATN-EDGE-BLOCK3191 (ATN-PARSER::CAT3192 |string_value|)3193 (COND3194 ((|IS-string_value|3195 ATN-PARSER::|item|)3196 (SETF ATN-PARSER:*ATN-TERM*3197 '|string_value|)3198 (SETF |string_value|3199 (IF (EQ3200 ATN-PARSER:*ATN-REDUCE*3201 T)3202 (ATN-PARSER:ATN-REDUCE-ITEM3203 #'|string_value-Constructor|3204 ATN-PARSER::|item|)3205 (IF (EQ3206 ATN-PARSER:*ATN-REDUCE*3207 'CONS)3208 (LIST3209 '|string_value|3210 ATN-PARSER::|item|)3211 '|string_value|)))3212 (|value.2|3213 (1+ ATN-PARSER::INDEX)))3214 (T3215 (SETF ATN-PARSER:*ATN-TERM*3216 '|string_value|)3217 NIL)))3218 (ATN-PARSER:%ATN-EDGE-BLOCK3219 (ATN-PARSER::CAT3220 |boolean_value|)3221 (COND3222 ((|IS-boolean_value|3223 ATN-PARSER::|item|)3224 (SETF ATN-PARSER:*ATN-TERM*3225 '|boolean_value|)3226 (SETF |boolean_value|3227 (IF (EQ3228 ATN-PARSER:*ATN-REDUCE*3229 T)3230 (ATN-PARSER:ATN-REDUCE-ITEM3231 #'|boolean_value-Constructor|3232 ATN-PARSER::|item|)3233 (IF (EQ3234 ATN-PARSER:*ATN-REDUCE*3235 'CONS)3236 (LIST3237 '|boolean_value|3238 ATN-PARSER::|item|)3239 '|boolean_value|)))3240 (|value.2|3241 (1+ ATN-PARSER::INDEX)))3242 (T3243 (SETF ATN-PARSER:*ATN-TERM*3244 '|boolean_value|)3245 NIL)))3246 (ATN-PARSER:%ATN-EDGE-BLOCK3247 (ATN-PARSER::CAT3248 |enum_value|)3249 (COND3250 ((|IS-enum_value|3251 ATN-PARSER::|item|)3252 (SETF ATN-PARSER:*ATN-TERM*3253 '|enum_value|)3254 (SETF |enum_value|3255 (IF (EQ3256 ATN-PARSER:*ATN-REDUCE*3257 T)3258 (ATN-PARSER:ATN-REDUCE-ITEM3259 #'|enum_value-Constructor|3260 ATN-PARSER::|item|)3261 (IF (EQ3262 ATN-PARSER:*ATN-REDUCE*3263 'CONS)3264 (LIST3265 '|enum_value|3266 ATN-PARSER::|item|)3267 '|enum_value|)))3268 (|value.2|3269 (1+ ATN-PARSER::INDEX)))3270 (T3271 (SETF ATN-PARSER:*ATN-TERM*3272 '|enum_value|)3273 NIL)))3274 (ATN-PARSER:%ATN-EDGE-BLOCK3275 (PUSH |list_value|)3276 (MULTIPLE-VALUE-BIND3277 (ATN-PARSER::RESULT3278 ATN-PARSER::RESULT-INDEX3279 ATN-PARSER::SUCCESS)3280 (|list_value|3281 ATN-PARSER::INDEX)3282 (COND3283 (ATN-PARSER::SUCCESS3284 (WHEN ATN-PARSER::RESULT3285 (SETF |list_value|3286 ATN-PARSER::RESULT))3287 (|value.2|3288 ATN-PARSER::RESULT-INDEX))3289 (T3290 (SETF ATN-PARSER:*ATN-TERM?*3291 '|list_value|)3292 NIL))))3293 (ATN-PARSER:%ATN-EDGE-BLOCK3294 (PUSH |object_value|)3295 (MULTIPLE-VALUE-BIND3296 (ATN-PARSER::RESULT3297 ATN-PARSER::RESULT-INDEX3298 ATN-PARSER::SUCCESS)3299 (|object_value|3300 ATN-PARSER::INDEX)3301 (COND3302 (ATN-PARSER::SUCCESS3303 (WHEN ATN-PARSER::RESULT3304 (SETF |object_value|3305 ATN-PARSER::RESULT))3306 (|value.2|3307 ATN-PARSER::RESULT-INDEX))3308 (T3309 (SETF ATN-PARSER:*ATN-TERM?*3310 '|object_value|)3311 NIL))))3312 (|value/fail.3|3313 ATN-PARSER::INDEX))))))3314 (DECLARE3315 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |value.2| |value/fail.3| |value/start.1|))3316 (|value/start.1| ATN-PARSER::INDEX)3317 (SETF ATN-PARSER:*ATN-NODE NIL)3318 NIL3319 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))3320 (WARN "recursive grammar: ~s @ position ~s: ~s" '|value| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3321 (PROGN3322 (DEFVAR |list_value-INDEX|)3323 (DEFUN |list_value| (ATN-PARSER::INDEX &AUX (|value| NIL))3324 "{32} list_value ::= '[' value (','? value)* ','? ']'3325 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|value|)"3326 (DECLARE (SPECIAL |list_value-INDEX|))3327 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |list_value-INDEX| ATN-PARSER:*ATN-LEVEL))3328 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3329 (IF (< |list_value-INDEX| ATN-PARSER::INDEX)3330 (LET ((|list_value-INDEX| ATN-PARSER::INDEX)3331 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3332 (ATN-PARSER:*ATN-STACK (CONS '|list_value| ATN-PARSER:*ATN-STACK)))3333 (DECLARE (SPECIAL |list_value-INDEX|))3334 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3335 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3336 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3337 (ATN-PARSER:%ATN-BLOCK |list_value|3338 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3339 (SETF ATN-PARSER:*ATN-TERM* '|list_value|)3340 (RETURN-FROM |list_value| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))3341 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3342 (RETURN-FROM |list_value| (VALUES NIL ATN-PARSER::INDEX NIL)))3343 (|list_value.2| (ATN-PARSER::INDEX)3344 (ATN-PARSER:%ATN-NODE-BLOCK |list_value.2|3345 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |list_value|)3346 (WHEN T3347 (SETF ATN-PARSER:*ATN-TERM*3348 '|list_value|)3349 (ATN-PARSER:%ATN-TRACE3350 " [***/~a @ ~s reduce structure: ~a"3351 '|list_value|3352 ATN-PARSER::INDEX3353 (LIST '|value| |value|))3354 (LET ((ATN-PARSER::RESULT-STRUCTURE3355 (IF (EQ3356 ATN-PARSER:*ATN-REDUCE*3357 T)3358 (|list_value-Constructor|3359 |value|)3360 (IF (EQ3361 ATN-PARSER:*ATN-REDUCE*3362 'CONS)3363 (CONS3364 '|list_value|3365 (DELETE NIL3366 (LIST3367 |value|)))3368 '|list_value|))))3369 (ATN-PARSER::SUCCEED3370 ATN-PARSER::INDEX3371 ATN-PARSER::RESULT-STRUCTURE))))))3372 (|list_value.8| (ATN-PARSER::INDEX)3373 (ATN-PARSER:%ATN-NODE-BLOCK |list_value.8|3374 (ATN-PARSER:%ATN-EDGE-BLOCK3375 (ATN-PARSER::JUMP |list_value/list_value.8.9|)3376 (|list_value/list_value.8.9| ATN-PARSER::INDEX))3377 (ATN-PARSER:%ATN-EDGE-BLOCK3378 (ATN-PARSER::JUMP |list_value/list_value.2.6|)3379 (|list_value/list_value.2.6| ATN-PARSER::INDEX))))3380 (|list_value/fail.3| (ATN-PARSER::INDEX)3381 (ATN-PARSER:%ATN-NODE-BLOCK |list_value/fail.3|3382 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3383 (|list_value/list_value.2.4| (ATN-PARSER::INDEX)3384 (ATN-PARSER:%ATN-NODE-BLOCK |list_value/list_value.2.4|3385 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |value|)3386 (MULTIPLE-VALUE-BIND3387 (ATN-PARSER::RESULT3388 ATN-PARSER::RESULT-INDEX3389 ATN-PARSER::SUCCESS)3390 (|value|3391 ATN-PARSER::INDEX)3392 (COND3393 (ATN-PARSER::SUCCESS3394 (WHEN ATN-PARSER::RESULT3395 (SETF |value|3396 (CONS3397 ATN-PARSER::RESULT3398 |value|)))3399 (|list_value/list_value.2.5|3400 ATN-PARSER::RESULT-INDEX))3401 (T3402 (SETF ATN-PARSER:*ATN-TERM?*3403 '|value|)3404 (|list_value/fail.3|3405 ATN-PARSER::INDEX)))))))3406 (|list_value/list_value.2.5| (ATN-PARSER::INDEX)3407 (ATN-PARSER:%ATN-NODE-BLOCK |list_value/list_value.2.5|3408 (ATN-PARSER:%ATN-EDGE-BLOCK3409 (ATN-PARSER::JUMP |list_value/list_value.8.9|)3410 (|list_value/list_value.8.9| ATN-PARSER::INDEX))3411 (ATN-PARSER:%ATN-EDGE-BLOCK3412 (ATN-PARSER::JUMP |list_value/list_value.2.6|)3413 (|list_value/list_value.2.6| ATN-PARSER::INDEX))))3414 (|list_value/list_value.2.6| (ATN-PARSER::INDEX)3415 (ATN-PARSER:%ATN-NODE-BLOCK |list_value/list_value.2.6|3416 (ATN-PARSER:%ATN-EDGE-BLOCK3417 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3418 (COND3419 ((EQ ATN-PARSER::|item|3420 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3421 (SETF ATN-PARSER:*ATN-TERM*3422 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3423 (|list_value/list_value.2.7| (1+ ATN-PARSER::INDEX)))3424 (T3425 (SETF ATN-PARSER:*ATN-TERM?*3426 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3427 (|list_value/list_value.2.7| ATN-PARSER::INDEX))))))3428 (|list_value/list_value.2.7| (ATN-PARSER::INDEX)3429 (ATN-PARSER:%ATN-NODE-BLOCK |list_value/list_value.2.7|3430 (ATN-PARSER:%ATN-EDGE-BLOCK3431 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::])3432 (COND3433 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::])3434 (SETF ATN-PARSER:*ATN-TERM*3435 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::])3436 (|list_value.2| (1+ ATN-PARSER::INDEX)))3437 (T3438 (SETF ATN-PARSER:*ATN-TERM?*3439 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::])3440 (|list_value/fail.3| ATN-PARSER::INDEX))))))3441 (|list_value/list_value.8.10| (ATN-PARSER::INDEX)3442 (ATN-PARSER:%ATN-NODE-BLOCK |list_value/list_value.8.10|3443 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |value|)3444 (MULTIPLE-VALUE-BIND3445 (ATN-PARSER::RESULT3446 ATN-PARSER::RESULT-INDEX3447 ATN-PARSER::SUCCESS)3448 (|value|3449 ATN-PARSER::INDEX)3450 (COND3451 (ATN-PARSER::SUCCESS3452 (WHEN ATN-PARSER::RESULT3453 (SETF |value|3454 (CONS3455 ATN-PARSER::RESULT3456 |value|)))3457 (|list_value.8|3458 ATN-PARSER::RESULT-INDEX))3459 (T3460 (SETF ATN-PARSER:*ATN-TERM?*3461 '|value|)3462 NIL))))))3463 (|list_value/list_value.8.9| (ATN-PARSER::INDEX)3464 (ATN-PARSER:%ATN-NODE-BLOCK |list_value/list_value.8.9|3465 (ATN-PARSER:%ATN-EDGE-BLOCK3466 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3467 (COND3468 ((EQ ATN-PARSER::|item|3469 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3470 (SETF ATN-PARSER:*ATN-TERM*3471 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3472 (|list_value/list_value.8.10| (1+ ATN-PARSER::INDEX)))3473 (T3474 (SETF ATN-PARSER:*ATN-TERM?*3475 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3476 (|list_value/list_value.8.10| ATN-PARSER::INDEX))))))3477 (|list_value/start.1| (ATN-PARSER::INDEX)3478 (ATN-PARSER:%ATN-NODE-BLOCK |list_value/start.1|3479 (ATN-PARSER:%ATN-EDGE-BLOCK3480 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::[)3481 (COND3482 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::[)3483 (SETF ATN-PARSER:*ATN-TERM*3484 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::[)3485 (|list_value/list_value.2.4| (1+ ATN-PARSER::INDEX)))3486 (T3487 (SETF ATN-PARSER:*ATN-TERM?*3488 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::[)3489 (|list_value/fail.3| ATN-PARSER::INDEX)))))))3490 (DECLARE3491 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |list_value.2| |list_value.8| |list_value/fail.3|3492 |list_value/list_value.2.4| |list_value/list_value.2.5| |list_value/list_value.2.6|3493 |list_value/list_value.2.7| |list_value/list_value.8.10| |list_value/list_value.8.9|3494 |list_value/start.1|))3495 (|list_value/start.1| ATN-PARSER::INDEX)3496 (SETF ATN-PARSER:*ATN-NODE NIL)3497 NIL3498 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))3499 (WARN "recursive grammar: ~s @ position ~s: ~s" '|list_value| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3500 (PROGN3501 (DEFVAR |object_value-INDEX|)3502 (DEFUN |object_value| (ATN-PARSER::INDEX &AUX (|object_field| NIL))3503 "{33} object_value ::= '{' object_field* '}'3504 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|object_field|)"3505 (DECLARE (SPECIAL |object_value-INDEX|))3506 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |object_value-INDEX| ATN-PARSER:*ATN-LEVEL))3507 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3508 (IF (< |object_value-INDEX| ATN-PARSER::INDEX)3509 (LET ((|object_value-INDEX| ATN-PARSER::INDEX)3510 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3511 (ATN-PARSER:*ATN-STACK (CONS '|object_value| ATN-PARSER:*ATN-STACK)))3512 (DECLARE (SPECIAL |object_value-INDEX|))3513 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3514 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3515 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3516 (ATN-PARSER:%ATN-BLOCK |object_value|3517 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3518 (SETF ATN-PARSER:*ATN-TERM* '|object_value|)3519 (RETURN-FROM |object_value| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))3520 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3521 (RETURN-FROM |object_value| (VALUES NIL ATN-PARSER::INDEX NIL)))3522 (|object_value.2| (ATN-PARSER::INDEX)3523 (ATN-PARSER:%ATN-NODE-BLOCK |object_value.2|3524 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |object_value|)3525 (WHEN T3526 (SETF ATN-PARSER:*ATN-TERM*3527 '|object_value|)3528 (ATN-PARSER:%ATN-TRACE3529 " [***/~a @ ~s reduce structure: ~a"3530 '|object_value|3531 ATN-PARSER::INDEX3532 (LIST '|object_field|3533 |object_field|))3534 (LET ((ATN-PARSER::RESULT-STRUCTURE3535 (IF (EQ3536 ATN-PARSER:*ATN-REDUCE*3537 T)3538 (|object_value-Constructor|3539 |object_field|)3540 (IF (EQ3541 ATN-PARSER:*ATN-REDUCE*3542 'CONS)3543 (CONS3544 '|object_value|3545 (DELETE NIL3546 (LIST3547 |object_field|)))3548 '|object_value|))))3549 (ATN-PARSER::SUCCEED3550 ATN-PARSER::INDEX3551 ATN-PARSER::RESULT-STRUCTURE))))))3552 (|object_value.6| (ATN-PARSER::INDEX)3553 (ATN-PARSER:%ATN-NODE-BLOCK |object_value.6|3554 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |object_field|)3555 (MULTIPLE-VALUE-BIND3556 (ATN-PARSER::RESULT3557 ATN-PARSER::RESULT-INDEX3558 ATN-PARSER::SUCCESS)3559 (|object_field|3560 ATN-PARSER::INDEX)3561 (COND3562 (ATN-PARSER::SUCCESS3563 (WHEN ATN-PARSER::RESULT3564 (SETF |object_field|3565 (CONS3566 ATN-PARSER::RESULT3567 |object_field|)))3568 (|object_value.6|3569 ATN-PARSER::RESULT-INDEX))3570 (T3571 (SETF ATN-PARSER:*ATN-TERM?*3572 '|object_field|)3573 (|object_value/object_value.2.5|3574 ATN-PARSER::INDEX)))))))3575 (|object_value/fail.3| (ATN-PARSER::INDEX)3576 (ATN-PARSER:%ATN-NODE-BLOCK |object_value/fail.3|3577 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3578 (|object_value/object_value.2.4| (ATN-PARSER::INDEX)3579 (ATN-PARSER:%ATN-NODE-BLOCK |object_value/object_value.2.4|3580 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |object_field|)3581 (MULTIPLE-VALUE-BIND3582 (ATN-PARSER::RESULT3583 ATN-PARSER::RESULT-INDEX3584 ATN-PARSER::SUCCESS)3585 (|object_field|3586 ATN-PARSER::INDEX)3587 (COND3588 (ATN-PARSER::SUCCESS3589 (WHEN ATN-PARSER::RESULT3590 (SETF |object_field|3591 (CONS3592 ATN-PARSER::RESULT3593 |object_field|)))3594 (|object_value.6|3595 ATN-PARSER::RESULT-INDEX))3596 (T3597 (SETF ATN-PARSER:*ATN-TERM?*3598 '|object_field|)3599 (|object_value/object_value.2.5|3600 ATN-PARSER::INDEX)))))))3601 (|object_value/object_value.2.5| (ATN-PARSER::INDEX)3602 (ATN-PARSER:%ATN-NODE-BLOCK |object_value/object_value.2.5|3603 (ATN-PARSER:%ATN-EDGE-BLOCK3604 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::})3605 (COND3606 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::})3607 (SETF ATN-PARSER:*ATN-TERM*3608 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::})3609 (|object_value.2| (1+ ATN-PARSER::INDEX)))3610 (T3611 (SETF ATN-PARSER:*ATN-TERM?*3612 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::})3613 (|object_value/fail.3| ATN-PARSER::INDEX))))))3614 (|object_value/start.1| (ATN-PARSER::INDEX)3615 (ATN-PARSER:%ATN-NODE-BLOCK |object_value/start.1|3616 (ATN-PARSER:%ATN-EDGE-BLOCK3617 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::{)3618 (COND3619 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::{)3620 (SETF ATN-PARSER:*ATN-TERM*3621 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::{)3622 (|object_value/object_value.2.4|3623 (1+ ATN-PARSER::INDEX)))3624 (T3625 (SETF ATN-PARSER:*ATN-TERM?*3626 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::{)3627 (|object_value/fail.3| ATN-PARSER::INDEX)))))))3628 (DECLARE3629 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |object_value.2| |object_value.6|3630 |object_value/fail.3| |object_value/object_value.2.4| |object_value/object_value.2.5|3631 |object_value/start.1|))3632 (|object_value/start.1| ATN-PARSER::INDEX)3633 (SETF ATN-PARSER:*ATN-NODE NIL)3634 NIL3635 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))3636 (WARN "recursive grammar: ~s @ position ~s: ~s" '|object_value| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3637 (PROGN3638 (DEFVAR |object_field-INDEX|)3639 (DEFUN |object_field| (ATN-PARSER::INDEX &AUX (|field_name| NIL) (|value| NIL))3640 "{34} object_field ::= field_name ':' value3641 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|field_name|3642 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|value|)"3643 (DECLARE (SPECIAL |object_field-INDEX|))3644 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |object_field-INDEX| ATN-PARSER:*ATN-LEVEL))3645 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3646 (IF (< |object_field-INDEX| ATN-PARSER::INDEX)3647 (LET ((|object_field-INDEX| ATN-PARSER::INDEX)3648 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3649 (ATN-PARSER:*ATN-STACK (CONS '|object_field| ATN-PARSER:*ATN-STACK)))3650 (DECLARE (SPECIAL |object_field-INDEX|))3651 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3652 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3653 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3654 (ATN-PARSER:%ATN-BLOCK |object_field|3655 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3656 (SETF ATN-PARSER:*ATN-TERM* '|object_field|)3657 (RETURN-FROM |object_field| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))3658 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3659 (RETURN-FROM |object_field| (VALUES NIL ATN-PARSER::INDEX NIL)))3660 (|object_field.2| (ATN-PARSER::INDEX)3661 (ATN-PARSER:%ATN-NODE-BLOCK |object_field.2|3662 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |object_field|)3663 (WHEN T3664 (SETF ATN-PARSER:*ATN-TERM*3665 '|object_field|)3666 (ATN-PARSER:%ATN-TRACE3667 " [***/~a @ ~s reduce structure: ~a"3668 '|object_field|3669 ATN-PARSER::INDEX3670 (LIST '|field_name|3671 |field_name| '|value|3672 |value|))3673 (LET ((ATN-PARSER::RESULT-STRUCTURE3674 (IF (EQ3675 ATN-PARSER:*ATN-REDUCE*3676 T)3677 (|object_field-Constructor|3678 |field_name|3679 |value|)3680 (IF (EQ3681 ATN-PARSER:*ATN-REDUCE*3682 'CONS)3683 (CONS3684 '|object_field|3685 (DELETE NIL3686 (LIST3687 |field_name|3688 |value|)))3689 '|object_field|))))3690 (ATN-PARSER::SUCCEED3691 ATN-PARSER::INDEX3692 ATN-PARSER::RESULT-STRUCTURE))))))3693 (|object_field/fail.3| (ATN-PARSER::INDEX)3694 (ATN-PARSER:%ATN-NODE-BLOCK |object_field/fail.3|3695 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3696 (|object_field/object_field.2.4| (ATN-PARSER::INDEX)3697 (ATN-PARSER:%ATN-NODE-BLOCK |object_field/object_field.2.4|3698 (ATN-PARSER:%ATN-EDGE-BLOCK3699 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)3700 (COND3701 ((EQ ATN-PARSER::|item|3702 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)3703 (SETF ATN-PARSER:*ATN-TERM*3704 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)3705 (|object_field/object_field.2.5|3706 (1+ ATN-PARSER::INDEX)))3707 (T3708 (SETF ATN-PARSER:*ATN-TERM?*3709 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)3710 (|object_field/fail.3| ATN-PARSER::INDEX))))))3711 (|object_field/object_field.2.5| (ATN-PARSER::INDEX)3712 (ATN-PARSER:%ATN-NODE-BLOCK |object_field/object_field.2.5|3713 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |value|)3714 (MULTIPLE-VALUE-BIND3715 (ATN-PARSER::RESULT3716 ATN-PARSER::RESULT-INDEX3717 ATN-PARSER::SUCCESS)3718 (|value|3719 ATN-PARSER::INDEX)3720 (COND3721 (ATN-PARSER::SUCCESS3722 (WHEN ATN-PARSER::RESULT3723 (SETF |value|3724 ATN-PARSER::RESULT))3725 (|object_field.2|3726 ATN-PARSER::RESULT-INDEX))3727 (T3728 (SETF ATN-PARSER:*ATN-TERM?*3729 '|value|)3730 (|object_field/fail.3|3731 ATN-PARSER::INDEX)))))))3732 (|object_field/start.1| (ATN-PARSER::INDEX)3733 (ATN-PARSER:%ATN-NODE-BLOCK |object_field/start.1|3734 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::CAT |field_name|)3735 (COND3736 ((|IS-field_name|3737 ATN-PARSER::|item|)3738 (SETF ATN-PARSER:*ATN-TERM*3739 '|field_name|)3740 (SETF |field_name|3741 (IF (EQ3742 ATN-PARSER:*ATN-REDUCE*3743 T)3744 (ATN-PARSER:ATN-REDUCE-ITEM3745 #'|field_name-Constructor|3746 ATN-PARSER::|item|)3747 (IF (EQ3748 ATN-PARSER:*ATN-REDUCE*3749 'CONS)3750 (LIST3751 '|field_name|3752 ATN-PARSER::|item|)3753 '|field_name|)))3754 (|object_field/object_field.2.4|3755 (1+ ATN-PARSER::INDEX)))3756 (T3757 (SETF ATN-PARSER:*ATN-TERM*3758 '|field_name|)3759 (|object_field/fail.3|3760 ATN-PARSER::INDEX)))))))3761 (DECLARE3762 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |object_field.2| |object_field/fail.3|3763 |object_field/object_field.2.4| |object_field/object_field.2.5| |object_field/start.1|))3764 (|object_field/start.1| ATN-PARSER::INDEX)3765 (SETF ATN-PARSER:*ATN-NODE NIL)3766 NIL3767 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))3768 (WARN "recursive grammar: ~s @ position ~s: ~s" '|object_field| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3769 (PROGN3770 (DEFVAR |variable_definitions-INDEX|)3771 (DEFUN |variable_definitions| (ATN-PARSER::INDEX &AUX (|variable_definition| NIL))3772 "{35} variable_definitions ::= '(' variable_definition (','? variable_definition)* ','? ')'3773 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|variable_definition|)"3774 (DECLARE (SPECIAL |variable_definitions-INDEX|))3775 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |variable_definitions-INDEX| ATN-PARSER:*ATN-LEVEL))3776 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3777 (IF (< |variable_definitions-INDEX| ATN-PARSER::INDEX)3778 (LET ((|variable_definitions-INDEX| ATN-PARSER::INDEX)3779 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3780 (ATN-PARSER:*ATN-STACK (CONS '|variable_definitions| ATN-PARSER:*ATN-STACK)))3781 (DECLARE (SPECIAL |variable_definitions-INDEX|))3782 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3783 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3784 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3785 (ATN-PARSER:%ATN-BLOCK |variable_definitions|3786 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3787 (SETF ATN-PARSER:*ATN-TERM* '|variable_definitions|)3788 (RETURN-FROM |variable_definitions| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))3789 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3790 (RETURN-FROM |variable_definitions| (VALUES NIL ATN-PARSER::INDEX NIL)))3791 (|variable_definitions.2| (ATN-PARSER::INDEX)3792 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definitions.2|3793 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |variable_definitions|)3794 (WHEN T3795 (SETF ATN-PARSER:*ATN-TERM*3796 '|variable_definitions|)3797 (ATN-PARSER:%ATN-TRACE3798 " [***/~a @ ~s reduce structure: ~a"3799 '|variable_definitions|3800 ATN-PARSER::INDEX3801 (LIST3802 '|variable_definition|3803 |variable_definition|))3804 (LET ((ATN-PARSER::RESULT-STRUCTURE3805 (IF (EQ3806 ATN-PARSER:*ATN-REDUCE*3807 T)3808 (|variable_definitions-Constructor|3809 |variable_definition|)3810 (IF (EQ3811 ATN-PARSER:*ATN-REDUCE*3812 'CONS)3813 (CONS3814 '|variable_definitions|3815 (DELETE NIL3816 (LIST3817 |variable_definition|)))3818 '|variable_definitions|))))3819 (ATN-PARSER::SUCCEED3820 ATN-PARSER::INDEX3821 ATN-PARSER::RESULT-STRUCTURE))))))3822 (|variable_definitions.8| (ATN-PARSER::INDEX)3823 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definitions.8|3824 (ATN-PARSER:%ATN-EDGE-BLOCK3825 (ATN-PARSER::JUMP3826 |variable_definitions/variable_definitions.8.9|)3827 (|variable_definitions/variable_definitions.8.9|3828 ATN-PARSER::INDEX))3829 (ATN-PARSER:%ATN-EDGE-BLOCK3830 (ATN-PARSER::JUMP3831 |variable_definitions/variable_definitions.2.6|)3832 (|variable_definitions/variable_definitions.2.6|3833 ATN-PARSER::INDEX))))3834 (|variable_definitions/fail.3| (ATN-PARSER::INDEX)3835 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definitions/fail.3|3836 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3837 (|variable_definitions/start.1| (ATN-PARSER::INDEX)3838 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definitions/start.1|3839 (ATN-PARSER:%ATN-EDGE-BLOCK3840 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|(|)3841 (COND3842 ((EQ ATN-PARSER::|item|3843 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|(|)3844 (SETF ATN-PARSER:*ATN-TERM*3845 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|(|)3846 (|variable_definitions/variable_definitions.2.4|3847 (1+ ATN-PARSER::INDEX)))3848 (T3849 (SETF ATN-PARSER:*ATN-TERM?*3850 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|(|)3851 (|variable_definitions/fail.3| ATN-PARSER::INDEX))))))3852 (|variable_definitions/variable_definitions.2.4| (ATN-PARSER::INDEX)3853 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definitions/variable_definitions.2.4|3854 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |variable_definition|)3855 (MULTIPLE-VALUE-BIND3856 (ATN-PARSER::RESULT3857 ATN-PARSER::RESULT-INDEX3858 ATN-PARSER::SUCCESS)3859 (|variable_definition|3860 ATN-PARSER::INDEX)3861 (COND3862 (ATN-PARSER::SUCCESS3863 (WHEN ATN-PARSER::RESULT3864 (SETF |variable_definition|3865 (CONS3866 ATN-PARSER::RESULT3867 |variable_definition|)))3868 (|variable_definitions/variable_definitions.2.5|3869 ATN-PARSER::RESULT-INDEX))3870 (T3871 (SETF ATN-PARSER:*ATN-TERM?*3872 '|variable_definition|)3873 (|variable_definitions/fail.3|3874 ATN-PARSER::INDEX)))))))3875 (|variable_definitions/variable_definitions.2.5| (ATN-PARSER::INDEX)3876 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definitions/variable_definitions.2.5|3877 (ATN-PARSER:%ATN-EDGE-BLOCK3878 (ATN-PARSER::JUMP3879 |variable_definitions/variable_definitions.8.9|)3880 (|variable_definitions/variable_definitions.8.9|3881 ATN-PARSER::INDEX))3882 (ATN-PARSER:%ATN-EDGE-BLOCK3883 (ATN-PARSER::JUMP3884 |variable_definitions/variable_definitions.2.6|)3885 (|variable_definitions/variable_definitions.2.6|3886 ATN-PARSER::INDEX))))3887 (|variable_definitions/variable_definitions.2.6| (ATN-PARSER::INDEX)3888 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definitions/variable_definitions.2.6|3889 (ATN-PARSER:%ATN-EDGE-BLOCK3890 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3891 (COND3892 ((EQ ATN-PARSER::|item|3893 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3894 (SETF ATN-PARSER:*ATN-TERM*3895 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3896 (|variable_definitions/variable_definitions.2.7|3897 (1+ ATN-PARSER::INDEX)))3898 (T3899 (SETF ATN-PARSER:*ATN-TERM?*3900 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3901 (|variable_definitions/variable_definitions.2.7|3902 ATN-PARSER::INDEX))))))3903 (|variable_definitions/variable_definitions.2.7| (ATN-PARSER::INDEX)3904 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definitions/variable_definitions.2.7|3905 (ATN-PARSER:%ATN-EDGE-BLOCK3906 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|)|)3907 (COND3908 ((EQ ATN-PARSER::|item|3909 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|)|)3910 (SETF ATN-PARSER:*ATN-TERM*3911 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|)|)3912 (|variable_definitions.2| (1+ ATN-PARSER::INDEX)))3913 (T3914 (SETF ATN-PARSER:*ATN-TERM?*3915 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|)|)3916 (|variable_definitions/fail.3| ATN-PARSER::INDEX))))))3917 (|variable_definitions/variable_definitions.8.10| (ATN-PARSER::INDEX)3918 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definitions/variable_definitions.8.10|3919 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |variable_definition|)3920 (MULTIPLE-VALUE-BIND3921 (ATN-PARSER::RESULT3922 ATN-PARSER::RESULT-INDEX3923 ATN-PARSER::SUCCESS)3924 (|variable_definition|3925 ATN-PARSER::INDEX)3926 (COND3927 (ATN-PARSER::SUCCESS3928 (WHEN ATN-PARSER::RESULT3929 (SETF |variable_definition|3930 (CONS3931 ATN-PARSER::RESULT3932 |variable_definition|)))3933 (|variable_definitions.8|3934 ATN-PARSER::RESULT-INDEX))3935 (T3936 (SETF ATN-PARSER:*ATN-TERM?*3937 '|variable_definition|)3938 NIL))))))3939 (|variable_definitions/variable_definitions.8.9| (ATN-PARSER::INDEX)3940 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definitions/variable_definitions.8.9|3941 (ATN-PARSER:%ATN-EDGE-BLOCK3942 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3943 (COND3944 ((EQ ATN-PARSER::|item|3945 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3946 (SETF ATN-PARSER:*ATN-TERM*3947 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3948 (|variable_definitions/variable_definitions.8.10|3949 (1+ ATN-PARSER::INDEX)))3950 (T3951 (SETF ATN-PARSER:*ATN-TERM?*3952 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|,|)3953 (|variable_definitions/variable_definitions.8.10|3954 ATN-PARSER::INDEX)))))))3955 (DECLARE3956 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |variable_definitions.2| |variable_definitions.8|3957 |variable_definitions/fail.3| |variable_definitions/start.1|3958 |variable_definitions/variable_definitions.2.4|3959 |variable_definitions/variable_definitions.2.5|3960 |variable_definitions/variable_definitions.2.6|3961 |variable_definitions/variable_definitions.2.7|3962 |variable_definitions/variable_definitions.8.10|3963 |variable_definitions/variable_definitions.8.9|))3964 (|variable_definitions/start.1| ATN-PARSER::INDEX)3965 (SETF ATN-PARSER:*ATN-NODE NIL)3966 NIL3967 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))3968 (WARN "recursive grammar: ~s @ position ~s: ~s" '|variable_definitions| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))3969 (PROGN3970 (DEFVAR |variable_definition-INDEX|)3971 (DEFUN |variable_definition| (ATN-PARSER::INDEX &AUX (|default_value| NIL) (|type_ref| NIL) (|variable| NIL))3972 "{36} variable_definition ::= variable ':' type_ref default_value?3973 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|default_value|3974 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|type_ref|3975 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|variable|)"3976 (DECLARE (SPECIAL |variable_definition-INDEX|))3977 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |variable_definition-INDEX| ATN-PARSER:*ATN-LEVEL))3978 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3979 (IF (< |variable_definition-INDEX| ATN-PARSER::INDEX)3980 (LET ((|variable_definition-INDEX| ATN-PARSER::INDEX)3981 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))3982 (ATN-PARSER:*ATN-STACK (CONS '|variable_definition| ATN-PARSER:*ATN-STACK)))3983 (DECLARE (SPECIAL |variable_definition-INDEX|))3984 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))3985 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))3986 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3987 (ATN-PARSER:%ATN-BLOCK |variable_definition|3988 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3989 (SETF ATN-PARSER:*ATN-TERM* '|variable_definition|)3990 (RETURN-FROM |variable_definition| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))3991 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)3992 (RETURN-FROM |variable_definition| (VALUES NIL ATN-PARSER::INDEX NIL)))3993 (|variable_definition.2| (ATN-PARSER::INDEX)3994 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definition.2|3995 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |variable_definition|)3996 (WHEN T3997 (SETF ATN-PARSER:*ATN-TERM*3998 '|variable_definition|)3999 (ATN-PARSER:%ATN-TRACE4000 " [***/~a @ ~s reduce structure: ~a"4001 '|variable_definition|4002 ATN-PARSER::INDEX4003 (LIST '|default_value|4004 |default_value|4005 '|type_ref|4006 |type_ref|4007 '|variable|4008 |variable|))4009 (LET ((ATN-PARSER::RESULT-STRUCTURE4010 (IF (EQ4011 ATN-PARSER:*ATN-REDUCE*4012 T)4013 (|variable_definition-Constructor|4014 |default_value|4015 |type_ref|4016 |variable|)4017 (IF (EQ4018 ATN-PARSER:*ATN-REDUCE*4019 'CONS)4020 (CONS4021 '|variable_definition|4022 (DELETE NIL4023 (LIST4024 |default_value|4025 |type_ref|4026 |variable|)))4027 '|variable_definition|))))4028 (ATN-PARSER::SUCCEED4029 ATN-PARSER::INDEX4030 ATN-PARSER::RESULT-STRUCTURE))))))4031 (|variable_definition/fail.3| (ATN-PARSER::INDEX)4032 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definition/fail.3|4033 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4034 (|variable_definition/start.1| (ATN-PARSER::INDEX)4035 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definition/start.1|4036 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |variable|)4037 (MULTIPLE-VALUE-BIND4038 (ATN-PARSER::RESULT4039 ATN-PARSER::RESULT-INDEX4040 ATN-PARSER::SUCCESS)4041 (|variable|4042 ATN-PARSER::INDEX)4043 (COND4044 (ATN-PARSER::SUCCESS4045 (WHEN ATN-PARSER::RESULT4046 (SETF |variable|4047 ATN-PARSER::RESULT))4048 (|variable_definition/variable_definition.2.4|4049 ATN-PARSER::RESULT-INDEX))4050 (T4051 (SETF ATN-PARSER:*ATN-TERM?*4052 '|variable|)4053 (|variable_definition/fail.3|4054 ATN-PARSER::INDEX)))))))4055 (|variable_definition/variable_definition.2.4| (ATN-PARSER::INDEX)4056 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definition/variable_definition.2.4|4057 (ATN-PARSER:%ATN-EDGE-BLOCK4058 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)4059 (COND4060 ((EQ ATN-PARSER::|item|4061 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)4062 (SETF ATN-PARSER:*ATN-TERM*4063 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)4064 (|variable_definition/variable_definition.2.5|4065 (1+ ATN-PARSER::INDEX)))4066 (T4067 (SETF ATN-PARSER:*ATN-TERM?*4068 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::|:|)4069 (|variable_definition/fail.3| ATN-PARSER::INDEX))))))4070 (|variable_definition/variable_definition.2.5| (ATN-PARSER::INDEX)4071 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definition/variable_definition.2.5|4072 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |type_ref|)4073 (MULTIPLE-VALUE-BIND4074 (ATN-PARSER::RESULT4075 ATN-PARSER::RESULT-INDEX4076 ATN-PARSER::SUCCESS)4077 (|type_ref|4078 ATN-PARSER::INDEX)4079 (COND4080 (ATN-PARSER::SUCCESS4081 (WHEN ATN-PARSER::RESULT4082 (SETF |type_ref|4083 ATN-PARSER::RESULT))4084 (|variable_definition/variable_definition.2.6|4085 ATN-PARSER::RESULT-INDEX))4086 (T4087 (SETF ATN-PARSER:*ATN-TERM?*4088 '|type_ref|)4089 (|variable_definition/fail.3|4090 ATN-PARSER::INDEX)))))))4091 (|variable_definition/variable_definition.2.6| (ATN-PARSER::INDEX)4092 (ATN-PARSER:%ATN-NODE-BLOCK |variable_definition/variable_definition.2.6|4093 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |default_value|)4094 (MULTIPLE-VALUE-BIND4095 (ATN-PARSER::RESULT4096 ATN-PARSER::RESULT-INDEX4097 ATN-PARSER::SUCCESS)4098 (|default_value|4099 ATN-PARSER::INDEX)4100 (COND4101 (ATN-PARSER::SUCCESS4102 (WHEN ATN-PARSER::RESULT4103 (SETF |default_value|4104 ATN-PARSER::RESULT))4105 (|variable_definition.2|4106 ATN-PARSER::RESULT-INDEX))4107 (T4108 (SETF ATN-PARSER:*ATN-TERM?*4109 '|default_value|)4110 (|variable_definition.2|4111 ATN-PARSER::INDEX))))))))4112 (DECLARE4113 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |variable_definition.2|4114 |variable_definition/fail.3| |variable_definition/start.1|4115 |variable_definition/variable_definition.2.4| |variable_definition/variable_definition.2.5|4116 |variable_definition/variable_definition.2.6|))4117 (|variable_definition/start.1| ATN-PARSER::INDEX)4118 (SETF ATN-PARSER:*ATN-NODE NIL)4119 NIL4120 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))4121 (WARN "recursive grammar: ~s @ position ~s: ~s" '|variable_definition| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))4122 (PROGN4123 (DEFVAR |variable-INDEX|)4124 (DEFUN |variable| (ATN-PARSER::INDEX &AUX (|var_name| NIL))4125 "{37} variable ::= '$' var_name4126 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|var_name|)"4127 (DECLARE (SPECIAL |variable-INDEX|))4128 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |variable-INDEX| ATN-PARSER:*ATN-LEVEL))4129 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4130 (IF (< |variable-INDEX| ATN-PARSER::INDEX)4131 (LET ((|variable-INDEX| ATN-PARSER::INDEX)4132 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))4133 (ATN-PARSER:*ATN-STACK (CONS '|variable| ATN-PARSER:*ATN-STACK)))4134 (DECLARE (SPECIAL |variable-INDEX|))4135 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))4136 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))4137 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4138 (ATN-PARSER:%ATN-BLOCK |variable|4139 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4140 (SETF ATN-PARSER:*ATN-TERM* '|variable|)4141 (RETURN-FROM |variable| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))4142 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)4143 (RETURN-FROM |variable| (VALUES NIL ATN-PARSER::INDEX NIL)))4144 (|variable.2| (ATN-PARSER::INDEX)4145 (ATN-PARSER:%ATN-NODE-BLOCK |variable.2|4146 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |variable|)4147 (WHEN T4148 (SETF ATN-PARSER:*ATN-TERM*4149 '|variable|)4150 (ATN-PARSER:%ATN-TRACE4151 " [***/~a @ ~s reduce structure: ~a"4152 '|variable|4153 ATN-PARSER::INDEX4154 (LIST '|var_name|4155 |var_name|))4156 (LET ((ATN-PARSER::RESULT-STRUCTURE4157 (IF (EQ4158 ATN-PARSER:*ATN-REDUCE*4159 T)4160 (|variable-Constructor|4161 |var_name|)4162 (IF (EQ4163 ATN-PARSER:*ATN-REDUCE*4164 'CONS)4165 (CONS4166 '|variable|4167 (DELETE NIL4168 (LIST4169 |var_name|)))4170 '|variable|))))4171 (ATN-PARSER::SUCCEED4172 ATN-PARSER::INDEX4173 ATN-PARSER::RESULT-STRUCTURE))))))4174 (|variable/fail.3| (ATN-PARSER::INDEX)4175 (ATN-PARSER:%ATN-NODE-BLOCK |variable/fail.3|4176 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4177 (|variable/start.1| (ATN-PARSER::INDEX)4178 (ATN-PARSER:%ATN-NODE-BLOCK |variable/start.1|4179 (ATN-PARSER:%ATN-EDGE-BLOCK4180 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::$)4181 (COND4182 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::$)4183 (SETF ATN-PARSER:*ATN-TERM*4184 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::$)4185 (|variable/variable.2.4| (1+ ATN-PARSER::INDEX)))4186 (T4187 (SETF ATN-PARSER:*ATN-TERM?*4188 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::$)4189 (|variable/fail.3| ATN-PARSER::INDEX))))))4190 (|variable/variable.2.4| (ATN-PARSER::INDEX)4191 (ATN-PARSER:%ATN-NODE-BLOCK |variable/variable.2.4|4192 (ATN-PARSER:%ATN-EDGE-BLOCK (ATN-PARSER::CAT |var_name|)4193 (COND4194 ((|IS-var_name|4195 ATN-PARSER::|item|)4196 (SETF ATN-PARSER:*ATN-TERM*4197 '|var_name|)4198 (SETF |var_name|4199 (IF (EQ4200 ATN-PARSER:*ATN-REDUCE*4201 T)4202 (ATN-PARSER:ATN-REDUCE-ITEM4203 #'|var_name-Constructor|4204 ATN-PARSER::|item|)4205 (IF (EQ4206 ATN-PARSER:*ATN-REDUCE*4207 'CONS)4208 (LIST4209 '|var_name|4210 ATN-PARSER::|item|)4211 '|var_name|)))4212 (|variable.2|4213 (1+ ATN-PARSER::INDEX)))4214 (T4215 (SETF ATN-PARSER:*ATN-TERM*4216 '|var_name|)4217 (|variable/fail.3|4218 ATN-PARSER::INDEX)))))))4219 (DECLARE4220 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |variable.2| |variable/fail.3| |variable/start.1|4221 |variable/variable.2.4|))4222 (|variable/start.1| ATN-PARSER::INDEX)4223 (SETF ATN-PARSER:*ATN-NODE NIL)4224 NIL4225 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))4226 (WARN "recursive grammar: ~s @ position ~s: ~s" '|variable| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))4227 (PROGN4228 (DEFVAR |default_value-INDEX|)4229 (DEFUN |default_value| (ATN-PARSER::INDEX &AUX (|value| NIL))4230 "{39} default_value ::= '=' value4231 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|value|)"4232 (DECLARE (SPECIAL |default_value-INDEX|))4233 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |default_value-INDEX| ATN-PARSER:*ATN-LEVEL))4234 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4235 (IF (< |default_value-INDEX| ATN-PARSER::INDEX)4236 (LET ((|default_value-INDEX| ATN-PARSER::INDEX)4237 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))4238 (ATN-PARSER:*ATN-STACK (CONS '|default_value| ATN-PARSER:*ATN-STACK)))4239 (DECLARE (SPECIAL |default_value-INDEX|))4240 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))4241 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))4242 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4243 (ATN-PARSER:%ATN-BLOCK |default_value|4244 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4245 (SETF ATN-PARSER:*ATN-TERM* '|default_value|)4246 (RETURN-FROM |default_value| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))4247 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)4248 (RETURN-FROM |default_value| (VALUES NIL ATN-PARSER::INDEX NIL)))4249 (|default_value.2| (ATN-PARSER::INDEX)4250 (ATN-PARSER:%ATN-NODE-BLOCK |default_value.2|4251 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |default_value|)4252 (WHEN T4253 (SETF ATN-PARSER:*ATN-TERM*4254 '|default_value|)4255 (ATN-PARSER:%ATN-TRACE4256 " [***/~a @ ~s reduce structure: ~a"4257 '|default_value|4258 ATN-PARSER::INDEX4259 (LIST '|value| |value|))4260 (LET ((ATN-PARSER::RESULT-STRUCTURE4261 (IF (EQ4262 ATN-PARSER:*ATN-REDUCE*4263 T)4264 (|default_value-Constructor|4265 |value|)4266 (IF (EQ4267 ATN-PARSER:*ATN-REDUCE*4268 'CONS)4269 (CONS4270 '|default_value|4271 (DELETE NIL4272 (LIST4273 |value|)))4274 '|default_value|))))4275 (ATN-PARSER::SUCCEED4276 ATN-PARSER::INDEX4277 ATN-PARSER::RESULT-STRUCTURE))))))4278 (|default_value/default_value.2.4| (ATN-PARSER::INDEX)4279 (ATN-PARSER:%ATN-NODE-BLOCK |default_value/default_value.2.4|4280 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |value|)4281 (MULTIPLE-VALUE-BIND4282 (ATN-PARSER::RESULT4283 ATN-PARSER::RESULT-INDEX4284 ATN-PARSER::SUCCESS)4285 (|value|4286 ATN-PARSER::INDEX)4287 (COND4288 (ATN-PARSER::SUCCESS4289 (WHEN ATN-PARSER::RESULT4290 (SETF |value|4291 ATN-PARSER::RESULT))4292 (|default_value.2|4293 ATN-PARSER::RESULT-INDEX))4294 (T4295 (SETF ATN-PARSER:*ATN-TERM?*4296 '|value|)4297 (|default_value/fail.3|4298 ATN-PARSER::INDEX)))))))4299 (|default_value/fail.3| (ATN-PARSER::INDEX)4300 (ATN-PARSER:%ATN-NODE-BLOCK |default_value/fail.3|4301 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4302 (|default_value/start.1| (ATN-PARSER::INDEX)4303 (ATN-PARSER:%ATN-NODE-BLOCK |default_value/start.1|4304 (ATN-PARSER:%ATN-EDGE-BLOCK4305 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::=)4306 (COND4307 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::=)4308 (SETF ATN-PARSER:*ATN-TERM*4309 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::=)4310 (|default_value/default_value.2.4|4311 (1+ ATN-PARSER::INDEX)))4312 (T4313 (SETF ATN-PARSER:*ATN-TERM?*4314 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::=)4315 (|default_value/fail.3| ATN-PARSER::INDEX)))))))4316 (DECLARE4317 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |default_value.2|4318 |default_value/default_value.2.4| |default_value/fail.3| |default_value/start.1|))4319 (|default_value/start.1| ATN-PARSER::INDEX)4320 (SETF ATN-PARSER:*ATN-NODE NIL)4321 NIL4322 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))4323 (WARN "recursive grammar: ~s @ position ~s: ~s" '|default_value| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))4324 (PROGN4325 (DEFVAR |type_ref-INDEX|)4326 (DEFUN |type_ref| (ATN-PARSER::INDEX &AUX (|list_type| NIL) (|named_type| NIL))4327 "{40} type_ref ::= ((list_type | named_type)) '!'?4328 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|list_type|4329 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|named_type|)"4330 (DECLARE (SPECIAL |type_ref-INDEX|))4331 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |type_ref-INDEX| ATN-PARSER:*ATN-LEVEL))4332 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4333 (IF (< |type_ref-INDEX| ATN-PARSER::INDEX)4334 (LET ((|type_ref-INDEX| ATN-PARSER::INDEX)4335 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))4336 (ATN-PARSER:*ATN-STACK (CONS '|type_ref| ATN-PARSER:*ATN-STACK)))4337 (DECLARE (SPECIAL |type_ref-INDEX|))4338 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))4339 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))4340 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4341 (ATN-PARSER:%ATN-BLOCK |type_ref|4342 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4343 (SETF ATN-PARSER:*ATN-TERM* '|type_ref|)4344 (RETURN-FROM |type_ref| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))4345 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)4346 (RETURN-FROM |type_ref| (VALUES NIL ATN-PARSER::INDEX NIL)))4347 (|type_ref.2| (ATN-PARSER::INDEX)4348 (ATN-PARSER:%ATN-NODE-BLOCK |type_ref.2|4349 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |type_ref|)4350 (WHEN T4351 (SETF ATN-PARSER:*ATN-TERM*4352 '|type_ref|)4353 (ATN-PARSER:%ATN-TRACE4354 " [***/~a @ ~s reduce structure: ~a"4355 '|type_ref|4356 ATN-PARSER::INDEX4357 (LIST '|list_type|4358 |list_type|4359 '|named_type|4360 |named_type|))4361 (LET ((ATN-PARSER::RESULT-STRUCTURE4362 (IF (EQ4363 ATN-PARSER:*ATN-REDUCE*4364 T)4365 (|type_ref-Constructor|4366 |list_type|4367 |named_type|)4368 (IF (EQ4369 ATN-PARSER:*ATN-REDUCE*4370 'CONS)4371 (CONS4372 '|type_ref|4373 (DELETE NIL4374 (LIST4375 |list_type|4376 |named_type|)))4377 '|type_ref|))))4378 (ATN-PARSER::SUCCEED4379 ATN-PARSER::INDEX4380 ATN-PARSER::RESULT-STRUCTURE))))))4381 (|type_ref/fail.3| (ATN-PARSER::INDEX)4382 (ATN-PARSER:%ATN-NODE-BLOCK |type_ref/fail.3|4383 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4384 (|type_ref/start.1| (ATN-PARSER::INDEX)4385 (ATN-PARSER:%ATN-NODE-BLOCK |type_ref/start.1|4386 (ATN-PARSER:%ATN-EDGE-BLOCK OR4387 (OR4388 (ATN-PARSER:%ATN-EDGE-BLOCK4389 (PUSH |list_type|)4390 (MULTIPLE-VALUE-BIND4391 (ATN-PARSER::RESULT4392 ATN-PARSER::RESULT-INDEX4393 ATN-PARSER::SUCCESS)4394 (|list_type|4395 ATN-PARSER::INDEX)4396 (COND4397 (ATN-PARSER::SUCCESS4398 (WHEN ATN-PARSER::RESULT4399 (SETF |list_type|4400 ATN-PARSER::RESULT))4401 (|type_ref/type_ref.2.4|4402 ATN-PARSER::RESULT-INDEX))4403 (T4404 (SETF ATN-PARSER:*ATN-TERM?*4405 '|list_type|)4406 NIL))))4407 (ATN-PARSER:%ATN-EDGE-BLOCK4408 (ATN-PARSER::CAT4409 |named_type|)4410 (COND4411 ((|IS-named_type|4412 ATN-PARSER::|item|)4413 (SETF ATN-PARSER:*ATN-TERM*4414 '|named_type|)4415 (SETF |named_type|4416 (IF (EQ4417 ATN-PARSER:*ATN-REDUCE*4418 T)4419 (ATN-PARSER:ATN-REDUCE-ITEM4420 #'|named_type-Constructor|4421 ATN-PARSER::|item|)4422 (IF (EQ4423 ATN-PARSER:*ATN-REDUCE*4424 'CONS)4425 (LIST4426 '|named_type|4427 ATN-PARSER::|item|)4428 '|named_type|)))4429 (|type_ref/type_ref.2.4|4430 (1+ ATN-PARSER::INDEX)))4431 (T4432 (SETF ATN-PARSER:*ATN-TERM*4433 '|named_type|)4434 NIL)))4435 (|type_ref/fail.3|4436 ATN-PARSER::INDEX)))))4437 (|type_ref/type_ref.2.4| (ATN-PARSER::INDEX)4438 (ATN-PARSER:%ATN-NODE-BLOCK |type_ref/type_ref.2.4|4439 (ATN-PARSER:%ATN-EDGE-BLOCK4440 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::!)4441 (COND4442 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::!)4443 (SETF ATN-PARSER:*ATN-TERM*4444 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::!)4445 (|type_ref.2| (1+ ATN-PARSER::INDEX)))4446 (T4447 (SETF ATN-PARSER:*ATN-TERM?*4448 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::!)4449 (|type_ref.2| ATN-PARSER::INDEX)))))))4450 (DECLARE4451 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |type_ref.2| |type_ref/fail.3| |type_ref/start.1|4452 |type_ref/type_ref.2.4|))4453 (|type_ref/start.1| ATN-PARSER::INDEX)4454 (SETF ATN-PARSER:*ATN-NODE NIL)4455 NIL4456 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))4457 (WARN "recursive grammar: ~s @ position ~s: ~s" '|type_ref| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))4458 (PROGN4459 (DEFVAR |list_type-INDEX|)4460 (DEFUN |list_type| (ATN-PARSER::INDEX &AUX (|type_ref| NIL))4461 "{41} list_type ::= '[' type_ref ']'4462 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|type_ref|)"4463 (DECLARE (SPECIAL |list_type-INDEX|))4464 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |list_type-INDEX| ATN-PARSER:*ATN-LEVEL))4465 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4466 (IF (< |list_type-INDEX| ATN-PARSER::INDEX)4467 (LET ((|list_type-INDEX| ATN-PARSER::INDEX)4468 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))4469 (ATN-PARSER:*ATN-STACK (CONS '|list_type| ATN-PARSER:*ATN-STACK)))4470 (DECLARE (SPECIAL |list_type-INDEX|))4471 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))4472 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))4473 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4474 (ATN-PARSER:%ATN-BLOCK |list_type|4475 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4476 (SETF ATN-PARSER:*ATN-TERM* '|list_type|)4477 (RETURN-FROM |list_type| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))4478 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)4479 (RETURN-FROM |list_type| (VALUES NIL ATN-PARSER::INDEX NIL)))4480 (|list_type.2| (ATN-PARSER::INDEX)4481 (ATN-PARSER:%ATN-NODE-BLOCK |list_type.2|4482 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |list_type|)4483 (WHEN T4484 (SETF ATN-PARSER:*ATN-TERM*4485 '|list_type|)4486 (ATN-PARSER:%ATN-TRACE4487 " [***/~a @ ~s reduce structure: ~a"4488 '|list_type|4489 ATN-PARSER::INDEX4490 (LIST '|type_ref|4491 |type_ref|))4492 (LET ((ATN-PARSER::RESULT-STRUCTURE4493 (IF (EQ4494 ATN-PARSER:*ATN-REDUCE*4495 T)4496 (|list_type-Constructor|4497 |type_ref|)4498 (IF (EQ4499 ATN-PARSER:*ATN-REDUCE*4500 'CONS)4501 (CONS4502 '|list_type|4503 (DELETE NIL4504 (LIST4505 |type_ref|)))4506 '|list_type|))))4507 (ATN-PARSER::SUCCEED4508 ATN-PARSER::INDEX4509 ATN-PARSER::RESULT-STRUCTURE))))))4510 (|list_type/fail.3| (ATN-PARSER::INDEX)4511 (ATN-PARSER:%ATN-NODE-BLOCK |list_type/fail.3|4512 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4513 (|list_type/list_type.2.4| (ATN-PARSER::INDEX)4514 (ATN-PARSER:%ATN-NODE-BLOCK |list_type/list_type.2.4|4515 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |type_ref|)4516 (MULTIPLE-VALUE-BIND4517 (ATN-PARSER::RESULT4518 ATN-PARSER::RESULT-INDEX4519 ATN-PARSER::SUCCESS)4520 (|type_ref|4521 ATN-PARSER::INDEX)4522 (COND4523 (ATN-PARSER::SUCCESS4524 (WHEN ATN-PARSER::RESULT4525 (SETF |type_ref|4526 ATN-PARSER::RESULT))4527 (|list_type/list_type.2.5|4528 ATN-PARSER::RESULT-INDEX))4529 (T4530 (SETF ATN-PARSER:*ATN-TERM?*4531 '|type_ref|)4532 (|list_type/fail.3|4533 ATN-PARSER::INDEX)))))))4534 (|list_type/list_type.2.5| (ATN-PARSER::INDEX)4535 (ATN-PARSER:%ATN-NODE-BLOCK |list_type/list_type.2.5|4536 (ATN-PARSER:%ATN-EDGE-BLOCK4537 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::])4538 (COND4539 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::])4540 (SETF ATN-PARSER:*ATN-TERM*4541 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::])4542 (|list_type.2| (1+ ATN-PARSER::INDEX)))4543 (T4544 (SETF ATN-PARSER:*ATN-TERM?*4545 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::])4546 (|list_type/fail.3| ATN-PARSER::INDEX))))))4547 (|list_type/start.1| (ATN-PARSER::INDEX)4548 (ATN-PARSER:%ATN-NODE-BLOCK |list_type/start.1|4549 (ATN-PARSER:%ATN-EDGE-BLOCK4550 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::[)4551 (COND4552 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::[)4553 (SETF ATN-PARSER:*ATN-TERM*4554 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::[)4555 (|list_type/list_type.2.4| (1+ ATN-PARSER::INDEX)))4556 (T4557 (SETF ATN-PARSER:*ATN-TERM?*4558 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::[)4559 (|list_type/fail.3| ATN-PARSER::INDEX)))))))4560 (DECLARE4561 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |list_type.2| |list_type/fail.3|4562 |list_type/list_type.2.4| |list_type/list_type.2.5| |list_type/start.1|))4563 (|list_type/start.1| ATN-PARSER::INDEX)4564 (SETF ATN-PARSER:*ATN-NODE NIL)4565 NIL4566 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))4567 (WARN "recursive grammar: ~s @ position ~s: ~s" '|list_type| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))4568 (PROGN4569 (DEFVAR |directives-INDEX|)4570 (DEFUN |directives| (ATN-PARSER::INDEX &AUX (|directive| NIL))4571 "{43} directives ::= directive*4572 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|directive|)"4573 (DECLARE (SPECIAL |directives-INDEX|))4574 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |directives-INDEX| ATN-PARSER:*ATN-LEVEL))4575 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4576 (IF (< |directives-INDEX| ATN-PARSER::INDEX)4577 (LET ((|directives-INDEX| ATN-PARSER::INDEX)4578 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))4579 (ATN-PARSER:*ATN-STACK (CONS '|directives| ATN-PARSER:*ATN-STACK)))4580 (DECLARE (SPECIAL |directives-INDEX|))4581 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))4582 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))4583 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4584 (ATN-PARSER:%ATN-BLOCK |directives|4585 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4586 (SETF ATN-PARSER:*ATN-TERM* '|directives|)4587 (RETURN-FROM |directives| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))4588 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)4589 (RETURN-FROM |directives| (VALUES NIL ATN-PARSER::INDEX NIL)))4590 (|directives.2| (ATN-PARSER::INDEX)4591 (ATN-PARSER:%ATN-NODE-BLOCK |directives.2|4592 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |directives|)4593 (WHEN T4594 (SETF ATN-PARSER:*ATN-TERM*4595 '|directives|)4596 (ATN-PARSER:%ATN-TRACE4597 " [***/~a @ ~s reduce structure: ~a"4598 '|directives|4599 ATN-PARSER::INDEX4600 (LIST '|directive|4601 |directive|))4602 (LET ((ATN-PARSER::RESULT-STRUCTURE4603 (IF (EQ4604 ATN-PARSER:*ATN-REDUCE*4605 T)4606 (|directives-Constructor|4607 |directive|)4608 (IF (EQ4609 ATN-PARSER:*ATN-REDUCE*4610 'CONS)4611 (CONS4612 '|directives|4613 (DELETE NIL4614 (LIST4615 |directive|)))4616 '|directives|))))4617 (ATN-PARSER::SUCCEED4618 ATN-PARSER::INDEX4619 ATN-PARSER::RESULT-STRUCTURE))))))4620 (|directives.4| (ATN-PARSER::INDEX)4621 (ATN-PARSER:%ATN-NODE-BLOCK |directives.4|4622 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |directive|)4623 (MULTIPLE-VALUE-BIND4624 (ATN-PARSER::RESULT4625 ATN-PARSER::RESULT-INDEX4626 ATN-PARSER::SUCCESS)4627 (|directive|4628 ATN-PARSER::INDEX)4629 (COND4630 (ATN-PARSER::SUCCESS4631 (WHEN ATN-PARSER::RESULT4632 (SETF |directive|4633 (CONS4634 ATN-PARSER::RESULT4635 |directive|)))4636 (|directives.4|4637 ATN-PARSER::RESULT-INDEX))4638 (T4639 (SETF ATN-PARSER:*ATN-TERM?*4640 '|directive|)4641 (|directives.2|4642 ATN-PARSER::INDEX)))))))4643 (|directives/fail.3| (ATN-PARSER::INDEX)4644 (ATN-PARSER:%ATN-NODE-BLOCK |directives/fail.3|4645 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4646 (|directives/start.1| (ATN-PARSER::INDEX)4647 (ATN-PARSER:%ATN-NODE-BLOCK |directives/start.1|4648 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |directive|)4649 (MULTIPLE-VALUE-BIND4650 (ATN-PARSER::RESULT4651 ATN-PARSER::RESULT-INDEX4652 ATN-PARSER::SUCCESS)4653 (|directive|4654 ATN-PARSER::INDEX)4655 (COND4656 (ATN-PARSER::SUCCESS4657 (WHEN ATN-PARSER::RESULT4658 (SETF |directive|4659 (CONS4660 ATN-PARSER::RESULT4661 |directive|)))4662 (|directives.4|4663 ATN-PARSER::RESULT-INDEX))4664 (T4665 (SETF ATN-PARSER:*ATN-TERM?*4666 '|directive|)4667 (|directives.2|4668 ATN-PARSER::INDEX))))))))4669 (DECLARE4670 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |directives.2| |directives.4| |directives/fail.3|4671 |directives/start.1|))4672 (|directives/start.1| ATN-PARSER::INDEX)4673 (SETF ATN-PARSER:*ATN-NODE NIL)4674 NIL4675 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))4676 (WARN "recursive grammar: ~s @ position ~s: ~s" '|directives| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))4677 (PROGN4678 (DEFVAR |directive-INDEX|)4679 (DEFUN |directive| (ATN-PARSER::INDEX &AUX (|arguments| NIL) (|directive_name| NIL))4680 "{44} directive ::= '@' directive_name arguments?4681 (ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|arguments|4682 ORG.DATAGRAPH.SPOCQ.GRAPHQL-0-0-1::|directive_name|)"4683 (DECLARE (SPECIAL |directive-INDEX|))4684 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |directive-INDEX| ATN-PARSER:*ATN-LEVEL))4685 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4686 (IF (< |directive-INDEX| ATN-PARSER::INDEX)4687 (LET ((|directive-INDEX| ATN-PARSER::INDEX)4688 (ATN-PARSER:*ATN-LEVEL (1+ ATN-PARSER:*ATN-LEVEL))4689 (ATN-PARSER:*ATN-STACK (CONS '|directive| ATN-PARSER:*ATN-STACK)))4690 (DECLARE (SPECIAL |directive-INDEX|))4691 (DECLARE (DYNAMIC-EXTENT ATN-PARSER:*ATN-STACK))4692 (DECLARE (TYPE CONS ATN-PARSER:*ATN-STACK))4693 (SYMBOL-MACROLET ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4694 (ATN-PARSER:%ATN-BLOCK |directive|4695 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4696 (SETF ATN-PARSER:*ATN-TERM* '|directive|)4697 (RETURN-FROM |directive| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX T)))4698 (ATN-PARSER::FAIL (ATN-PARSER::INDEX)4699 (RETURN-FROM |directive| (VALUES NIL ATN-PARSER::INDEX NIL)))4700 (|directive.2| (ATN-PARSER::INDEX)4701 (ATN-PARSER:%ATN-NODE-BLOCK |directive.2|4702 (ATN-PARSER:%ATN-EDGE-BLOCK (POP |directive|)4703 (WHEN T4704 (SETF ATN-PARSER:*ATN-TERM*4705 '|directive|)4706 (ATN-PARSER:%ATN-TRACE4707 " [***/~a @ ~s reduce structure: ~a"4708 '|directive|4709 ATN-PARSER::INDEX4710 (LIST '|arguments|4711 |arguments|4712 '|directive_name|4713 |directive_name|))4714 (LET ((ATN-PARSER::RESULT-STRUCTURE4715 (IF (EQ4716 ATN-PARSER:*ATN-REDUCE*4717 T)4718 (|directive-Constructor|4719 |arguments|4720 |directive_name|)4721 (IF (EQ4722 ATN-PARSER:*ATN-REDUCE*4723 'CONS)4724 (CONS4725 '|directive|4726 (DELETE NIL4727 (LIST4728 |arguments|4729 |directive_name|)))4730 '|directive|))))4731 (ATN-PARSER::SUCCEED4732 ATN-PARSER::INDEX4733 ATN-PARSER::RESULT-STRUCTURE))))))4734 (|directive/directive.2.4| (ATN-PARSER::INDEX)4735 (ATN-PARSER:%ATN-NODE-BLOCK |directive/directive.2.4|4736 (ATN-PARSER:%ATN-EDGE-BLOCK4737 (ATN-PARSER::CAT |directive_name|)4738 (COND4739 ((|IS-directive_name| ATN-PARSER::|item|)4740 (SETF ATN-PARSER:*ATN-TERM* '|directive_name|)4741 (SETF |directive_name|4742 (IF (EQ ATN-PARSER:*ATN-REDUCE* T)4743 (ATN-PARSER:ATN-REDUCE-ITEM4744 #'|directive_name-Constructor|4745 ATN-PARSER::|item|)4746 (IF (EQ ATN-PARSER:*ATN-REDUCE* 'CONS)4747 (LIST '|directive_name|4748 ATN-PARSER::|item|)4749 '|directive_name|)))4750 (|directive/directive.2.5| (1+ ATN-PARSER::INDEX)))4751 (T (SETF ATN-PARSER:*ATN-TERM* '|directive_name|)4752 (|directive/fail.3| ATN-PARSER::INDEX))))))4753 (|directive/directive.2.5| (ATN-PARSER::INDEX)4754 (ATN-PARSER:%ATN-NODE-BLOCK |directive/directive.2.5|4755 (ATN-PARSER:%ATN-EDGE-BLOCK (PUSH |arguments|)4756 (MULTIPLE-VALUE-BIND4757 (ATN-PARSER::RESULT4758 ATN-PARSER::RESULT-INDEX4759 ATN-PARSER::SUCCESS)4760 (|arguments|4761 ATN-PARSER::INDEX)4762 (COND4763 (ATN-PARSER::SUCCESS4764 (WHEN ATN-PARSER::RESULT4765 (SETF |arguments|4766 ATN-PARSER::RESULT))4767 (|directive.2|4768 ATN-PARSER::RESULT-INDEX))4769 (T4770 (SETF ATN-PARSER:*ATN-TERM?*4771 '|arguments|)4772 (|directive.2|4773 ATN-PARSER::INDEX)))))))4774 (|directive/fail.3| (ATN-PARSER::INDEX)4775 (ATN-PARSER:%ATN-NODE-BLOCK |directive/fail.3|4776 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4777 (|directive/start.1| (ATN-PARSER::INDEX)4778 (ATN-PARSER:%ATN-NODE-BLOCK |directive/start.1|4779 (ATN-PARSER:%ATN-EDGE-BLOCK4780 (ATN-PARSER::WORD ORG.DATAGRAPH.SPOCQ.GRAPHQL::@)4781 (COND4782 ((EQ ATN-PARSER::|item| 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::@)4783 (SETF ATN-PARSER:*ATN-TERM*4784 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::@)4785 (|directive/directive.2.4| (1+ ATN-PARSER::INDEX)))4786 (T4787 (SETF ATN-PARSER:*ATN-TERM?*4788 'ORG.DATAGRAPH.SPOCQ.GRAPHQL::@)4789 (|directive/fail.3| ATN-PARSER::INDEX)))))))4790 (DECLARE4791 (INLINE ATN-PARSER::SUCCEED ATN-PARSER::FAIL |directive.2| |directive/directive.2.4|4792 |directive/directive.2.5| |directive/fail.3| |directive/start.1|))4793 (|directive/start.1| ATN-PARSER::INDEX)4794 (SETF ATN-PARSER:*ATN-NODE NIL)4795 NIL4796 (ATN-PARSER::FAIL ATN-PARSER::INDEX)))))4797 (WARN "recursive grammar: ~s @ position ~s: ~s" '|directive| ATN-PARSER::INDEX ATN-PARSER:*ATN-STACK))))4798 (SETF (GET '|graphqlFile| :PRODUCTION) "4799 {1 } graphqlFile ::= definition*")4800 (SETF (GET '|definition| :PRODUCTION) "4801 {3 } definition ::= (type_definition | operation_definition | fragment_definition)")4802 (SETF (GET '|type_definition| :PRODUCTION) "4803 {4 } type_definition ::= type_category named_type interfaces? field_definitions")4804 (SETF (GET '|interfaces| :PRODUCTION) "4805 {5 } interfaces ::= 'implements' named_type")4806 (SETF (GET '|field_definitions| :PRODUCTION) "4807 {6 } field_definitions ::= '{' field_definition (','? field_definition)* ','? '}'")4808 (SETF (GET '|field_definition| :PRODUCTION) "4809 {7 } field_definition ::= field_name argument_definitions? ':' type_ref")4810 (SETF (GET '|argument_definitions| :PRODUCTION) "4811 {8 } argument_definitions ::= '(' argument_definition (','? argument_definition)* ','? ')'")4812 (SETF (GET '|argument_definition| :PRODUCTION) "4813 {9 } argument_definition ::= argument_name ':' type_ref")4814 (SETF (GET '|operation_definition| :PRODUCTION) "4815 {10} operation_definition ::= (selection_set | (operation_type operation_name?4816 variable_definitions?4817 directive? selection_set))")4818 (SETF (GET '|selection_set| :PRODUCTION) "4819 {13} selection_set ::= '{' selection (','? selection)* ','? '}'")4820 (SETF (GET '|selection| :PRODUCTION) "4821 {14} selection ::= (field | fragment_spread | inline_fragment)")4822 (SETF (GET '|field| :PRODUCTION) "4823 {15} field ::= alias? field_name arguments? directives? selection_set?")4824 (SETF (GET '|arguments| :PRODUCTION) "4825 {17} arguments ::= '(' argument (','? argument)* ','? ')'")4826 (SETF (GET '|argument| :PRODUCTION) "4827 {18} argument ::= argument_name ':' argument_value")4828 (SETF (GET '|argument_value| :PRODUCTION) "4829 {20} argument_value ::= value")4830 (SETF (GET '|alias| :PRODUCTION) "4831 {21} alias ::= alias_name ':'")4832 (SETF (GET '|fragment_spread| :PRODUCTION) "4833 {23} fragment_spread ::= '...' fragment_name directives?")4834 (SETF (GET '|fragment_definition| :PRODUCTION) "4835 {24} fragment_definition ::= 'fragment' fragment_name? type_condition directives? selection_set")4836 (SETF (GET '|inline_fragment| :PRODUCTION) "4837 {26} inline_fragment ::= '...' type_condition? directives? selection_set")4838 (SETF (GET '|type_condition| :PRODUCTION) "4839 {27} type_condition ::= 'on' named_type")4840 (SETF (GET '|value| :PRODUCTION) "4841 {28} value ::= (variable | NUMBER | string_value | boolean_value | enum_value | list_value | object_value)")4842 (SETF (GET '|list_value| :PRODUCTION) "4843 {32} list_value ::= '[' value (','? value)* ','? ']'")4844 (SETF (GET '|object_value| :PRODUCTION) "4845 {33} object_value ::= '{' object_field* '}'")4846 (SETF (GET '|object_field| :PRODUCTION) "4847 {34} object_field ::= field_name ':' value")4848 (SETF (GET '|variable_definitions| :PRODUCTION) "4849 {35} variable_definitions ::= '(' variable_definition (','? variable_definition)* ','? ')'")4850 (SETF (GET '|variable_definition| :PRODUCTION) "4851 {36} variable_definition ::= variable ':' type_ref default_value?")4852 (SETF (GET '|variable| :PRODUCTION) "4853 {37} variable ::= '$' var_name")4854 (SETF (GET '|default_value| :PRODUCTION) "4855 {39} default_value ::= '=' value")4856 (SETF (GET '|type_ref| :PRODUCTION) "4857 {40} type_ref ::= ((list_type | named_type)) '!'?")4858 (SETF (GET '|list_type| :PRODUCTION) "4859 {41} list_type ::= '[' type_ref ']'")4860 (SETF (GET '|directives| :PRODUCTION) "4861 {43} directives ::= directive*")4862 (SETF (GET '|directive| :PRODUCTION) "4863 {44} directive ::= '@' directive_name arguments?")4864 (DEFUN |graphqlFile-Parser|4865 (ATN-PARSER::*ATN-INPUT4866 &KEY ((:TRACE ATN-PARSER:*ATN-TRACE*) ATN-PARSER:*ATN-TRACE*)4867 ((:TRACE-NETS ATN-PARSER:*ATN-TRACE-NETS*) ATN-PARSER:*ATN-TRACE-NETS*)4868 ((:START-NAME ATN-PARSER::*ATN-START-NAME) 'ORG.DATAGRAPH.SPOCQ.IMPLEMENTATION::|graphqlFile|)4869 ((:MODE ATN-PARSER::*ATN-MODE) :MULTIPLE) ((:REDUCE ATN-PARSER:*ATN-REDUCE*) T)4870 ((:REGISTER-WORDS ATN-PARSER:*ATN-REGISTER-WORDS) NIL) &ALLOW-OTHER-KEYS4871 &AUX)4872 "// generated 2017.06.28T16:53:52.4873 // https://raw.githubusercontent.com/Gregoor/graphql-intellij-plugin/master/src/graphql/GraphQL.bnf4874 4875 [[1]] graphqlFile ::= definition*4876 [[2]] keywords ::= 'type' | 'interface' | 'input' | 'query' | 'mutation'4877 [[3]] definition ::= type_definition | operation_definition | fragment_definition4878 4879 [[4]] type_definition ::= type_category named_type interfaces? field_definitions // {pin=1}4880 [[4a]] type_category ::= ('type' | 'interface' | 'input')4881 [[5]] interfaces ::= 'implements' named_type // {pin=1}4882 [[6]] field_definitions ::= '{' field_definition (','? field_definition)* ','? '}' // {pin=1}4883 [[7]] field_definition ::= field_name argument_definitions? ':' type_ref // {pin=1}4884 [[8]] argument_definitions ::= '(' argument_definition (','? argument_definition)* ','? ')' // {pin=1}4885 [[9]] argument_definition ::= argument_name ':' type_ref // {pin=1}4886 [[10]] operation_definition ::= selection_set | ( operation_type operation_name? variable_definitions? directive? selection_set) // {pin(\".*\")=1}4887 [[11]] operation_name ::= ID4888 [[12]] operation_type ::= 'query' | 'mutation'4889 [[13]] selection_set ::= '{' selection (','? selection)* ','? '}' // {pin=1}4890 [[14]] selection ::= field | fragment_spread | inline_fragment4891 [[15]] field ::= alias? field_name arguments? directives? selection_set? // {pin=2}4892 [[16]] field_name ::= (keywords | ID)4893 [[17]] arguments ::= '(' argument (','? argument)* ','? ')' // {pin=1}4894 [[18]] argument ::= argument_name ':' argument_value // {pin=2}4895 [[19]] argument_name ::= (keywords | ID)4896 [[20]] argument_value ::= value4897 [[21]] alias ::= alias_name ':'4898 [[22]] alias_name ::= ID4899 [[23]] fragment_spread ::= '...' fragment_name directives?4900 [[24]] fragment_definition ::= 'fragment' fragment_name? type_condition directives? selection_set4901 [[25]] fragment_name ::= ID4902 [[26]] inline_fragment ::= '...' type_condition? directives? selection_set4903 [[27]] type_condition ::= 'on' named_type4904 [[28]] value ::= variable | NUMBER | string_value | boolean_value | enum_value | list_value | object_value4905 [[29]] string_value ::= STRING4906 [[30]] boolean_value ::= 'true' | 'false'4907 [[31]] /* private */ enum_value ::= STRING4908 [[32]] list_value ::= '[' value (','? value)* ','? ']' // {pin=1}4909 [[33]] object_value ::= '{' object_field* '}'4910 [[34]] object_field ::= field_name ':' value4911 [[35]] variable_definitions ::= '(' variable_definition (','? variable_definition)* ','? ')'4912 [[36]] variable_definition ::= variable ':' type_ref default_value? // {pin=1}4913 [[37]] variable ::= '$' var_name // {pin=1}4914 [[38]] var_name ::= (keywords | ID)4915 [[39]] default_value ::= '=' value4916 [[40]] type_ref ::= (list_type | named_type) '!'?4917 [[41]] list_type ::= '[' type_ref ']'4918 [[42]] named_type ::= ID4919 [[43]] directives ::= directive*4920 [[44]] directive ::= '@' directive_name arguments?4921 [[45]] directive_name ::= ID4922 4923 "4924 (DECLARE (SPECIAL ATN-PARSER:*ATN-REDUCE* ATN-PARSER::*ATN-MODE ATN-PARSER::*ATN-INPUT))4925 (LET ((ATN-PARSER:*ATN-LEVEL 0)4926 (ATN-PARSER:*ATN-STACK '(|graphqlFile-Parser|))4927 (ATN-PARSER:*ATN-NODE NIL)4928 (ATN-PARSER:*ATN-PROPERTIES NIL)4929 (ATN-PARSER:*ATN-CLASS NIL)4930 (|graphqlFile-INDEX| -1)4931 (|definition-INDEX| -1)4932 (|type_definition-INDEX| -1)4933 (|interfaces-INDEX| -1)4934 (|field_definitions-INDEX| -1)4935 (|field_definition-INDEX| -1)4936 (|argument_definitions-INDEX| -1)4937 (|argument_definition-INDEX| -1)4938 (|operation_definition-INDEX| -1)4939 (|selection_set-INDEX| -1)4940 (|selection-INDEX| -1)4941 (|field-INDEX| -1)4942 (|arguments-INDEX| -1)4943 (|argument-INDEX| -1)4944 (|argument_value-INDEX| -1)4945 (|alias-INDEX| -1)4946 (|fragment_spread-INDEX| -1)4947 (|fragment_definition-INDEX| -1)4948 (|inline_fragment-INDEX| -1)4949 (|type_condition-INDEX| -1)4950 (|value-INDEX| -1)4951 (|list_value-INDEX| -1)4952 (|object_value-INDEX| -1)4953 (|object_field-INDEX| -1)4954 (|variable_definitions-INDEX| -1)4955 (|variable_definition-INDEX| -1)4956 (|variable-INDEX| -1)4957 (|default_value-INDEX| -1)4958 (|type_ref-INDEX| -1)4959 (|list_type-INDEX| -1)4960 (|directives-INDEX| -1)4961 (|directive-INDEX| -1)4962 (ATN-PARSER::ATN-NET-NAMES4963 '(|graphqlFile| |definition| |type_definition| |interfaces| |field_definitions| |field_definition| |argument_definitions|4964 |argument_definition| |operation_definition| |selection_set| |selection| |field| |arguments| |argument|4965 |argument_value| |alias| |fragment_spread| |fragment_definition| |inline_fragment| |type_condition|4966 |value| |list_value| |object_value| |object_field| |variable_definitions| |variable_definition| |variable|4967 |default_value| |type_ref| |list_type| |directives| |directive|)))4968 (DECLARE4969 (SPECIAL |graphqlFile-INDEX| |definition-INDEX| |type_definition-INDEX| |interfaces-INDEX| |field_definitions-INDEX|4970 |field_definition-INDEX| |argument_definitions-INDEX| |argument_definition-INDEX| |operation_definition-INDEX|4971 |selection_set-INDEX| |selection-INDEX| |field-INDEX| |arguments-INDEX| |argument-INDEX| |argument_value-INDEX| |alias-INDEX|4972 |fragment_spread-INDEX| |fragment_definition-INDEX| |inline_fragment-INDEX| |type_condition-INDEX| |value-INDEX|4973 |list_value-INDEX| |object_value-INDEX| |object_field-INDEX| |variable_definitions-INDEX| |variable_definition-INDEX|4974 |variable-INDEX| |default_value-INDEX| |type_ref-INDEX| |list_type-INDEX| |directives-INDEX| |directive-INDEX|))4975 (UNLESS (FIND ATN-PARSER::*ATN-START-NAME ATN-PARSER::ATN-NET-NAMES)4976 (ERROR "production not defined in system: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|graphqlFile-Parser|))4977 (UNLESS (FBOUNDP ATN-PARSER::*ATN-START-NAME)4978 (ERROR "parse function missing: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|graphqlFile-Parser|))4979 (HANDLER-BIND ((ATN-PARSER:CONTINUABLE-PARSER-ERROR #'(LAMBDA (CONDITION) (SIGNAL CONDITION)))4980 (ATN-PARSER:TERMINAL-PARSER-ERROR4981 #'(LAMBDA (CONDITION &AUX (ATN-PARSER::ACTION (ATN-PARSER:CONDITION-ACTION CONDITION)))4982 (ETYPECASE ATN-PARSER::ACTION4983 (NULL)4984 (KEYWORD4985 (ECASE ATN-PARSER::ACTION4986 (:ABORT4987 (WHEN ATN-PARSER:*ATN-TRACE*4988 (WARN "terminating parse on condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))4989 (RETURN-FROM |graphqlFile-Parser| (VALUES NIL CONDITION NIL)))4990 (:CONTINUE4991 (WHEN ATN-PARSER:*ATN-TRACE*4992 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))4993 (CONTINUE CONDITION))4994 (:SIGNAL4995 (WHEN ATN-PARSER:*ATN-TRACE*4996 (WARN "signaling parse condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))4997 (SIGNAL CONDITION)4998 (WHEN ATN-PARSER:*ATN-TRACE*4999 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))5000 (CONTINUE CONDITION))))5001 (FUNCTION (FUNCALL ATN-PARSER::ACTION)))))5002 (ERROR #'(LAMBDA (CONDITION) (WHEN ATN-PARSER:*ATN-TRACE* (WARN "parse raised condition: ~a." CONDITION)) NIL)))5003 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::INDEX ATN-PARSER::SUCCESS)5004 (FUNCALL ATN-PARSER::*ATN-START-NAME 0)5005 (COND5006 (ATN-PARSER::SUCCESS5007 (RETURN-FROM |graphqlFile-Parser| (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX (INPUT-EOF? ATN-PARSER::INDEX))))5008 (T (RETURN-FROM |graphqlFile-Parser| (VALUES NIL ATN-PARSER::INDEX NIL))))))))