| Kind | Covered | All | % |
| expression | 0 | 15580 | 0.0 |
| branch | 0 | 1094 | 0.0 |
1 2 (IN-PACKAGE "ORG.DATAGRAPH.SPOCQ.SPARQL-1-0-2") 3 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteral|)) 4 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralUnsigned|)) 5 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralPositive|)) 6 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NumericLiteralNegative|)) 7 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-String|)) 8 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-PrefixedName|)) 9 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-Distinctness|)) 10 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-Wild|)) 11 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-OrderDirection|)) 12 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-Undef|)) 13 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-RelationalOperator|)) 14 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-AdditiveOperator|)) 15 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-MultiplicativeOperator|)) 16 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-UnaryOperator|)) 17 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NullOperator|)) 18 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-NullOrUnaryOperator|)) 19 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinUnaryOperator|)) 20 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinBinaryOperator|)) 21 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BuiltinListOperator|)) 22 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-BooleanLiteral|)) 23 (DECLAIM (FTYPE (FUNCTION (T) (VALUES T T T)) |IS-ArithmeticAggregateOperator|)) 24 (DECLAIM (FTYPE (FUNCTION (T &KEY &ALLOW-OTHER-KEYS) (VALUES T T T)) |Query-Parser|)) 25 (DEFUN |IS-NumericLiteral| (ATN-PARSER::ITEM)26 (%ATN-TRACE-FORM27 (AND ATN-PARSER::ITEM28 (OR (|IS-NumericLiteralUnsigned| ATN-PARSER::ITEM)29 (|IS-NumericLiteralPositive| ATN-PARSER::ITEM)30 (|IS-NumericLiteralNegative| ATN-PARSER::ITEM)))))31 (DEFUN |IS-NumericLiteralUnsigned| (ATN-PARSER::ITEM)32 (%ATN-TRACE-FORM33 (AND ATN-PARSER::ITEM (OR (IS-INTEGER ATN-PARSER::ITEM) (IS-DECIMAL ATN-PARSER::ITEM) (IS-DOUBLE ATN-PARSER::ITEM)))))34 (DEFUN |IS-NumericLiteralPositive| (ATN-PARSER::ITEM)35 (%ATN-TRACE-FORM36 (AND ATN-PARSER::ITEM37 (OR (IS-INTEGER_POSITIVE ATN-PARSER::ITEM) (IS-DECIMAL_POSITIVE ATN-PARSER::ITEM) (IS-DOUBLE_POSITIVE ATN-PARSER::ITEM)))))38 (DEFUN |IS-NumericLiteralNegative| (ATN-PARSER::ITEM)39 (%ATN-TRACE-FORM40 (AND ATN-PARSER::ITEM41 (OR (IS-INTEGER_NEGATIVE ATN-PARSER::ITEM) (IS-DECIMAL_NEGATIVE ATN-PARSER::ITEM) (IS-DOUBLE_NEGATIVE ATN-PARSER::ITEM)))))42 (DEFUN |IS-String| (ATN-PARSER::ITEM)43 (%ATN-TRACE-FORM44 (AND ATN-PARSER::ITEM45 (OR (IS-STRING_LITERAL1 ATN-PARSER::ITEM)46 (IS-STRING_LITERAL2 ATN-PARSER::ITEM)47 (IS-STRING_LITERAL_LONG1 ATN-PARSER::ITEM)48 (IS-STRING_LITERAL_LONG2 ATN-PARSER::ITEM)))))49 (DEFUN |IS-PrefixedName| (ATN-PARSER::ITEM)50 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (IS-PNAME_LN ATN-PARSER::ITEM) (IS-PNAME_NS ATN-PARSER::ITEM)))))51 (DEFUN |IS-Distinctness| (ATN-PARSER::ITEM)52 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:DISTINCT) (EQ ATN-PARSER::ITEM 'SPOCQ.S:REDUCED)))))53 (DEFUN |IS-Wild| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:*)))))54 (DEFUN |IS-OrderDirection| (ATN-PARSER::ITEM)55 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:ASC) (EQ ATN-PARSER::ITEM 'SPOCQ.S:DESC)))))56 (DEFUN |IS-Undef| (ATN-PARSER::ITEM) (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:UNDEF)))))57 (DEFUN |IS-RelationalOperator| (ATN-PARSER::ITEM)58 (%ATN-TRACE-FORM59 (AND ATN-PARSER::ITEM60 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:=)61 (EQ ATN-PARSER::ITEM 'SPOCQ.S:!=)62 (EQ ATN-PARSER::ITEM 'SPOCQ.S:<)63 (EQ ATN-PARSER::ITEM 'SPOCQ.S:>)64 (EQ ATN-PARSER::ITEM 'SPOCQ.S:<=)65 (EQ ATN-PARSER::ITEM 'SPOCQ.S:>=)))))66 (DEFUN |IS-AdditiveOperator| (ATN-PARSER::ITEM)67 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:+) (EQ ATN-PARSER::ITEM 'SPOCQ.S:-)))))68 (DEFUN |IS-MultiplicativeOperator| (ATN-PARSER::ITEM)69 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:*) (EQ ATN-PARSER::ITEM 'SPOCQ.S:/)))))70 (DEFUN |IS-UnaryOperator| (ATN-PARSER::ITEM)71 (%ATN-TRACE-FORM72 (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:!) (EQ ATN-PARSER::ITEM 'SPOCQ.S:+) (EQ ATN-PARSER::ITEM 'SPOCQ.S:-)))))73 (DEFUN |IS-NullOperator| (ATN-PARSER::ITEM)74 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S::RAND) (EQ ATN-PARSER::ITEM 'SPOCQ.S::NOW)))))75 (DEFUN |IS-NullOrUnaryOperator| (ATN-PARSER::ITEM)76 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S::BNODE)))))77 (DEFUN |IS-BuiltinUnaryOperator| (ATN-PARSER::ITEM)78 (%ATN-TRACE-FORM79 (AND ATN-PARSER::ITEM80 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:STR)81 (EQ ATN-PARSER::ITEM 'SPOCQ.S:LANG)82 (EQ ATN-PARSER::ITEM 'SPOCQ.S:DATATYPE)83 (EQ ATN-PARSER::ITEM 'SPOCQ.S:BOUND)84 (EQ ATN-PARSER::ITEM 'SPOCQ.S:IRI)85 (EQ ATN-PARSER::ITEM 'SPOCQ.S:URI)86 (EQ ATN-PARSER::ITEM 'SPOCQ.S:ABS)87 (EQ ATN-PARSER::ITEM 'SPOCQ.S:CEIL)88 (EQ ATN-PARSER::ITEM 'SPOCQ.S:FLOOR)89 (EQ ATN-PARSER::ITEM 'SPOCQ.S:ROUND)90 (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRLEN)91 (EQ ATN-PARSER::ITEM 'SPOCQ.S:UCASE)92 (EQ ATN-PARSER::ITEM 'SPOCQ.S:LCASE)93 (EQ ATN-PARSER::ITEM 'SPOCQ.S:ENCODE_FOR_URI)94 (EQ ATN-PARSER::ITEM 'SPOCQ.S:YEAR)95 (EQ ATN-PARSER::ITEM 'SPOCQ.S:MONTH)96 (EQ ATN-PARSER::ITEM 'SPOCQ.S:DAY)97 (EQ ATN-PARSER::ITEM 'SPOCQ.S:HOURS)98 (EQ ATN-PARSER::ITEM 'SPOCQ.S:MINUTES)99 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SECONDS)100 (EQ ATN-PARSER::ITEM 'SPOCQ.S:TIMEZONE)101 (EQ ATN-PARSER::ITEM 'SPOCQ.S:TZ)102 (EQ ATN-PARSER::ITEM 'SPOCQ.S:MD5)103 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA1)104 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA224)105 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA256)106 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA384)107 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SHA512)108 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isIRI|)109 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isURI|)110 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isBlank|)111 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isLiteral|)112 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|isNumeric|)))))113 (DEFUN |IS-BuiltinBinaryOperator| (ATN-PARSER::ITEM)114 (%ATN-TRACE-FORM115 (AND ATN-PARSER::ITEM116 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:LANGMATCHES)117 (EQ ATN-PARSER::ITEM 'SPOCQ.S:CONTAINS)118 (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRSTARTS)119 (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRENDS)120 (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRLANG)121 (EQ ATN-PARSER::ITEM 'SPOCQ.S:STRDT)122 (EQ ATN-PARSER::ITEM 'SPOCQ.S:|sameTerm|)))))123 (DEFUN |IS-BuiltinListOperator| (ATN-PARSER::ITEM)124 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:CONCAT) (EQ ATN-PARSER::ITEM 'SPOCQ.S:COALESCE)))))125 (DEFUN |IS-BooleanLiteral| (ATN-PARSER::ITEM)126 (%ATN-TRACE-FORM (AND ATN-PARSER::ITEM (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:|true|) (EQ ATN-PARSER::ITEM 'SPOCQ.S:|false|)))))127 (DEFUN |IS-ArithmeticAggregateOperator| (ATN-PARSER::ITEM)128 (%ATN-TRACE-FORM129 (AND ATN-PARSER::ITEM130 (OR (EQ ATN-PARSER::ITEM 'SPOCQ.S:MIN)131 (EQ ATN-PARSER::ITEM 'SPOCQ.S:MAX)132 (EQ ATN-PARSER::ITEM 'SPOCQ.S:AVG)133 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SAMPLE)134 (EQ ATN-PARSER::ITEM 'SPOCQ.S:SUM)))))135 (PROGN (DEFVAR |Query-INDEX|)136 (DEFUN |Query| (ATN-PARSER::INDEX &AUX (|AskQuery| NIL) (|BindingsClause| NIL) (|ConstructQuery| NIL) (|DescribeQuery| NIL)137 (|Prologue| NIL) (|SelectQuery| NIL))138 "{1 } Query ::= Prologue ((SelectQuery | ConstructQuery | DescribeQuery | AskQuery)) BindingsClause?139 (|AskQuery| |BindingsClause| |ConstructQuery| |DescribeQuery| |Prologue| |SelectQuery|)"140 (DECLARE (SPECIAL |Query-INDEX|))141 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Query-INDEX| *ATN-LEVEL))142 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))143 (IF (< |Query-INDEX| ATN-PARSER::INDEX)144 (LET ((|Query-INDEX| ATN-PARSER::INDEX)145 (*ATN-LEVEL (1+ *ATN-LEVEL))146 (*ATN-STACK (CONS '|Query| *ATN-STACK))147 (ATN-PARSER::ATN-STRUCTURE NIL))148 (DECLARE (SPECIAL |Query-INDEX|))149 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))150 (DECLARE (TYPE CONS *ATN-STACK))151 (SYMBOL-MACROLET152 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))153 (%ATN-BLOCK |Query|154 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)155 (SETF *ATN-TERM* '|Query|)156 (WHEN (INPUT-EOF? ATN-PARSER::INDEX)157 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE)))158 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)159 (|Query.2| (ATN-PARSER::INDEX)160 (%ATN-NODE-BLOCK161 |Query.2|162 (%ATN-EDGE-BLOCK163 (POP |Query|)164 (WHEN T165 (SETF *ATN-TERM* '|Query|)166 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"167 '|Query|168 ATN-PARSER::INDEX169 (LIST '|AskQuery|170 |AskQuery|171 '|BindingsClause|172 |BindingsClause|173 '|ConstructQuery|174 |ConstructQuery|175 '|DescribeQuery|176 |DescribeQuery|177 '|Prologue|178 |Prologue|179 '|SelectQuery|180 |SelectQuery|))181 (LET ((ATN-PARSER::RESULT-STRUCTURE182 (IF (EQ *ATN-REDUCE* T)183 (|Query-Constructor|184 |AskQuery|185 |BindingsClause|186 |ConstructQuery|187 |DescribeQuery|188 |Prologue|189 |SelectQuery|)190 (IF (EQ *ATN-REDUCE* 'CONS)191 (CONS '|Query|192 (DELETE NIL193 (LIST |AskQuery|194 |BindingsClause|195 |ConstructQuery|196 |DescribeQuery|197 |Prologue|198 |SelectQuery|)))199 '|Query|))))200 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))201 (|Query/fail.3| (ATN-PARSER::INDEX)202 (%ATN-NODE-BLOCK |Query/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))203 (|Query/Query.2.4| (ATN-PARSER::INDEX)204 (%ATN-NODE-BLOCK205 |Query/Query.2.4|206 (%ATN-EDGE-BLOCK207 OR208 (PROGN (%ATN-EDGE-BLOCK209 (PUSH |SelectQuery|)210 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)211 (ATN-PARSE-SUBSTRUCTURE* '|SelectQuery| ATN-PARSER::INDEX)212 (COND (ATN-PARSER::SUCCESS213 (SETF *ATN-TERM* '|SelectQuery|)214 (LET ((|SelectQuery583| |SelectQuery|))215 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)216 (DESTRUCTURING-BIND217 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)218 ATN-PARSER::RESULT-AND-INDEX219 (WHEN ATN-PARSER::RESULT220 (SETF |SelectQuery| ATN-PARSER::RESULT))221 (|Query/Query.2.5| ATN-PARSER::RESULT-INDEX))222 (SETF |SelectQuery| |SelectQuery583|))))223 (T (SETF *ATN-TERM?* '|SelectQuery|) NIL))))224 (%ATN-EDGE-BLOCK225 (PUSH |ConstructQuery|)226 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)227 (ATN-PARSE-SUBSTRUCTURE* '|ConstructQuery| ATN-PARSER::INDEX)228 (COND (ATN-PARSER::SUCCESS229 (SETF *ATN-TERM* '|ConstructQuery|)230 (LET ((|ConstructQuery583| |ConstructQuery|))231 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)232 (DESTRUCTURING-BIND233 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)234 ATN-PARSER::RESULT-AND-INDEX235 (WHEN ATN-PARSER::RESULT236 (SETF |ConstructQuery| ATN-PARSER::RESULT))237 (|Query/Query.2.5| ATN-PARSER::RESULT-INDEX))238 (SETF |ConstructQuery| |ConstructQuery583|))))239 (T (SETF *ATN-TERM?* '|ConstructQuery|) NIL))))240 (%ATN-EDGE-BLOCK241 (PUSH |DescribeQuery|)242 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)243 (ATN-PARSE-SUBSTRUCTURE* '|DescribeQuery| ATN-PARSER::INDEX)244 (COND (ATN-PARSER::SUCCESS245 (SETF *ATN-TERM* '|DescribeQuery|)246 (LET ((|DescribeQuery583| |DescribeQuery|))247 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)248 (DESTRUCTURING-BIND249 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)250 ATN-PARSER::RESULT-AND-INDEX251 (WHEN ATN-PARSER::RESULT252 (SETF |DescribeQuery| ATN-PARSER::RESULT))253 (|Query/Query.2.5| ATN-PARSER::RESULT-INDEX))254 (SETF |DescribeQuery| |DescribeQuery583|))))255 (T (SETF *ATN-TERM?* '|DescribeQuery|) NIL))))256 (%ATN-EDGE-BLOCK257 (PUSH |AskQuery|)258 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)259 (ATN-PARSE-SUBSTRUCTURE* '|AskQuery| ATN-PARSER::INDEX)260 (COND (ATN-PARSER::SUCCESS261 (SETF *ATN-TERM* '|AskQuery|)262 (LET ((|AskQuery583| |AskQuery|))263 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)264 (DESTRUCTURING-BIND265 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)266 ATN-PARSER::RESULT-AND-INDEX267 (WHEN ATN-PARSER::RESULT (SETF |AskQuery| ATN-PARSER::RESULT))268 (|Query/Query.2.5| ATN-PARSER::RESULT-INDEX))269 (SETF |AskQuery| |AskQuery583|))))270 (T (SETF *ATN-TERM?* '|AskQuery|) NIL))))271 (|Query/fail.3| ATN-PARSER::INDEX)))))272 (|Query/Query.2.5| (ATN-PARSER::INDEX)273 (%ATN-NODE-BLOCK274 |Query/Query.2.5|275 (%ATN-EDGE-BLOCK276 (PUSH |BindingsClause|)277 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)278 (ATN-PARSE-SUBSTRUCTURE* '|BindingsClause| ATN-PARSER::INDEX)279 (COND (ATN-PARSER::SUCCESS280 (SETF *ATN-TERM* '|BindingsClause|)281 (LET ((|BindingsClause583| |BindingsClause|))282 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)283 (DESTRUCTURING-BIND284 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)285 ATN-PARSER::RESULT-AND-INDEX286 (WHEN ATN-PARSER::RESULT (SETF |BindingsClause| ATN-PARSER::RESULT))287 (|Query.2| ATN-PARSER::RESULT-INDEX))288 (SETF |BindingsClause| |BindingsClause583|))))289 (T (SETF *ATN-TERM?* '|BindingsClause|) (|Query.2| ATN-PARSER::INDEX)))))))290 (|Query/start.1| (ATN-PARSER::INDEX)291 (%ATN-NODE-BLOCK292 |Query/start.1|293 (%ATN-EDGE-BLOCK294 (PUSH |Prologue|)295 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)296 (ATN-PARSE-SUBSTRUCTURE* '|Prologue| ATN-PARSER::INDEX)297 (COND (ATN-PARSER::SUCCESS298 (SETF *ATN-TERM* '|Prologue|)299 (LET ((|Prologue583| |Prologue|))300 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)301 (DESTRUCTURING-BIND302 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)303 ATN-PARSER::RESULT-AND-INDEX304 (WHEN ATN-PARSER::RESULT (SETF |Prologue| ATN-PARSER::RESULT))305 (|Query/Query.2.4| ATN-PARSER::RESULT-INDEX))306 (SETF |Prologue| |Prologue583|))))307 (T (SETF *ATN-TERM?* '|Prologue|) (|Query/fail.3| ATN-PARSER::INDEX))))))))308 (|Query/start.1| ATN-PARSER::INDEX)309 (SETF *ATN-NODE NIL)310 NIL311 (IF ATN-PARSER::ATN-STRUCTURE312 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)313 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))314 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Query| ATN-PARSER::INDEX *ATN-STACK))))315 (PROGN (DEFVAR |Prologue-INDEX|)316 (DEFUN |Prologue| (ATN-PARSER::INDEX &AUX (|BaseDecl| NIL) (|PrefixDecl| NIL))317 "{2 } Prologue ::= BaseDecl? PrefixDecl*318 (|BaseDecl| |PrefixDecl|)"319 (DECLARE (SPECIAL |Prologue-INDEX|))320 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Prologue-INDEX| *ATN-LEVEL))321 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))322 (IF (< |Prologue-INDEX| ATN-PARSER::INDEX)323 (LET ((|Prologue-INDEX| ATN-PARSER::INDEX)324 (*ATN-LEVEL (1+ *ATN-LEVEL))325 (*ATN-STACK (CONS '|Prologue| *ATN-STACK))326 (ATN-PARSER::ATN-STRUCTURE NIL))327 (DECLARE (SPECIAL |Prologue-INDEX|))328 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))329 (DECLARE (TYPE CONS *ATN-STACK))330 (SYMBOL-MACROLET331 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))332 (%ATN-BLOCK |Prologue|333 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)334 (SETF *ATN-TERM* '|Prologue|)335 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))336 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)337 (|Prologue.2| (ATN-PARSER::INDEX)338 (%ATN-NODE-BLOCK339 |Prologue.2|340 (%ATN-EDGE-BLOCK341 (POP |Prologue|)342 (WHEN T343 (SETF *ATN-TERM* '|Prologue|)344 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"345 '|Prologue|346 ATN-PARSER::INDEX347 (LIST '|BaseDecl| |BaseDecl| '|PrefixDecl| |PrefixDecl|))348 (LET ((ATN-PARSER::RESULT-STRUCTURE349 (IF (EQ *ATN-REDUCE* T)350 (|Prologue-Constructor| |BaseDecl| |PrefixDecl|)351 (IF (EQ *ATN-REDUCE* 'CONS)352 (CONS '|Prologue| (DELETE NIL (LIST |BaseDecl| |PrefixDecl|)))353 '|Prologue|))))354 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))355 (|Prologue.5| (ATN-PARSER::INDEX)356 (%ATN-NODE-BLOCK357 |Prologue.5|358 (%ATN-EDGE-BLOCK359 (PUSH |PrefixDecl|)360 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)361 (ATN-PARSE-SUBSTRUCTURE* '|PrefixDecl| ATN-PARSER::INDEX)362 (COND (ATN-PARSER::SUCCESS363 (SETF *ATN-TERM* '|PrefixDecl|)364 (LET ((|PrefixDecl584| |PrefixDecl|))365 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)366 (DESTRUCTURING-BIND367 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)368 ATN-PARSER::RESULT-AND-INDEX369 (WHEN ATN-PARSER::RESULT370 (SETF |PrefixDecl| (CONS ATN-PARSER::RESULT |PrefixDecl|)))371 (|Prologue.5| ATN-PARSER::RESULT-INDEX))372 (SETF |PrefixDecl| |PrefixDecl584|))))373 (T (SETF *ATN-TERM?* '|PrefixDecl|) (|Prologue.2| ATN-PARSER::INDEX)))))))374 (|Prologue/fail.3| (ATN-PARSER::INDEX)375 (%ATN-NODE-BLOCK |Prologue/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))376 (|Prologue/Prologue.2.4| (ATN-PARSER::INDEX)377 (%ATN-NODE-BLOCK378 |Prologue/Prologue.2.4|379 (%ATN-EDGE-BLOCK380 (PUSH |PrefixDecl|)381 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)382 (ATN-PARSE-SUBSTRUCTURE* '|PrefixDecl| ATN-PARSER::INDEX)383 (COND (ATN-PARSER::SUCCESS384 (SETF *ATN-TERM* '|PrefixDecl|)385 (LET ((|PrefixDecl583| |PrefixDecl|))386 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)387 (DESTRUCTURING-BIND388 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)389 ATN-PARSER::RESULT-AND-INDEX390 (WHEN ATN-PARSER::RESULT391 (SETF |PrefixDecl| (CONS ATN-PARSER::RESULT |PrefixDecl|)))392 (|Prologue.5| ATN-PARSER::RESULT-INDEX))393 (SETF |PrefixDecl| |PrefixDecl583|))))394 (T (SETF *ATN-TERM?* '|PrefixDecl|) (|Prologue.2| ATN-PARSER::INDEX)))))))395 (|Prologue/start.1| (ATN-PARSER::INDEX)396 (%ATN-NODE-BLOCK397 |Prologue/start.1|398 (%ATN-EDGE-BLOCK399 (PUSH |BaseDecl|)400 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)401 (ATN-PARSE-SUBSTRUCTURE* '|BaseDecl| ATN-PARSER::INDEX)402 (COND (ATN-PARSER::SUCCESS403 (SETF *ATN-TERM* '|BaseDecl|)404 (LET ((|BaseDecl584| |BaseDecl|))405 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)406 (DESTRUCTURING-BIND407 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)408 ATN-PARSER::RESULT-AND-INDEX409 (WHEN ATN-PARSER::RESULT (SETF |BaseDecl| ATN-PARSER::RESULT))410 (|Prologue/Prologue.2.4| ATN-PARSER::RESULT-INDEX))411 (SETF |BaseDecl| |BaseDecl584|))))412 (T413 (SETF *ATN-TERM?* '|BaseDecl|)414 (|Prologue/Prologue.2.4| ATN-PARSER::INDEX))))))))415 (|Prologue/start.1| ATN-PARSER::INDEX)416 (SETF *ATN-NODE NIL)417 NIL418 (IF ATN-PARSER::ATN-STRUCTURE419 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)420 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))421 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Prologue| ATN-PARSER::INDEX *ATN-STACK))))422 (PROGN (DEFVAR |BaseDecl-INDEX|)423 (DEFUN |BaseDecl| (ATN-PARSER::INDEX &AUX (IRI_REF NIL))424 "{3 } BaseDecl ::= 'BASE' IRI_REF425 (IRI_REF)"426 (DECLARE (SPECIAL |BaseDecl-INDEX|))427 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BaseDecl-INDEX| *ATN-LEVEL))428 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))429 (IF (< |BaseDecl-INDEX| ATN-PARSER::INDEX)430 (LET ((|BaseDecl-INDEX| ATN-PARSER::INDEX)431 (*ATN-LEVEL (1+ *ATN-LEVEL))432 (*ATN-STACK (CONS '|BaseDecl| *ATN-STACK))433 (ATN-PARSER::ATN-STRUCTURE NIL))434 (DECLARE (SPECIAL |BaseDecl-INDEX|))435 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))436 (DECLARE (TYPE CONS *ATN-STACK))437 (SYMBOL-MACROLET438 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))439 (%ATN-BLOCK |BaseDecl|440 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)441 (SETF *ATN-TERM* '|BaseDecl|)442 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))443 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)444 (|BaseDecl.2| (ATN-PARSER::INDEX)445 (%ATN-NODE-BLOCK446 |BaseDecl.2|447 (%ATN-EDGE-BLOCK448 (POP |BaseDecl|)449 (WHEN T450 (SETF *ATN-TERM* '|BaseDecl|)451 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"452 '|BaseDecl|453 ATN-PARSER::INDEX454 (LIST 'IRI_REF IRI_REF))455 (LET ((ATN-PARSER::RESULT-STRUCTURE456 (IF (EQ *ATN-REDUCE* T)457 (|BaseDecl-Constructor| IRI_REF)458 (IF (EQ *ATN-REDUCE* 'CONS)459 (CONS '|BaseDecl| (DELETE NIL (LIST IRI_REF)))460 '|BaseDecl|))))461 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))462 (|BaseDecl/BaseDecl.2.4| (ATN-PARSER::INDEX)463 (%ATN-NODE-BLOCK464 |BaseDecl/BaseDecl.2.4|465 (%ATN-EDGE-BLOCK466 (PUSH IRI_REF)467 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)468 (ATN-PARSE-SUBSTRUCTURE* 'IRI_REF ATN-PARSER::INDEX)469 (COND (ATN-PARSER::SUCCESS470 (SETF *ATN-TERM* 'IRI_REF)471 (LET ((IRI_REF584 IRI_REF))472 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)473 (DESTRUCTURING-BIND474 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)475 ATN-PARSER::RESULT-AND-INDEX476 (WHEN ATN-PARSER::RESULT (SETF IRI_REF ATN-PARSER::RESULT))477 (|BaseDecl.2| ATN-PARSER::RESULT-INDEX))478 (SETF IRI_REF IRI_REF584))))479 (T (SETF *ATN-TERM?* 'IRI_REF) (|BaseDecl/fail.3| ATN-PARSER::INDEX)))))))480 (|BaseDecl/fail.3| (ATN-PARSER::INDEX)481 (%ATN-NODE-BLOCK |BaseDecl/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))482 (|BaseDecl/start.1| (ATN-PARSER::INDEX)483 (%ATN-NODE-BLOCK484 |BaseDecl/start.1|485 (%ATN-EDGE-BLOCK486 (ATN-PARSER::WORD SPOCQ.S:BASE)487 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BASE)488 (SETF *ATN-TERM* 'SPOCQ.S:BASE)489 (|BaseDecl/BaseDecl.2.4| (1+ ATN-PARSER::INDEX)))490 (T (SETF *ATN-TERM?* 'SPOCQ.S:BASE) (|BaseDecl/fail.3| ATN-PARSER::INDEX)))))))491 (|BaseDecl/start.1| ATN-PARSER::INDEX)492 (SETF *ATN-NODE NIL)493 NIL494 (IF ATN-PARSER::ATN-STRUCTURE495 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)496 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))497 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BaseDecl| ATN-PARSER::INDEX *ATN-STACK))))498 (PROGN (DEFVAR |PrefixDecl-INDEX|)499 (DEFUN |PrefixDecl| (ATN-PARSER::INDEX &AUX (NAMESPACE_REF NIL) (PNAME_NS NIL))500 "{4 } PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF501 (NAMESPACE_REF PNAME_NS)"502 (DECLARE (SPECIAL |PrefixDecl-INDEX|))503 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PrefixDecl-INDEX| *ATN-LEVEL))504 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))505 (IF (< |PrefixDecl-INDEX| ATN-PARSER::INDEX)506 (LET ((|PrefixDecl-INDEX| ATN-PARSER::INDEX)507 (*ATN-LEVEL (1+ *ATN-LEVEL))508 (*ATN-STACK (CONS '|PrefixDecl| *ATN-STACK))509 (ATN-PARSER::ATN-STRUCTURE NIL))510 (DECLARE (SPECIAL |PrefixDecl-INDEX|))511 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))512 (DECLARE (TYPE CONS *ATN-STACK))513 (SYMBOL-MACROLET514 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))515 (%ATN-BLOCK |PrefixDecl|516 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)517 (SETF *ATN-TERM* '|PrefixDecl|)518 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))519 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)520 (|PrefixDecl.2| (ATN-PARSER::INDEX)521 (%ATN-NODE-BLOCK522 |PrefixDecl.2|523 (%ATN-EDGE-BLOCK524 (POP |PrefixDecl|)525 (WHEN T526 (SETF *ATN-TERM* '|PrefixDecl|)527 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"528 '|PrefixDecl|529 ATN-PARSER::INDEX530 (LIST 'NAMESPACE_REF NAMESPACE_REF 'PNAME_NS PNAME_NS))531 (LET ((ATN-PARSER::RESULT-STRUCTURE532 (IF (EQ *ATN-REDUCE* T)533 (|PrefixDecl-Constructor| NAMESPACE_REF PNAME_NS)534 (IF (EQ *ATN-REDUCE* 'CONS)535 (CONS '|PrefixDecl| (DELETE NIL (LIST NAMESPACE_REF PNAME_NS)))536 '|PrefixDecl|))))537 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))538 (|PrefixDecl/fail.3| (ATN-PARSER::INDEX)539 (%ATN-NODE-BLOCK |PrefixDecl/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))540 (|PrefixDecl/PrefixDecl.2.4| (ATN-PARSER::INDEX)541 (%ATN-NODE-BLOCK542 |PrefixDecl/PrefixDecl.2.4|543 (%ATN-EDGE-BLOCK544 (TEST PNAME_NS)545 (COND ((IS-PNAME_NS ATN-PARSER::|item|)546 (SETF *ATN-TERM* 'PNAME_NS)547 (SETF PNAME_NS548 (IF (EQ *ATN-REDUCE* T)549 (ATN-REDUCE-ITEM #'|PNAME_NS-Constructor| ATN-PARSER::|item|)550 (IF (EQ *ATN-REDUCE* 'CONS)551 (LIST 'PNAME_NS ATN-PARSER::|item|)552 'PNAME_NS)))553 (|PrefixDecl/PrefixDecl.2.5| (1+ ATN-PARSER::INDEX)))554 (T (SETF *ATN-TERM?* 'PNAME_NS) (|PrefixDecl/fail.3| ATN-PARSER::INDEX))))))555 (|PrefixDecl/PrefixDecl.2.5| (ATN-PARSER::INDEX)556 (%ATN-NODE-BLOCK557 |PrefixDecl/PrefixDecl.2.5|558 (%ATN-EDGE-BLOCK559 (PUSH NAMESPACE_REF)560 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)561 (ATN-PARSE-SUBSTRUCTURE* 'NAMESPACE_REF ATN-PARSER::INDEX)562 (COND (ATN-PARSER::SUCCESS563 (SETF *ATN-TERM* 'NAMESPACE_REF)564 (LET ((NAMESPACE_REF584 NAMESPACE_REF))565 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)566 (DESTRUCTURING-BIND567 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)568 ATN-PARSER::RESULT-AND-INDEX569 (WHEN ATN-PARSER::RESULT (SETF NAMESPACE_REF ATN-PARSER::RESULT))570 (|PrefixDecl.2| ATN-PARSER::RESULT-INDEX))571 (SETF NAMESPACE_REF NAMESPACE_REF584))))572 (T573 (SETF *ATN-TERM?* 'NAMESPACE_REF)574 (|PrefixDecl/fail.3| ATN-PARSER::INDEX)))))))575 (|PrefixDecl/start.1| (ATN-PARSER::INDEX)576 (%ATN-NODE-BLOCK577 |PrefixDecl/start.1|578 (%ATN-EDGE-BLOCK579 (ATN-PARSER::WORD SPOCQ.S:PREFIX)580 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:PREFIX)581 (SETF *ATN-TERM* 'SPOCQ.S:PREFIX)582 (|PrefixDecl/PrefixDecl.2.4| (1+ ATN-PARSER::INDEX)))583 (T584 (SETF *ATN-TERM?* 'SPOCQ.S:PREFIX)585 (|PrefixDecl/fail.3| ATN-PARSER::INDEX)))))))586 (|PrefixDecl/start.1| ATN-PARSER::INDEX)587 (SETF *ATN-NODE NIL)588 NIL589 (IF ATN-PARSER::ATN-STRUCTURE590 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)591 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))592 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PrefixDecl| ATN-PARSER::INDEX *ATN-STACK))))593 (PROGN (DEFVAR |SelectQuery-INDEX|)594 (DEFUN |SelectQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|SelectClause| NIL) (|SolutionModifier| NIL)595 (|WhereClause| NIL))596 "{5 } SelectQuery ::= SelectClause DatasetClause* WhereClause SolutionModifier597 (|DatasetClause| |SelectClause| |SolutionModifier| |WhereClause|)"598 (DECLARE (SPECIAL |SelectQuery-INDEX|))599 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SelectQuery-INDEX| *ATN-LEVEL))600 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))601 (IF (< |SelectQuery-INDEX| ATN-PARSER::INDEX)602 (LET ((|SelectQuery-INDEX| ATN-PARSER::INDEX)603 (*ATN-LEVEL (1+ *ATN-LEVEL))604 (*ATN-STACK (CONS '|SelectQuery| *ATN-STACK))605 (ATN-PARSER::ATN-STRUCTURE NIL))606 (DECLARE (SPECIAL |SelectQuery-INDEX|))607 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))608 (DECLARE (TYPE CONS *ATN-STACK))609 (SYMBOL-MACROLET610 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))611 (%ATN-BLOCK |SelectQuery|612 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)613 (SETF *ATN-TERM* '|SelectQuery|)614 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))615 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)616 (|SelectQuery.2| (ATN-PARSER::INDEX)617 (%ATN-NODE-BLOCK618 |SelectQuery.2|619 (%ATN-EDGE-BLOCK620 (POP |SelectQuery|)621 (WHEN T622 (SETF *ATN-TERM* '|SelectQuery|)623 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"624 '|SelectQuery|625 ATN-PARSER::INDEX626 (LIST '|DatasetClause|627 |DatasetClause|628 '|SelectClause|629 |SelectClause|630 '|SolutionModifier|631 |SolutionModifier|632 '|WhereClause|633 |WhereClause|))634 (LET ((ATN-PARSER::RESULT-STRUCTURE635 (IF (EQ *ATN-REDUCE* T)636 (|SelectQuery-Constructor|637 |DatasetClause|638 |SelectClause|639 |SolutionModifier|640 |WhereClause|)641 (IF (EQ *ATN-REDUCE* 'CONS)642 (CONS '|SelectQuery|643 (DELETE NIL644 (LIST |DatasetClause|645 |SelectClause|646 |SolutionModifier|647 |WhereClause|)))648 '|SelectQuery|))))649 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))650 (|SelectQuery.7| (ATN-PARSER::INDEX)651 (%ATN-NODE-BLOCK652 |SelectQuery.7|653 (%ATN-EDGE-BLOCK654 (PUSH |DatasetClause|)655 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)656 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)657 (COND (ATN-PARSER::SUCCESS658 (SETF *ATN-TERM* '|DatasetClause|)659 (LET ((|DatasetClause585| |DatasetClause|))660 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)661 (DESTRUCTURING-BIND662 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)663 ATN-PARSER::RESULT-AND-INDEX664 (WHEN ATN-PARSER::RESULT665 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))666 (|SelectQuery.7| ATN-PARSER::RESULT-INDEX))667 (SETF |DatasetClause| |DatasetClause585|))))668 (T669 (SETF *ATN-TERM?* '|DatasetClause|)670 (|SelectQuery/SelectQuery.2.5| ATN-PARSER::INDEX)))))))671 (|SelectQuery/fail.3| (ATN-PARSER::INDEX)672 (%ATN-NODE-BLOCK |SelectQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))673 (|SelectQuery/SelectQuery.2.4| (ATN-PARSER::INDEX)674 (%ATN-NODE-BLOCK675 |SelectQuery/SelectQuery.2.4|676 (%ATN-EDGE-BLOCK677 (PUSH |DatasetClause|)678 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)679 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)680 (COND (ATN-PARSER::SUCCESS681 (SETF *ATN-TERM* '|DatasetClause|)682 (LET ((|DatasetClause584| |DatasetClause|))683 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)684 (DESTRUCTURING-BIND685 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)686 ATN-PARSER::RESULT-AND-INDEX687 (WHEN ATN-PARSER::RESULT688 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))689 (|SelectQuery.7| ATN-PARSER::RESULT-INDEX))690 (SETF |DatasetClause| |DatasetClause584|))))691 (T692 (SETF *ATN-TERM?* '|DatasetClause|)693 (|SelectQuery/SelectQuery.2.5| ATN-PARSER::INDEX)))))))694 (|SelectQuery/SelectQuery.2.5| (ATN-PARSER::INDEX)695 (%ATN-NODE-BLOCK696 |SelectQuery/SelectQuery.2.5|697 (%ATN-EDGE-BLOCK698 (PUSH |WhereClause|)699 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)700 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)701 (COND (ATN-PARSER::SUCCESS702 (SETF *ATN-TERM* '|WhereClause|)703 (LET ((|WhereClause584| |WhereClause|))704 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)705 (DESTRUCTURING-BIND706 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)707 ATN-PARSER::RESULT-AND-INDEX708 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))709 (|SelectQuery/SelectQuery.2.6| ATN-PARSER::RESULT-INDEX))710 (SETF |WhereClause| |WhereClause584|))))711 (T712 (SETF *ATN-TERM?* '|WhereClause|)713 (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))))714 (|SelectQuery/SelectQuery.2.6| (ATN-PARSER::INDEX)715 (%ATN-NODE-BLOCK716 |SelectQuery/SelectQuery.2.6|717 (%ATN-EDGE-BLOCK718 (PUSH |SolutionModifier|)719 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)720 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)721 (COND (ATN-PARSER::SUCCESS722 (SETF *ATN-TERM* '|SolutionModifier|)723 (LET ((|SolutionModifier584| |SolutionModifier|))724 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)725 (DESTRUCTURING-BIND726 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)727 ATN-PARSER::RESULT-AND-INDEX728 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))729 (|SelectQuery.2| ATN-PARSER::RESULT-INDEX))730 (SETF |SolutionModifier| |SolutionModifier584|))))731 (T732 (SETF *ATN-TERM?* '|SolutionModifier|)733 (|SelectQuery/fail.3| ATN-PARSER::INDEX)))))))734 (|SelectQuery/start.1| (ATN-PARSER::INDEX)735 (%ATN-NODE-BLOCK736 |SelectQuery/start.1|737 (%ATN-EDGE-BLOCK738 (PUSH |SelectClause|)739 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)740 (ATN-PARSE-SUBSTRUCTURE* '|SelectClause| ATN-PARSER::INDEX)741 (COND (ATN-PARSER::SUCCESS742 (SETF *ATN-TERM* '|SelectClause|)743 (LET ((|SelectClause585| |SelectClause|))744 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)745 (DESTRUCTURING-BIND746 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)747 ATN-PARSER::RESULT-AND-INDEX748 (WHEN ATN-PARSER::RESULT (SETF |SelectClause| ATN-PARSER::RESULT))749 (|SelectQuery/SelectQuery.2.4| ATN-PARSER::RESULT-INDEX))750 (SETF |SelectClause| |SelectClause585|))))751 (T752 (SETF *ATN-TERM?* '|SelectClause|)753 (|SelectQuery/fail.3| ATN-PARSER::INDEX))))))))754 (|SelectQuery/start.1| ATN-PARSER::INDEX)755 (SETF *ATN-NODE NIL)756 NIL757 (IF ATN-PARSER::ATN-STRUCTURE758 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)759 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))760 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SelectQuery| ATN-PARSER::INDEX *ATN-STACK))))761 (PROGN (DEFVAR |SelectClause-INDEX|)762 (DEFUN |SelectClause| (ATN-PARSER::INDEX &AUX (|Distinctness| NIL) (|VariableOrBinding| NIL) (|Wild| NIL))763 "SelectClause ::= 'SELECT' Distinctness? (((VariableOrBinding)+ | Wild))764 (|Distinctness| |VariableOrBinding| |Wild|)"765 (DECLARE (SPECIAL |SelectClause-INDEX|))766 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SelectClause-INDEX| *ATN-LEVEL))767 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))768 (IF (< |SelectClause-INDEX| ATN-PARSER::INDEX)769 (LET ((|SelectClause-INDEX| ATN-PARSER::INDEX)770 (*ATN-LEVEL (1+ *ATN-LEVEL))771 (*ATN-STACK (CONS '|SelectClause| *ATN-STACK))772 (ATN-PARSER::ATN-STRUCTURE NIL))773 (DECLARE (SPECIAL |SelectClause-INDEX|))774 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))775 (DECLARE (TYPE CONS *ATN-STACK))776 (SYMBOL-MACROLET777 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))778 (%ATN-BLOCK |SelectClause|779 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)780 (SETF *ATN-TERM* '|SelectClause|)781 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))782 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)783 (|SelectClause.2| (ATN-PARSER::INDEX)784 (%ATN-NODE-BLOCK785 |SelectClause.2|786 (%ATN-EDGE-BLOCK787 (POP |SelectClause|)788 (WHEN T789 (SETF *ATN-TERM* '|SelectClause|)790 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"791 '|SelectClause|792 ATN-PARSER::INDEX793 (LIST '|Distinctness|794 |Distinctness|795 '|VariableOrBinding|796 |VariableOrBinding|797 '|Wild|798 |Wild|))799 (LET ((ATN-PARSER::RESULT-STRUCTURE800 (IF (EQ *ATN-REDUCE* T)801 (|SelectClause-Constructor| |Distinctness| |VariableOrBinding| |Wild|)802 (IF (EQ *ATN-REDUCE* 'CONS)803 (CONS '|SelectClause|804 (DELETE NIL (LIST |Distinctness| |VariableOrBinding| |Wild|)))805 '|SelectClause|))))806 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))807 (|SelectClause.6| (ATN-PARSER::INDEX)808 (%ATN-NODE-BLOCK809 |SelectClause.6|810 (%ATN-EDGE-BLOCK811 (PUSH |VariableOrBinding|)812 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)813 (ATN-PARSE-SUBSTRUCTURE* '|VariableOrBinding| ATN-PARSER::INDEX)814 (COND (ATN-PARSER::SUCCESS815 (SETF *ATN-TERM* '|VariableOrBinding|)816 (LET ((|VariableOrBinding586| |VariableOrBinding|))817 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)818 (DESTRUCTURING-BIND819 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)820 ATN-PARSER::RESULT-AND-INDEX821 (WHEN ATN-PARSER::RESULT822 (SETF |VariableOrBinding|823 (CONS ATN-PARSER::RESULT |VariableOrBinding|)))824 (|SelectClause.6| ATN-PARSER::RESULT-INDEX))825 (SETF |VariableOrBinding| |VariableOrBinding586|))))826 (T827 (SETF *ATN-TERM?* '|VariableOrBinding|)828 (|SelectClause.2| ATN-PARSER::INDEX)))))))829 (|SelectClause/fail.3| (ATN-PARSER::INDEX)830 (%ATN-NODE-BLOCK |SelectClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))831 (|SelectClause/SelectClause.2.4| (ATN-PARSER::INDEX)832 (%ATN-NODE-BLOCK833 |SelectClause/SelectClause.2.4|834 (%ATN-EDGE-BLOCK835 (ATN-PARSER::CAT |Distinctness|)836 (COND ((|IS-Distinctness| ATN-PARSER::|item|)837 (SETF *ATN-TERM* '|Distinctness|)838 (SETF |Distinctness|839 (IF (EQ *ATN-REDUCE* T)840 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)841 (IF (EQ *ATN-REDUCE* 'CONS)842 (LIST '|Distinctness| ATN-PARSER::|item|)843 '|Distinctness|)))844 (|SelectClause/SelectClause.2.5| (1+ ATN-PARSER::INDEX)))845 (T846 (SETF *ATN-TERM* '|Distinctness|)847 (|SelectClause/SelectClause.2.5| ATN-PARSER::INDEX))))))848 (|SelectClause/SelectClause.2.5| (ATN-PARSER::INDEX)849 (%ATN-NODE-BLOCK850 |SelectClause/SelectClause.2.5|851 (%ATN-EDGE-BLOCK852 OR853 (PROGN (%ATN-EDGE-BLOCK854 (PUSH |VariableOrBinding|)855 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)856 (ATN-PARSE-SUBSTRUCTURE* '|VariableOrBinding| ATN-PARSER::INDEX)857 (COND (ATN-PARSER::SUCCESS858 (SETF *ATN-TERM* '|VariableOrBinding|)859 (LET ((|VariableOrBinding585| |VariableOrBinding|))860 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)861 (DESTRUCTURING-BIND862 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)863 ATN-PARSER::RESULT-AND-INDEX864 (WHEN ATN-PARSER::RESULT865 (SETF |VariableOrBinding|866 (CONS ATN-PARSER::RESULT |VariableOrBinding|)))867 (|SelectClause.6| ATN-PARSER::RESULT-INDEX))868 (SETF |VariableOrBinding| |VariableOrBinding585|))))869 (T (SETF *ATN-TERM?* '|VariableOrBinding|) NIL))))870 (%ATN-EDGE-BLOCK871 (ATN-PARSER::CAT |Wild|)872 (COND ((|IS-Wild| ATN-PARSER::|item|)873 (SETF *ATN-TERM* '|Wild|)874 (SETF |Wild|875 (IF (EQ *ATN-REDUCE* T)876 (ATN-REDUCE-ITEM #'|Wild-Constructor| ATN-PARSER::|item|)877 (IF (EQ *ATN-REDUCE* 'CONS)878 (LIST '|Wild| ATN-PARSER::|item|)879 '|Wild|)))880 (|SelectClause.2| (1+ ATN-PARSER::INDEX)))881 (T (SETF *ATN-TERM* '|Wild|) NIL)))882 (|SelectClause/fail.3| ATN-PARSER::INDEX)))))883 (|SelectClause/start.1| (ATN-PARSER::INDEX)884 (%ATN-NODE-BLOCK885 |SelectClause/start.1|886 (%ATN-EDGE-BLOCK887 (ATN-PARSER::WORD SPOCQ.S:SELECT)888 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:SELECT)889 (SETF *ATN-TERM* 'SPOCQ.S:SELECT)890 (|SelectClause/SelectClause.2.4| (1+ ATN-PARSER::INDEX)))891 (T892 (SETF *ATN-TERM?* 'SPOCQ.S:SELECT)893 (|SelectClause/fail.3| ATN-PARSER::INDEX)))))))894 (|SelectClause/start.1| ATN-PARSER::INDEX)895 (SETF *ATN-NODE NIL)896 NIL897 (IF ATN-PARSER::ATN-STRUCTURE898 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)899 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))900 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SelectClause| ATN-PARSER::INDEX *ATN-STACK))))901 (PROGN (DEFVAR |VariableOrBinding-INDEX|)902 (DEFUN |VariableOrBinding| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|Var| NIL))903 "{5 } VariableOrBinding ::= (Var | ('(' Expression 'AS' Var ')'))904 (|Expression| |Var|)"905 (DECLARE (SPECIAL |VariableOrBinding-INDEX|))906 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VariableOrBinding-INDEX| *ATN-LEVEL))907 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))908 (IF (< |VariableOrBinding-INDEX| ATN-PARSER::INDEX)909 (LET ((|VariableOrBinding-INDEX| ATN-PARSER::INDEX)910 (*ATN-LEVEL (1+ *ATN-LEVEL))911 (*ATN-STACK (CONS '|VariableOrBinding| *ATN-STACK))912 (ATN-PARSER::ATN-STRUCTURE NIL))913 (DECLARE (SPECIAL |VariableOrBinding-INDEX|))914 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))915 (DECLARE (TYPE CONS *ATN-STACK))916 (SYMBOL-MACROLET917 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))918 (%ATN-BLOCK |VariableOrBinding|919 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)920 (SETF *ATN-TERM* '|VariableOrBinding|)921 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))922 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)923 (|VariableOrBinding.2| (ATN-PARSER::INDEX)924 (%ATN-NODE-BLOCK925 |VariableOrBinding.2|926 (%ATN-EDGE-BLOCK927 (POP |VariableOrBinding|)928 (WHEN T929 (SETF *ATN-TERM* '|VariableOrBinding|)930 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"931 '|VariableOrBinding|932 ATN-PARSER::INDEX933 (LIST '|Expression| |Expression| '|Var| |Var|))934 (LET ((ATN-PARSER::RESULT-STRUCTURE935 (IF (EQ *ATN-REDUCE* T)936 (|VariableOrBinding-Constructor| |Expression| |Var|)937 (IF (EQ *ATN-REDUCE* 'CONS)938 (CONS '|VariableOrBinding| (DELETE NIL (LIST |Expression| |Var|)))939 '|VariableOrBinding|))))940 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))941 (|VariableOrBinding/fail.3| (ATN-PARSER::INDEX)942 (%ATN-NODE-BLOCK |VariableOrBinding/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))943 (|VariableOrBinding/start.1| (ATN-PARSER::INDEX)944 (%ATN-NODE-BLOCK945 |VariableOrBinding/start.1|946 (%ATN-EDGE-BLOCK947 OR948 (PROGN (%ATN-EDGE-BLOCK949 (TEST |Var|)950 (COND ((|IS-Var| ATN-PARSER::|item|)951 (SETF *ATN-TERM* '|Var|)952 (SETF |Var|953 (IF (EQ *ATN-REDUCE* T)954 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)955 (IF (EQ *ATN-REDUCE* 'CONS)956 (LIST '|Var| ATN-PARSER::|item|)957 '|Var|)))958 (|VariableOrBinding.2| (1+ ATN-PARSER::INDEX)))959 (T (SETF *ATN-TERM?* '|Var|) NIL)))960 (%ATN-EDGE-BLOCK961 (ATN-PARSER::JUMP |VariableOrBinding/VariableOrBinding.2.4|)962 (|VariableOrBinding/VariableOrBinding.2.4| ATN-PARSER::INDEX))963 (|VariableOrBinding/fail.3| ATN-PARSER::INDEX)))))964 (|VariableOrBinding/VariableOrBinding.2.4| (ATN-PARSER::INDEX)965 (%ATN-NODE-BLOCK966 |VariableOrBinding/VariableOrBinding.2.4|967 (%ATN-EDGE-BLOCK968 (ATN-PARSER::WORD SPOCQ.S:\()969 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()970 (SETF *ATN-TERM* 'SPOCQ.S:\()971 (|VariableOrBinding/VariableOrBinding.2.5| (1+ ATN-PARSER::INDEX)))972 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))973 (|VariableOrBinding/VariableOrBinding.2.5| (ATN-PARSER::INDEX)974 (%ATN-NODE-BLOCK975 |VariableOrBinding/VariableOrBinding.2.5|976 (%ATN-EDGE-BLOCK977 (PUSH |Expression|)978 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)979 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)980 (COND (ATN-PARSER::SUCCESS981 (SETF *ATN-TERM* '|Expression|)982 (LET ((|Expression586| |Expression|))983 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)984 (DESTRUCTURING-BIND985 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)986 ATN-PARSER::RESULT-AND-INDEX987 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))988 (|VariableOrBinding/VariableOrBinding.2.6| ATN-PARSER::RESULT-INDEX))989 (SETF |Expression| |Expression586|))))990 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))991 (|VariableOrBinding/VariableOrBinding.2.6| (ATN-PARSER::INDEX)992 (%ATN-NODE-BLOCK993 |VariableOrBinding/VariableOrBinding.2.6|994 (%ATN-EDGE-BLOCK995 (ATN-PARSER::WORD SPOCQ.S:AS)996 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS)997 (SETF *ATN-TERM* 'SPOCQ.S:AS)998 (|VariableOrBinding/VariableOrBinding.2.7| (1+ ATN-PARSER::INDEX)))999 (T (SETF *ATN-TERM?* 'SPOCQ.S:AS) NIL)))))1000 (|VariableOrBinding/VariableOrBinding.2.7| (ATN-PARSER::INDEX)1001 (%ATN-NODE-BLOCK1002 |VariableOrBinding/VariableOrBinding.2.7|1003 (%ATN-EDGE-BLOCK1004 (TEST |Var|)1005 (COND ((|IS-Var| ATN-PARSER::|item|)1006 (SETF *ATN-TERM* '|Var|)1007 (SETF |Var|1008 (IF (EQ *ATN-REDUCE* T)1009 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)1010 (IF (EQ *ATN-REDUCE* 'CONS) (LIST '|Var| ATN-PARSER::|item|) '|Var|)))1011 (|VariableOrBinding/VariableOrBinding.2.8| (1+ ATN-PARSER::INDEX)))1012 (T (SETF *ATN-TERM?* '|Var|) NIL)))))1013 (|VariableOrBinding/VariableOrBinding.2.8| (ATN-PARSER::INDEX)1014 (%ATN-NODE-BLOCK1015 |VariableOrBinding/VariableOrBinding.2.8|1016 (%ATN-EDGE-BLOCK1017 (ATN-PARSER::WORD SPOCQ.S:\))1018 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))1019 (SETF *ATN-TERM* 'SPOCQ.S:\))1020 (|VariableOrBinding.2| (1+ ATN-PARSER::INDEX)))1021 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL))))))1022 (|VariableOrBinding/start.1| ATN-PARSER::INDEX)1023 (SETF *ATN-NODE NIL)1024 NIL1025 (IF ATN-PARSER::ATN-STRUCTURE1026 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1027 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1028 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VariableOrBinding| ATN-PARSER::INDEX *ATN-STACK))))1029 (PROGN (DEFVAR |ConstructQuery-INDEX|)1030 (DEFUN |ConstructQuery| (ATN-PARSER::INDEX &AUX (|ConstructTemplate| NIL) (|DatasetClause| NIL) (|SolutionModifier| NIL)1031 (|WhereClause| NIL))1032 "{6 } ConstructQuery ::= 'CONSTRUCT' ConstructTemplate DatasetClause* WhereClause SolutionModifier1033 (|ConstructTemplate| |DatasetClause| |SolutionModifier| |WhereClause|)"1034 (DECLARE (SPECIAL |ConstructQuery-INDEX|))1035 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructQuery-INDEX| *ATN-LEVEL))1036 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1037 (IF (< |ConstructQuery-INDEX| ATN-PARSER::INDEX)1038 (LET ((|ConstructQuery-INDEX| ATN-PARSER::INDEX)1039 (*ATN-LEVEL (1+ *ATN-LEVEL))1040 (*ATN-STACK (CONS '|ConstructQuery| *ATN-STACK))1041 (ATN-PARSER::ATN-STRUCTURE NIL))1042 (DECLARE (SPECIAL |ConstructQuery-INDEX|))1043 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1044 (DECLARE (TYPE CONS *ATN-STACK))1045 (SYMBOL-MACROLET1046 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1047 (%ATN-BLOCK |ConstructQuery|1048 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1049 (SETF *ATN-TERM* '|ConstructQuery|)1050 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1051 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1052 (|ConstructQuery.2| (ATN-PARSER::INDEX)1053 (%ATN-NODE-BLOCK1054 |ConstructQuery.2|1055 (%ATN-EDGE-BLOCK1056 (POP |ConstructQuery|)1057 (WHEN T1058 (SETF *ATN-TERM* '|ConstructQuery|)1059 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1060 '|ConstructQuery|1061 ATN-PARSER::INDEX1062 (LIST '|ConstructTemplate|1063 |ConstructTemplate|1064 '|DatasetClause|1065 |DatasetClause|1066 '|SolutionModifier|1067 |SolutionModifier|1068 '|WhereClause|1069 |WhereClause|))1070 (LET ((ATN-PARSER::RESULT-STRUCTURE1071 (IF (EQ *ATN-REDUCE* T)1072 (|ConstructQuery-Constructor|1073 |ConstructTemplate|1074 |DatasetClause|1075 |SolutionModifier|1076 |WhereClause|)1077 (IF (EQ *ATN-REDUCE* 'CONS)1078 (CONS '|ConstructQuery|1079 (DELETE NIL1080 (LIST |ConstructTemplate|1081 |DatasetClause|1082 |SolutionModifier|1083 |WhereClause|)))1084 '|ConstructQuery|))))1085 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1086 (|ConstructQuery.8| (ATN-PARSER::INDEX)1087 (%ATN-NODE-BLOCK1088 |ConstructQuery.8|1089 (%ATN-EDGE-BLOCK1090 (PUSH |DatasetClause|)1091 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1092 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1093 (COND (ATN-PARSER::SUCCESS1094 (SETF *ATN-TERM* '|DatasetClause|)1095 (LET ((|DatasetClause587| |DatasetClause|))1096 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1097 (DESTRUCTURING-BIND1098 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1099 ATN-PARSER::RESULT-AND-INDEX1100 (WHEN ATN-PARSER::RESULT1101 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1102 (|ConstructQuery.8| ATN-PARSER::RESULT-INDEX))1103 (SETF |DatasetClause| |DatasetClause587|))))1104 (T1105 (SETF *ATN-TERM?* '|DatasetClause|)1106 (|ConstructQuery/ConstructQuery.2.6| ATN-PARSER::INDEX)))))))1107 (|ConstructQuery/ConstructQuery.2.4| (ATN-PARSER::INDEX)1108 (%ATN-NODE-BLOCK1109 |ConstructQuery/ConstructQuery.2.4|1110 (%ATN-EDGE-BLOCK1111 (PUSH |ConstructTemplate|)1112 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1113 (ATN-PARSE-SUBSTRUCTURE* '|ConstructTemplate| ATN-PARSER::INDEX)1114 (COND (ATN-PARSER::SUCCESS1115 (SETF *ATN-TERM* '|ConstructTemplate|)1116 (LET ((|ConstructTemplate587| |ConstructTemplate|))1117 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1118 (DESTRUCTURING-BIND1119 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1120 ATN-PARSER::RESULT-AND-INDEX1121 (WHEN ATN-PARSER::RESULT (SETF |ConstructTemplate| ATN-PARSER::RESULT))1122 (|ConstructQuery/ConstructQuery.2.5| ATN-PARSER::RESULT-INDEX))1123 (SETF |ConstructTemplate| |ConstructTemplate587|))))1124 (T1125 (SETF *ATN-TERM?* '|ConstructTemplate|)1126 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))1127 (|ConstructQuery/ConstructQuery.2.5| (ATN-PARSER::INDEX)1128 (%ATN-NODE-BLOCK1129 |ConstructQuery/ConstructQuery.2.5|1130 (%ATN-EDGE-BLOCK1131 (PUSH |DatasetClause|)1132 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1133 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1134 (COND (ATN-PARSER::SUCCESS1135 (SETF *ATN-TERM* '|DatasetClause|)1136 (LET ((|DatasetClause586| |DatasetClause|))1137 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1138 (DESTRUCTURING-BIND1139 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1140 ATN-PARSER::RESULT-AND-INDEX1141 (WHEN ATN-PARSER::RESULT1142 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1143 (|ConstructQuery.8| ATN-PARSER::RESULT-INDEX))1144 (SETF |DatasetClause| |DatasetClause586|))))1145 (T1146 (SETF *ATN-TERM?* '|DatasetClause|)1147 (|ConstructQuery/ConstructQuery.2.6| ATN-PARSER::INDEX)))))))1148 (|ConstructQuery/ConstructQuery.2.6| (ATN-PARSER::INDEX)1149 (%ATN-NODE-BLOCK1150 |ConstructQuery/ConstructQuery.2.6|1151 (%ATN-EDGE-BLOCK1152 (PUSH |WhereClause|)1153 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1154 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)1155 (COND (ATN-PARSER::SUCCESS1156 (SETF *ATN-TERM* '|WhereClause|)1157 (LET ((|WhereClause586| |WhereClause|))1158 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1159 (DESTRUCTURING-BIND1160 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1161 ATN-PARSER::RESULT-AND-INDEX1162 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))1163 (|ConstructQuery/ConstructQuery.2.7| ATN-PARSER::RESULT-INDEX))1164 (SETF |WhereClause| |WhereClause586|))))1165 (T1166 (SETF *ATN-TERM?* '|WhereClause|)1167 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))1168 (|ConstructQuery/ConstructQuery.2.7| (ATN-PARSER::INDEX)1169 (%ATN-NODE-BLOCK1170 |ConstructQuery/ConstructQuery.2.7|1171 (%ATN-EDGE-BLOCK1172 (PUSH |SolutionModifier|)1173 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1174 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)1175 (COND (ATN-PARSER::SUCCESS1176 (SETF *ATN-TERM* '|SolutionModifier|)1177 (LET ((|SolutionModifier586| |SolutionModifier|))1178 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1179 (DESTRUCTURING-BIND1180 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1181 ATN-PARSER::RESULT-AND-INDEX1182 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))1183 (|ConstructQuery.2| ATN-PARSER::RESULT-INDEX))1184 (SETF |SolutionModifier| |SolutionModifier586|))))1185 (T1186 (SETF *ATN-TERM?* '|SolutionModifier|)1187 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))1188 (|ConstructQuery/fail.3| (ATN-PARSER::INDEX)1189 (%ATN-NODE-BLOCK |ConstructQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1190 (|ConstructQuery/start.1| (ATN-PARSER::INDEX)1191 (%ATN-NODE-BLOCK1192 |ConstructQuery/start.1|1193 (%ATN-EDGE-BLOCK1194 (ATN-PARSER::WORD SPOCQ.S:CONSTRUCT)1195 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:CONSTRUCT)1196 (SETF *ATN-TERM* 'SPOCQ.S:CONSTRUCT)1197 (|ConstructQuery/ConstructQuery.2.4| (1+ ATN-PARSER::INDEX)))1198 (T1199 (SETF *ATN-TERM?* 'SPOCQ.S:CONSTRUCT)1200 (|ConstructQuery/fail.3| ATN-PARSER::INDEX)))))))1201 (|ConstructQuery/start.1| ATN-PARSER::INDEX)1202 (SETF *ATN-NODE NIL)1203 NIL1204 (IF ATN-PARSER::ATN-STRUCTURE1205 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1206 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1207 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructQuery| ATN-PARSER::INDEX *ATN-STACK))))1208 (PROGN (DEFVAR |DescribeQuery-INDEX|)1209 (DEFUN |DescribeQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|SolutionModifier| NIL) (|VarOrIRIref| NIL)1210 (|WhereClause| NIL))1211 "{7 } DescribeQuery ::= 'DESCRIBE' ((VarOrIRIref+ | '*')) DatasetClause* WhereClause? SolutionModifier1212 (|DatasetClause| |SolutionModifier| |VarOrIRIref| |WhereClause|)"1213 (DECLARE (SPECIAL |DescribeQuery-INDEX|))1214 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DescribeQuery-INDEX| *ATN-LEVEL))1215 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1216 (IF (< |DescribeQuery-INDEX| ATN-PARSER::INDEX)1217 (LET ((|DescribeQuery-INDEX| ATN-PARSER::INDEX)1218 (*ATN-LEVEL (1+ *ATN-LEVEL))1219 (*ATN-STACK (CONS '|DescribeQuery| *ATN-STACK))1220 (ATN-PARSER::ATN-STRUCTURE NIL))1221 (DECLARE (SPECIAL |DescribeQuery-INDEX|))1222 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1223 (DECLARE (TYPE CONS *ATN-STACK))1224 (SYMBOL-MACROLET1225 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1226 (%ATN-BLOCK |DescribeQuery|1227 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1228 (SETF *ATN-TERM* '|DescribeQuery|)1229 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1230 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1231 (|DescribeQuery.2| (ATN-PARSER::INDEX)1232 (%ATN-NODE-BLOCK1233 |DescribeQuery.2|1234 (%ATN-EDGE-BLOCK1235 (POP |DescribeQuery|)1236 (WHEN T1237 (SETF *ATN-TERM* '|DescribeQuery|)1238 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1239 '|DescribeQuery|1240 ATN-PARSER::INDEX1241 (LIST '|DatasetClause|1242 |DatasetClause|1243 '|SolutionModifier|1244 |SolutionModifier|1245 '|VarOrIRIref|1246 |VarOrIRIref|1247 '|WhereClause|1248 |WhereClause|))1249 (LET ((ATN-PARSER::RESULT-STRUCTURE1250 (IF (EQ *ATN-REDUCE* T)1251 (|DescribeQuery-Constructor|1252 |DatasetClause|1253 |SolutionModifier|1254 |VarOrIRIref|1255 |WhereClause|)1256 (IF (EQ *ATN-REDUCE* 'CONS)1257 (CONS '|DescribeQuery|1258 (DELETE NIL1259 (LIST |DatasetClause|1260 |SolutionModifier|1261 |VarOrIRIref|1262 |WhereClause|)))1263 '|DescribeQuery|))))1264 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1265 (|DescribeQuery.8| (ATN-PARSER::INDEX)1266 (%ATN-NODE-BLOCK1267 |DescribeQuery.8|1268 (%ATN-EDGE-BLOCK1269 (PUSH |VarOrIRIref|)1270 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1271 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)1272 (COND (ATN-PARSER::SUCCESS1273 (SETF *ATN-TERM* '|VarOrIRIref|)1274 (LET ((|VarOrIRIref590| |VarOrIRIref|))1275 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1276 (DESTRUCTURING-BIND1277 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1278 ATN-PARSER::RESULT-AND-INDEX1279 (WHEN ATN-PARSER::RESULT1280 (SETF |VarOrIRIref| (CONS ATN-PARSER::RESULT |VarOrIRIref|)))1281 (|DescribeQuery.8| ATN-PARSER::RESULT-INDEX))1282 (SETF |VarOrIRIref| |VarOrIRIref590|))))1283 (T1284 (SETF *ATN-TERM?* '|VarOrIRIref|)1285 (|DescribeQuery/DescribeQuery.2.5| ATN-PARSER::INDEX)))))))1286 (|DescribeQuery.9| (ATN-PARSER::INDEX)1287 (%ATN-NODE-BLOCK1288 |DescribeQuery.9|1289 (%ATN-EDGE-BLOCK1290 (PUSH |DatasetClause|)1291 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1292 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1293 (COND (ATN-PARSER::SUCCESS1294 (SETF *ATN-TERM* '|DatasetClause|)1295 (LET ((|DatasetClause589| |DatasetClause|))1296 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1297 (DESTRUCTURING-BIND1298 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1299 ATN-PARSER::RESULT-AND-INDEX1300 (WHEN ATN-PARSER::RESULT1301 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1302 (|DescribeQuery.9| ATN-PARSER::RESULT-INDEX))1303 (SETF |DatasetClause| |DatasetClause589|))))1304 (T1305 (SETF *ATN-TERM?* '|DatasetClause|)1306 (|DescribeQuery/DescribeQuery.2.6| ATN-PARSER::INDEX)))))))1307 (|DescribeQuery/DescribeQuery.2.4| (ATN-PARSER::INDEX)1308 (%ATN-NODE-BLOCK1309 |DescribeQuery/DescribeQuery.2.4|1310 (%ATN-EDGE-BLOCK1311 OR1312 (PROGN (%ATN-EDGE-BLOCK1313 (PUSH |VarOrIRIref|)1314 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1315 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)1316 (COND (ATN-PARSER::SUCCESS1317 (SETF *ATN-TERM* '|VarOrIRIref|)1318 (LET ((|VarOrIRIref589| |VarOrIRIref|))1319 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1320 (DESTRUCTURING-BIND1321 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1322 ATN-PARSER::RESULT-AND-INDEX1323 (WHEN ATN-PARSER::RESULT1324 (SETF |VarOrIRIref| (CONS ATN-PARSER::RESULT |VarOrIRIref|)))1325 (|DescribeQuery.8| ATN-PARSER::RESULT-INDEX))1326 (SETF |VarOrIRIref| |VarOrIRIref589|))))1327 (T (SETF *ATN-TERM?* '|VarOrIRIref|) NIL))))1328 (%ATN-EDGE-BLOCK1329 (ATN-PARSER::WORD SPOCQ.S:*)1330 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:*)1331 (SETF *ATN-TERM* 'SPOCQ.S:*)1332 (|DescribeQuery/DescribeQuery.2.5| (1+ ATN-PARSER::INDEX)))1333 (T (SETF *ATN-TERM?* 'SPOCQ.S:*) NIL)))1334 (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))1335 (|DescribeQuery/DescribeQuery.2.5| (ATN-PARSER::INDEX)1336 (%ATN-NODE-BLOCK1337 |DescribeQuery/DescribeQuery.2.5|1338 (%ATN-EDGE-BLOCK1339 (PUSH |DatasetClause|)1340 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1341 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1342 (COND (ATN-PARSER::SUCCESS1343 (SETF *ATN-TERM* '|DatasetClause|)1344 (LET ((|DatasetClause588| |DatasetClause|))1345 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1346 (DESTRUCTURING-BIND1347 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1348 ATN-PARSER::RESULT-AND-INDEX1349 (WHEN ATN-PARSER::RESULT1350 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1351 (|DescribeQuery.9| ATN-PARSER::RESULT-INDEX))1352 (SETF |DatasetClause| |DatasetClause588|))))1353 (T1354 (SETF *ATN-TERM?* '|DatasetClause|)1355 (|DescribeQuery/DescribeQuery.2.6| ATN-PARSER::INDEX)))))))1356 (|DescribeQuery/DescribeQuery.2.6| (ATN-PARSER::INDEX)1357 (%ATN-NODE-BLOCK1358 |DescribeQuery/DescribeQuery.2.6|1359 (%ATN-EDGE-BLOCK1360 (PUSH |WhereClause|)1361 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1362 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)1363 (COND (ATN-PARSER::SUCCESS1364 (SETF *ATN-TERM* '|WhereClause|)1365 (LET ((|WhereClause587| |WhereClause|))1366 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1367 (DESTRUCTURING-BIND1368 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1369 ATN-PARSER::RESULT-AND-INDEX1370 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))1371 (|DescribeQuery/DescribeQuery.2.7| ATN-PARSER::RESULT-INDEX))1372 (SETF |WhereClause| |WhereClause587|))))1373 (T1374 (SETF *ATN-TERM?* '|WhereClause|)1375 (|DescribeQuery/DescribeQuery.2.7| ATN-PARSER::INDEX)))))))1376 (|DescribeQuery/DescribeQuery.2.7| (ATN-PARSER::INDEX)1377 (%ATN-NODE-BLOCK1378 |DescribeQuery/DescribeQuery.2.7|1379 (%ATN-EDGE-BLOCK1380 (PUSH |SolutionModifier|)1381 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1382 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)1383 (COND (ATN-PARSER::SUCCESS1384 (SETF *ATN-TERM* '|SolutionModifier|)1385 (LET ((|SolutionModifier587| |SolutionModifier|))1386 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1387 (DESTRUCTURING-BIND1388 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1389 ATN-PARSER::RESULT-AND-INDEX1390 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))1391 (|DescribeQuery.2| ATN-PARSER::RESULT-INDEX))1392 (SETF |SolutionModifier| |SolutionModifier587|))))1393 (T1394 (SETF *ATN-TERM?* '|SolutionModifier|)1395 (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))))1396 (|DescribeQuery/fail.3| (ATN-PARSER::INDEX)1397 (%ATN-NODE-BLOCK |DescribeQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1398 (|DescribeQuery/start.1| (ATN-PARSER::INDEX)1399 (%ATN-NODE-BLOCK1400 |DescribeQuery/start.1|1401 (%ATN-EDGE-BLOCK1402 (ATN-PARSER::WORD SPOCQ.S:DESCRIBE)1403 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:DESCRIBE)1404 (SETF *ATN-TERM* 'SPOCQ.S:DESCRIBE)1405 (|DescribeQuery/DescribeQuery.2.4| (1+ ATN-PARSER::INDEX)))1406 (T1407 (SETF *ATN-TERM?* 'SPOCQ.S:DESCRIBE)1408 (|DescribeQuery/fail.3| ATN-PARSER::INDEX)))))))1409 (|DescribeQuery/start.1| ATN-PARSER::INDEX)1410 (SETF *ATN-NODE NIL)1411 NIL1412 (IF ATN-PARSER::ATN-STRUCTURE1413 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1414 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1415 (WARN "recursive grammar: ~s @ position ~s: ~s" '|DescribeQuery| ATN-PARSER::INDEX *ATN-STACK))))1416 (PROGN (DEFVAR |AskQuery-INDEX|)1417 (DEFUN |AskQuery| (ATN-PARSER::INDEX &AUX (|DatasetClause| NIL) (|WhereClause| NIL))1418 "{8 } AskQuery ::= 'ASK' DatasetClause* WhereClause1419 (|DatasetClause| |WhereClause|)"1420 (DECLARE (SPECIAL |AskQuery-INDEX|))1421 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AskQuery-INDEX| *ATN-LEVEL))1422 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1423 (IF (< |AskQuery-INDEX| ATN-PARSER::INDEX)1424 (LET ((|AskQuery-INDEX| ATN-PARSER::INDEX)1425 (*ATN-LEVEL (1+ *ATN-LEVEL))1426 (*ATN-STACK (CONS '|AskQuery| *ATN-STACK))1427 (ATN-PARSER::ATN-STRUCTURE NIL))1428 (DECLARE (SPECIAL |AskQuery-INDEX|))1429 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1430 (DECLARE (TYPE CONS *ATN-STACK))1431 (SYMBOL-MACROLET1432 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1433 (%ATN-BLOCK |AskQuery|1434 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1435 (SETF *ATN-TERM* '|AskQuery|)1436 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1437 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1438 (|AskQuery.2| (ATN-PARSER::INDEX)1439 (%ATN-NODE-BLOCK1440 |AskQuery.2|1441 (%ATN-EDGE-BLOCK1442 (POP |AskQuery|)1443 (WHEN T1444 (SETF *ATN-TERM* '|AskQuery|)1445 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1446 '|AskQuery|1447 ATN-PARSER::INDEX1448 (LIST '|DatasetClause| |DatasetClause| '|WhereClause| |WhereClause|))1449 (LET ((ATN-PARSER::RESULT-STRUCTURE1450 (IF (EQ *ATN-REDUCE* T)1451 (|AskQuery-Constructor| |DatasetClause| |WhereClause|)1452 (IF (EQ *ATN-REDUCE* 'CONS)1453 (CONS '|AskQuery| (DELETE NIL (LIST |DatasetClause| |WhereClause|)))1454 '|AskQuery|))))1455 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1456 (|AskQuery.6| (ATN-PARSER::INDEX)1457 (%ATN-NODE-BLOCK1458 |AskQuery.6|1459 (%ATN-EDGE-BLOCK1460 (PUSH |DatasetClause|)1461 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1462 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1463 (COND (ATN-PARSER::SUCCESS1464 (SETF *ATN-TERM* '|DatasetClause|)1465 (LET ((|DatasetClause591| |DatasetClause|))1466 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1467 (DESTRUCTURING-BIND1468 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1469 ATN-PARSER::RESULT-AND-INDEX1470 (WHEN ATN-PARSER::RESULT1471 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1472 (|AskQuery.6| ATN-PARSER::RESULT-INDEX))1473 (SETF |DatasetClause| |DatasetClause591|))))1474 (T1475 (SETF *ATN-TERM?* '|DatasetClause|)1476 (|AskQuery/AskQuery.2.5| ATN-PARSER::INDEX)))))))1477 (|AskQuery/AskQuery.2.4| (ATN-PARSER::INDEX)1478 (%ATN-NODE-BLOCK1479 |AskQuery/AskQuery.2.4|1480 (%ATN-EDGE-BLOCK1481 (PUSH |DatasetClause|)1482 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1483 (ATN-PARSE-SUBSTRUCTURE* '|DatasetClause| ATN-PARSER::INDEX)1484 (COND (ATN-PARSER::SUCCESS1485 (SETF *ATN-TERM* '|DatasetClause|)1486 (LET ((|DatasetClause590| |DatasetClause|))1487 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1488 (DESTRUCTURING-BIND1489 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1490 ATN-PARSER::RESULT-AND-INDEX1491 (WHEN ATN-PARSER::RESULT1492 (SETF |DatasetClause| (CONS ATN-PARSER::RESULT |DatasetClause|)))1493 (|AskQuery.6| ATN-PARSER::RESULT-INDEX))1494 (SETF |DatasetClause| |DatasetClause590|))))1495 (T1496 (SETF *ATN-TERM?* '|DatasetClause|)1497 (|AskQuery/AskQuery.2.5| ATN-PARSER::INDEX)))))))1498 (|AskQuery/AskQuery.2.5| (ATN-PARSER::INDEX)1499 (%ATN-NODE-BLOCK1500 |AskQuery/AskQuery.2.5|1501 (%ATN-EDGE-BLOCK1502 (PUSH |WhereClause|)1503 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1504 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)1505 (COND (ATN-PARSER::SUCCESS1506 (SETF *ATN-TERM* '|WhereClause|)1507 (LET ((|WhereClause590| |WhereClause|))1508 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1509 (DESTRUCTURING-BIND1510 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1511 ATN-PARSER::RESULT-AND-INDEX1512 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))1513 (|AskQuery.2| ATN-PARSER::RESULT-INDEX))1514 (SETF |WhereClause| |WhereClause590|))))1515 (T1516 (SETF *ATN-TERM?* '|WhereClause|)1517 (|AskQuery/fail.3| ATN-PARSER::INDEX)))))))1518 (|AskQuery/fail.3| (ATN-PARSER::INDEX)1519 (%ATN-NODE-BLOCK |AskQuery/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1520 (|AskQuery/start.1| (ATN-PARSER::INDEX)1521 (%ATN-NODE-BLOCK1522 |AskQuery/start.1|1523 (%ATN-EDGE-BLOCK1524 (ATN-PARSER::WORD SPOCQ.S:ASK)1525 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:ASK)1526 (SETF *ATN-TERM* 'SPOCQ.S:ASK)1527 (|AskQuery/AskQuery.2.4| (1+ ATN-PARSER::INDEX)))1528 (T (SETF *ATN-TERM?* 'SPOCQ.S:ASK) (|AskQuery/fail.3| ATN-PARSER::INDEX)))))))1529 (|AskQuery/start.1| ATN-PARSER::INDEX)1530 (SETF *ATN-NODE NIL)1531 NIL1532 (IF ATN-PARSER::ATN-STRUCTURE1533 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1534 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1535 (WARN "recursive grammar: ~s @ position ~s: ~s" '|AskQuery| ATN-PARSER::INDEX *ATN-STACK))))1536 (PROGN (DEFVAR |DatasetClause-INDEX|)1537 (DEFUN |DatasetClause| (ATN-PARSER::INDEX &AUX (|DefaultGraphClause| NIL) (|NamedGraphClause| NIL))1538 "{9 } DatasetClause ::= 'FROM' ((DefaultGraphClause | NamedGraphClause))1539 (|DefaultGraphClause| |NamedGraphClause|)"1540 (DECLARE (SPECIAL |DatasetClause-INDEX|))1541 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DatasetClause-INDEX| *ATN-LEVEL))1542 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1543 (IF (< |DatasetClause-INDEX| ATN-PARSER::INDEX)1544 (LET ((|DatasetClause-INDEX| ATN-PARSER::INDEX)1545 (*ATN-LEVEL (1+ *ATN-LEVEL))1546 (*ATN-STACK (CONS '|DatasetClause| *ATN-STACK))1547 (ATN-PARSER::ATN-STRUCTURE NIL))1548 (DECLARE (SPECIAL |DatasetClause-INDEX|))1549 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1550 (DECLARE (TYPE CONS *ATN-STACK))1551 (SYMBOL-MACROLET1552 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1553 (%ATN-BLOCK |DatasetClause|1554 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1555 (SETF *ATN-TERM* '|DatasetClause|)1556 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1557 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1558 (|DatasetClause.2| (ATN-PARSER::INDEX)1559 (%ATN-NODE-BLOCK1560 |DatasetClause.2|1561 (%ATN-EDGE-BLOCK1562 (POP |DatasetClause|)1563 (WHEN T1564 (SETF *ATN-TERM* '|DatasetClause|)1565 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1566 '|DatasetClause|1567 ATN-PARSER::INDEX1568 (LIST '|DefaultGraphClause|1569 |DefaultGraphClause|1570 '|NamedGraphClause|1571 |NamedGraphClause|))1572 (LET ((ATN-PARSER::RESULT-STRUCTURE1573 (IF (EQ *ATN-REDUCE* T)1574 (|DatasetClause-Constructor| |DefaultGraphClause| |NamedGraphClause|)1575 (IF (EQ *ATN-REDUCE* 'CONS)1576 (CONS '|DatasetClause|1577 (DELETE NIL (LIST |DefaultGraphClause| |NamedGraphClause|)))1578 '|DatasetClause|))))1579 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1580 (|DatasetClause/DatasetClause.2.4| (ATN-PARSER::INDEX)1581 (%ATN-NODE-BLOCK1582 |DatasetClause/DatasetClause.2.4|1583 (%ATN-EDGE-BLOCK1584 OR1585 (PROGN (%ATN-EDGE-BLOCK1586 (PUSH |DefaultGraphClause|)1587 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1588 (ATN-PARSE-SUBSTRUCTURE* '|DefaultGraphClause| ATN-PARSER::INDEX)1589 (COND (ATN-PARSER::SUCCESS1590 (SETF *ATN-TERM* '|DefaultGraphClause|)1591 (LET ((|DefaultGraphClause591| |DefaultGraphClause|))1592 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1593 (DESTRUCTURING-BIND1594 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1595 ATN-PARSER::RESULT-AND-INDEX1596 (WHEN ATN-PARSER::RESULT1597 (SETF |DefaultGraphClause| ATN-PARSER::RESULT))1598 (|DatasetClause.2| ATN-PARSER::RESULT-INDEX))1599 (SETF |DefaultGraphClause| |DefaultGraphClause591|))))1600 (T (SETF *ATN-TERM?* '|DefaultGraphClause|) NIL))))1601 (%ATN-EDGE-BLOCK1602 (PUSH |NamedGraphClause|)1603 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1604 (ATN-PARSE-SUBSTRUCTURE* '|NamedGraphClause| ATN-PARSER::INDEX)1605 (COND (ATN-PARSER::SUCCESS1606 (SETF *ATN-TERM* '|NamedGraphClause|)1607 (LET ((|NamedGraphClause591| |NamedGraphClause|))1608 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1609 (DESTRUCTURING-BIND1610 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1611 ATN-PARSER::RESULT-AND-INDEX1612 (WHEN ATN-PARSER::RESULT1613 (SETF |NamedGraphClause| ATN-PARSER::RESULT))1614 (|DatasetClause.2| ATN-PARSER::RESULT-INDEX))1615 (SETF |NamedGraphClause| |NamedGraphClause591|))))1616 (T (SETF *ATN-TERM?* '|NamedGraphClause|) NIL))))1617 (|DatasetClause/fail.3| ATN-PARSER::INDEX)))))1618 (|DatasetClause/fail.3| (ATN-PARSER::INDEX)1619 (%ATN-NODE-BLOCK |DatasetClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1620 (|DatasetClause/start.1| (ATN-PARSER::INDEX)1621 (%ATN-NODE-BLOCK1622 |DatasetClause/start.1|1623 (%ATN-EDGE-BLOCK1624 (ATN-PARSER::WORD SPOCQ.S:FROM)1625 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:FROM)1626 (SETF *ATN-TERM* 'SPOCQ.S:FROM)1627 (|DatasetClause/DatasetClause.2.4| (1+ ATN-PARSER::INDEX)))1628 (T1629 (SETF *ATN-TERM?* 'SPOCQ.S:FROM)1630 (|DatasetClause/fail.3| ATN-PARSER::INDEX)))))))1631 (|DatasetClause/start.1| ATN-PARSER::INDEX)1632 (SETF *ATN-NODE NIL)1633 NIL1634 (IF ATN-PARSER::ATN-STRUCTURE1635 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1636 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1637 (WARN "recursive grammar: ~s @ position ~s: ~s" '|DatasetClause| ATN-PARSER::INDEX *ATN-STACK))))1638 (PROGN (DEFVAR |DefaultGraphClause-INDEX|)1639 (DEFUN |DefaultGraphClause| (ATN-PARSER::INDEX &AUX (|SourceSelector| NIL))1640 "{10} DefaultGraphClause ::= SourceSelector1641 (|SourceSelector|)"1642 (DECLARE (SPECIAL |DefaultGraphClause-INDEX|))1643 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |DefaultGraphClause-INDEX| *ATN-LEVEL))1644 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1645 (IF (< |DefaultGraphClause-INDEX| ATN-PARSER::INDEX)1646 (LET ((|DefaultGraphClause-INDEX| ATN-PARSER::INDEX)1647 (*ATN-LEVEL (1+ *ATN-LEVEL))1648 (*ATN-STACK (CONS '|DefaultGraphClause| *ATN-STACK))1649 (ATN-PARSER::ATN-STRUCTURE NIL))1650 (DECLARE (SPECIAL |DefaultGraphClause-INDEX|))1651 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1652 (DECLARE (TYPE CONS *ATN-STACK))1653 (SYMBOL-MACROLET1654 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1655 (%ATN-BLOCK |DefaultGraphClause|1656 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1657 (SETF *ATN-TERM* '|DefaultGraphClause|)1658 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1659 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1660 (|DefaultGraphClause.2| (ATN-PARSER::INDEX)1661 (%ATN-NODE-BLOCK1662 |DefaultGraphClause.2|1663 (%ATN-EDGE-BLOCK1664 (POP |DefaultGraphClause|)1665 (WHEN T1666 (SETF *ATN-TERM* '|DefaultGraphClause|)1667 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1668 '|DefaultGraphClause|1669 ATN-PARSER::INDEX1670 (LIST '|SourceSelector| |SourceSelector|))1671 (LET ((ATN-PARSER::RESULT-STRUCTURE1672 (IF (EQ *ATN-REDUCE* T)1673 (|DefaultGraphClause-Constructor| |SourceSelector|)1674 (IF (EQ *ATN-REDUCE* 'CONS)1675 (CONS '|DefaultGraphClause| (DELETE NIL (LIST |SourceSelector|)))1676 '|DefaultGraphClause|))))1677 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1678 (|DefaultGraphClause/fail.3| (ATN-PARSER::INDEX)1679 (%ATN-NODE-BLOCK |DefaultGraphClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1680 (|DefaultGraphClause/start.1| (ATN-PARSER::INDEX)1681 (%ATN-NODE-BLOCK1682 |DefaultGraphClause/start.1|1683 (%ATN-EDGE-BLOCK1684 (PUSH |SourceSelector|)1685 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1686 (ATN-PARSE-SUBSTRUCTURE* '|SourceSelector| ATN-PARSER::INDEX)1687 (COND (ATN-PARSER::SUCCESS1688 (SETF *ATN-TERM* '|SourceSelector|)1689 (LET ((|SourceSelector591| |SourceSelector|))1690 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1691 (DESTRUCTURING-BIND1692 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1693 ATN-PARSER::RESULT-AND-INDEX1694 (WHEN ATN-PARSER::RESULT (SETF |SourceSelector| ATN-PARSER::RESULT))1695 (|DefaultGraphClause.2| ATN-PARSER::RESULT-INDEX))1696 (SETF |SourceSelector| |SourceSelector591|))))1697 (T1698 (SETF *ATN-TERM?* '|SourceSelector|)1699 (|DefaultGraphClause/fail.3| ATN-PARSER::INDEX))))))))1700 (|DefaultGraphClause/start.1| ATN-PARSER::INDEX)1701 (SETF *ATN-NODE NIL)1702 NIL1703 (IF ATN-PARSER::ATN-STRUCTURE1704 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1705 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1706 (WARN "recursive grammar: ~s @ position ~s: ~s" '|DefaultGraphClause| ATN-PARSER::INDEX *ATN-STACK))))1707 (PROGN (DEFVAR |NamedGraphClause-INDEX|)1708 (DEFUN |NamedGraphClause| (ATN-PARSER::INDEX &AUX (|SourceSelector| NIL))1709 "{11} NamedGraphClause ::= 'NAMED' SourceSelector1710 (|SourceSelector|)"1711 (DECLARE (SPECIAL |NamedGraphClause-INDEX|))1712 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NamedGraphClause-INDEX| *ATN-LEVEL))1713 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1714 (IF (< |NamedGraphClause-INDEX| ATN-PARSER::INDEX)1715 (LET ((|NamedGraphClause-INDEX| ATN-PARSER::INDEX)1716 (*ATN-LEVEL (1+ *ATN-LEVEL))1717 (*ATN-STACK (CONS '|NamedGraphClause| *ATN-STACK))1718 (ATN-PARSER::ATN-STRUCTURE NIL))1719 (DECLARE (SPECIAL |NamedGraphClause-INDEX|))1720 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1721 (DECLARE (TYPE CONS *ATN-STACK))1722 (SYMBOL-MACROLET1723 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1724 (%ATN-BLOCK |NamedGraphClause|1725 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1726 (SETF *ATN-TERM* '|NamedGraphClause|)1727 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1728 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1729 (|NamedGraphClause.2| (ATN-PARSER::INDEX)1730 (%ATN-NODE-BLOCK1731 |NamedGraphClause.2|1732 (%ATN-EDGE-BLOCK1733 (POP |NamedGraphClause|)1734 (WHEN T1735 (SETF *ATN-TERM* '|NamedGraphClause|)1736 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1737 '|NamedGraphClause|1738 ATN-PARSER::INDEX1739 (LIST '|SourceSelector| |SourceSelector|))1740 (LET ((ATN-PARSER::RESULT-STRUCTURE1741 (IF (EQ *ATN-REDUCE* T)1742 (|NamedGraphClause-Constructor| |SourceSelector|)1743 (IF (EQ *ATN-REDUCE* 'CONS)1744 (CONS '|NamedGraphClause| (DELETE NIL (LIST |SourceSelector|)))1745 '|NamedGraphClause|))))1746 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1747 (|NamedGraphClause/fail.3| (ATN-PARSER::INDEX)1748 (%ATN-NODE-BLOCK |NamedGraphClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1749 (|NamedGraphClause/NamedGraphClause.2.4| (ATN-PARSER::INDEX)1750 (%ATN-NODE-BLOCK1751 |NamedGraphClause/NamedGraphClause.2.4|1752 (%ATN-EDGE-BLOCK1753 (PUSH |SourceSelector|)1754 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1755 (ATN-PARSE-SUBSTRUCTURE* '|SourceSelector| ATN-PARSER::INDEX)1756 (COND (ATN-PARSER::SUCCESS1757 (SETF *ATN-TERM* '|SourceSelector|)1758 (LET ((|SourceSelector592| |SourceSelector|))1759 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1760 (DESTRUCTURING-BIND1761 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1762 ATN-PARSER::RESULT-AND-INDEX1763 (WHEN ATN-PARSER::RESULT (SETF |SourceSelector| ATN-PARSER::RESULT))1764 (|NamedGraphClause.2| ATN-PARSER::RESULT-INDEX))1765 (SETF |SourceSelector| |SourceSelector592|))))1766 (T1767 (SETF *ATN-TERM?* '|SourceSelector|)1768 (|NamedGraphClause/fail.3| ATN-PARSER::INDEX)))))))1769 (|NamedGraphClause/start.1| (ATN-PARSER::INDEX)1770 (%ATN-NODE-BLOCK1771 |NamedGraphClause/start.1|1772 (%ATN-EDGE-BLOCK1773 (ATN-PARSER::WORD SPOCQ.S:NAMED)1774 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:NAMED)1775 (SETF *ATN-TERM* 'SPOCQ.S:NAMED)1776 (|NamedGraphClause/NamedGraphClause.2.4| (1+ ATN-PARSER::INDEX)))1777 (T1778 (SETF *ATN-TERM?* 'SPOCQ.S:NAMED)1779 (|NamedGraphClause/fail.3| ATN-PARSER::INDEX)))))))1780 (|NamedGraphClause/start.1| ATN-PARSER::INDEX)1781 (SETF *ATN-NODE NIL)1782 NIL1783 (IF ATN-PARSER::ATN-STRUCTURE1784 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1785 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1786 (WARN "recursive grammar: ~s @ position ~s: ~s" '|NamedGraphClause| ATN-PARSER::INDEX *ATN-STACK))))1787 (PROGN (DEFVAR |SourceSelector-INDEX|)1788 (DEFUN |SourceSelector| (ATN-PARSER::INDEX &AUX (|IRIref| NIL))1789 "{12} SourceSelector ::= IRIref1790 (|IRIref|)"1791 (DECLARE (SPECIAL |SourceSelector-INDEX|))1792 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SourceSelector-INDEX| *ATN-LEVEL))1793 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1794 (IF (< |SourceSelector-INDEX| ATN-PARSER::INDEX)1795 (LET ((|SourceSelector-INDEX| ATN-PARSER::INDEX)1796 (*ATN-LEVEL (1+ *ATN-LEVEL))1797 (*ATN-STACK (CONS '|SourceSelector| *ATN-STACK))1798 (ATN-PARSER::ATN-STRUCTURE NIL))1799 (DECLARE (SPECIAL |SourceSelector-INDEX|))1800 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1801 (DECLARE (TYPE CONS *ATN-STACK))1802 (SYMBOL-MACROLET1803 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1804 (%ATN-BLOCK |SourceSelector|1805 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1806 (SETF *ATN-TERM* '|SourceSelector|)1807 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1808 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1809 (|SourceSelector.2| (ATN-PARSER::INDEX)1810 (%ATN-NODE-BLOCK1811 |SourceSelector.2|1812 (%ATN-EDGE-BLOCK1813 (POP |SourceSelector|)1814 (WHEN T1815 (SETF *ATN-TERM* '|SourceSelector|)1816 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1817 '|SourceSelector|1818 ATN-PARSER::INDEX1819 (LIST '|IRIref| |IRIref|))1820 (LET ((ATN-PARSER::RESULT-STRUCTURE1821 (IF (EQ *ATN-REDUCE* T)1822 (|SourceSelector-Constructor| |IRIref|)1823 (IF (EQ *ATN-REDUCE* 'CONS)1824 (CONS '|SourceSelector| (DELETE NIL (LIST |IRIref|)))1825 '|SourceSelector|))))1826 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1827 (|SourceSelector/fail.3| (ATN-PARSER::INDEX)1828 (%ATN-NODE-BLOCK |SourceSelector/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1829 (|SourceSelector/start.1| (ATN-PARSER::INDEX)1830 (%ATN-NODE-BLOCK1831 |SourceSelector/start.1|1832 (%ATN-EDGE-BLOCK1833 (PUSH |IRIref|)1834 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1835 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)1836 (COND (ATN-PARSER::SUCCESS1837 (SETF *ATN-TERM* '|IRIref|)1838 (LET ((|IRIref592| |IRIref|))1839 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1840 (DESTRUCTURING-BIND1841 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1842 ATN-PARSER::RESULT-AND-INDEX1843 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))1844 (|SourceSelector.2| ATN-PARSER::RESULT-INDEX))1845 (SETF |IRIref| |IRIref592|))))1846 (T1847 (SETF *ATN-TERM?* '|IRIref|)1848 (|SourceSelector/fail.3| ATN-PARSER::INDEX))))))))1849 (|SourceSelector/start.1| ATN-PARSER::INDEX)1850 (SETF *ATN-NODE NIL)1851 NIL1852 (IF ATN-PARSER::ATN-STRUCTURE1853 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1854 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1855 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SourceSelector| ATN-PARSER::INDEX *ATN-STACK))))1856 (PROGN (DEFVAR |WhereClause-INDEX|)1857 (DEFUN |WhereClause| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))1858 "{13} WhereClause ::= 'WHERE'? GroupGraphPattern1859 (|GroupGraphPattern|)"1860 (DECLARE (SPECIAL |WhereClause-INDEX|))1861 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |WhereClause-INDEX| *ATN-LEVEL))1862 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1863 (IF (< |WhereClause-INDEX| ATN-PARSER::INDEX)1864 (LET ((|WhereClause-INDEX| ATN-PARSER::INDEX)1865 (*ATN-LEVEL (1+ *ATN-LEVEL))1866 (*ATN-STACK (CONS '|WhereClause| *ATN-STACK))1867 (ATN-PARSER::ATN-STRUCTURE NIL))1868 (DECLARE (SPECIAL |WhereClause-INDEX|))1869 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1870 (DECLARE (TYPE CONS *ATN-STACK))1871 (SYMBOL-MACROLET1872 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1873 (%ATN-BLOCK |WhereClause|1874 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1875 (SETF *ATN-TERM* '|WhereClause|)1876 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1877 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1878 (|WhereClause.2| (ATN-PARSER::INDEX)1879 (%ATN-NODE-BLOCK1880 |WhereClause.2|1881 (%ATN-EDGE-BLOCK1882 (POP |WhereClause|)1883 (WHEN T1884 (SETF *ATN-TERM* '|WhereClause|)1885 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1886 '|WhereClause|1887 ATN-PARSER::INDEX1888 (LIST '|GroupGraphPattern| |GroupGraphPattern|))1889 (LET ((ATN-PARSER::RESULT-STRUCTURE1890 (IF (EQ *ATN-REDUCE* T)1891 (|WhereClause-Constructor| |GroupGraphPattern|)1892 (IF (EQ *ATN-REDUCE* 'CONS)1893 (CONS '|WhereClause| (DELETE NIL (LIST |GroupGraphPattern|)))1894 '|WhereClause|))))1895 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1896 (|WhereClause/fail.3| (ATN-PARSER::INDEX)1897 (%ATN-NODE-BLOCK |WhereClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1898 (|WhereClause/start.1| (ATN-PARSER::INDEX)1899 (%ATN-NODE-BLOCK1900 |WhereClause/start.1|1901 (%ATN-EDGE-BLOCK1902 (ATN-PARSER::WORD SPOCQ.S:WHERE)1903 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:WHERE)1904 (SETF *ATN-TERM* 'SPOCQ.S:WHERE)1905 (|WhereClause/WhereClause.2.4| (1+ ATN-PARSER::INDEX)))1906 (T1907 (SETF *ATN-TERM?* 'SPOCQ.S:WHERE)1908 (|WhereClause/WhereClause.2.4| ATN-PARSER::INDEX))))))1909 (|WhereClause/WhereClause.2.4| (ATN-PARSER::INDEX)1910 (%ATN-NODE-BLOCK1911 |WhereClause/WhereClause.2.4|1912 (%ATN-EDGE-BLOCK1913 (PUSH |GroupGraphPattern|)1914 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)1915 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)1916 (COND (ATN-PARSER::SUCCESS1917 (SETF *ATN-TERM* '|GroupGraphPattern|)1918 (LET ((|GroupGraphPattern592| |GroupGraphPattern|))1919 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)1920 (DESTRUCTURING-BIND1921 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)1922 ATN-PARSER::RESULT-AND-INDEX1923 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))1924 (|WhereClause.2| ATN-PARSER::RESULT-INDEX))1925 (SETF |GroupGraphPattern| |GroupGraphPattern592|))))1926 (T1927 (SETF *ATN-TERM?* '|GroupGraphPattern|)1928 (|WhereClause/fail.3| ATN-PARSER::INDEX))))))))1929 (|WhereClause/start.1| ATN-PARSER::INDEX)1930 (SETF *ATN-NODE NIL)1931 NIL1932 (IF ATN-PARSER::ATN-STRUCTURE1933 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)1934 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))1935 (WARN "recursive grammar: ~s @ position ~s: ~s" '|WhereClause| ATN-PARSER::INDEX *ATN-STACK))))1936 (PROGN (DEFVAR |SolutionModifier-INDEX|)1937 (DEFUN |SolutionModifier| (ATN-PARSER::INDEX &AUX (|GroupClause| NIL) (|HavingClause| NIL) (|LimitOffsetClauses| NIL)1938 (|OrderClause| NIL))1939 "{14} SolutionModifier ::= GroupClause? HavingClause? OrderClause? LimitOffsetClauses?1940 (|GroupClause| |HavingClause| |LimitOffsetClauses| |OrderClause|)"1941 (DECLARE (SPECIAL |SolutionModifier-INDEX|))1942 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SolutionModifier-INDEX| *ATN-LEVEL))1943 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))1944 (IF (< |SolutionModifier-INDEX| ATN-PARSER::INDEX)1945 (LET ((|SolutionModifier-INDEX| ATN-PARSER::INDEX)1946 (*ATN-LEVEL (1+ *ATN-LEVEL))1947 (*ATN-STACK (CONS '|SolutionModifier| *ATN-STACK))1948 (ATN-PARSER::ATN-STRUCTURE NIL))1949 (DECLARE (SPECIAL |SolutionModifier-INDEX|))1950 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))1951 (DECLARE (TYPE CONS *ATN-STACK))1952 (SYMBOL-MACROLET1953 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))1954 (%ATN-BLOCK |SolutionModifier|1955 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)1956 (SETF *ATN-TERM* '|SolutionModifier|)1957 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))1958 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)1959 (|SolutionModifier.2| (ATN-PARSER::INDEX)1960 (%ATN-NODE-BLOCK1961 |SolutionModifier.2|1962 (%ATN-EDGE-BLOCK1963 (POP |SolutionModifier|)1964 (WHEN T1965 (SETF *ATN-TERM* '|SolutionModifier|)1966 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"1967 '|SolutionModifier|1968 ATN-PARSER::INDEX1969 (LIST '|GroupClause|1970 |GroupClause|1971 '|HavingClause|1972 |HavingClause|1973 '|LimitOffsetClauses|1974 |LimitOffsetClauses|1975 '|OrderClause|1976 |OrderClause|))1977 (LET ((ATN-PARSER::RESULT-STRUCTURE1978 (IF (EQ *ATN-REDUCE* T)1979 (|SolutionModifier-Constructor|1980 |GroupClause|1981 |HavingClause|1982 |LimitOffsetClauses|1983 |OrderClause|)1984 (IF (EQ *ATN-REDUCE* 'CONS)1985 (CONS '|SolutionModifier|1986 (DELETE NIL1987 (LIST |GroupClause|1988 |HavingClause|1989 |LimitOffsetClauses|1990 |OrderClause|)))1991 '|SolutionModifier|))))1992 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))1993 (|SolutionModifier/fail.3| (ATN-PARSER::INDEX)1994 (%ATN-NODE-BLOCK |SolutionModifier/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))1995 (|SolutionModifier/SolutionModifier.2.4| (ATN-PARSER::INDEX)1996 (%ATN-NODE-BLOCK1997 |SolutionModifier/SolutionModifier.2.4|1998 (%ATN-EDGE-BLOCK1999 (PUSH |HavingClause|)2000 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2001 (ATN-PARSE-SUBSTRUCTURE* '|HavingClause| ATN-PARSER::INDEX)2002 (COND (ATN-PARSER::SUCCESS2003 (SETF *ATN-TERM* '|HavingClause|)2004 (LET ((|HavingClause592| |HavingClause|))2005 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2006 (DESTRUCTURING-BIND2007 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2008 ATN-PARSER::RESULT-AND-INDEX2009 (WHEN ATN-PARSER::RESULT (SETF |HavingClause| ATN-PARSER::RESULT))2010 (|SolutionModifier/SolutionModifier.2.5| ATN-PARSER::RESULT-INDEX))2011 (SETF |HavingClause| |HavingClause592|))))2012 (T2013 (SETF *ATN-TERM?* '|HavingClause|)2014 (|SolutionModifier/SolutionModifier.2.5| ATN-PARSER::INDEX)))))))2015 (|SolutionModifier/SolutionModifier.2.5| (ATN-PARSER::INDEX)2016 (%ATN-NODE-BLOCK2017 |SolutionModifier/SolutionModifier.2.5|2018 (%ATN-EDGE-BLOCK2019 (PUSH |OrderClause|)2020 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2021 (ATN-PARSE-SUBSTRUCTURE* '|OrderClause| ATN-PARSER::INDEX)2022 (COND (ATN-PARSER::SUCCESS2023 (SETF *ATN-TERM* '|OrderClause|)2024 (LET ((|OrderClause592| |OrderClause|))2025 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2026 (DESTRUCTURING-BIND2027 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2028 ATN-PARSER::RESULT-AND-INDEX2029 (WHEN ATN-PARSER::RESULT (SETF |OrderClause| ATN-PARSER::RESULT))2030 (|SolutionModifier/SolutionModifier.2.6| ATN-PARSER::RESULT-INDEX))2031 (SETF |OrderClause| |OrderClause592|))))2032 (T2033 (SETF *ATN-TERM?* '|OrderClause|)2034 (|SolutionModifier/SolutionModifier.2.6| ATN-PARSER::INDEX)))))))2035 (|SolutionModifier/SolutionModifier.2.6| (ATN-PARSER::INDEX)2036 (%ATN-NODE-BLOCK2037 |SolutionModifier/SolutionModifier.2.6|2038 (%ATN-EDGE-BLOCK2039 (PUSH |LimitOffsetClauses|)2040 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2041 (ATN-PARSE-SUBSTRUCTURE* '|LimitOffsetClauses| ATN-PARSER::INDEX)2042 (COND (ATN-PARSER::SUCCESS2043 (SETF *ATN-TERM* '|LimitOffsetClauses|)2044 (LET ((|LimitOffsetClauses592| |LimitOffsetClauses|))2045 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2046 (DESTRUCTURING-BIND2047 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2048 ATN-PARSER::RESULT-AND-INDEX2049 (WHEN ATN-PARSER::RESULT (SETF |LimitOffsetClauses| ATN-PARSER::RESULT))2050 (|SolutionModifier.2| ATN-PARSER::RESULT-INDEX))2051 (SETF |LimitOffsetClauses| |LimitOffsetClauses592|))))2052 (T2053 (SETF *ATN-TERM?* '|LimitOffsetClauses|)2054 (|SolutionModifier.2| ATN-PARSER::INDEX)))))))2055 (|SolutionModifier/start.1| (ATN-PARSER::INDEX)2056 (%ATN-NODE-BLOCK2057 |SolutionModifier/start.1|2058 (%ATN-EDGE-BLOCK2059 (PUSH |GroupClause|)2060 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2061 (ATN-PARSE-SUBSTRUCTURE* '|GroupClause| ATN-PARSER::INDEX)2062 (COND (ATN-PARSER::SUCCESS2063 (SETF *ATN-TERM* '|GroupClause|)2064 (LET ((|GroupClause592| |GroupClause|))2065 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2066 (DESTRUCTURING-BIND2067 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2068 ATN-PARSER::RESULT-AND-INDEX2069 (WHEN ATN-PARSER::RESULT (SETF |GroupClause| ATN-PARSER::RESULT))2070 (|SolutionModifier/SolutionModifier.2.4| ATN-PARSER::RESULT-INDEX))2071 (SETF |GroupClause| |GroupClause592|))))2072 (T2073 (SETF *ATN-TERM?* '|GroupClause|)2074 (|SolutionModifier/SolutionModifier.2.4| ATN-PARSER::INDEX))))))))2075 (|SolutionModifier/start.1| ATN-PARSER::INDEX)2076 (SETF *ATN-NODE NIL)2077 NIL2078 (IF ATN-PARSER::ATN-STRUCTURE2079 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2080 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2081 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SolutionModifier| ATN-PARSER::INDEX *ATN-STACK))))2082 (PROGN (DEFVAR |GroupClause-INDEX|)2083 (DEFUN |GroupClause| (ATN-PARSER::INDEX &AUX (|GroupCondition| NIL))2084 "{18a} GroupClause ::= 'GROUP' 'BY' GroupCondition+2085 (|GroupCondition|)"2086 (DECLARE (SPECIAL |GroupClause-INDEX|))2087 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupClause-INDEX| *ATN-LEVEL))2088 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2089 (IF (< |GroupClause-INDEX| ATN-PARSER::INDEX)2090 (LET ((|GroupClause-INDEX| ATN-PARSER::INDEX)2091 (*ATN-LEVEL (1+ *ATN-LEVEL))2092 (*ATN-STACK (CONS '|GroupClause| *ATN-STACK))2093 (ATN-PARSER::ATN-STRUCTURE NIL))2094 (DECLARE (SPECIAL |GroupClause-INDEX|))2095 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2096 (DECLARE (TYPE CONS *ATN-STACK))2097 (SYMBOL-MACROLET2098 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2099 (%ATN-BLOCK |GroupClause|2100 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2101 (SETF *ATN-TERM* '|GroupClause|)2102 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2103 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2104 (|GroupClause.2| (ATN-PARSER::INDEX)2105 (%ATN-NODE-BLOCK2106 |GroupClause.2|2107 (%ATN-EDGE-BLOCK2108 (POP |GroupClause|)2109 (WHEN T2110 (SETF *ATN-TERM* '|GroupClause|)2111 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2112 '|GroupClause|2113 ATN-PARSER::INDEX2114 (LIST '|GroupCondition| |GroupCondition|))2115 (LET ((ATN-PARSER::RESULT-STRUCTURE2116 (IF (EQ *ATN-REDUCE* T)2117 (|GroupClause-Constructor| |GroupCondition|)2118 (IF (EQ *ATN-REDUCE* 'CONS)2119 (CONS '|GroupClause| (DELETE NIL (LIST |GroupCondition|)))2120 '|GroupClause|))))2121 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2122 (|GroupClause.6| (ATN-PARSER::INDEX)2123 (%ATN-NODE-BLOCK2124 |GroupClause.6|2125 (%ATN-EDGE-BLOCK2126 (PUSH |GroupCondition|)2127 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2128 (ATN-PARSE-SUBSTRUCTURE* '|GroupCondition| ATN-PARSER::INDEX)2129 (COND (ATN-PARSER::SUCCESS2130 (SETF *ATN-TERM* '|GroupCondition|)2131 (LET ((|GroupCondition593| |GroupCondition|))2132 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2133 (DESTRUCTURING-BIND2134 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2135 ATN-PARSER::RESULT-AND-INDEX2136 (WHEN ATN-PARSER::RESULT2137 (SETF |GroupCondition| (CONS ATN-PARSER::RESULT |GroupCondition|)))2138 (|GroupClause.6| ATN-PARSER::RESULT-INDEX))2139 (SETF |GroupCondition| |GroupCondition593|))))2140 (T2141 (SETF *ATN-TERM?* '|GroupCondition|)2142 (|GroupClause.2| ATN-PARSER::INDEX)))))))2143 (|GroupClause/fail.3| (ATN-PARSER::INDEX)2144 (%ATN-NODE-BLOCK |GroupClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2145 (|GroupClause/GroupClause.2.4| (ATN-PARSER::INDEX)2146 (%ATN-NODE-BLOCK2147 |GroupClause/GroupClause.2.4|2148 (%ATN-EDGE-BLOCK2149 (ATN-PARSER::WORD SPOCQ.S:BY)2150 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BY)2151 (SETF *ATN-TERM* 'SPOCQ.S:BY)2152 (|GroupClause/GroupClause.2.5| (1+ ATN-PARSER::INDEX)))2153 (T (SETF *ATN-TERM?* 'SPOCQ.S:BY) (|GroupClause/fail.3| ATN-PARSER::INDEX))))))2154 (|GroupClause/GroupClause.2.5| (ATN-PARSER::INDEX)2155 (%ATN-NODE-BLOCK2156 |GroupClause/GroupClause.2.5|2157 (%ATN-EDGE-BLOCK2158 (PUSH |GroupCondition|)2159 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2160 (ATN-PARSE-SUBSTRUCTURE* '|GroupCondition| ATN-PARSER::INDEX)2161 (COND (ATN-PARSER::SUCCESS2162 (SETF *ATN-TERM* '|GroupCondition|)2163 (LET ((|GroupCondition592| |GroupCondition|))2164 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2165 (DESTRUCTURING-BIND2166 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2167 ATN-PARSER::RESULT-AND-INDEX2168 (WHEN ATN-PARSER::RESULT2169 (SETF |GroupCondition| (CONS ATN-PARSER::RESULT |GroupCondition|)))2170 (|GroupClause.6| ATN-PARSER::RESULT-INDEX))2171 (SETF |GroupCondition| |GroupCondition592|))))2172 (T2173 (SETF *ATN-TERM?* '|GroupCondition|)2174 (|GroupClause/fail.3| ATN-PARSER::INDEX)))))))2175 (|GroupClause/start.1| (ATN-PARSER::INDEX)2176 (%ATN-NODE-BLOCK2177 |GroupClause/start.1|2178 (%ATN-EDGE-BLOCK2179 (ATN-PARSER::WORD SPOCQ.S:GROUP)2180 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:GROUP)2181 (SETF *ATN-TERM* 'SPOCQ.S:GROUP)2182 (|GroupClause/GroupClause.2.4| (1+ ATN-PARSER::INDEX)))2183 (T2184 (SETF *ATN-TERM?* 'SPOCQ.S:GROUP)2185 (|GroupClause/fail.3| ATN-PARSER::INDEX)))))))2186 (|GroupClause/start.1| ATN-PARSER::INDEX)2187 (SETF *ATN-NODE NIL)2188 NIL2189 (IF ATN-PARSER::ATN-STRUCTURE2190 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2191 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2192 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupClause| ATN-PARSER::INDEX *ATN-STACK))))2193 (PROGN (DEFVAR |GroupCondition-INDEX|)2194 (DEFUN |GroupCondition| (ATN-PARSER::INDEX &AUX (|BuiltInCall| NIL) (|FunctionCall| NIL)2195 (|VariableOrBindingOrExpression| NIL))2196 "{19a} GroupCondition ::= (BuiltInCall | FunctionCall | VariableOrBindingOrExpression)2197 (|BuiltInCall| |FunctionCall| |VariableOrBindingOrExpression|)"2198 (DECLARE (SPECIAL |GroupCondition-INDEX|))2199 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupCondition-INDEX| *ATN-LEVEL))2200 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2201 (IF (< |GroupCondition-INDEX| ATN-PARSER::INDEX)2202 (LET ((|GroupCondition-INDEX| ATN-PARSER::INDEX)2203 (*ATN-LEVEL (1+ *ATN-LEVEL))2204 (*ATN-STACK (CONS '|GroupCondition| *ATN-STACK))2205 (ATN-PARSER::ATN-STRUCTURE NIL))2206 (DECLARE (SPECIAL |GroupCondition-INDEX|))2207 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2208 (DECLARE (TYPE CONS *ATN-STACK))2209 (SYMBOL-MACROLET2210 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2211 (%ATN-BLOCK |GroupCondition|2212 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2213 (SETF *ATN-TERM* '|GroupCondition|)2214 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2215 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2216 (|GroupCondition.2| (ATN-PARSER::INDEX)2217 (%ATN-NODE-BLOCK2218 |GroupCondition.2|2219 (%ATN-EDGE-BLOCK2220 (POP |GroupCondition|)2221 (WHEN T2222 (SETF *ATN-TERM* '|GroupCondition|)2223 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2224 '|GroupCondition|2225 ATN-PARSER::INDEX2226 (LIST '|BuiltInCall|2227 |BuiltInCall|2228 '|FunctionCall|2229 |FunctionCall|2230 '|VariableOrBindingOrExpression|2231 |VariableOrBindingOrExpression|))2232 (LET ((ATN-PARSER::RESULT-STRUCTURE2233 (IF (EQ *ATN-REDUCE* T)2234 (|GroupCondition-Constructor|2235 |BuiltInCall|2236 |FunctionCall|2237 |VariableOrBindingOrExpression|)2238 (IF (EQ *ATN-REDUCE* 'CONS)2239 (CONS '|GroupCondition|2240 (DELETE NIL2241 (LIST |BuiltInCall|2242 |FunctionCall|2243 |VariableOrBindingOrExpression|)))2244 '|GroupCondition|))))2245 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2246 (|GroupCondition/fail.3| (ATN-PARSER::INDEX)2247 (%ATN-NODE-BLOCK |GroupCondition/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2248 (|GroupCondition/start.1| (ATN-PARSER::INDEX)2249 (%ATN-NODE-BLOCK2250 |GroupCondition/start.1|2251 (%ATN-EDGE-BLOCK2252 OR2253 (PROGN (%ATN-EDGE-BLOCK2254 (PUSH |BuiltInCall|)2255 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2256 (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall| ATN-PARSER::INDEX)2257 (COND (ATN-PARSER::SUCCESS2258 (SETF *ATN-TERM* '|BuiltInCall|)2259 (LET ((|BuiltInCall593| |BuiltInCall|))2260 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2261 (DESTRUCTURING-BIND2262 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2263 ATN-PARSER::RESULT-AND-INDEX2264 (WHEN ATN-PARSER::RESULT2265 (SETF |BuiltInCall| ATN-PARSER::RESULT))2266 (|GroupCondition.2| ATN-PARSER::RESULT-INDEX))2267 (SETF |BuiltInCall| |BuiltInCall593|))))2268 (T (SETF *ATN-TERM?* '|BuiltInCall|) NIL))))2269 (%ATN-EDGE-BLOCK2270 (PUSH |FunctionCall|)2271 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2272 (ATN-PARSE-SUBSTRUCTURE* '|FunctionCall| ATN-PARSER::INDEX)2273 (COND (ATN-PARSER::SUCCESS2274 (SETF *ATN-TERM* '|FunctionCall|)2275 (LET ((|FunctionCall593| |FunctionCall|))2276 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2277 (DESTRUCTURING-BIND2278 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2279 ATN-PARSER::RESULT-AND-INDEX2280 (WHEN ATN-PARSER::RESULT2281 (SETF |FunctionCall| ATN-PARSER::RESULT))2282 (|GroupCondition.2| ATN-PARSER::RESULT-INDEX))2283 (SETF |FunctionCall| |FunctionCall593|))))2284 (T (SETF *ATN-TERM?* '|FunctionCall|) NIL))))2285 (%ATN-EDGE-BLOCK2286 (PUSH |VariableOrBindingOrExpression|)2287 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2288 (ATN-PARSE-SUBSTRUCTURE*2289 '|VariableOrBindingOrExpression|2290 ATN-PARSER::INDEX)2291 (COND (ATN-PARSER::SUCCESS2292 (SETF *ATN-TERM* '|VariableOrBindingOrExpression|)2293 (LET ((|VariableOrBindingOrExpression593|2294 |VariableOrBindingOrExpression|))2295 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2296 (DESTRUCTURING-BIND2297 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2298 ATN-PARSER::RESULT-AND-INDEX2299 (WHEN ATN-PARSER::RESULT2300 (SETF |VariableOrBindingOrExpression| ATN-PARSER::RESULT))2301 (|GroupCondition.2| ATN-PARSER::RESULT-INDEX))2302 (SETF |VariableOrBindingOrExpression|2303 |VariableOrBindingOrExpression593|))))2304 (T (SETF *ATN-TERM?* '|VariableOrBindingOrExpression|) NIL))))2305 (|GroupCondition/fail.3| ATN-PARSER::INDEX))))))2306 (|GroupCondition/start.1| ATN-PARSER::INDEX)2307 (SETF *ATN-NODE NIL)2308 NIL2309 (IF ATN-PARSER::ATN-STRUCTURE2310 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2311 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2312 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupCondition| ATN-PARSER::INDEX *ATN-STACK))))2313 (PROGN (DEFVAR |VariableOrBindingOrExpression-INDEX|)2314 (DEFUN |VariableOrBindingOrExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|Var| NIL))2315 "{19a} VariableOrBindingOrExpression ::= (('(' Expression ('AS' Var)? ')') | Var)2316 (|Expression| |Var|)"2317 (DECLARE (SPECIAL |VariableOrBindingOrExpression-INDEX|))2318 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VariableOrBindingOrExpression-INDEX| *ATN-LEVEL))2319 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2320 (IF (< |VariableOrBindingOrExpression-INDEX| ATN-PARSER::INDEX)2321 (LET ((|VariableOrBindingOrExpression-INDEX| ATN-PARSER::INDEX)2322 (*ATN-LEVEL (1+ *ATN-LEVEL))2323 (*ATN-STACK (CONS '|VariableOrBindingOrExpression| *ATN-STACK))2324 (ATN-PARSER::ATN-STRUCTURE NIL))2325 (DECLARE (SPECIAL |VariableOrBindingOrExpression-INDEX|))2326 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2327 (DECLARE (TYPE CONS *ATN-STACK))2328 (SYMBOL-MACROLET2329 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2330 (%ATN-BLOCK |VariableOrBindingOrExpression|2331 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2332 (SETF *ATN-TERM* '|VariableOrBindingOrExpression|)2333 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2334 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2335 (|VariableOrBindingOrExpression.2| (ATN-PARSER::INDEX)2336 (%ATN-NODE-BLOCK2337 |VariableOrBindingOrExpression.2|2338 (%ATN-EDGE-BLOCK2339 (POP |VariableOrBindingOrExpression|)2340 (WHEN T2341 (SETF *ATN-TERM* '|VariableOrBindingOrExpression|)2342 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2343 '|VariableOrBindingOrExpression|2344 ATN-PARSER::INDEX2345 (LIST '|Expression| |Expression| '|Var| |Var|))2346 (LET ((ATN-PARSER::RESULT-STRUCTURE2347 (IF (EQ *ATN-REDUCE* T)2348 (|VariableOrBindingOrExpression-Constructor| |Expression| |Var|)2349 (IF (EQ *ATN-REDUCE* 'CONS)2350 (CONS '|VariableOrBindingOrExpression|2351 (DELETE NIL (LIST |Expression| |Var|)))2352 '|VariableOrBindingOrExpression|))))2353 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2354 (|VariableOrBindingOrExpression/fail.3| (ATN-PARSER::INDEX)2355 (%ATN-NODE-BLOCK2356 |VariableOrBindingOrExpression/fail.3|2357 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2358 (|VariableOrBindingOrExpression/start.1| (ATN-PARSER::INDEX)2359 (%ATN-NODE-BLOCK2360 |VariableOrBindingOrExpression/start.1|2361 (%ATN-EDGE-BLOCK2362 OR2363 (PROGN (%ATN-EDGE-BLOCK2364 (ATN-PARSER::JUMP2365 |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.4|)2366 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.4|2367 ATN-PARSER::INDEX))2368 (%ATN-EDGE-BLOCK2369 (TEST |Var|)2370 (COND ((|IS-Var| ATN-PARSER::|item|)2371 (SETF *ATN-TERM* '|Var|)2372 (SETF |Var|2373 (IF (EQ *ATN-REDUCE* T)2374 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)2375 (IF (EQ *ATN-REDUCE* 'CONS)2376 (LIST '|Var| ATN-PARSER::|item|)2377 '|Var|)))2378 (|VariableOrBindingOrExpression.2| (1+ ATN-PARSER::INDEX)))2379 (T (SETF *ATN-TERM?* '|Var|) NIL)))2380 (|VariableOrBindingOrExpression/fail.3| ATN-PARSER::INDEX)))))2381 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.4| (ATN-PARSER::INDEX)2382 (%ATN-NODE-BLOCK2383 |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.4|2384 (%ATN-EDGE-BLOCK2385 (ATN-PARSER::WORD SPOCQ.S:\()2386 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()2387 (SETF *ATN-TERM* 'SPOCQ.S:\()2388 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.5|2389 (1+ ATN-PARSER::INDEX)))2390 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))2391 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.5| (ATN-PARSER::INDEX)2392 (%ATN-NODE-BLOCK2393 |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.5|2394 (%ATN-EDGE-BLOCK2395 (PUSH |Expression|)2396 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2397 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)2398 (COND (ATN-PARSER::SUCCESS2399 (SETF *ATN-TERM* '|Expression|)2400 (LET ((|Expression593| |Expression|))2401 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2402 (DESTRUCTURING-BIND2403 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2404 ATN-PARSER::RESULT-AND-INDEX2405 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))2406 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.6|2407 ATN-PARSER::RESULT-INDEX))2408 (SETF |Expression| |Expression593|))))2409 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))2410 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.6| (ATN-PARSER::INDEX)2411 (%ATN-NODE-BLOCK2412 |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.6|2413 (%ATN-EDGE-BLOCK2414 (ATN-PARSER::JUMP2415 |VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.8|)2416 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.8|2417 ATN-PARSER::INDEX))2418 (%ATN-EDGE-BLOCK2419 (ATN-PARSER::JUMP |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7|)2420 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7|2421 ATN-PARSER::INDEX))))2422 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7| (ATN-PARSER::INDEX)2423 (%ATN-NODE-BLOCK2424 |VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7|2425 (%ATN-EDGE-BLOCK2426 (ATN-PARSER::WORD SPOCQ.S:\))2427 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))2428 (SETF *ATN-TERM* 'SPOCQ.S:\))2429 (|VariableOrBindingOrExpression.2| (1+ ATN-PARSER::INDEX)))2430 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL)))))2431 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.8| (ATN-PARSER::INDEX)2432 (%ATN-NODE-BLOCK2433 |VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.8|2434 (%ATN-EDGE-BLOCK2435 (ATN-PARSER::WORD SPOCQ.S:AS)2436 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS)2437 (SETF *ATN-TERM* 'SPOCQ.S:AS)2438 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.9|2439 (1+ ATN-PARSER::INDEX)))2440 (T (SETF *ATN-TERM?* 'SPOCQ.S:AS) NIL)))))2441 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.9| (ATN-PARSER::INDEX)2442 (%ATN-NODE-BLOCK2443 |VariableOrBindingOrExpression/VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7.9|2444 (%ATN-EDGE-BLOCK2445 (TEST |Var|)2446 (COND ((|IS-Var| ATN-PARSER::|item|)2447 (SETF *ATN-TERM* '|Var|)2448 (SETF |Var|2449 (IF (EQ *ATN-REDUCE* T)2450 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)2451 (IF (EQ *ATN-REDUCE* 'CONS) (LIST '|Var| ATN-PARSER::|item|) '|Var|)))2452 (|VariableOrBindingOrExpression/VariableOrBindingOrExpression.2.7|2453 (1+ ATN-PARSER::INDEX)))2454 (T (SETF *ATN-TERM?* '|Var|) NIL))))))2455 (|VariableOrBindingOrExpression/start.1| ATN-PARSER::INDEX)2456 (SETF *ATN-NODE NIL)2457 NIL2458 (IF ATN-PARSER::ATN-STRUCTURE2459 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2460 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2461 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VariableOrBindingOrExpression| ATN-PARSER::INDEX *ATN-STACK))))2462 (PROGN (DEFVAR |HavingClause-INDEX|)2463 (DEFUN |HavingClause| (ATN-PARSER::INDEX &AUX (|HavingCondition| NIL))2464 "{20a} HavingClause ::= 'HAVING' HavingCondition+2465 (|HavingCondition|)"2466 (DECLARE (SPECIAL |HavingClause-INDEX|))2467 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |HavingClause-INDEX| *ATN-LEVEL))2468 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2469 (IF (< |HavingClause-INDEX| ATN-PARSER::INDEX)2470 (LET ((|HavingClause-INDEX| ATN-PARSER::INDEX)2471 (*ATN-LEVEL (1+ *ATN-LEVEL))2472 (*ATN-STACK (CONS '|HavingClause| *ATN-STACK))2473 (ATN-PARSER::ATN-STRUCTURE NIL))2474 (DECLARE (SPECIAL |HavingClause-INDEX|))2475 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2476 (DECLARE (TYPE CONS *ATN-STACK))2477 (SYMBOL-MACROLET2478 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2479 (%ATN-BLOCK |HavingClause|2480 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2481 (SETF *ATN-TERM* '|HavingClause|)2482 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2483 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2484 (|HavingClause.2| (ATN-PARSER::INDEX)2485 (%ATN-NODE-BLOCK2486 |HavingClause.2|2487 (%ATN-EDGE-BLOCK2488 (POP |HavingClause|)2489 (WHEN T2490 (SETF *ATN-TERM* '|HavingClause|)2491 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2492 '|HavingClause|2493 ATN-PARSER::INDEX2494 (LIST '|HavingCondition| |HavingCondition|))2495 (LET ((ATN-PARSER::RESULT-STRUCTURE2496 (IF (EQ *ATN-REDUCE* T)2497 (|HavingClause-Constructor| |HavingCondition|)2498 (IF (EQ *ATN-REDUCE* 'CONS)2499 (CONS '|HavingClause| (DELETE NIL (LIST |HavingCondition|)))2500 '|HavingClause|))))2501 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2502 (|HavingClause.5| (ATN-PARSER::INDEX)2503 (%ATN-NODE-BLOCK2504 |HavingClause.5|2505 (%ATN-EDGE-BLOCK2506 (PUSH |HavingCondition|)2507 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2508 (ATN-PARSE-SUBSTRUCTURE* '|HavingCondition| ATN-PARSER::INDEX)2509 (COND (ATN-PARSER::SUCCESS2510 (SETF *ATN-TERM* '|HavingCondition|)2511 (LET ((|HavingCondition594| |HavingCondition|))2512 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2513 (DESTRUCTURING-BIND2514 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2515 ATN-PARSER::RESULT-AND-INDEX2516 (WHEN ATN-PARSER::RESULT2517 (SETF |HavingCondition| (CONS ATN-PARSER::RESULT |HavingCondition|)))2518 (|HavingClause.5| ATN-PARSER::RESULT-INDEX))2519 (SETF |HavingCondition| |HavingCondition594|))))2520 (T2521 (SETF *ATN-TERM?* '|HavingCondition|)2522 (|HavingClause.2| ATN-PARSER::INDEX)))))))2523 (|HavingClause/fail.3| (ATN-PARSER::INDEX)2524 (%ATN-NODE-BLOCK |HavingClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2525 (|HavingClause/HavingClause.2.4| (ATN-PARSER::INDEX)2526 (%ATN-NODE-BLOCK2527 |HavingClause/HavingClause.2.4|2528 (%ATN-EDGE-BLOCK2529 (PUSH |HavingCondition|)2530 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2531 (ATN-PARSE-SUBSTRUCTURE* '|HavingCondition| ATN-PARSER::INDEX)2532 (COND (ATN-PARSER::SUCCESS2533 (SETF *ATN-TERM* '|HavingCondition|)2534 (LET ((|HavingCondition593| |HavingCondition|))2535 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2536 (DESTRUCTURING-BIND2537 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2538 ATN-PARSER::RESULT-AND-INDEX2539 (WHEN ATN-PARSER::RESULT2540 (SETF |HavingCondition| (CONS ATN-PARSER::RESULT |HavingCondition|)))2541 (|HavingClause.5| ATN-PARSER::RESULT-INDEX))2542 (SETF |HavingCondition| |HavingCondition593|))))2543 (T2544 (SETF *ATN-TERM?* '|HavingCondition|)2545 (|HavingClause/fail.3| ATN-PARSER::INDEX)))))))2546 (|HavingClause/start.1| (ATN-PARSER::INDEX)2547 (%ATN-NODE-BLOCK2548 |HavingClause/start.1|2549 (%ATN-EDGE-BLOCK2550 (ATN-PARSER::WORD SPOCQ.S:HAVING)2551 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:HAVING)2552 (SETF *ATN-TERM* 'SPOCQ.S:HAVING)2553 (|HavingClause/HavingClause.2.4| (1+ ATN-PARSER::INDEX)))2554 (T2555 (SETF *ATN-TERM?* 'SPOCQ.S:HAVING)2556 (|HavingClause/fail.3| ATN-PARSER::INDEX)))))))2557 (|HavingClause/start.1| ATN-PARSER::INDEX)2558 (SETF *ATN-NODE NIL)2559 NIL2560 (IF ATN-PARSER::ATN-STRUCTURE2561 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2562 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2563 (WARN "recursive grammar: ~s @ position ~s: ~s" '|HavingClause| ATN-PARSER::INDEX *ATN-STACK))))2564 (PROGN (DEFVAR |HavingCondition-INDEX|)2565 (DEFUN |HavingCondition| (ATN-PARSER::INDEX &AUX (|Constraint| NIL))2566 "{21a} HavingCondition ::= Constraint2567 (|Constraint|)"2568 (DECLARE (SPECIAL |HavingCondition-INDEX|))2569 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |HavingCondition-INDEX| *ATN-LEVEL))2570 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2571 (IF (< |HavingCondition-INDEX| ATN-PARSER::INDEX)2572 (LET ((|HavingCondition-INDEX| ATN-PARSER::INDEX)2573 (*ATN-LEVEL (1+ *ATN-LEVEL))2574 (*ATN-STACK (CONS '|HavingCondition| *ATN-STACK))2575 (ATN-PARSER::ATN-STRUCTURE NIL))2576 (DECLARE (SPECIAL |HavingCondition-INDEX|))2577 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2578 (DECLARE (TYPE CONS *ATN-STACK))2579 (SYMBOL-MACROLET2580 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2581 (%ATN-BLOCK |HavingCondition|2582 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2583 (SETF *ATN-TERM* '|HavingCondition|)2584 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2585 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2586 (|HavingCondition.2| (ATN-PARSER::INDEX)2587 (%ATN-NODE-BLOCK2588 |HavingCondition.2|2589 (%ATN-EDGE-BLOCK2590 (POP |HavingCondition|)2591 (WHEN T2592 (SETF *ATN-TERM* '|HavingCondition|)2593 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2594 '|HavingCondition|2595 ATN-PARSER::INDEX2596 (LIST '|Constraint| |Constraint|))2597 (LET ((ATN-PARSER::RESULT-STRUCTURE2598 (IF (EQ *ATN-REDUCE* T)2599 (|HavingCondition-Constructor| |Constraint|)2600 (IF (EQ *ATN-REDUCE* 'CONS)2601 (CONS '|HavingCondition| (DELETE NIL (LIST |Constraint|)))2602 '|HavingCondition|))))2603 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2604 (|HavingCondition/fail.3| (ATN-PARSER::INDEX)2605 (%ATN-NODE-BLOCK |HavingCondition/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2606 (|HavingCondition/start.1| (ATN-PARSER::INDEX)2607 (%ATN-NODE-BLOCK2608 |HavingCondition/start.1|2609 (%ATN-EDGE-BLOCK2610 (PUSH |Constraint|)2611 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2612 (ATN-PARSE-SUBSTRUCTURE* '|Constraint| ATN-PARSER::INDEX)2613 (COND (ATN-PARSER::SUCCESS2614 (SETF *ATN-TERM* '|Constraint|)2615 (LET ((|Constraint594| |Constraint|))2616 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2617 (DESTRUCTURING-BIND2618 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2619 ATN-PARSER::RESULT-AND-INDEX2620 (WHEN ATN-PARSER::RESULT (SETF |Constraint| ATN-PARSER::RESULT))2621 (|HavingCondition.2| ATN-PARSER::RESULT-INDEX))2622 (SETF |Constraint| |Constraint594|))))2623 (T2624 (SETF *ATN-TERM?* '|Constraint|)2625 (|HavingCondition/fail.3| ATN-PARSER::INDEX))))))))2626 (|HavingCondition/start.1| ATN-PARSER::INDEX)2627 (SETF *ATN-NODE NIL)2628 NIL2629 (IF ATN-PARSER::ATN-STRUCTURE2630 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2631 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2632 (WARN "recursive grammar: ~s @ position ~s: ~s" '|HavingCondition| ATN-PARSER::INDEX *ATN-STACK))))2633 (PROGN (DEFVAR |LimitOffsetClauses-INDEX|)2634 (DEFUN |LimitOffsetClauses| (ATN-PARSER::INDEX &AUX (|LimitClause| NIL) (|OffsetClause| NIL))2635 "{15} LimitOffsetClauses ::= (((LimitClause OffsetClause?) | (OffsetClause2636 LimitClause?)))2637 (|LimitClause| |OffsetClause|)"2638 (DECLARE (SPECIAL |LimitOffsetClauses-INDEX|))2639 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |LimitOffsetClauses-INDEX| *ATN-LEVEL))2640 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2641 (IF (< |LimitOffsetClauses-INDEX| ATN-PARSER::INDEX)2642 (LET ((|LimitOffsetClauses-INDEX| ATN-PARSER::INDEX)2643 (*ATN-LEVEL (1+ *ATN-LEVEL))2644 (*ATN-STACK (CONS '|LimitOffsetClauses| *ATN-STACK))2645 (ATN-PARSER::ATN-STRUCTURE NIL))2646 (DECLARE (SPECIAL |LimitOffsetClauses-INDEX|))2647 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2648 (DECLARE (TYPE CONS *ATN-STACK))2649 (SYMBOL-MACROLET2650 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2651 (%ATN-BLOCK |LimitOffsetClauses|2652 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2653 (SETF *ATN-TERM* '|LimitOffsetClauses|)2654 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2655 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2656 (|LimitOffsetClauses.2| (ATN-PARSER::INDEX)2657 (%ATN-NODE-BLOCK2658 |LimitOffsetClauses.2|2659 (%ATN-EDGE-BLOCK2660 (POP |LimitOffsetClauses|)2661 (WHEN T2662 (SETF *ATN-TERM* '|LimitOffsetClauses|)2663 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2664 '|LimitOffsetClauses|2665 ATN-PARSER::INDEX2666 (LIST '|LimitClause| |LimitClause| '|OffsetClause| |OffsetClause|))2667 (LET ((ATN-PARSER::RESULT-STRUCTURE2668 (IF (EQ *ATN-REDUCE* T)2669 (|LimitOffsetClauses-Constructor| |LimitClause| |OffsetClause|)2670 (IF (EQ *ATN-REDUCE* 'CONS)2671 (CONS '|LimitOffsetClauses|2672 (DELETE NIL (LIST |LimitClause| |OffsetClause|)))2673 '|LimitOffsetClauses|))))2674 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2675 (|LimitOffsetClauses/fail.3| (ATN-PARSER::INDEX)2676 (%ATN-NODE-BLOCK |LimitOffsetClauses/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2677 (|LimitOffsetClauses/LimitOffsetClauses.2.4| (ATN-PARSER::INDEX)2678 (%ATN-NODE-BLOCK2679 |LimitOffsetClauses/LimitOffsetClauses.2.4|2680 (%ATN-EDGE-BLOCK2681 (PUSH |LimitClause|)2682 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2683 (ATN-PARSE-SUBSTRUCTURE* '|LimitClause| ATN-PARSER::INDEX)2684 (COND (ATN-PARSER::SUCCESS2685 (SETF *ATN-TERM* '|LimitClause|)2686 (LET ((|LimitClause595| |LimitClause|))2687 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2688 (DESTRUCTURING-BIND2689 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2690 ATN-PARSER::RESULT-AND-INDEX2691 (WHEN ATN-PARSER::RESULT (SETF |LimitClause| ATN-PARSER::RESULT))2692 (|LimitOffsetClauses/LimitOffsetClauses.2.5| ATN-PARSER::RESULT-INDEX))2693 (SETF |LimitClause| |LimitClause595|))))2694 (T (SETF *ATN-TERM?* '|LimitClause|) NIL))))))2695 (|LimitOffsetClauses/LimitOffsetClauses.2.5| (ATN-PARSER::INDEX)2696 (%ATN-NODE-BLOCK2697 |LimitOffsetClauses/LimitOffsetClauses.2.5|2698 (%ATN-EDGE-BLOCK2699 (PUSH |OffsetClause|)2700 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2701 (ATN-PARSE-SUBSTRUCTURE* '|OffsetClause| ATN-PARSER::INDEX)2702 (COND (ATN-PARSER::SUCCESS2703 (SETF *ATN-TERM* '|OffsetClause|)2704 (LET ((|OffsetClause595| |OffsetClause|))2705 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2706 (DESTRUCTURING-BIND2707 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2708 ATN-PARSER::RESULT-AND-INDEX2709 (WHEN ATN-PARSER::RESULT (SETF |OffsetClause| ATN-PARSER::RESULT))2710 (|LimitOffsetClauses.2| ATN-PARSER::RESULT-INDEX))2711 (SETF |OffsetClause| |OffsetClause595|))))2712 (T2713 (SETF *ATN-TERM?* '|OffsetClause|)2714 (|LimitOffsetClauses.2| ATN-PARSER::INDEX)))))))2715 (|LimitOffsetClauses/LimitOffsetClauses.2.6| (ATN-PARSER::INDEX)2716 (%ATN-NODE-BLOCK2717 |LimitOffsetClauses/LimitOffsetClauses.2.6|2718 (%ATN-EDGE-BLOCK2719 (PUSH |OffsetClause|)2720 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2721 (ATN-PARSE-SUBSTRUCTURE* '|OffsetClause| ATN-PARSER::INDEX)2722 (COND (ATN-PARSER::SUCCESS2723 (SETF *ATN-TERM* '|OffsetClause|)2724 (LET ((|OffsetClause594| |OffsetClause|))2725 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2726 (DESTRUCTURING-BIND2727 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2728 ATN-PARSER::RESULT-AND-INDEX2729 (WHEN ATN-PARSER::RESULT (SETF |OffsetClause| ATN-PARSER::RESULT))2730 (|LimitOffsetClauses/LimitOffsetClauses.2.7| ATN-PARSER::RESULT-INDEX))2731 (SETF |OffsetClause| |OffsetClause594|))))2732 (T (SETF *ATN-TERM?* '|OffsetClause|) NIL))))))2733 (|LimitOffsetClauses/LimitOffsetClauses.2.7| (ATN-PARSER::INDEX)2734 (%ATN-NODE-BLOCK2735 |LimitOffsetClauses/LimitOffsetClauses.2.7|2736 (%ATN-EDGE-BLOCK2737 (PUSH |LimitClause|)2738 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2739 (ATN-PARSE-SUBSTRUCTURE* '|LimitClause| ATN-PARSER::INDEX)2740 (COND (ATN-PARSER::SUCCESS2741 (SETF *ATN-TERM* '|LimitClause|)2742 (LET ((|LimitClause594| |LimitClause|))2743 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2744 (DESTRUCTURING-BIND2745 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2746 ATN-PARSER::RESULT-AND-INDEX2747 (WHEN ATN-PARSER::RESULT (SETF |LimitClause| ATN-PARSER::RESULT))2748 (|LimitOffsetClauses.2| ATN-PARSER::RESULT-INDEX))2749 (SETF |LimitClause| |LimitClause594|))))2750 (T2751 (SETF *ATN-TERM?* '|LimitClause|)2752 (|LimitOffsetClauses.2| ATN-PARSER::INDEX)))))))2753 (|LimitOffsetClauses/start.1| (ATN-PARSER::INDEX)2754 (%ATN-NODE-BLOCK2755 |LimitOffsetClauses/start.1|2756 (%ATN-EDGE-BLOCK2757 OR2758 (PROGN (%ATN-EDGE-BLOCK2759 (ATN-PARSER::JUMP |LimitOffsetClauses/LimitOffsetClauses.2.4|)2760 (|LimitOffsetClauses/LimitOffsetClauses.2.4| ATN-PARSER::INDEX))2761 (%ATN-EDGE-BLOCK2762 (ATN-PARSER::JUMP |LimitOffsetClauses/LimitOffsetClauses.2.6|)2763 (|LimitOffsetClauses/LimitOffsetClauses.2.6| ATN-PARSER::INDEX))2764 (|LimitOffsetClauses/fail.3| ATN-PARSER::INDEX))))))2765 (|LimitOffsetClauses/start.1| ATN-PARSER::INDEX)2766 (SETF *ATN-NODE NIL)2767 NIL2768 (IF ATN-PARSER::ATN-STRUCTURE2769 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2770 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2771 (WARN "recursive grammar: ~s @ position ~s: ~s" '|LimitOffsetClauses| ATN-PARSER::INDEX *ATN-STACK))))2772 (PROGN (DEFVAR |OrderClause-INDEX|)2773 (DEFUN |OrderClause| (ATN-PARSER::INDEX &AUX (|OrderCondition| NIL))2774 "{16} OrderClause ::= 'ORDER' 'BY' OrderCondition+2775 (|OrderCondition|)"2776 (DECLARE (SPECIAL |OrderClause-INDEX|))2777 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OrderClause-INDEX| *ATN-LEVEL))2778 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2779 (IF (< |OrderClause-INDEX| ATN-PARSER::INDEX)2780 (LET ((|OrderClause-INDEX| ATN-PARSER::INDEX)2781 (*ATN-LEVEL (1+ *ATN-LEVEL))2782 (*ATN-STACK (CONS '|OrderClause| *ATN-STACK))2783 (ATN-PARSER::ATN-STRUCTURE NIL))2784 (DECLARE (SPECIAL |OrderClause-INDEX|))2785 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2786 (DECLARE (TYPE CONS *ATN-STACK))2787 (SYMBOL-MACROLET2788 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2789 (%ATN-BLOCK |OrderClause|2790 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2791 (SETF *ATN-TERM* '|OrderClause|)2792 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2793 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2794 (|OrderClause.2| (ATN-PARSER::INDEX)2795 (%ATN-NODE-BLOCK2796 |OrderClause.2|2797 (%ATN-EDGE-BLOCK2798 (POP |OrderClause|)2799 (WHEN T2800 (SETF *ATN-TERM* '|OrderClause|)2801 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2802 '|OrderClause|2803 ATN-PARSER::INDEX2804 (LIST '|OrderCondition| |OrderCondition|))2805 (LET ((ATN-PARSER::RESULT-STRUCTURE2806 (IF (EQ *ATN-REDUCE* T)2807 (|OrderClause-Constructor| |OrderCondition|)2808 (IF (EQ *ATN-REDUCE* 'CONS)2809 (CONS '|OrderClause| (DELETE NIL (LIST |OrderCondition|)))2810 '|OrderClause|))))2811 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2812 (|OrderClause.6| (ATN-PARSER::INDEX)2813 (%ATN-NODE-BLOCK2814 |OrderClause.6|2815 (%ATN-EDGE-BLOCK2816 (PUSH |OrderCondition|)2817 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2818 (ATN-PARSE-SUBSTRUCTURE* '|OrderCondition| ATN-PARSER::INDEX)2819 (COND (ATN-PARSER::SUCCESS2820 (SETF *ATN-TERM* '|OrderCondition|)2821 (LET ((|OrderCondition596| |OrderCondition|))2822 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2823 (DESTRUCTURING-BIND2824 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2825 ATN-PARSER::RESULT-AND-INDEX2826 (WHEN ATN-PARSER::RESULT2827 (SETF |OrderCondition| (CONS ATN-PARSER::RESULT |OrderCondition|)))2828 (|OrderClause.6| ATN-PARSER::RESULT-INDEX))2829 (SETF |OrderCondition| |OrderCondition596|))))2830 (T2831 (SETF *ATN-TERM?* '|OrderCondition|)2832 (|OrderClause.2| ATN-PARSER::INDEX)))))))2833 (|OrderClause/fail.3| (ATN-PARSER::INDEX)2834 (%ATN-NODE-BLOCK |OrderClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2835 (|OrderClause/OrderClause.2.4| (ATN-PARSER::INDEX)2836 (%ATN-NODE-BLOCK2837 |OrderClause/OrderClause.2.4|2838 (%ATN-EDGE-BLOCK2839 (ATN-PARSER::WORD SPOCQ.S:BY)2840 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BY)2841 (SETF *ATN-TERM* 'SPOCQ.S:BY)2842 (|OrderClause/OrderClause.2.5| (1+ ATN-PARSER::INDEX)))2843 (T (SETF *ATN-TERM?* 'SPOCQ.S:BY) (|OrderClause/fail.3| ATN-PARSER::INDEX))))))2844 (|OrderClause/OrderClause.2.5| (ATN-PARSER::INDEX)2845 (%ATN-NODE-BLOCK2846 |OrderClause/OrderClause.2.5|2847 (%ATN-EDGE-BLOCK2848 (PUSH |OrderCondition|)2849 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2850 (ATN-PARSE-SUBSTRUCTURE* '|OrderCondition| ATN-PARSER::INDEX)2851 (COND (ATN-PARSER::SUCCESS2852 (SETF *ATN-TERM* '|OrderCondition|)2853 (LET ((|OrderCondition595| |OrderCondition|))2854 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2855 (DESTRUCTURING-BIND2856 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2857 ATN-PARSER::RESULT-AND-INDEX2858 (WHEN ATN-PARSER::RESULT2859 (SETF |OrderCondition| (CONS ATN-PARSER::RESULT |OrderCondition|)))2860 (|OrderClause.6| ATN-PARSER::RESULT-INDEX))2861 (SETF |OrderCondition| |OrderCondition595|))))2862 (T2863 (SETF *ATN-TERM?* '|OrderCondition|)2864 (|OrderClause/fail.3| ATN-PARSER::INDEX)))))))2865 (|OrderClause/start.1| (ATN-PARSER::INDEX)2866 (%ATN-NODE-BLOCK2867 |OrderClause/start.1|2868 (%ATN-EDGE-BLOCK2869 (ATN-PARSER::WORD SPOCQ.S:ORDER)2870 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:ORDER)2871 (SETF *ATN-TERM* 'SPOCQ.S:ORDER)2872 (|OrderClause/OrderClause.2.4| (1+ ATN-PARSER::INDEX)))2873 (T2874 (SETF *ATN-TERM?* 'SPOCQ.S:ORDER)2875 (|OrderClause/fail.3| ATN-PARSER::INDEX)))))))2876 (|OrderClause/start.1| ATN-PARSER::INDEX)2877 (SETF *ATN-NODE NIL)2878 NIL2879 (IF ATN-PARSER::ATN-STRUCTURE2880 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)2881 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))2882 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OrderClause| ATN-PARSER::INDEX *ATN-STACK))))2883 (PROGN (DEFVAR |OrderCondition-INDEX|)2884 (DEFUN |OrderCondition| (ATN-PARSER::INDEX &AUX (|BrackettedExpression| NIL) (|Constraint| NIL) (|OrderDirection| NIL)2885 (|Var| NIL))2886 "{17} OrderCondition ::= ((OrderDirection2887 BrackettedExpression) | Constraint | Var)2888 (|BrackettedExpression| |Constraint| |OrderDirection| |Var|)"2889 (DECLARE (SPECIAL |OrderCondition-INDEX|))2890 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OrderCondition-INDEX| *ATN-LEVEL))2891 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))2892 (IF (< |OrderCondition-INDEX| ATN-PARSER::INDEX)2893 (LET ((|OrderCondition-INDEX| ATN-PARSER::INDEX)2894 (*ATN-LEVEL (1+ *ATN-LEVEL))2895 (*ATN-STACK (CONS '|OrderCondition| *ATN-STACK))2896 (ATN-PARSER::ATN-STRUCTURE NIL))2897 (DECLARE (SPECIAL |OrderCondition-INDEX|))2898 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))2899 (DECLARE (TYPE CONS *ATN-STACK))2900 (SYMBOL-MACROLET2901 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))2902 (%ATN-BLOCK |OrderCondition|2903 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)2904 (SETF *ATN-TERM* '|OrderCondition|)2905 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))2906 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)2907 (|OrderCondition.2| (ATN-PARSER::INDEX)2908 (%ATN-NODE-BLOCK2909 |OrderCondition.2|2910 (%ATN-EDGE-BLOCK2911 (POP |OrderCondition|)2912 (WHEN T2913 (SETF *ATN-TERM* '|OrderCondition|)2914 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"2915 '|OrderCondition|2916 ATN-PARSER::INDEX2917 (LIST '|BrackettedExpression|2918 |BrackettedExpression|2919 '|Constraint|2920 |Constraint|2921 '|OrderDirection|2922 |OrderDirection|2923 '|Var|2924 |Var|))2925 (LET ((ATN-PARSER::RESULT-STRUCTURE2926 (IF (EQ *ATN-REDUCE* T)2927 (|OrderCondition-Constructor|2928 |BrackettedExpression|2929 |Constraint|2930 |OrderDirection|2931 |Var|)2932 (IF (EQ *ATN-REDUCE* 'CONS)2933 (CONS '|OrderCondition|2934 (DELETE NIL2935 (LIST |BrackettedExpression|2936 |Constraint|2937 |OrderDirection|2938 |Var|)))2939 '|OrderCondition|))))2940 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))2941 (|OrderCondition/fail.3| (ATN-PARSER::INDEX)2942 (%ATN-NODE-BLOCK |OrderCondition/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))2943 (|OrderCondition/OrderCondition.2.4| (ATN-PARSER::INDEX)2944 (%ATN-NODE-BLOCK2945 |OrderCondition/OrderCondition.2.4|2946 (%ATN-EDGE-BLOCK2947 (ATN-PARSER::CAT |OrderDirection|)2948 (COND ((|IS-OrderDirection| ATN-PARSER::|item|)2949 (SETF *ATN-TERM* '|OrderDirection|)2950 (SETF |OrderDirection|2951 (IF (EQ *ATN-REDUCE* T)2952 (ATN-REDUCE-ITEM #'|OrderDirection-Constructor| ATN-PARSER::|item|)2953 (IF (EQ *ATN-REDUCE* 'CONS)2954 (LIST '|OrderDirection| ATN-PARSER::|item|)2955 '|OrderDirection|)))2956 (|OrderCondition/OrderCondition.2.5| (1+ ATN-PARSER::INDEX)))2957 (T (SETF *ATN-TERM* '|OrderDirection|) NIL)))))2958 (|OrderCondition/OrderCondition.2.5| (ATN-PARSER::INDEX)2959 (%ATN-NODE-BLOCK2960 |OrderCondition/OrderCondition.2.5|2961 (%ATN-EDGE-BLOCK2962 (PUSH |BrackettedExpression|)2963 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2964 (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression| ATN-PARSER::INDEX)2965 (COND (ATN-PARSER::SUCCESS2966 (SETF *ATN-TERM* '|BrackettedExpression|)2967 (LET ((|BrackettedExpression596| |BrackettedExpression|))2968 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2969 (DESTRUCTURING-BIND2970 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2971 ATN-PARSER::RESULT-AND-INDEX2972 (WHEN ATN-PARSER::RESULT2973 (SETF |BrackettedExpression| ATN-PARSER::RESULT))2974 (|OrderCondition.2| ATN-PARSER::RESULT-INDEX))2975 (SETF |BrackettedExpression| |BrackettedExpression596|))))2976 (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))))2977 (|OrderCondition/start.1| (ATN-PARSER::INDEX)2978 (%ATN-NODE-BLOCK2979 |OrderCondition/start.1|2980 (%ATN-EDGE-BLOCK2981 OR2982 (PROGN (%ATN-EDGE-BLOCK2983 (ATN-PARSER::JUMP |OrderCondition/OrderCondition.2.4|)2984 (|OrderCondition/OrderCondition.2.4| ATN-PARSER::INDEX))2985 (%ATN-EDGE-BLOCK2986 (PUSH |Constraint|)2987 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)2988 (ATN-PARSE-SUBSTRUCTURE* '|Constraint| ATN-PARSER::INDEX)2989 (COND (ATN-PARSER::SUCCESS2990 (SETF *ATN-TERM* '|Constraint|)2991 (LET ((|Constraint596| |Constraint|))2992 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)2993 (DESTRUCTURING-BIND2994 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)2995 ATN-PARSER::RESULT-AND-INDEX2996 (WHEN ATN-PARSER::RESULT2997 (SETF |Constraint| ATN-PARSER::RESULT))2998 (|OrderCondition.2| ATN-PARSER::RESULT-INDEX))2999 (SETF |Constraint| |Constraint596|))))3000 (T (SETF *ATN-TERM?* '|Constraint|) NIL))))3001 (%ATN-EDGE-BLOCK3002 (TEST |Var|)3003 (COND ((|IS-Var| ATN-PARSER::|item|)3004 (SETF *ATN-TERM* '|Var|)3005 (SETF |Var|3006 (IF (EQ *ATN-REDUCE* T)3007 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)3008 (IF (EQ *ATN-REDUCE* 'CONS)3009 (LIST '|Var| ATN-PARSER::|item|)3010 '|Var|)))3011 (|OrderCondition.2| (1+ ATN-PARSER::INDEX)))3012 (T (SETF *ATN-TERM?* '|Var|) NIL)))3013 (|OrderCondition/fail.3| ATN-PARSER::INDEX))))))3014 (|OrderCondition/start.1| ATN-PARSER::INDEX)3015 (SETF *ATN-NODE NIL)3016 NIL3017 (IF ATN-PARSER::ATN-STRUCTURE3018 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3019 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3020 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OrderCondition| ATN-PARSER::INDEX *ATN-STACK))))3021 (PROGN (DEFVAR |LimitClause-INDEX|)3022 (DEFUN |LimitClause| (ATN-PARSER::INDEX &AUX (INTEGER NIL))3023 "{18} LimitClause ::= 'LIMIT' INTEGER3024 (INTEGER)"3025 (DECLARE (SPECIAL |LimitClause-INDEX|))3026 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |LimitClause-INDEX| *ATN-LEVEL))3027 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3028 (IF (< |LimitClause-INDEX| ATN-PARSER::INDEX)3029 (LET ((|LimitClause-INDEX| ATN-PARSER::INDEX)3030 (*ATN-LEVEL (1+ *ATN-LEVEL))3031 (*ATN-STACK (CONS '|LimitClause| *ATN-STACK))3032 (ATN-PARSER::ATN-STRUCTURE NIL))3033 (DECLARE (SPECIAL |LimitClause-INDEX|))3034 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3035 (DECLARE (TYPE CONS *ATN-STACK))3036 (SYMBOL-MACROLET3037 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3038 (%ATN-BLOCK |LimitClause|3039 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3040 (SETF *ATN-TERM* '|LimitClause|)3041 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3042 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3043 (|LimitClause.2| (ATN-PARSER::INDEX)3044 (%ATN-NODE-BLOCK3045 |LimitClause.2|3046 (%ATN-EDGE-BLOCK3047 (POP |LimitClause|)3048 (WHEN T3049 (SETF *ATN-TERM* '|LimitClause|)3050 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3051 '|LimitClause|3052 ATN-PARSER::INDEX3053 (LIST 'INTEGER INTEGER))3054 (LET ((ATN-PARSER::RESULT-STRUCTURE3055 (IF (EQ *ATN-REDUCE* T)3056 (|LimitClause-Constructor| INTEGER)3057 (IF (EQ *ATN-REDUCE* 'CONS)3058 (CONS '|LimitClause| (DELETE NIL (LIST INTEGER)))3059 '|LimitClause|))))3060 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3061 (|LimitClause/fail.3| (ATN-PARSER::INDEX)3062 (%ATN-NODE-BLOCK |LimitClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3063 (|LimitClause/LimitClause.2.4| (ATN-PARSER::INDEX)3064 (%ATN-NODE-BLOCK3065 |LimitClause/LimitClause.2.4|3066 (%ATN-EDGE-BLOCK3067 (TEST INTEGER)3068 (COND ((IS-INTEGER ATN-PARSER::|item|)3069 (SETF *ATN-TERM* 'INTEGER)3070 (SETF INTEGER3071 (IF (EQ *ATN-REDUCE* T)3072 (ATN-REDUCE-ITEM #'|INTEGER-Constructor| ATN-PARSER::|item|)3073 (IF (EQ *ATN-REDUCE* 'CONS)3074 (LIST 'INTEGER ATN-PARSER::|item|)3075 'INTEGER)))3076 (|LimitClause.2| (1+ ATN-PARSER::INDEX)))3077 (T (SETF *ATN-TERM?* 'INTEGER) (|LimitClause/fail.3| ATN-PARSER::INDEX))))))3078 (|LimitClause/start.1| (ATN-PARSER::INDEX)3079 (%ATN-NODE-BLOCK3080 |LimitClause/start.1|3081 (%ATN-EDGE-BLOCK3082 (ATN-PARSER::WORD SPOCQ.S:LIMIT)3083 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:LIMIT)3084 (SETF *ATN-TERM* 'SPOCQ.S:LIMIT)3085 (|LimitClause/LimitClause.2.4| (1+ ATN-PARSER::INDEX)))3086 (T3087 (SETF *ATN-TERM?* 'SPOCQ.S:LIMIT)3088 (|LimitClause/fail.3| ATN-PARSER::INDEX)))))))3089 (|LimitClause/start.1| ATN-PARSER::INDEX)3090 (SETF *ATN-NODE NIL)3091 NIL3092 (IF ATN-PARSER::ATN-STRUCTURE3093 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3094 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3095 (WARN "recursive grammar: ~s @ position ~s: ~s" '|LimitClause| ATN-PARSER::INDEX *ATN-STACK))))3096 (PROGN (DEFVAR |OffsetClause-INDEX|)3097 (DEFUN |OffsetClause| (ATN-PARSER::INDEX &AUX (INTEGER NIL))3098 "{19} OffsetClause ::= 'OFFSET' INTEGER3099 (INTEGER)"3100 (DECLARE (SPECIAL |OffsetClause-INDEX|))3101 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OffsetClause-INDEX| *ATN-LEVEL))3102 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3103 (IF (< |OffsetClause-INDEX| ATN-PARSER::INDEX)3104 (LET ((|OffsetClause-INDEX| ATN-PARSER::INDEX)3105 (*ATN-LEVEL (1+ *ATN-LEVEL))3106 (*ATN-STACK (CONS '|OffsetClause| *ATN-STACK))3107 (ATN-PARSER::ATN-STRUCTURE NIL))3108 (DECLARE (SPECIAL |OffsetClause-INDEX|))3109 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3110 (DECLARE (TYPE CONS *ATN-STACK))3111 (SYMBOL-MACROLET3112 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3113 (%ATN-BLOCK |OffsetClause|3114 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3115 (SETF *ATN-TERM* '|OffsetClause|)3116 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3117 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3118 (|OffsetClause.2| (ATN-PARSER::INDEX)3119 (%ATN-NODE-BLOCK3120 |OffsetClause.2|3121 (%ATN-EDGE-BLOCK3122 (POP |OffsetClause|)3123 (WHEN T3124 (SETF *ATN-TERM* '|OffsetClause|)3125 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3126 '|OffsetClause|3127 ATN-PARSER::INDEX3128 (LIST 'INTEGER INTEGER))3129 (LET ((ATN-PARSER::RESULT-STRUCTURE3130 (IF (EQ *ATN-REDUCE* T)3131 (|OffsetClause-Constructor| INTEGER)3132 (IF (EQ *ATN-REDUCE* 'CONS)3133 (CONS '|OffsetClause| (DELETE NIL (LIST INTEGER)))3134 '|OffsetClause|))))3135 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3136 (|OffsetClause/fail.3| (ATN-PARSER::INDEX)3137 (%ATN-NODE-BLOCK |OffsetClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3138 (|OffsetClause/OffsetClause.2.4| (ATN-PARSER::INDEX)3139 (%ATN-NODE-BLOCK3140 |OffsetClause/OffsetClause.2.4|3141 (%ATN-EDGE-BLOCK3142 (TEST INTEGER)3143 (COND ((IS-INTEGER ATN-PARSER::|item|)3144 (SETF *ATN-TERM* 'INTEGER)3145 (SETF INTEGER3146 (IF (EQ *ATN-REDUCE* T)3147 (ATN-REDUCE-ITEM #'|INTEGER-Constructor| ATN-PARSER::|item|)3148 (IF (EQ *ATN-REDUCE* 'CONS)3149 (LIST 'INTEGER ATN-PARSER::|item|)3150 'INTEGER)))3151 (|OffsetClause.2| (1+ ATN-PARSER::INDEX)))3152 (T (SETF *ATN-TERM?* 'INTEGER) (|OffsetClause/fail.3| ATN-PARSER::INDEX))))))3153 (|OffsetClause/start.1| (ATN-PARSER::INDEX)3154 (%ATN-NODE-BLOCK3155 |OffsetClause/start.1|3156 (%ATN-EDGE-BLOCK3157 (ATN-PARSER::WORD SPOCQ.S:OFFSET)3158 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:OFFSET)3159 (SETF *ATN-TERM* 'SPOCQ.S:OFFSET)3160 (|OffsetClause/OffsetClause.2.4| (1+ ATN-PARSER::INDEX)))3161 (T3162 (SETF *ATN-TERM?* 'SPOCQ.S:OFFSET)3163 (|OffsetClause/fail.3| ATN-PARSER::INDEX)))))))3164 (|OffsetClause/start.1| ATN-PARSER::INDEX)3165 (SETF *ATN-NODE NIL)3166 NIL3167 (IF ATN-PARSER::ATN-STRUCTURE3168 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3169 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3170 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OffsetClause| ATN-PARSER::INDEX *ATN-STACK))))3171 (PROGN (DEFVAR |BindingsClause-INDEX|)3172 (DEFUN |BindingsClause| (ATN-PARSER::INDEX &AUX (|BindingList| NIL) (|Var| NIL))3173 "BindingsClause ::= 'BINDINGS' Var* '{' BindingList* '}'3174 (|BindingList| |Var|)"3175 (DECLARE (SPECIAL |BindingsClause-INDEX|))3176 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BindingsClause-INDEX| *ATN-LEVEL))3177 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3178 (IF (< |BindingsClause-INDEX| ATN-PARSER::INDEX)3179 (LET ((|BindingsClause-INDEX| ATN-PARSER::INDEX)3180 (*ATN-LEVEL (1+ *ATN-LEVEL))3181 (*ATN-STACK (CONS '|BindingsClause| *ATN-STACK))3182 (ATN-PARSER::ATN-STRUCTURE NIL))3183 (DECLARE (SPECIAL |BindingsClause-INDEX|))3184 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3185 (DECLARE (TYPE CONS *ATN-STACK))3186 (SYMBOL-MACROLET3187 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3188 (%ATN-BLOCK |BindingsClause|3189 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3190 (SETF *ATN-TERM* '|BindingsClause|)3191 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3192 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3193 (|BindingsClause.2| (ATN-PARSER::INDEX)3194 (%ATN-NODE-BLOCK3195 |BindingsClause.2|3196 (%ATN-EDGE-BLOCK3197 (POP |BindingsClause|)3198 (WHEN T3199 (SETF *ATN-TERM* '|BindingsClause|)3200 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3201 '|BindingsClause|3202 ATN-PARSER::INDEX3203 (LIST '|BindingList| |BindingList| '|Var| |Var|))3204 (LET ((ATN-PARSER::RESULT-STRUCTURE3205 (IF (EQ *ATN-REDUCE* T)3206 (|BindingsClause-Constructor| |BindingList| |Var|)3207 (IF (EQ *ATN-REDUCE* 'CONS)3208 (CONS '|BindingsClause| (DELETE NIL (LIST |BindingList| |Var|)))3209 '|BindingsClause|))))3210 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3211 (|BindingsClause.8| (ATN-PARSER::INDEX)3212 (%ATN-NODE-BLOCK3213 |BindingsClause.8|3214 (%ATN-EDGE-BLOCK3215 (TEST |Var|)3216 (COND ((|IS-Var| ATN-PARSER::|item|)3217 (SETF *ATN-TERM* '|Var|)3218 (SETF |Var|3219 (CONS (IF (EQ *ATN-REDUCE* T)3220 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)3221 (IF (EQ *ATN-REDUCE* 'CONS)3222 (LIST '|Var| ATN-PARSER::|item|)3223 '|Var|))3224 |Var|))3225 (|BindingsClause.8| (1+ ATN-PARSER::INDEX)))3226 (T3227 (SETF *ATN-TERM?* '|Var|)3228 (|BindingsClause/BindingsClause.2.5| ATN-PARSER::INDEX))))))3229 (|BindingsClause.9| (ATN-PARSER::INDEX)3230 (%ATN-NODE-BLOCK3231 |BindingsClause.9|3232 (%ATN-EDGE-BLOCK3233 (PUSH |BindingList|)3234 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3235 (ATN-PARSE-SUBSTRUCTURE* '|BindingList| ATN-PARSER::INDEX)3236 (COND (ATN-PARSER::SUCCESS3237 (SETF *ATN-TERM* '|BindingList|)3238 (LET ((|BindingList597| |BindingList|))3239 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3240 (DESTRUCTURING-BIND3241 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3242 ATN-PARSER::RESULT-AND-INDEX3243 (WHEN ATN-PARSER::RESULT3244 (SETF |BindingList| (CONS ATN-PARSER::RESULT |BindingList|)))3245 (|BindingsClause.9| ATN-PARSER::RESULT-INDEX))3246 (SETF |BindingList| |BindingList597|))))3247 (T3248 (SETF *ATN-TERM?* '|BindingList|)3249 (|BindingsClause/BindingsClause.2.7| ATN-PARSER::INDEX)))))))3250 (|BindingsClause/BindingsClause.2.4| (ATN-PARSER::INDEX)3251 (%ATN-NODE-BLOCK3252 |BindingsClause/BindingsClause.2.4|3253 (%ATN-EDGE-BLOCK3254 (TEST |Var|)3255 (COND ((|IS-Var| ATN-PARSER::|item|)3256 (SETF *ATN-TERM* '|Var|)3257 (SETF |Var|3258 (CONS (IF (EQ *ATN-REDUCE* T)3259 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)3260 (IF (EQ *ATN-REDUCE* 'CONS)3261 (LIST '|Var| ATN-PARSER::|item|)3262 '|Var|))3263 |Var|))3264 (|BindingsClause.8| (1+ ATN-PARSER::INDEX)))3265 (T3266 (SETF *ATN-TERM?* '|Var|)3267 (|BindingsClause/BindingsClause.2.5| ATN-PARSER::INDEX))))))3268 (|BindingsClause/BindingsClause.2.5| (ATN-PARSER::INDEX)3269 (%ATN-NODE-BLOCK3270 |BindingsClause/BindingsClause.2.5|3271 (%ATN-EDGE-BLOCK3272 (ATN-PARSER::WORD SPOCQ.S:{)3273 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)3274 (SETF *ATN-TERM* 'SPOCQ.S:{)3275 (|BindingsClause/BindingsClause.2.6| (1+ ATN-PARSER::INDEX)))3276 (T (SETF *ATN-TERM?* 'SPOCQ.S:{) (|BindingsClause/fail.3| ATN-PARSER::INDEX))))))3277 (|BindingsClause/BindingsClause.2.6| (ATN-PARSER::INDEX)3278 (%ATN-NODE-BLOCK3279 |BindingsClause/BindingsClause.2.6|3280 (%ATN-EDGE-BLOCK3281 (PUSH |BindingList|)3282 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3283 (ATN-PARSE-SUBSTRUCTURE* '|BindingList| ATN-PARSER::INDEX)3284 (COND (ATN-PARSER::SUCCESS3285 (SETF *ATN-TERM* '|BindingList|)3286 (LET ((|BindingList596| |BindingList|))3287 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3288 (DESTRUCTURING-BIND3289 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3290 ATN-PARSER::RESULT-AND-INDEX3291 (WHEN ATN-PARSER::RESULT3292 (SETF |BindingList| (CONS ATN-PARSER::RESULT |BindingList|)))3293 (|BindingsClause.9| ATN-PARSER::RESULT-INDEX))3294 (SETF |BindingList| |BindingList596|))))3295 (T3296 (SETF *ATN-TERM?* '|BindingList|)3297 (|BindingsClause/BindingsClause.2.7| ATN-PARSER::INDEX)))))))3298 (|BindingsClause/BindingsClause.2.7| (ATN-PARSER::INDEX)3299 (%ATN-NODE-BLOCK3300 |BindingsClause/BindingsClause.2.7|3301 (%ATN-EDGE-BLOCK3302 (ATN-PARSER::WORD SPOCQ.S:})3303 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:})3304 (SETF *ATN-TERM* 'SPOCQ.S:})3305 (|BindingsClause.2| (1+ ATN-PARSER::INDEX)))3306 (T (SETF *ATN-TERM?* 'SPOCQ.S:}) (|BindingsClause/fail.3| ATN-PARSER::INDEX))))))3307 (|BindingsClause/fail.3| (ATN-PARSER::INDEX)3308 (%ATN-NODE-BLOCK |BindingsClause/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3309 (|BindingsClause/start.1| (ATN-PARSER::INDEX)3310 (%ATN-NODE-BLOCK3311 |BindingsClause/start.1|3312 (%ATN-EDGE-BLOCK3313 (ATN-PARSER::WORD SPOCQ.S:BINDINGS)3314 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BINDINGS)3315 (SETF *ATN-TERM* 'SPOCQ.S:BINDINGS)3316 (|BindingsClause/BindingsClause.2.4| (1+ ATN-PARSER::INDEX)))3317 (T3318 (SETF *ATN-TERM?* 'SPOCQ.S:BINDINGS)3319 (|BindingsClause/fail.3| ATN-PARSER::INDEX)))))))3320 (|BindingsClause/start.1| ATN-PARSER::INDEX)3321 (SETF *ATN-NODE NIL)3322 NIL3323 (IF ATN-PARSER::ATN-STRUCTURE3324 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3325 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3326 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BindingsClause| ATN-PARSER::INDEX *ATN-STACK))))3327 (PROGN (DEFVAR |BindingList-INDEX|)3328 (DEFUN |BindingList| (ATN-PARSER::INDEX &AUX (|BindingValue| NIL))3329 "BindingList ::= '(' BindingValue* ')'3330 (|BindingValue|)"3331 (DECLARE (SPECIAL |BindingList-INDEX|))3332 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BindingList-INDEX| *ATN-LEVEL))3333 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3334 (IF (< |BindingList-INDEX| ATN-PARSER::INDEX)3335 (LET ((|BindingList-INDEX| ATN-PARSER::INDEX)3336 (*ATN-LEVEL (1+ *ATN-LEVEL))3337 (*ATN-STACK (CONS '|BindingList| *ATN-STACK))3338 (ATN-PARSER::ATN-STRUCTURE NIL))3339 (DECLARE (SPECIAL |BindingList-INDEX|))3340 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3341 (DECLARE (TYPE CONS *ATN-STACK))3342 (SYMBOL-MACROLET3343 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3344 (%ATN-BLOCK |BindingList|3345 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3346 (SETF *ATN-TERM* '|BindingList|)3347 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3348 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3349 (|BindingList.2| (ATN-PARSER::INDEX)3350 (%ATN-NODE-BLOCK3351 |BindingList.2|3352 (%ATN-EDGE-BLOCK3353 (POP |BindingList|)3354 (WHEN T3355 (SETF *ATN-TERM* '|BindingList|)3356 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3357 '|BindingList|3358 ATN-PARSER::INDEX3359 (LIST '|BindingValue| |BindingValue|))3360 (LET ((ATN-PARSER::RESULT-STRUCTURE3361 (IF (EQ *ATN-REDUCE* T)3362 (|BindingList-Constructor| |BindingValue|)3363 (IF (EQ *ATN-REDUCE* 'CONS)3364 (CONS '|BindingList| (DELETE NIL (LIST |BindingValue|)))3365 '|BindingList|))))3366 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3367 (|BindingList.6| (ATN-PARSER::INDEX)3368 (%ATN-NODE-BLOCK3369 |BindingList.6|3370 (%ATN-EDGE-BLOCK3371 (PUSH |BindingValue|)3372 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3373 (ATN-PARSE-SUBSTRUCTURE* '|BindingValue| ATN-PARSER::INDEX)3374 (COND (ATN-PARSER::SUCCESS3375 (SETF *ATN-TERM* '|BindingValue|)3376 (LET ((|BindingValue598| |BindingValue|))3377 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3378 (DESTRUCTURING-BIND3379 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3380 ATN-PARSER::RESULT-AND-INDEX3381 (WHEN ATN-PARSER::RESULT3382 (SETF |BindingValue| (CONS ATN-PARSER::RESULT |BindingValue|)))3383 (|BindingList.6| ATN-PARSER::RESULT-INDEX))3384 (SETF |BindingValue| |BindingValue598|))))3385 (T3386 (SETF *ATN-TERM?* '|BindingValue|)3387 (|BindingList/BindingList.2.5| ATN-PARSER::INDEX)))))))3388 (|BindingList/BindingList.2.4| (ATN-PARSER::INDEX)3389 (%ATN-NODE-BLOCK3390 |BindingList/BindingList.2.4|3391 (%ATN-EDGE-BLOCK3392 (PUSH |BindingValue|)3393 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3394 (ATN-PARSE-SUBSTRUCTURE* '|BindingValue| ATN-PARSER::INDEX)3395 (COND (ATN-PARSER::SUCCESS3396 (SETF *ATN-TERM* '|BindingValue|)3397 (LET ((|BindingValue597| |BindingValue|))3398 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3399 (DESTRUCTURING-BIND3400 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3401 ATN-PARSER::RESULT-AND-INDEX3402 (WHEN ATN-PARSER::RESULT3403 (SETF |BindingValue| (CONS ATN-PARSER::RESULT |BindingValue|)))3404 (|BindingList.6| ATN-PARSER::RESULT-INDEX))3405 (SETF |BindingValue| |BindingValue597|))))3406 (T3407 (SETF *ATN-TERM?* '|BindingValue|)3408 (|BindingList/BindingList.2.5| ATN-PARSER::INDEX)))))))3409 (|BindingList/BindingList.2.5| (ATN-PARSER::INDEX)3410 (%ATN-NODE-BLOCK3411 |BindingList/BindingList.2.5|3412 (%ATN-EDGE-BLOCK3413 (ATN-PARSER::WORD SPOCQ.S:\))3414 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))3415 (SETF *ATN-TERM* 'SPOCQ.S:\))3416 (|BindingList.2| (1+ ATN-PARSER::INDEX)))3417 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|BindingList/fail.3| ATN-PARSER::INDEX))))))3418 (|BindingList/fail.3| (ATN-PARSER::INDEX)3419 (%ATN-NODE-BLOCK |BindingList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3420 (|BindingList/start.1| (ATN-PARSER::INDEX)3421 (%ATN-NODE-BLOCK3422 |BindingList/start.1|3423 (%ATN-EDGE-BLOCK3424 (ATN-PARSER::WORD SPOCQ.S:\()3425 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()3426 (SETF *ATN-TERM* 'SPOCQ.S:\()3427 (|BindingList/BindingList.2.4| (1+ ATN-PARSER::INDEX)))3428 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|BindingList/fail.3| ATN-PARSER::INDEX)))))))3429 (|BindingList/start.1| ATN-PARSER::INDEX)3430 (SETF *ATN-NODE NIL)3431 NIL3432 (IF ATN-PARSER::ATN-STRUCTURE3433 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3434 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3435 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BindingList| ATN-PARSER::INDEX *ATN-STACK))))3436 (PROGN (DEFVAR |BindingValue-INDEX|)3437 (DEFUN |BindingValue| (ATN-PARSER::INDEX &AUX (|BooleanLiteral| NIL) (|IRIref| NIL) (|NumericLiteral| NIL)3438 (|RDFLiteral| NIL) (|Undef| NIL))3439 "BindingValue ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | Undef)3440 (|BooleanLiteral| |IRIref| |NumericLiteral| |RDFLiteral| |Undef|)"3441 (DECLARE (SPECIAL |BindingValue-INDEX|))3442 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BindingValue-INDEX| *ATN-LEVEL))3443 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3444 (IF (< |BindingValue-INDEX| ATN-PARSER::INDEX)3445 (LET ((|BindingValue-INDEX| ATN-PARSER::INDEX)3446 (*ATN-LEVEL (1+ *ATN-LEVEL))3447 (*ATN-STACK (CONS '|BindingValue| *ATN-STACK))3448 (ATN-PARSER::ATN-STRUCTURE NIL))3449 (DECLARE (SPECIAL |BindingValue-INDEX|))3450 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3451 (DECLARE (TYPE CONS *ATN-STACK))3452 (SYMBOL-MACROLET3453 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3454 (%ATN-BLOCK |BindingValue|3455 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3456 (SETF *ATN-TERM* '|BindingValue|)3457 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3458 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3459 (|BindingValue.2| (ATN-PARSER::INDEX)3460 (%ATN-NODE-BLOCK3461 |BindingValue.2|3462 (%ATN-EDGE-BLOCK3463 (POP |BindingValue|)3464 (WHEN T3465 (SETF *ATN-TERM* '|BindingValue|)3466 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3467 '|BindingValue|3468 ATN-PARSER::INDEX3469 (LIST '|BooleanLiteral|3470 |BooleanLiteral|3471 '|IRIref|3472 |IRIref|3473 '|NumericLiteral|3474 |NumericLiteral|3475 '|RDFLiteral|3476 |RDFLiteral|3477 '|Undef|3478 |Undef|))3479 (LET ((ATN-PARSER::RESULT-STRUCTURE3480 (IF (EQ *ATN-REDUCE* T)3481 (|BindingValue-Constructor|3482 |BooleanLiteral|3483 |IRIref|3484 |NumericLiteral|3485 |RDFLiteral|3486 |Undef|)3487 (IF (EQ *ATN-REDUCE* 'CONS)3488 (CONS '|BindingValue|3489 (DELETE NIL3490 (LIST |BooleanLiteral|3491 |IRIref|3492 |NumericLiteral|3493 |RDFLiteral|3494 |Undef|)))3495 '|BindingValue|))))3496 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3497 (|BindingValue/fail.3| (ATN-PARSER::INDEX)3498 (%ATN-NODE-BLOCK |BindingValue/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3499 (|BindingValue/start.1| (ATN-PARSER::INDEX)3500 (%ATN-NODE-BLOCK3501 |BindingValue/start.1|3502 (%ATN-EDGE-BLOCK3503 OR3504 (PROGN (%ATN-EDGE-BLOCK3505 (PUSH |IRIref|)3506 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3507 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)3508 (COND (ATN-PARSER::SUCCESS3509 (SETF *ATN-TERM* '|IRIref|)3510 (LET ((|IRIref598| |IRIref|))3511 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3512 (DESTRUCTURING-BIND3513 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3514 ATN-PARSER::RESULT-AND-INDEX3515 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))3516 (|BindingValue.2| ATN-PARSER::RESULT-INDEX))3517 (SETF |IRIref| |IRIref598|))))3518 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))3519 (%ATN-EDGE-BLOCK3520 (PUSH |RDFLiteral|)3521 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3522 (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral| ATN-PARSER::INDEX)3523 (COND (ATN-PARSER::SUCCESS3524 (SETF *ATN-TERM* '|RDFLiteral|)3525 (LET ((|RDFLiteral598| |RDFLiteral|))3526 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3527 (DESTRUCTURING-BIND3528 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3529 ATN-PARSER::RESULT-AND-INDEX3530 (WHEN ATN-PARSER::RESULT3531 (SETF |RDFLiteral| ATN-PARSER::RESULT))3532 (|BindingValue.2| ATN-PARSER::RESULT-INDEX))3533 (SETF |RDFLiteral| |RDFLiteral598|))))3534 (T (SETF *ATN-TERM?* '|RDFLiteral|) NIL))))3535 (%ATN-EDGE-BLOCK3536 (ATN-PARSER::CAT |NumericLiteral|)3537 (COND ((|IS-NumericLiteral| ATN-PARSER::|item|)3538 (SETF *ATN-TERM* '|NumericLiteral|)3539 (SETF |NumericLiteral|3540 (IF (EQ *ATN-REDUCE* T)3541 (ATN-REDUCE-ITEM3542 #'|NumericLiteral-Constructor|3543 ATN-PARSER::|item|)3544 (IF (EQ *ATN-REDUCE* 'CONS)3545 (LIST '|NumericLiteral| ATN-PARSER::|item|)3546 '|NumericLiteral|)))3547 (|BindingValue.2| (1+ ATN-PARSER::INDEX)))3548 (T (SETF *ATN-TERM* '|NumericLiteral|) NIL)))3549 (%ATN-EDGE-BLOCK3550 (ATN-PARSER::CAT |BooleanLiteral|)3551 (COND ((|IS-BooleanLiteral| ATN-PARSER::|item|)3552 (SETF *ATN-TERM* '|BooleanLiteral|)3553 (SETF |BooleanLiteral|3554 (IF (EQ *ATN-REDUCE* T)3555 (ATN-REDUCE-ITEM3556 #'|BooleanLiteral-Constructor|3557 ATN-PARSER::|item|)3558 (IF (EQ *ATN-REDUCE* 'CONS)3559 (LIST '|BooleanLiteral| ATN-PARSER::|item|)3560 '|BooleanLiteral|)))3561 (|BindingValue.2| (1+ ATN-PARSER::INDEX)))3562 (T (SETF *ATN-TERM* '|BooleanLiteral|) NIL)))3563 (%ATN-EDGE-BLOCK3564 (ATN-PARSER::CAT |Undef|)3565 (COND ((|IS-Undef| ATN-PARSER::|item|)3566 (SETF *ATN-TERM* '|Undef|)3567 (SETF |Undef|3568 (IF (EQ *ATN-REDUCE* T)3569 (ATN-REDUCE-ITEM #'|Undef-Constructor| ATN-PARSER::|item|)3570 (IF (EQ *ATN-REDUCE* 'CONS)3571 (LIST '|Undef| ATN-PARSER::|item|)3572 '|Undef|)))3573 (|BindingValue.2| (1+ ATN-PARSER::INDEX)))3574 (T (SETF *ATN-TERM* '|Undef|) NIL)))3575 (|BindingValue/fail.3| ATN-PARSER::INDEX))))))3576 (|BindingValue/start.1| ATN-PARSER::INDEX)3577 (SETF *ATN-NODE NIL)3578 NIL3579 (IF ATN-PARSER::ATN-STRUCTURE3580 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3581 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3582 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BindingValue| ATN-PARSER::INDEX *ATN-STACK))))3583 (PROGN (DEFVAR |GroupGraphPattern-INDEX|)3584 (DEFUN |GroupGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPatternSub| NIL) (|SubSelect| NIL))3585 "{20} GroupGraphPattern ::= '{' ((SubSelect | GroupGraphPatternSub)) '}'3586 (|GroupGraphPatternSub| |SubSelect|)"3587 (DECLARE (SPECIAL |GroupGraphPattern-INDEX|))3588 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPattern-INDEX| *ATN-LEVEL))3589 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3590 (IF (< |GroupGraphPattern-INDEX| ATN-PARSER::INDEX)3591 (LET ((|GroupGraphPattern-INDEX| ATN-PARSER::INDEX)3592 (*ATN-LEVEL (1+ *ATN-LEVEL))3593 (*ATN-STACK (CONS '|GroupGraphPattern| *ATN-STACK))3594 (ATN-PARSER::ATN-STRUCTURE NIL))3595 (DECLARE (SPECIAL |GroupGraphPattern-INDEX|))3596 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3597 (DECLARE (TYPE CONS *ATN-STACK))3598 (SYMBOL-MACROLET3599 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3600 (%ATN-BLOCK |GroupGraphPattern|3601 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3602 (SETF *ATN-TERM* '|GroupGraphPattern|)3603 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3604 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3605 (|GroupGraphPattern.2| (ATN-PARSER::INDEX)3606 (%ATN-NODE-BLOCK3607 |GroupGraphPattern.2|3608 (%ATN-EDGE-BLOCK3609 (POP |GroupGraphPattern|)3610 (WHEN T3611 (SETF *ATN-TERM* '|GroupGraphPattern|)3612 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3613 '|GroupGraphPattern|3614 ATN-PARSER::INDEX3615 (LIST '|GroupGraphPatternSub|3616 |GroupGraphPatternSub|3617 '|SubSelect|3618 |SubSelect|))3619 (LET ((ATN-PARSER::RESULT-STRUCTURE3620 (IF (EQ *ATN-REDUCE* T)3621 (|GroupGraphPattern-Constructor| |GroupGraphPatternSub| |SubSelect|)3622 (IF (EQ *ATN-REDUCE* 'CONS)3623 (CONS '|GroupGraphPattern|3624 (DELETE NIL (LIST |GroupGraphPatternSub| |SubSelect|)))3625 '|GroupGraphPattern|))))3626 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3627 (|GroupGraphPattern/fail.3| (ATN-PARSER::INDEX)3628 (%ATN-NODE-BLOCK |GroupGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3629 (|GroupGraphPattern/GroupGraphPattern.2.4| (ATN-PARSER::INDEX)3630 (%ATN-NODE-BLOCK3631 |GroupGraphPattern/GroupGraphPattern.2.4|3632 (%ATN-EDGE-BLOCK3633 OR3634 (PROGN (%ATN-EDGE-BLOCK3635 (PUSH |SubSelect|)3636 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3637 (ATN-PARSE-SUBSTRUCTURE* '|SubSelect| ATN-PARSER::INDEX)3638 (COND (ATN-PARSER::SUCCESS3639 (SETF *ATN-TERM* '|SubSelect|)3640 (LET ((|SubSelect598| |SubSelect|))3641 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3642 (DESTRUCTURING-BIND3643 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3644 ATN-PARSER::RESULT-AND-INDEX3645 (WHEN ATN-PARSER::RESULT (SETF |SubSelect| ATN-PARSER::RESULT))3646 (|GroupGraphPattern/GroupGraphPattern.2.5|3647 ATN-PARSER::RESULT-INDEX))3648 (SETF |SubSelect| |SubSelect598|))))3649 (T (SETF *ATN-TERM?* '|SubSelect|) NIL))))3650 (%ATN-EDGE-BLOCK3651 (PUSH |GroupGraphPatternSub|)3652 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3653 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPatternSub| ATN-PARSER::INDEX)3654 (COND (ATN-PARSER::SUCCESS3655 (SETF *ATN-TERM* '|GroupGraphPatternSub|)3656 (LET ((|GroupGraphPatternSub598| |GroupGraphPatternSub|))3657 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3658 (DESTRUCTURING-BIND3659 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3660 ATN-PARSER::RESULT-AND-INDEX3661 (WHEN ATN-PARSER::RESULT3662 (SETF |GroupGraphPatternSub| ATN-PARSER::RESULT))3663 (|GroupGraphPattern/GroupGraphPattern.2.5|3664 ATN-PARSER::RESULT-INDEX))3665 (SETF |GroupGraphPatternSub| |GroupGraphPatternSub598|))))3666 (T (SETF *ATN-TERM?* '|GroupGraphPatternSub|) NIL))))3667 (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX)))))3668 (|GroupGraphPattern/GroupGraphPattern.2.5| (ATN-PARSER::INDEX)3669 (%ATN-NODE-BLOCK3670 |GroupGraphPattern/GroupGraphPattern.2.5|3671 (%ATN-EDGE-BLOCK3672 (ATN-PARSER::WORD SPOCQ.S:})3673 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:})3674 (SETF *ATN-TERM* 'SPOCQ.S:})3675 (|GroupGraphPattern.2| (1+ ATN-PARSER::INDEX)))3676 (T3677 (SETF *ATN-TERM?* 'SPOCQ.S:})3678 (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX))))))3679 (|GroupGraphPattern/start.1| (ATN-PARSER::INDEX)3680 (%ATN-NODE-BLOCK3681 |GroupGraphPattern/start.1|3682 (%ATN-EDGE-BLOCK3683 (ATN-PARSER::WORD SPOCQ.S:{)3684 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)3685 (SETF *ATN-TERM* 'SPOCQ.S:{)3686 (|GroupGraphPattern/GroupGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))3687 (T3688 (SETF *ATN-TERM?* 'SPOCQ.S:{)3689 (|GroupGraphPattern/fail.3| ATN-PARSER::INDEX)))))))3690 (|GroupGraphPattern/start.1| ATN-PARSER::INDEX)3691 (SETF *ATN-NODE NIL)3692 NIL3693 (IF ATN-PARSER::ATN-STRUCTURE3694 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3695 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3696 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))3697 (PROGN (DEFVAR |GroupGraphPatternSub-INDEX|)3698 (DEFUN |GroupGraphPatternSub| (ATN-PARSER::INDEX &AUX (|GroupGraphPatternRest| NIL) (|TriplesBlock| NIL))3699 "GroupGraphPatternSub ::= TriplesBlock? GroupGraphPatternRest*3700 (|GroupGraphPatternRest| |TriplesBlock|)"3701 (DECLARE (SPECIAL |GroupGraphPatternSub-INDEX|))3702 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPatternSub-INDEX| *ATN-LEVEL))3703 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3704 (IF (< |GroupGraphPatternSub-INDEX| ATN-PARSER::INDEX)3705 (LET ((|GroupGraphPatternSub-INDEX| ATN-PARSER::INDEX)3706 (*ATN-LEVEL (1+ *ATN-LEVEL))3707 (*ATN-STACK (CONS '|GroupGraphPatternSub| *ATN-STACK))3708 (ATN-PARSER::ATN-STRUCTURE NIL))3709 (DECLARE (SPECIAL |GroupGraphPatternSub-INDEX|))3710 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3711 (DECLARE (TYPE CONS *ATN-STACK))3712 (SYMBOL-MACROLET3713 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3714 (%ATN-BLOCK |GroupGraphPatternSub|3715 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3716 (SETF *ATN-TERM* '|GroupGraphPatternSub|)3717 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3718 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3719 (|GroupGraphPatternSub.2| (ATN-PARSER::INDEX)3720 (%ATN-NODE-BLOCK3721 |GroupGraphPatternSub.2|3722 (%ATN-EDGE-BLOCK3723 (POP |GroupGraphPatternSub|)3724 (WHEN T3725 (SETF *ATN-TERM* '|GroupGraphPatternSub|)3726 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3727 '|GroupGraphPatternSub|3728 ATN-PARSER::INDEX3729 (LIST '|GroupGraphPatternRest|3730 |GroupGraphPatternRest|3731 '|TriplesBlock|3732 |TriplesBlock|))3733 (LET ((ATN-PARSER::RESULT-STRUCTURE3734 (IF (EQ *ATN-REDUCE* T)3735 (|GroupGraphPatternSub-Constructor|3736 |GroupGraphPatternRest|3737 |TriplesBlock|)3738 (IF (EQ *ATN-REDUCE* 'CONS)3739 (CONS '|GroupGraphPatternSub|3740 (DELETE NIL (LIST |GroupGraphPatternRest| |TriplesBlock|)))3741 '|GroupGraphPatternSub|))))3742 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3743 (|GroupGraphPatternSub.5| (ATN-PARSER::INDEX)3744 (%ATN-NODE-BLOCK3745 |GroupGraphPatternSub.5|3746 (%ATN-EDGE-BLOCK3747 (PUSH |GroupGraphPatternRest|)3748 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3749 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPatternRest| ATN-PARSER::INDEX)3750 (COND (ATN-PARSER::SUCCESS3751 (SETF *ATN-TERM* '|GroupGraphPatternRest|)3752 (LET ((|GroupGraphPatternRest599| |GroupGraphPatternRest|))3753 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3754 (DESTRUCTURING-BIND3755 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3756 ATN-PARSER::RESULT-AND-INDEX3757 (WHEN ATN-PARSER::RESULT3758 (SETF |GroupGraphPatternRest|3759 (CONS ATN-PARSER::RESULT |GroupGraphPatternRest|)))3760 (|GroupGraphPatternSub.5| ATN-PARSER::RESULT-INDEX))3761 (SETF |GroupGraphPatternRest| |GroupGraphPatternRest599|))))3762 (T3763 (SETF *ATN-TERM?* '|GroupGraphPatternRest|)3764 (|GroupGraphPatternSub.2| ATN-PARSER::INDEX)))))))3765 (|GroupGraphPatternSub/fail.3| (ATN-PARSER::INDEX)3766 (%ATN-NODE-BLOCK3767 |GroupGraphPatternSub/fail.3|3768 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3769 (|GroupGraphPatternSub/GroupGraphPatternSub.2.4| (ATN-PARSER::INDEX)3770 (%ATN-NODE-BLOCK3771 |GroupGraphPatternSub/GroupGraphPatternSub.2.4|3772 (%ATN-EDGE-BLOCK3773 (PUSH |GroupGraphPatternRest|)3774 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3775 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPatternRest| ATN-PARSER::INDEX)3776 (COND (ATN-PARSER::SUCCESS3777 (SETF *ATN-TERM* '|GroupGraphPatternRest|)3778 (LET ((|GroupGraphPatternRest598| |GroupGraphPatternRest|))3779 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3780 (DESTRUCTURING-BIND3781 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3782 ATN-PARSER::RESULT-AND-INDEX3783 (WHEN ATN-PARSER::RESULT3784 (SETF |GroupGraphPatternRest|3785 (CONS ATN-PARSER::RESULT |GroupGraphPatternRest|)))3786 (|GroupGraphPatternSub.5| ATN-PARSER::RESULT-INDEX))3787 (SETF |GroupGraphPatternRest| |GroupGraphPatternRest598|))))3788 (T3789 (SETF *ATN-TERM?* '|GroupGraphPatternRest|)3790 (|GroupGraphPatternSub.2| ATN-PARSER::INDEX)))))))3791 (|GroupGraphPatternSub/start.1| (ATN-PARSER::INDEX)3792 (%ATN-NODE-BLOCK3793 |GroupGraphPatternSub/start.1|3794 (%ATN-EDGE-BLOCK3795 (PUSH |TriplesBlock|)3796 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3797 (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)3798 (COND (ATN-PARSER::SUCCESS3799 (SETF *ATN-TERM* '|TriplesBlock|)3800 (LET ((|TriplesBlock599| |TriplesBlock|))3801 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3802 (DESTRUCTURING-BIND3803 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3804 ATN-PARSER::RESULT-AND-INDEX3805 (WHEN ATN-PARSER::RESULT (SETF |TriplesBlock| ATN-PARSER::RESULT))3806 (|GroupGraphPatternSub/GroupGraphPatternSub.2.4|3807 ATN-PARSER::RESULT-INDEX))3808 (SETF |TriplesBlock| |TriplesBlock599|))))3809 (T3810 (SETF *ATN-TERM?* '|TriplesBlock|)3811 (|GroupGraphPatternSub/GroupGraphPatternSub.2.4| ATN-PARSER::INDEX))))))))3812 (|GroupGraphPatternSub/start.1| ATN-PARSER::INDEX)3813 (SETF *ATN-NODE NIL)3814 NIL3815 (IF ATN-PARSER::ATN-STRUCTURE3816 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3817 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3818 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPatternSub| ATN-PARSER::INDEX *ATN-STACK))))3819 (PROGN (DEFVAR |GroupGraphPatternRest-INDEX|)3820 (DEFUN |GroupGraphPatternRest| (ATN-PARSER::INDEX &AUX (|Bind| NIL) (|Filter| NIL) (|GraphPatternNotTriples| NIL)3821 (|TriplesBlock| NIL))3822 "GroupGraphPatternRest ::= ((GraphPatternNotTriples | Filter | Bind)) '.'? TriplesBlock?3823 (|Bind| |Filter| |GraphPatternNotTriples| |TriplesBlock|)"3824 (DECLARE (SPECIAL |GroupGraphPatternRest-INDEX|))3825 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupGraphPatternRest-INDEX| *ATN-LEVEL))3826 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3827 (IF (< |GroupGraphPatternRest-INDEX| ATN-PARSER::INDEX)3828 (LET ((|GroupGraphPatternRest-INDEX| ATN-PARSER::INDEX)3829 (*ATN-LEVEL (1+ *ATN-LEVEL))3830 (*ATN-STACK (CONS '|GroupGraphPatternRest| *ATN-STACK))3831 (ATN-PARSER::ATN-STRUCTURE NIL))3832 (DECLARE (SPECIAL |GroupGraphPatternRest-INDEX|))3833 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3834 (DECLARE (TYPE CONS *ATN-STACK))3835 (SYMBOL-MACROLET3836 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3837 (%ATN-BLOCK |GroupGraphPatternRest|3838 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3839 (SETF *ATN-TERM* '|GroupGraphPatternRest|)3840 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3841 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3842 (|GroupGraphPatternRest.2| (ATN-PARSER::INDEX)3843 (%ATN-NODE-BLOCK3844 |GroupGraphPatternRest.2|3845 (%ATN-EDGE-BLOCK3846 (POP |GroupGraphPatternRest|)3847 (WHEN T3848 (SETF *ATN-TERM* '|GroupGraphPatternRest|)3849 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"3850 '|GroupGraphPatternRest|3851 ATN-PARSER::INDEX3852 (LIST '|Bind|3853 |Bind|3854 '|Filter|3855 |Filter|3856 '|GraphPatternNotTriples|3857 |GraphPatternNotTriples|3858 '|TriplesBlock|3859 |TriplesBlock|))3860 (LET ((ATN-PARSER::RESULT-STRUCTURE3861 (IF (EQ *ATN-REDUCE* T)3862 (|GroupGraphPatternRest-Constructor|3863 |Bind|3864 |Filter|3865 |GraphPatternNotTriples|3866 |TriplesBlock|)3867 (IF (EQ *ATN-REDUCE* 'CONS)3868 (CONS '|GroupGraphPatternRest|3869 (DELETE NIL3870 (LIST |Bind|3871 |Filter|3872 |GraphPatternNotTriples|3873 |TriplesBlock|)))3874 '|GroupGraphPatternRest|))))3875 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))3876 (|GroupGraphPatternRest/fail.3| (ATN-PARSER::INDEX)3877 (%ATN-NODE-BLOCK3878 |GroupGraphPatternRest/fail.3|3879 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))3880 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4| (ATN-PARSER::INDEX)3881 (%ATN-NODE-BLOCK3882 |GroupGraphPatternRest/GroupGraphPatternRest.2.4|3883 (%ATN-EDGE-BLOCK3884 (ATN-PARSER::WORD SPOCQ.S:|.|)3885 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)3886 (SETF *ATN-TERM* 'SPOCQ.S:|.|)3887 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| (1+ ATN-PARSER::INDEX)))3888 (T3889 (SETF *ATN-TERM?* 'SPOCQ.S:|.|)3890 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| ATN-PARSER::INDEX))))))3891 (|GroupGraphPatternRest/GroupGraphPatternRest.2.5| (ATN-PARSER::INDEX)3892 (%ATN-NODE-BLOCK3893 |GroupGraphPatternRest/GroupGraphPatternRest.2.5|3894 (%ATN-EDGE-BLOCK3895 (PUSH |TriplesBlock|)3896 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3897 (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)3898 (COND (ATN-PARSER::SUCCESS3899 (SETF *ATN-TERM* '|TriplesBlock|)3900 (LET ((|TriplesBlock600| |TriplesBlock|))3901 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3902 (DESTRUCTURING-BIND3903 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3904 ATN-PARSER::RESULT-AND-INDEX3905 (WHEN ATN-PARSER::RESULT (SETF |TriplesBlock| ATN-PARSER::RESULT))3906 (|GroupGraphPatternRest.2| ATN-PARSER::RESULT-INDEX))3907 (SETF |TriplesBlock| |TriplesBlock600|))))3908 (T3909 (SETF *ATN-TERM?* '|TriplesBlock|)3910 (|GroupGraphPatternRest.2| ATN-PARSER::INDEX)))))))3911 (|GroupGraphPatternRest/start.1| (ATN-PARSER::INDEX)3912 (%ATN-NODE-BLOCK3913 |GroupGraphPatternRest/start.1|3914 (%ATN-EDGE-BLOCK3915 OR3916 (PROGN (%ATN-EDGE-BLOCK3917 (PUSH |GraphPatternNotTriples|)3918 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3919 (ATN-PARSE-SUBSTRUCTURE* '|GraphPatternNotTriples| ATN-PARSER::INDEX)3920 (COND (ATN-PARSER::SUCCESS3921 (SETF *ATN-TERM* '|GraphPatternNotTriples|)3922 (LET ((|GraphPatternNotTriples600| |GraphPatternNotTriples|))3923 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3924 (DESTRUCTURING-BIND3925 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3926 ATN-PARSER::RESULT-AND-INDEX3927 (WHEN ATN-PARSER::RESULT3928 (SETF |GraphPatternNotTriples| ATN-PARSER::RESULT))3929 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|3930 ATN-PARSER::RESULT-INDEX))3931 (SETF |GraphPatternNotTriples| |GraphPatternNotTriples600|))))3932 (T (SETF *ATN-TERM?* '|GraphPatternNotTriples|) NIL))))3933 (%ATN-EDGE-BLOCK3934 (PUSH |Filter|)3935 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3936 (ATN-PARSE-SUBSTRUCTURE* '|Filter| ATN-PARSER::INDEX)3937 (COND (ATN-PARSER::SUCCESS3938 (SETF *ATN-TERM* '|Filter|)3939 (LET ((|Filter600| |Filter|))3940 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3941 (DESTRUCTURING-BIND3942 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3943 ATN-PARSER::RESULT-AND-INDEX3944 (WHEN ATN-PARSER::RESULT (SETF |Filter| ATN-PARSER::RESULT))3945 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|3946 ATN-PARSER::RESULT-INDEX))3947 (SETF |Filter| |Filter600|))))3948 (T (SETF *ATN-TERM?* '|Filter|) NIL))))3949 (%ATN-EDGE-BLOCK3950 (PUSH |Bind|)3951 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)3952 (ATN-PARSE-SUBSTRUCTURE* '|Bind| ATN-PARSER::INDEX)3953 (COND (ATN-PARSER::SUCCESS3954 (SETF *ATN-TERM* '|Bind|)3955 (LET ((|Bind600| |Bind|))3956 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)3957 (DESTRUCTURING-BIND3958 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)3959 ATN-PARSER::RESULT-AND-INDEX3960 (WHEN ATN-PARSER::RESULT (SETF |Bind| ATN-PARSER::RESULT))3961 (|GroupGraphPatternRest/GroupGraphPatternRest.2.4|3962 ATN-PARSER::RESULT-INDEX))3963 (SETF |Bind| |Bind600|))))3964 (T (SETF *ATN-TERM?* '|Bind|) NIL))))3965 (|GroupGraphPatternRest/fail.3| ATN-PARSER::INDEX))))))3966 (|GroupGraphPatternRest/start.1| ATN-PARSER::INDEX)3967 (SETF *ATN-NODE NIL)3968 NIL3969 (IF ATN-PARSER::ATN-STRUCTURE3970 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)3971 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))3972 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupGraphPatternRest| ATN-PARSER::INDEX *ATN-STACK))))3973 (PROGN (DEFVAR |SubSelect-INDEX|)3974 (DEFUN |SubSelect| (ATN-PARSER::INDEX &AUX (|SelectClause| NIL) (|SolutionModifier| NIL) (|WhereClause| NIL))3975 "SubSelect ::= SelectClause WhereClause SolutionModifier3976 (|SelectClause| |SolutionModifier| |WhereClause|)"3977 (DECLARE (SPECIAL |SubSelect-INDEX|))3978 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SubSelect-INDEX| *ATN-LEVEL))3979 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))3980 (IF (< |SubSelect-INDEX| ATN-PARSER::INDEX)3981 (LET ((|SubSelect-INDEX| ATN-PARSER::INDEX)3982 (*ATN-LEVEL (1+ *ATN-LEVEL))3983 (*ATN-STACK (CONS '|SubSelect| *ATN-STACK))3984 (ATN-PARSER::ATN-STRUCTURE NIL))3985 (DECLARE (SPECIAL |SubSelect-INDEX|))3986 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))3987 (DECLARE (TYPE CONS *ATN-STACK))3988 (SYMBOL-MACROLET3989 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))3990 (%ATN-BLOCK |SubSelect|3991 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)3992 (SETF *ATN-TERM* '|SubSelect|)3993 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))3994 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)3995 (|SubSelect.2| (ATN-PARSER::INDEX)3996 (%ATN-NODE-BLOCK3997 |SubSelect.2|3998 (%ATN-EDGE-BLOCK3999 (POP |SubSelect|)4000 (WHEN T4001 (SETF *ATN-TERM* '|SubSelect|)4002 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4003 '|SubSelect|4004 ATN-PARSER::INDEX4005 (LIST '|SelectClause|4006 |SelectClause|4007 '|SolutionModifier|4008 |SolutionModifier|4009 '|WhereClause|4010 |WhereClause|))4011 (LET ((ATN-PARSER::RESULT-STRUCTURE4012 (IF (EQ *ATN-REDUCE* T)4013 (|SubSelect-Constructor| |SelectClause| |SolutionModifier| |WhereClause|)4014 (IF (EQ *ATN-REDUCE* 'CONS)4015 (CONS '|SubSelect|4016 (DELETE NIL4017 (LIST |SelectClause| |SolutionModifier| |WhereClause|)))4018 '|SubSelect|))))4019 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4020 (|SubSelect/fail.3| (ATN-PARSER::INDEX)4021 (%ATN-NODE-BLOCK |SubSelect/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4022 (|SubSelect/start.1| (ATN-PARSER::INDEX)4023 (%ATN-NODE-BLOCK4024 |SubSelect/start.1|4025 (%ATN-EDGE-BLOCK4026 (PUSH |SelectClause|)4027 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4028 (ATN-PARSE-SUBSTRUCTURE* '|SelectClause| ATN-PARSER::INDEX)4029 (COND (ATN-PARSER::SUCCESS4030 (SETF *ATN-TERM* '|SelectClause|)4031 (LET ((|SelectClause600| |SelectClause|))4032 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4033 (DESTRUCTURING-BIND4034 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4035 ATN-PARSER::RESULT-AND-INDEX4036 (WHEN ATN-PARSER::RESULT (SETF |SelectClause| ATN-PARSER::RESULT))4037 (|SubSelect/SubSelect.2.4| ATN-PARSER::RESULT-INDEX))4038 (SETF |SelectClause| |SelectClause600|))))4039 (T4040 (SETF *ATN-TERM?* '|SelectClause|)4041 (|SubSelect/fail.3| ATN-PARSER::INDEX)))))))4042 (|SubSelect/SubSelect.2.4| (ATN-PARSER::INDEX)4043 (%ATN-NODE-BLOCK4044 |SubSelect/SubSelect.2.4|4045 (%ATN-EDGE-BLOCK4046 (PUSH |WhereClause|)4047 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4048 (ATN-PARSE-SUBSTRUCTURE* '|WhereClause| ATN-PARSER::INDEX)4049 (COND (ATN-PARSER::SUCCESS4050 (SETF *ATN-TERM* '|WhereClause|)4051 (LET ((|WhereClause600| |WhereClause|))4052 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4053 (DESTRUCTURING-BIND4054 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4055 ATN-PARSER::RESULT-AND-INDEX4056 (WHEN ATN-PARSER::RESULT (SETF |WhereClause| ATN-PARSER::RESULT))4057 (|SubSelect/SubSelect.2.5| ATN-PARSER::RESULT-INDEX))4058 (SETF |WhereClause| |WhereClause600|))))4059 (T4060 (SETF *ATN-TERM?* '|WhereClause|)4061 (|SubSelect/fail.3| ATN-PARSER::INDEX)))))))4062 (|SubSelect/SubSelect.2.5| (ATN-PARSER::INDEX)4063 (%ATN-NODE-BLOCK4064 |SubSelect/SubSelect.2.5|4065 (%ATN-EDGE-BLOCK4066 (PUSH |SolutionModifier|)4067 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4068 (ATN-PARSE-SUBSTRUCTURE* '|SolutionModifier| ATN-PARSER::INDEX)4069 (COND (ATN-PARSER::SUCCESS4070 (SETF *ATN-TERM* '|SolutionModifier|)4071 (LET ((|SolutionModifier600| |SolutionModifier|))4072 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4073 (DESTRUCTURING-BIND4074 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4075 ATN-PARSER::RESULT-AND-INDEX4076 (WHEN ATN-PARSER::RESULT (SETF |SolutionModifier| ATN-PARSER::RESULT))4077 (|SubSelect.2| ATN-PARSER::RESULT-INDEX))4078 (SETF |SolutionModifier| |SolutionModifier600|))))4079 (T4080 (SETF *ATN-TERM?* '|SolutionModifier|)4081 (|SubSelect/fail.3| ATN-PARSER::INDEX))))))))4082 (|SubSelect/start.1| ATN-PARSER::INDEX)4083 (SETF *ATN-NODE NIL)4084 NIL4085 (IF ATN-PARSER::ATN-STRUCTURE4086 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4087 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4088 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SubSelect| ATN-PARSER::INDEX *ATN-STACK))))4089 (PROGN (DEFVAR |Bind-INDEX|)4090 (DEFUN |Bind| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|Var| NIL))4091 "Bind ::= 'BIND' '(' Expression 'AS' Var ')'4092 (|Expression| |Var|)"4093 (DECLARE (SPECIAL |Bind-INDEX|))4094 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Bind-INDEX| *ATN-LEVEL))4095 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4096 (IF (< |Bind-INDEX| ATN-PARSER::INDEX)4097 (LET ((|Bind-INDEX| ATN-PARSER::INDEX)4098 (*ATN-LEVEL (1+ *ATN-LEVEL))4099 (*ATN-STACK (CONS '|Bind| *ATN-STACK))4100 (ATN-PARSER::ATN-STRUCTURE NIL))4101 (DECLARE (SPECIAL |Bind-INDEX|))4102 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4103 (DECLARE (TYPE CONS *ATN-STACK))4104 (SYMBOL-MACROLET4105 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4106 (%ATN-BLOCK |Bind|4107 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4108 (SETF *ATN-TERM* '|Bind|)4109 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4110 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4111 (|Bind.2| (ATN-PARSER::INDEX)4112 (%ATN-NODE-BLOCK4113 |Bind.2|4114 (%ATN-EDGE-BLOCK4115 (POP |Bind|)4116 (WHEN T4117 (SETF *ATN-TERM* '|Bind|)4118 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4119 '|Bind|4120 ATN-PARSER::INDEX4121 (LIST '|Expression| |Expression| '|Var| |Var|))4122 (LET ((ATN-PARSER::RESULT-STRUCTURE4123 (IF (EQ *ATN-REDUCE* T)4124 (|Bind-Constructor| |Expression| |Var|)4125 (IF (EQ *ATN-REDUCE* 'CONS)4126 (CONS '|Bind| (DELETE NIL (LIST |Expression| |Var|)))4127 '|Bind|))))4128 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4129 (|Bind/Bind.2.4| (ATN-PARSER::INDEX)4130 (%ATN-NODE-BLOCK4131 |Bind/Bind.2.4|4132 (%ATN-EDGE-BLOCK4133 (ATN-PARSER::WORD SPOCQ.S:\()4134 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()4135 (SETF *ATN-TERM* 'SPOCQ.S:\()4136 (|Bind/Bind.2.5| (1+ ATN-PARSER::INDEX)))4137 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|Bind/fail.3| ATN-PARSER::INDEX))))))4138 (|Bind/Bind.2.5| (ATN-PARSER::INDEX)4139 (%ATN-NODE-BLOCK4140 |Bind/Bind.2.5|4141 (%ATN-EDGE-BLOCK4142 (PUSH |Expression|)4143 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4144 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)4145 (COND (ATN-PARSER::SUCCESS4146 (SETF *ATN-TERM* '|Expression|)4147 (LET ((|Expression600| |Expression|))4148 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4149 (DESTRUCTURING-BIND4150 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4151 ATN-PARSER::RESULT-AND-INDEX4152 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))4153 (|Bind/Bind.2.6| ATN-PARSER::RESULT-INDEX))4154 (SETF |Expression| |Expression600|))))4155 (T (SETF *ATN-TERM?* '|Expression|) (|Bind/fail.3| ATN-PARSER::INDEX)))))))4156 (|Bind/Bind.2.6| (ATN-PARSER::INDEX)4157 (%ATN-NODE-BLOCK4158 |Bind/Bind.2.6|4159 (%ATN-EDGE-BLOCK4160 (ATN-PARSER::WORD SPOCQ.S:AS)4161 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:AS)4162 (SETF *ATN-TERM* 'SPOCQ.S:AS)4163 (|Bind/Bind.2.7| (1+ ATN-PARSER::INDEX)))4164 (T (SETF *ATN-TERM?* 'SPOCQ.S:AS) (|Bind/fail.3| ATN-PARSER::INDEX))))))4165 (|Bind/Bind.2.7| (ATN-PARSER::INDEX)4166 (%ATN-NODE-BLOCK4167 |Bind/Bind.2.7|4168 (%ATN-EDGE-BLOCK4169 (TEST |Var|)4170 (COND ((|IS-Var| ATN-PARSER::|item|)4171 (SETF *ATN-TERM* '|Var|)4172 (SETF |Var|4173 (IF (EQ *ATN-REDUCE* T)4174 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)4175 (IF (EQ *ATN-REDUCE* 'CONS) (LIST '|Var| ATN-PARSER::|item|) '|Var|)))4176 (|Bind/Bind.2.8| (1+ ATN-PARSER::INDEX)))4177 (T (SETF *ATN-TERM?* '|Var|) (|Bind/fail.3| ATN-PARSER::INDEX))))))4178 (|Bind/Bind.2.8| (ATN-PARSER::INDEX)4179 (%ATN-NODE-BLOCK4180 |Bind/Bind.2.8|4181 (%ATN-EDGE-BLOCK4182 (ATN-PARSER::WORD SPOCQ.S:\))4183 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))4184 (SETF *ATN-TERM* 'SPOCQ.S:\))4185 (|Bind.2| (1+ ATN-PARSER::INDEX)))4186 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|Bind/fail.3| ATN-PARSER::INDEX))))))4187 (|Bind/fail.3| (ATN-PARSER::INDEX)4188 (%ATN-NODE-BLOCK |Bind/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4189 (|Bind/start.1| (ATN-PARSER::INDEX)4190 (%ATN-NODE-BLOCK4191 |Bind/start.1|4192 (%ATN-EDGE-BLOCK4193 (ATN-PARSER::WORD SPOCQ.S:BIND)4194 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:BIND)4195 (SETF *ATN-TERM* 'SPOCQ.S:BIND)4196 (|Bind/Bind.2.4| (1+ ATN-PARSER::INDEX)))4197 (T (SETF *ATN-TERM?* 'SPOCQ.S:BIND) (|Bind/fail.3| ATN-PARSER::INDEX)))))))4198 (|Bind/start.1| ATN-PARSER::INDEX)4199 (SETF *ATN-NODE NIL)4200 NIL4201 (IF ATN-PARSER::ATN-STRUCTURE4202 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4203 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4204 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Bind| ATN-PARSER::INDEX *ATN-STACK))))4205 (PROGN (DEFVAR |TriplesBlock-INDEX|)4206 (DEFUN |TriplesBlock| (ATN-PARSER::INDEX &AUX (|TriplesBlock| NIL) (|TriplesSameSubject| NIL))4207 "{21} TriplesBlock ::= TriplesSameSubject ('.' TriplesBlock?)?4208 (|TriplesBlock| |TriplesSameSubject|)"4209 (DECLARE (SPECIAL |TriplesBlock-INDEX|))4210 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesBlock-INDEX| *ATN-LEVEL))4211 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4212 (IF (< |TriplesBlock-INDEX| ATN-PARSER::INDEX)4213 (LET ((|TriplesBlock-INDEX| ATN-PARSER::INDEX)4214 (*ATN-LEVEL (1+ *ATN-LEVEL))4215 (*ATN-STACK (CONS '|TriplesBlock| *ATN-STACK))4216 (ATN-PARSER::ATN-STRUCTURE NIL))4217 (DECLARE (SPECIAL |TriplesBlock-INDEX|))4218 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4219 (DECLARE (TYPE CONS *ATN-STACK))4220 (SYMBOL-MACROLET4221 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4222 (%ATN-BLOCK |TriplesBlock|4223 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4224 (SETF *ATN-TERM* '|TriplesBlock|)4225 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4226 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4227 (|TriplesBlock.2| (ATN-PARSER::INDEX)4228 (%ATN-NODE-BLOCK4229 |TriplesBlock.2|4230 (%ATN-EDGE-BLOCK4231 (POP |TriplesBlock|)4232 (WHEN T4233 (SETF *ATN-TERM* '|TriplesBlock|)4234 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4235 '|TriplesBlock|4236 ATN-PARSER::INDEX4237 (LIST '|TriplesBlock|4238 |TriplesBlock|4239 '|TriplesSameSubject|4240 |TriplesSameSubject|))4241 (LET ((ATN-PARSER::RESULT-STRUCTURE4242 (IF (EQ *ATN-REDUCE* T)4243 (|TriplesBlock-Constructor| |TriplesBlock| |TriplesSameSubject|)4244 (IF (EQ *ATN-REDUCE* 'CONS)4245 (CONS '|TriplesBlock|4246 (DELETE NIL (LIST |TriplesBlock| |TriplesSameSubject|)))4247 '|TriplesBlock|))))4248 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4249 (|TriplesBlock/fail.3| (ATN-PARSER::INDEX)4250 (%ATN-NODE-BLOCK |TriplesBlock/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4251 (|TriplesBlock/start.1| (ATN-PARSER::INDEX)4252 (%ATN-NODE-BLOCK4253 |TriplesBlock/start.1|4254 (%ATN-EDGE-BLOCK4255 (PUSH |TriplesSameSubject|)4256 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4257 (ATN-PARSE-SUBSTRUCTURE* '|TriplesSameSubject| ATN-PARSER::INDEX)4258 (COND (ATN-PARSER::SUCCESS4259 (SETF *ATN-TERM* '|TriplesSameSubject|)4260 (LET ((|TriplesSameSubject601| |TriplesSameSubject|))4261 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4262 (DESTRUCTURING-BIND4263 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4264 ATN-PARSER::RESULT-AND-INDEX4265 (WHEN ATN-PARSER::RESULT (SETF |TriplesSameSubject| ATN-PARSER::RESULT))4266 (|TriplesBlock/TriplesBlock.2.4| ATN-PARSER::RESULT-INDEX))4267 (SETF |TriplesSameSubject| |TriplesSameSubject601|))))4268 (T4269 (SETF *ATN-TERM?* '|TriplesSameSubject|)4270 (|TriplesBlock/fail.3| ATN-PARSER::INDEX)))))))4271 (|TriplesBlock/TriplesBlock.2.4| (ATN-PARSER::INDEX)4272 (%ATN-NODE-BLOCK4273 |TriplesBlock/TriplesBlock.2.4|4274 (%ATN-EDGE-BLOCK4275 (ATN-PARSER::JUMP |TriplesBlock/TriplesBlock.2.5|)4276 (|TriplesBlock/TriplesBlock.2.5| ATN-PARSER::INDEX))4277 (%ATN-EDGE-BLOCK4278 (ATN-PARSER::JUMP |TriplesBlock.2|)4279 (|TriplesBlock.2| ATN-PARSER::INDEX))))4280 (|TriplesBlock/TriplesBlock.2.5| (ATN-PARSER::INDEX)4281 (%ATN-NODE-BLOCK4282 |TriplesBlock/TriplesBlock.2.5|4283 (%ATN-EDGE-BLOCK4284 (ATN-PARSER::WORD SPOCQ.S:|.|)4285 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)4286 (SETF *ATN-TERM* 'SPOCQ.S:|.|)4287 (|TriplesBlock/TriplesBlock.2.6| (1+ ATN-PARSER::INDEX)))4288 (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|) NIL)))))4289 (|TriplesBlock/TriplesBlock.2.6| (ATN-PARSER::INDEX)4290 (%ATN-NODE-BLOCK4291 |TriplesBlock/TriplesBlock.2.6|4292 (%ATN-EDGE-BLOCK4293 (PUSH |TriplesBlock|)4294 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4295 (ATN-PARSE-SUBSTRUCTURE* '|TriplesBlock| ATN-PARSER::INDEX)4296 (COND (ATN-PARSER::SUCCESS4297 (SETF *ATN-TERM* '|TriplesBlock|)4298 (LET ((|TriplesBlock601| |TriplesBlock|))4299 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4300 (DESTRUCTURING-BIND4301 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4302 ATN-PARSER::RESULT-AND-INDEX4303 (WHEN ATN-PARSER::RESULT (SETF |TriplesBlock| ATN-PARSER::RESULT))4304 (|TriplesBlock.2| ATN-PARSER::RESULT-INDEX))4305 (SETF |TriplesBlock| |TriplesBlock601|))))4306 (T4307 (SETF *ATN-TERM?* '|TriplesBlock|)4308 (|TriplesBlock.2| ATN-PARSER::INDEX))))))))4309 (|TriplesBlock/start.1| ATN-PARSER::INDEX)4310 (SETF *ATN-NODE NIL)4311 NIL4312 (IF ATN-PARSER::ATN-STRUCTURE4313 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4314 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4315 (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesBlock| ATN-PARSER::INDEX *ATN-STACK))))4316 (PROGN (DEFVAR |GraphPatternNotTriples-INDEX|)4317 (DEFUN |GraphPatternNotTriples| (ATN-PARSER::INDEX &AUX (|GraphGraphPattern| NIL) (|GroupOrUnionGraphPattern| NIL)4318 (|OptionalGraphPattern| NIL))4319 "{22} GraphPatternNotTriples ::= (OptionalGraphPattern | GroupOrUnionGraphPattern | GraphGraphPattern)4320 (|GraphGraphPattern| |GroupOrUnionGraphPattern| |OptionalGraphPattern|)"4321 (DECLARE (SPECIAL |GraphPatternNotTriples-INDEX|))4322 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphPatternNotTriples-INDEX| *ATN-LEVEL))4323 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4324 (IF (< |GraphPatternNotTriples-INDEX| ATN-PARSER::INDEX)4325 (LET ((|GraphPatternNotTriples-INDEX| ATN-PARSER::INDEX)4326 (*ATN-LEVEL (1+ *ATN-LEVEL))4327 (*ATN-STACK (CONS '|GraphPatternNotTriples| *ATN-STACK))4328 (ATN-PARSER::ATN-STRUCTURE NIL))4329 (DECLARE (SPECIAL |GraphPatternNotTriples-INDEX|))4330 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4331 (DECLARE (TYPE CONS *ATN-STACK))4332 (SYMBOL-MACROLET4333 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4334 (%ATN-BLOCK |GraphPatternNotTriples|4335 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4336 (SETF *ATN-TERM* '|GraphPatternNotTriples|)4337 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4338 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4339 (|GraphPatternNotTriples.2| (ATN-PARSER::INDEX)4340 (%ATN-NODE-BLOCK4341 |GraphPatternNotTriples.2|4342 (%ATN-EDGE-BLOCK4343 (POP |GraphPatternNotTriples|)4344 (WHEN T4345 (SETF *ATN-TERM* '|GraphPatternNotTriples|)4346 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4347 '|GraphPatternNotTriples|4348 ATN-PARSER::INDEX4349 (LIST '|GraphGraphPattern|4350 |GraphGraphPattern|4351 '|GroupOrUnionGraphPattern|4352 |GroupOrUnionGraphPattern|4353 '|OptionalGraphPattern|4354 |OptionalGraphPattern|))4355 (LET ((ATN-PARSER::RESULT-STRUCTURE4356 (IF (EQ *ATN-REDUCE* T)4357 (|GraphPatternNotTriples-Constructor|4358 |GraphGraphPattern|4359 |GroupOrUnionGraphPattern|4360 |OptionalGraphPattern|)4361 (IF (EQ *ATN-REDUCE* 'CONS)4362 (CONS '|GraphPatternNotTriples|4363 (DELETE NIL4364 (LIST |GraphGraphPattern|4365 |GroupOrUnionGraphPattern|4366 |OptionalGraphPattern|)))4367 '|GraphPatternNotTriples|))))4368 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4369 (|GraphPatternNotTriples/fail.3| (ATN-PARSER::INDEX)4370 (%ATN-NODE-BLOCK4371 |GraphPatternNotTriples/fail.3|4372 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4373 (|GraphPatternNotTriples/start.1| (ATN-PARSER::INDEX)4374 (%ATN-NODE-BLOCK4375 |GraphPatternNotTriples/start.1|4376 (%ATN-EDGE-BLOCK4377 OR4378 (PROGN (%ATN-EDGE-BLOCK4379 (PUSH |OptionalGraphPattern|)4380 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4381 (ATN-PARSE-SUBSTRUCTURE* '|OptionalGraphPattern| ATN-PARSER::INDEX)4382 (COND (ATN-PARSER::SUCCESS4383 (SETF *ATN-TERM* '|OptionalGraphPattern|)4384 (LET ((|OptionalGraphPattern601| |OptionalGraphPattern|))4385 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4386 (DESTRUCTURING-BIND4387 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4388 ATN-PARSER::RESULT-AND-INDEX4389 (WHEN ATN-PARSER::RESULT4390 (SETF |OptionalGraphPattern| ATN-PARSER::RESULT))4391 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))4392 (SETF |OptionalGraphPattern| |OptionalGraphPattern601|))))4393 (T (SETF *ATN-TERM?* '|OptionalGraphPattern|) NIL))))4394 (%ATN-EDGE-BLOCK4395 (PUSH |GroupOrUnionGraphPattern|)4396 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4397 (ATN-PARSE-SUBSTRUCTURE* '|GroupOrUnionGraphPattern| ATN-PARSER::INDEX)4398 (COND (ATN-PARSER::SUCCESS4399 (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)4400 (LET ((|GroupOrUnionGraphPattern601| |GroupOrUnionGraphPattern|))4401 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4402 (DESTRUCTURING-BIND4403 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4404 ATN-PARSER::RESULT-AND-INDEX4405 (WHEN ATN-PARSER::RESULT4406 (SETF |GroupOrUnionGraphPattern| ATN-PARSER::RESULT))4407 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))4408 (SETF |GroupOrUnionGraphPattern|4409 |GroupOrUnionGraphPattern601|))))4410 (T (SETF *ATN-TERM?* '|GroupOrUnionGraphPattern|) NIL))))4411 (%ATN-EDGE-BLOCK4412 (PUSH |GraphGraphPattern|)4413 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4414 (ATN-PARSE-SUBSTRUCTURE* '|GraphGraphPattern| ATN-PARSER::INDEX)4415 (COND (ATN-PARSER::SUCCESS4416 (SETF *ATN-TERM* '|GraphGraphPattern|)4417 (LET ((|GraphGraphPattern601| |GraphGraphPattern|))4418 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4419 (DESTRUCTURING-BIND4420 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4421 ATN-PARSER::RESULT-AND-INDEX4422 (WHEN ATN-PARSER::RESULT4423 (SETF |GraphGraphPattern| ATN-PARSER::RESULT))4424 (|GraphPatternNotTriples.2| ATN-PARSER::RESULT-INDEX))4425 (SETF |GraphGraphPattern| |GraphGraphPattern601|))))4426 (T (SETF *ATN-TERM?* '|GraphGraphPattern|) NIL))))4427 (|GraphPatternNotTriples/fail.3| ATN-PARSER::INDEX))))))4428 (|GraphPatternNotTriples/start.1| ATN-PARSER::INDEX)4429 (SETF *ATN-NODE NIL)4430 NIL4431 (IF ATN-PARSER::ATN-STRUCTURE4432 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4433 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4434 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphPatternNotTriples| ATN-PARSER::INDEX *ATN-STACK))))4435 (PROGN (DEFVAR |OptionalGraphPattern-INDEX|)4436 (DEFUN |OptionalGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))4437 "{23} OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern4438 (|GroupGraphPattern|)"4439 (DECLARE (SPECIAL |OptionalGraphPattern-INDEX|))4440 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |OptionalGraphPattern-INDEX| *ATN-LEVEL))4441 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4442 (IF (< |OptionalGraphPattern-INDEX| ATN-PARSER::INDEX)4443 (LET ((|OptionalGraphPattern-INDEX| ATN-PARSER::INDEX)4444 (*ATN-LEVEL (1+ *ATN-LEVEL))4445 (*ATN-STACK (CONS '|OptionalGraphPattern| *ATN-STACK))4446 (ATN-PARSER::ATN-STRUCTURE NIL))4447 (DECLARE (SPECIAL |OptionalGraphPattern-INDEX|))4448 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4449 (DECLARE (TYPE CONS *ATN-STACK))4450 (SYMBOL-MACROLET4451 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4452 (%ATN-BLOCK |OptionalGraphPattern|4453 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4454 (SETF *ATN-TERM* '|OptionalGraphPattern|)4455 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4456 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4457 (|OptionalGraphPattern.2| (ATN-PARSER::INDEX)4458 (%ATN-NODE-BLOCK4459 |OptionalGraphPattern.2|4460 (%ATN-EDGE-BLOCK4461 (POP |OptionalGraphPattern|)4462 (WHEN T4463 (SETF *ATN-TERM* '|OptionalGraphPattern|)4464 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4465 '|OptionalGraphPattern|4466 ATN-PARSER::INDEX4467 (LIST '|GroupGraphPattern| |GroupGraphPattern|))4468 (LET ((ATN-PARSER::RESULT-STRUCTURE4469 (IF (EQ *ATN-REDUCE* T)4470 (|OptionalGraphPattern-Constructor| |GroupGraphPattern|)4471 (IF (EQ *ATN-REDUCE* 'CONS)4472 (CONS '|OptionalGraphPattern| (DELETE NIL (LIST |GroupGraphPattern|)))4473 '|OptionalGraphPattern|))))4474 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4475 (|OptionalGraphPattern/fail.3| (ATN-PARSER::INDEX)4476 (%ATN-NODE-BLOCK4477 |OptionalGraphPattern/fail.3|4478 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4479 (|OptionalGraphPattern/OptionalGraphPattern.2.4| (ATN-PARSER::INDEX)4480 (%ATN-NODE-BLOCK4481 |OptionalGraphPattern/OptionalGraphPattern.2.4|4482 (%ATN-EDGE-BLOCK4483 (PUSH |GroupGraphPattern|)4484 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4485 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)4486 (COND (ATN-PARSER::SUCCESS4487 (SETF *ATN-TERM* '|GroupGraphPattern|)4488 (LET ((|GroupGraphPattern601| |GroupGraphPattern|))4489 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4490 (DESTRUCTURING-BIND4491 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4492 ATN-PARSER::RESULT-AND-INDEX4493 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))4494 (|OptionalGraphPattern.2| ATN-PARSER::RESULT-INDEX))4495 (SETF |GroupGraphPattern| |GroupGraphPattern601|))))4496 (T4497 (SETF *ATN-TERM?* '|GroupGraphPattern|)4498 (|OptionalGraphPattern/fail.3| ATN-PARSER::INDEX)))))))4499 (|OptionalGraphPattern/start.1| (ATN-PARSER::INDEX)4500 (%ATN-NODE-BLOCK4501 |OptionalGraphPattern/start.1|4502 (%ATN-EDGE-BLOCK4503 (ATN-PARSER::WORD SPOCQ.S:OPTIONAL)4504 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:OPTIONAL)4505 (SETF *ATN-TERM* 'SPOCQ.S:OPTIONAL)4506 (|OptionalGraphPattern/OptionalGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))4507 (T4508 (SETF *ATN-TERM?* 'SPOCQ.S:OPTIONAL)4509 (|OptionalGraphPattern/fail.3| ATN-PARSER::INDEX)))))))4510 (|OptionalGraphPattern/start.1| ATN-PARSER::INDEX)4511 (SETF *ATN-NODE NIL)4512 NIL4513 (IF ATN-PARSER::ATN-STRUCTURE4514 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4515 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4516 (WARN "recursive grammar: ~s @ position ~s: ~s" '|OptionalGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))4517 (PROGN (DEFVAR |GraphGraphPattern-INDEX|)4518 (DEFUN |GraphGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL) (|VarOrIRIref| NIL))4519 "{24} GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern4520 (|GroupGraphPattern| |VarOrIRIref|)"4521 (DECLARE (SPECIAL |GraphGraphPattern-INDEX|))4522 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphGraphPattern-INDEX| *ATN-LEVEL))4523 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4524 (IF (< |GraphGraphPattern-INDEX| ATN-PARSER::INDEX)4525 (LET ((|GraphGraphPattern-INDEX| ATN-PARSER::INDEX)4526 (*ATN-LEVEL (1+ *ATN-LEVEL))4527 (*ATN-STACK (CONS '|GraphGraphPattern| *ATN-STACK))4528 (ATN-PARSER::ATN-STRUCTURE NIL))4529 (DECLARE (SPECIAL |GraphGraphPattern-INDEX|))4530 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4531 (DECLARE (TYPE CONS *ATN-STACK))4532 (SYMBOL-MACROLET4533 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4534 (%ATN-BLOCK |GraphGraphPattern|4535 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4536 (SETF *ATN-TERM* '|GraphGraphPattern|)4537 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4538 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4539 (|GraphGraphPattern.2| (ATN-PARSER::INDEX)4540 (%ATN-NODE-BLOCK4541 |GraphGraphPattern.2|4542 (%ATN-EDGE-BLOCK4543 (POP |GraphGraphPattern|)4544 (WHEN T4545 (SETF *ATN-TERM* '|GraphGraphPattern|)4546 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4547 '|GraphGraphPattern|4548 ATN-PARSER::INDEX4549 (LIST '|GroupGraphPattern|4550 |GroupGraphPattern|4551 '|VarOrIRIref|4552 |VarOrIRIref|))4553 (LET ((ATN-PARSER::RESULT-STRUCTURE4554 (IF (EQ *ATN-REDUCE* T)4555 (|GraphGraphPattern-Constructor| |GroupGraphPattern| |VarOrIRIref|)4556 (IF (EQ *ATN-REDUCE* 'CONS)4557 (CONS '|GraphGraphPattern|4558 (DELETE NIL (LIST |GroupGraphPattern| |VarOrIRIref|)))4559 '|GraphGraphPattern|))))4560 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4561 (|GraphGraphPattern/fail.3| (ATN-PARSER::INDEX)4562 (%ATN-NODE-BLOCK |GraphGraphPattern/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4563 (|GraphGraphPattern/GraphGraphPattern.2.4| (ATN-PARSER::INDEX)4564 (%ATN-NODE-BLOCK4565 |GraphGraphPattern/GraphGraphPattern.2.4|4566 (%ATN-EDGE-BLOCK4567 (PUSH |VarOrIRIref|)4568 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4569 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)4570 (COND (ATN-PARSER::SUCCESS4571 (SETF *ATN-TERM* '|VarOrIRIref|)4572 (LET ((|VarOrIRIref602| |VarOrIRIref|))4573 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4574 (DESTRUCTURING-BIND4575 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4576 ATN-PARSER::RESULT-AND-INDEX4577 (WHEN ATN-PARSER::RESULT (SETF |VarOrIRIref| ATN-PARSER::RESULT))4578 (|GraphGraphPattern/GraphGraphPattern.2.5| ATN-PARSER::RESULT-INDEX))4579 (SETF |VarOrIRIref| |VarOrIRIref602|))))4580 (T4581 (SETF *ATN-TERM?* '|VarOrIRIref|)4582 (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))4583 (|GraphGraphPattern/GraphGraphPattern.2.5| (ATN-PARSER::INDEX)4584 (%ATN-NODE-BLOCK4585 |GraphGraphPattern/GraphGraphPattern.2.5|4586 (%ATN-EDGE-BLOCK4587 (PUSH |GroupGraphPattern|)4588 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4589 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)4590 (COND (ATN-PARSER::SUCCESS4591 (SETF *ATN-TERM* '|GroupGraphPattern|)4592 (LET ((|GroupGraphPattern602| |GroupGraphPattern|))4593 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4594 (DESTRUCTURING-BIND4595 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4596 ATN-PARSER::RESULT-AND-INDEX4597 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))4598 (|GraphGraphPattern.2| ATN-PARSER::RESULT-INDEX))4599 (SETF |GroupGraphPattern| |GroupGraphPattern602|))))4600 (T4601 (SETF *ATN-TERM?* '|GroupGraphPattern|)4602 (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))4603 (|GraphGraphPattern/start.1| (ATN-PARSER::INDEX)4604 (%ATN-NODE-BLOCK4605 |GraphGraphPattern/start.1|4606 (%ATN-EDGE-BLOCK4607 (ATN-PARSER::WORD SPOCQ.S:GRAPH)4608 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:GRAPH)4609 (SETF *ATN-TERM* 'SPOCQ.S:GRAPH)4610 (|GraphGraphPattern/GraphGraphPattern.2.4| (1+ ATN-PARSER::INDEX)))4611 (T4612 (SETF *ATN-TERM?* 'SPOCQ.S:GRAPH)4613 (|GraphGraphPattern/fail.3| ATN-PARSER::INDEX)))))))4614 (|GraphGraphPattern/start.1| ATN-PARSER::INDEX)4615 (SETF *ATN-NODE NIL)4616 NIL4617 (IF ATN-PARSER::ATN-STRUCTURE4618 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4619 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4620 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))4621 (PROGN (DEFVAR |GroupOrUnionGraphPattern-INDEX|)4622 (DEFUN |GroupOrUnionGraphPattern| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))4623 "{25} GroupOrUnionGraphPattern ::= GroupGraphPattern ('UNION' GroupGraphPattern)*4624 (|GroupGraphPattern|)"4625 (DECLARE (SPECIAL |GroupOrUnionGraphPattern-INDEX|))4626 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GroupOrUnionGraphPattern-INDEX| *ATN-LEVEL))4627 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4628 (IF (< |GroupOrUnionGraphPattern-INDEX| ATN-PARSER::INDEX)4629 (LET ((|GroupOrUnionGraphPattern-INDEX| ATN-PARSER::INDEX)4630 (*ATN-LEVEL (1+ *ATN-LEVEL))4631 (*ATN-STACK (CONS '|GroupOrUnionGraphPattern| *ATN-STACK))4632 (ATN-PARSER::ATN-STRUCTURE NIL))4633 (DECLARE (SPECIAL |GroupOrUnionGraphPattern-INDEX|))4634 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4635 (DECLARE (TYPE CONS *ATN-STACK))4636 (SYMBOL-MACROLET4637 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4638 (%ATN-BLOCK |GroupOrUnionGraphPattern|4639 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4640 (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)4641 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4642 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4643 (|GroupOrUnionGraphPattern.2| (ATN-PARSER::INDEX)4644 (%ATN-NODE-BLOCK4645 |GroupOrUnionGraphPattern.2|4646 (%ATN-EDGE-BLOCK4647 (POP |GroupOrUnionGraphPattern|)4648 (WHEN T4649 (SETF *ATN-TERM* '|GroupOrUnionGraphPattern|)4650 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4651 '|GroupOrUnionGraphPattern|4652 ATN-PARSER::INDEX4653 (LIST '|GroupGraphPattern| |GroupGraphPattern|))4654 (LET ((ATN-PARSER::RESULT-STRUCTURE4655 (IF (EQ *ATN-REDUCE* T)4656 (|GroupOrUnionGraphPattern-Constructor| |GroupGraphPattern|)4657 (IF (EQ *ATN-REDUCE* 'CONS)4658 (CONS '|GroupOrUnionGraphPattern|4659 (DELETE NIL (LIST |GroupGraphPattern|)))4660 '|GroupOrUnionGraphPattern|))))4661 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4662 (|GroupOrUnionGraphPattern.5| (ATN-PARSER::INDEX)4663 (%ATN-NODE-BLOCK4664 |GroupOrUnionGraphPattern.5|4665 (%ATN-EDGE-BLOCK4666 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|)4667 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| ATN-PARSER::INDEX))4668 (%ATN-EDGE-BLOCK4669 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern.2|)4670 (|GroupOrUnionGraphPattern.2| ATN-PARSER::INDEX))))4671 (|GroupOrUnionGraphPattern/fail.3| (ATN-PARSER::INDEX)4672 (%ATN-NODE-BLOCK4673 |GroupOrUnionGraphPattern/fail.3|4674 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4675 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4| (ATN-PARSER::INDEX)4676 (%ATN-NODE-BLOCK4677 |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4|4678 (%ATN-EDGE-BLOCK4679 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|)4680 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| ATN-PARSER::INDEX))4681 (%ATN-EDGE-BLOCK4682 (ATN-PARSER::JUMP |GroupOrUnionGraphPattern.2|)4683 (|GroupOrUnionGraphPattern.2| ATN-PARSER::INDEX))))4684 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6| (ATN-PARSER::INDEX)4685 (%ATN-NODE-BLOCK4686 |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.6|4687 (%ATN-EDGE-BLOCK4688 (ATN-PARSER::WORD SPOCQ.S:UNION)4689 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:UNION)4690 (SETF *ATN-TERM* 'SPOCQ.S:UNION)4691 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7|4692 (1+ ATN-PARSER::INDEX)))4693 (T (SETF *ATN-TERM?* 'SPOCQ.S:UNION) NIL)))))4694 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7| (ATN-PARSER::INDEX)4695 (%ATN-NODE-BLOCK4696 |GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.5.7|4697 (%ATN-EDGE-BLOCK4698 (PUSH |GroupGraphPattern|)4699 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4700 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)4701 (COND (ATN-PARSER::SUCCESS4702 (SETF *ATN-TERM* '|GroupGraphPattern|)4703 (LET ((|GroupGraphPattern603| |GroupGraphPattern|))4704 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4705 (DESTRUCTURING-BIND4706 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4707 ATN-PARSER::RESULT-AND-INDEX4708 (WHEN ATN-PARSER::RESULT4709 (SETF |GroupGraphPattern|4710 (CONS ATN-PARSER::RESULT |GroupGraphPattern|)))4711 (|GroupOrUnionGraphPattern.5| ATN-PARSER::RESULT-INDEX))4712 (SETF |GroupGraphPattern| |GroupGraphPattern603|))))4713 (T (SETF *ATN-TERM?* '|GroupGraphPattern|) NIL))))))4714 (|GroupOrUnionGraphPattern/start.1| (ATN-PARSER::INDEX)4715 (%ATN-NODE-BLOCK4716 |GroupOrUnionGraphPattern/start.1|4717 (%ATN-EDGE-BLOCK4718 (PUSH |GroupGraphPattern|)4719 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4720 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)4721 (COND (ATN-PARSER::SUCCESS4722 (SETF *ATN-TERM* '|GroupGraphPattern|)4723 (LET ((|GroupGraphPattern604| |GroupGraphPattern|))4724 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4725 (DESTRUCTURING-BIND4726 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4727 ATN-PARSER::RESULT-AND-INDEX4728 (WHEN ATN-PARSER::RESULT4729 (SETF |GroupGraphPattern|4730 (CONS ATN-PARSER::RESULT |GroupGraphPattern|)))4731 (|GroupOrUnionGraphPattern/GroupOrUnionGraphPattern.2.4|4732 ATN-PARSER::RESULT-INDEX))4733 (SETF |GroupGraphPattern| |GroupGraphPattern604|))))4734 (T4735 (SETF *ATN-TERM?* '|GroupGraphPattern|)4736 (|GroupOrUnionGraphPattern/fail.3| ATN-PARSER::INDEX))))))))4737 (|GroupOrUnionGraphPattern/start.1| ATN-PARSER::INDEX)4738 (SETF *ATN-NODE NIL)4739 NIL4740 (IF ATN-PARSER::ATN-STRUCTURE4741 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4742 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4743 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GroupOrUnionGraphPattern| ATN-PARSER::INDEX *ATN-STACK))))4744 (PROGN (DEFVAR |Filter-INDEX|)4745 (DEFUN |Filter| (ATN-PARSER::INDEX &AUX (|Constraint| NIL))4746 "{26} Filter ::= 'FILTER' Constraint4747 (|Constraint|)"4748 (DECLARE (SPECIAL |Filter-INDEX|))4749 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Filter-INDEX| *ATN-LEVEL))4750 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4751 (IF (< |Filter-INDEX| ATN-PARSER::INDEX)4752 (LET ((|Filter-INDEX| ATN-PARSER::INDEX)4753 (*ATN-LEVEL (1+ *ATN-LEVEL))4754 (*ATN-STACK (CONS '|Filter| *ATN-STACK))4755 (ATN-PARSER::ATN-STRUCTURE NIL))4756 (DECLARE (SPECIAL |Filter-INDEX|))4757 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4758 (DECLARE (TYPE CONS *ATN-STACK))4759 (SYMBOL-MACROLET4760 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4761 (%ATN-BLOCK |Filter|4762 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4763 (SETF *ATN-TERM* '|Filter|)4764 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4765 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4766 (|Filter.2| (ATN-PARSER::INDEX)4767 (%ATN-NODE-BLOCK4768 |Filter.2|4769 (%ATN-EDGE-BLOCK4770 (POP |Filter|)4771 (WHEN T4772 (SETF *ATN-TERM* '|Filter|)4773 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4774 '|Filter|4775 ATN-PARSER::INDEX4776 (LIST '|Constraint| |Constraint|))4777 (LET ((ATN-PARSER::RESULT-STRUCTURE4778 (IF (EQ *ATN-REDUCE* T)4779 (|Filter-Constructor| |Constraint|)4780 (IF (EQ *ATN-REDUCE* 'CONS)4781 (CONS '|Filter| (DELETE NIL (LIST |Constraint|)))4782 '|Filter|))))4783 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4784 (|Filter/fail.3| (ATN-PARSER::INDEX)4785 (%ATN-NODE-BLOCK |Filter/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4786 (|Filter/Filter.2.4| (ATN-PARSER::INDEX)4787 (%ATN-NODE-BLOCK4788 |Filter/Filter.2.4|4789 (%ATN-EDGE-BLOCK4790 (PUSH |Constraint|)4791 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4792 (ATN-PARSE-SUBSTRUCTURE* '|Constraint| ATN-PARSER::INDEX)4793 (COND (ATN-PARSER::SUCCESS4794 (SETF *ATN-TERM* '|Constraint|)4795 (LET ((|Constraint604| |Constraint|))4796 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4797 (DESTRUCTURING-BIND4798 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4799 ATN-PARSER::RESULT-AND-INDEX4800 (WHEN ATN-PARSER::RESULT (SETF |Constraint| ATN-PARSER::RESULT))4801 (|Filter.2| ATN-PARSER::RESULT-INDEX))4802 (SETF |Constraint| |Constraint604|))))4803 (T (SETF *ATN-TERM?* '|Constraint|) (|Filter/fail.3| ATN-PARSER::INDEX)))))))4804 (|Filter/start.1| (ATN-PARSER::INDEX)4805 (%ATN-NODE-BLOCK4806 |Filter/start.1|4807 (%ATN-EDGE-BLOCK4808 (ATN-PARSER::WORD SPOCQ.S:FILTER)4809 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:FILTER)4810 (SETF *ATN-TERM* 'SPOCQ.S:FILTER)4811 (|Filter/Filter.2.4| (1+ ATN-PARSER::INDEX)))4812 (T (SETF *ATN-TERM?* 'SPOCQ.S:FILTER) (|Filter/fail.3| ATN-PARSER::INDEX)))))))4813 (|Filter/start.1| ATN-PARSER::INDEX)4814 (SETF *ATN-NODE NIL)4815 NIL4816 (IF ATN-PARSER::ATN-STRUCTURE4817 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4818 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4819 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Filter| ATN-PARSER::INDEX *ATN-STACK))))4820 (PROGN (DEFVAR |Constraint-INDEX|)4821 (DEFUN |Constraint| (ATN-PARSER::INDEX &AUX (|BrackettedExpression| NIL) (|BuiltInCall| NIL) (|FunctionCall| NIL))4822 "{27} Constraint ::= (BrackettedExpression | BuiltInCall | FunctionCall)4823 (|BrackettedExpression| |BuiltInCall| |FunctionCall|)"4824 (DECLARE (SPECIAL |Constraint-INDEX|))4825 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Constraint-INDEX| *ATN-LEVEL))4826 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4827 (IF (< |Constraint-INDEX| ATN-PARSER::INDEX)4828 (LET ((|Constraint-INDEX| ATN-PARSER::INDEX)4829 (*ATN-LEVEL (1+ *ATN-LEVEL))4830 (*ATN-STACK (CONS '|Constraint| *ATN-STACK))4831 (ATN-PARSER::ATN-STRUCTURE NIL))4832 (DECLARE (SPECIAL |Constraint-INDEX|))4833 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4834 (DECLARE (TYPE CONS *ATN-STACK))4835 (SYMBOL-MACROLET4836 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4837 (%ATN-BLOCK |Constraint|4838 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4839 (SETF *ATN-TERM* '|Constraint|)4840 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4841 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4842 (|Constraint.2| (ATN-PARSER::INDEX)4843 (%ATN-NODE-BLOCK4844 |Constraint.2|4845 (%ATN-EDGE-BLOCK4846 (POP |Constraint|)4847 (WHEN T4848 (SETF *ATN-TERM* '|Constraint|)4849 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4850 '|Constraint|4851 ATN-PARSER::INDEX4852 (LIST '|BrackettedExpression|4853 |BrackettedExpression|4854 '|BuiltInCall|4855 |BuiltInCall|4856 '|FunctionCall|4857 |FunctionCall|))4858 (LET ((ATN-PARSER::RESULT-STRUCTURE4859 (IF (EQ *ATN-REDUCE* T)4860 (|Constraint-Constructor|4861 |BrackettedExpression|4862 |BuiltInCall|4863 |FunctionCall|)4864 (IF (EQ *ATN-REDUCE* 'CONS)4865 (CONS '|Constraint|4866 (DELETE NIL4867 (LIST |BrackettedExpression|4868 |BuiltInCall|4869 |FunctionCall|)))4870 '|Constraint|))))4871 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4872 (|Constraint/fail.3| (ATN-PARSER::INDEX)4873 (%ATN-NODE-BLOCK |Constraint/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4874 (|Constraint/start.1| (ATN-PARSER::INDEX)4875 (%ATN-NODE-BLOCK4876 |Constraint/start.1|4877 (%ATN-EDGE-BLOCK4878 OR4879 (PROGN (%ATN-EDGE-BLOCK4880 (PUSH |BrackettedExpression|)4881 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4882 (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression| ATN-PARSER::INDEX)4883 (COND (ATN-PARSER::SUCCESS4884 (SETF *ATN-TERM* '|BrackettedExpression|)4885 (LET ((|BrackettedExpression604| |BrackettedExpression|))4886 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4887 (DESTRUCTURING-BIND4888 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4889 ATN-PARSER::RESULT-AND-INDEX4890 (WHEN ATN-PARSER::RESULT4891 (SETF |BrackettedExpression| ATN-PARSER::RESULT))4892 (|Constraint.2| ATN-PARSER::RESULT-INDEX))4893 (SETF |BrackettedExpression| |BrackettedExpression604|))))4894 (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))4895 (%ATN-EDGE-BLOCK4896 (PUSH |BuiltInCall|)4897 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4898 (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall| ATN-PARSER::INDEX)4899 (COND (ATN-PARSER::SUCCESS4900 (SETF *ATN-TERM* '|BuiltInCall|)4901 (LET ((|BuiltInCall604| |BuiltInCall|))4902 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4903 (DESTRUCTURING-BIND4904 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4905 ATN-PARSER::RESULT-AND-INDEX4906 (WHEN ATN-PARSER::RESULT4907 (SETF |BuiltInCall| ATN-PARSER::RESULT))4908 (|Constraint.2| ATN-PARSER::RESULT-INDEX))4909 (SETF |BuiltInCall| |BuiltInCall604|))))4910 (T (SETF *ATN-TERM?* '|BuiltInCall|) NIL))))4911 (%ATN-EDGE-BLOCK4912 (PUSH |FunctionCall|)4913 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4914 (ATN-PARSE-SUBSTRUCTURE* '|FunctionCall| ATN-PARSER::INDEX)4915 (COND (ATN-PARSER::SUCCESS4916 (SETF *ATN-TERM* '|FunctionCall|)4917 (LET ((|FunctionCall604| |FunctionCall|))4918 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4919 (DESTRUCTURING-BIND4920 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4921 ATN-PARSER::RESULT-AND-INDEX4922 (WHEN ATN-PARSER::RESULT4923 (SETF |FunctionCall| ATN-PARSER::RESULT))4924 (|Constraint.2| ATN-PARSER::RESULT-INDEX))4925 (SETF |FunctionCall| |FunctionCall604|))))4926 (T (SETF *ATN-TERM?* '|FunctionCall|) NIL))))4927 (|Constraint/fail.3| ATN-PARSER::INDEX))))))4928 (|Constraint/start.1| ATN-PARSER::INDEX)4929 (SETF *ATN-NODE NIL)4930 NIL4931 (IF ATN-PARSER::ATN-STRUCTURE4932 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)4933 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))4934 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Constraint| ATN-PARSER::INDEX *ATN-STACK))))4935 (PROGN (DEFVAR |FunctionCall-INDEX|)4936 (DEFUN |FunctionCall| (ATN-PARSER::INDEX &AUX (|ArgList| NIL) (|IRIref| NIL))4937 "{28} FunctionCall ::= IRIref ArgList4938 (|ArgList| |IRIref|)"4939 (DECLARE (SPECIAL |FunctionCall-INDEX|))4940 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |FunctionCall-INDEX| *ATN-LEVEL))4941 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))4942 (IF (< |FunctionCall-INDEX| ATN-PARSER::INDEX)4943 (LET ((|FunctionCall-INDEX| ATN-PARSER::INDEX)4944 (*ATN-LEVEL (1+ *ATN-LEVEL))4945 (*ATN-STACK (CONS '|FunctionCall| *ATN-STACK))4946 (ATN-PARSER::ATN-STRUCTURE NIL))4947 (DECLARE (SPECIAL |FunctionCall-INDEX|))4948 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))4949 (DECLARE (TYPE CONS *ATN-STACK))4950 (SYMBOL-MACROLET4951 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))4952 (%ATN-BLOCK |FunctionCall|4953 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)4954 (SETF *ATN-TERM* '|FunctionCall|)4955 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))4956 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)4957 (|FunctionCall.2| (ATN-PARSER::INDEX)4958 (%ATN-NODE-BLOCK4959 |FunctionCall.2|4960 (%ATN-EDGE-BLOCK4961 (POP |FunctionCall|)4962 (WHEN T4963 (SETF *ATN-TERM* '|FunctionCall|)4964 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"4965 '|FunctionCall|4966 ATN-PARSER::INDEX4967 (LIST '|ArgList| |ArgList| '|IRIref| |IRIref|))4968 (LET ((ATN-PARSER::RESULT-STRUCTURE4969 (IF (EQ *ATN-REDUCE* T)4970 (|FunctionCall-Constructor| |ArgList| |IRIref|)4971 (IF (EQ *ATN-REDUCE* 'CONS)4972 (CONS '|FunctionCall| (DELETE NIL (LIST |ArgList| |IRIref|)))4973 '|FunctionCall|))))4974 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))4975 (|FunctionCall/fail.3| (ATN-PARSER::INDEX)4976 (%ATN-NODE-BLOCK |FunctionCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))4977 (|FunctionCall/FunctionCall.2.4| (ATN-PARSER::INDEX)4978 (%ATN-NODE-BLOCK4979 |FunctionCall/FunctionCall.2.4|4980 (%ATN-EDGE-BLOCK4981 (PUSH |ArgList|)4982 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)4983 (ATN-PARSE-SUBSTRUCTURE* '|ArgList| ATN-PARSER::INDEX)4984 (COND (ATN-PARSER::SUCCESS4985 (SETF *ATN-TERM* '|ArgList|)4986 (LET ((|ArgList604| |ArgList|))4987 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)4988 (DESTRUCTURING-BIND4989 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)4990 ATN-PARSER::RESULT-AND-INDEX4991 (WHEN ATN-PARSER::RESULT (SETF |ArgList| ATN-PARSER::RESULT))4992 (|FunctionCall.2| ATN-PARSER::RESULT-INDEX))4993 (SETF |ArgList| |ArgList604|))))4994 (T4995 (SETF *ATN-TERM?* '|ArgList|)4996 (|FunctionCall/fail.3| ATN-PARSER::INDEX)))))))4997 (|FunctionCall/start.1| (ATN-PARSER::INDEX)4998 (%ATN-NODE-BLOCK4999 |FunctionCall/start.1|5000 (%ATN-EDGE-BLOCK5001 (PUSH |IRIref|)5002 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5003 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)5004 (COND (ATN-PARSER::SUCCESS5005 (SETF *ATN-TERM* '|IRIref|)5006 (LET ((|IRIref604| |IRIref|))5007 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5008 (DESTRUCTURING-BIND5009 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5010 ATN-PARSER::RESULT-AND-INDEX5011 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))5012 (|FunctionCall/FunctionCall.2.4| ATN-PARSER::RESULT-INDEX))5013 (SETF |IRIref| |IRIref604|))))5014 (T5015 (SETF *ATN-TERM?* '|IRIref|)5016 (|FunctionCall/fail.3| ATN-PARSER::INDEX))))))))5017 (|FunctionCall/start.1| ATN-PARSER::INDEX)5018 (SETF *ATN-NODE NIL)5019 NIL5020 (IF ATN-PARSER::ATN-STRUCTURE5021 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5022 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5023 (WARN "recursive grammar: ~s @ position ~s: ~s" '|FunctionCall| ATN-PARSER::INDEX *ATN-STACK))))5024 (PROGN (DEFVAR |ArgList-INDEX|)5025 (DEFUN |ArgList| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (NILLIST NIL))5026 "{29} ArgList ::= (NILLIST | ('(' Expression (',' Expression)* ')'))5027 (|Expression| NILLIST)"5028 (DECLARE (SPECIAL |ArgList-INDEX|))5029 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ArgList-INDEX| *ATN-LEVEL))5030 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5031 (IF (< |ArgList-INDEX| ATN-PARSER::INDEX)5032 (LET ((|ArgList-INDEX| ATN-PARSER::INDEX)5033 (*ATN-LEVEL (1+ *ATN-LEVEL))5034 (*ATN-STACK (CONS '|ArgList| *ATN-STACK))5035 (ATN-PARSER::ATN-STRUCTURE NIL))5036 (DECLARE (SPECIAL |ArgList-INDEX|))5037 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5038 (DECLARE (TYPE CONS *ATN-STACK))5039 (SYMBOL-MACROLET5040 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5041 (%ATN-BLOCK |ArgList|5042 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5043 (SETF *ATN-TERM* '|ArgList|)5044 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5045 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5046 (|ArgList.2| (ATN-PARSER::INDEX)5047 (%ATN-NODE-BLOCK5048 |ArgList.2|5049 (%ATN-EDGE-BLOCK5050 (POP |ArgList|)5051 (WHEN T5052 (SETF *ATN-TERM* '|ArgList|)5053 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5054 '|ArgList|5055 ATN-PARSER::INDEX5056 (LIST '|Expression| |Expression| 'NILLIST NILLIST))5057 (LET ((ATN-PARSER::RESULT-STRUCTURE5058 (IF (EQ *ATN-REDUCE* T)5059 (|ArgList-Constructor| |Expression| NILLIST)5060 (IF (EQ *ATN-REDUCE* 'CONS)5061 (CONS '|ArgList| (DELETE NIL (LIST |Expression| NILLIST)))5062 '|ArgList|))))5063 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5064 (|ArgList.8| (ATN-PARSER::INDEX)5065 (%ATN-NODE-BLOCK5066 |ArgList.8|5067 (%ATN-EDGE-BLOCK5068 (ATN-PARSER::JUMP |ArgList/ArgList.8.9|)5069 (|ArgList/ArgList.8.9| ATN-PARSER::INDEX))5070 (%ATN-EDGE-BLOCK5071 (ATN-PARSER::JUMP |ArgList/ArgList.2.7|)5072 (|ArgList/ArgList.2.7| ATN-PARSER::INDEX))))5073 (|ArgList/ArgList.2.4| (ATN-PARSER::INDEX)5074 (%ATN-NODE-BLOCK5075 |ArgList/ArgList.2.4|5076 (%ATN-EDGE-BLOCK5077 (ATN-PARSER::WORD SPOCQ.S:\()5078 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()5079 (SETF *ATN-TERM* 'SPOCQ.S:\()5080 (|ArgList/ArgList.2.5| (1+ ATN-PARSER::INDEX)))5081 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))5082 (|ArgList/ArgList.2.5| (ATN-PARSER::INDEX)5083 (%ATN-NODE-BLOCK5084 |ArgList/ArgList.2.5|5085 (%ATN-EDGE-BLOCK5086 (PUSH |Expression|)5087 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5088 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)5089 (COND (ATN-PARSER::SUCCESS5090 (SETF *ATN-TERM* '|Expression|)5091 (LET ((|Expression605| |Expression|))5092 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5093 (DESTRUCTURING-BIND5094 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5095 ATN-PARSER::RESULT-AND-INDEX5096 (WHEN ATN-PARSER::RESULT5097 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))5098 (|ArgList/ArgList.2.6| ATN-PARSER::RESULT-INDEX))5099 (SETF |Expression| |Expression605|))))5100 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))5101 (|ArgList/ArgList.2.6| (ATN-PARSER::INDEX)5102 (%ATN-NODE-BLOCK5103 |ArgList/ArgList.2.6|5104 (%ATN-EDGE-BLOCK5105 (ATN-PARSER::JUMP |ArgList/ArgList.8.9|)5106 (|ArgList/ArgList.8.9| ATN-PARSER::INDEX))5107 (%ATN-EDGE-BLOCK5108 (ATN-PARSER::JUMP |ArgList/ArgList.2.7|)5109 (|ArgList/ArgList.2.7| ATN-PARSER::INDEX))))5110 (|ArgList/ArgList.2.7| (ATN-PARSER::INDEX)5111 (%ATN-NODE-BLOCK5112 |ArgList/ArgList.2.7|5113 (%ATN-EDGE-BLOCK5114 (ATN-PARSER::WORD SPOCQ.S:\))5115 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))5116 (SETF *ATN-TERM* 'SPOCQ.S:\))5117 (|ArgList.2| (1+ ATN-PARSER::INDEX)))5118 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL)))))5119 (|ArgList/ArgList.8.10| (ATN-PARSER::INDEX)5120 (%ATN-NODE-BLOCK5121 |ArgList/ArgList.8.10|5122 (%ATN-EDGE-BLOCK5123 (PUSH |Expression|)5124 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5125 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)5126 (COND (ATN-PARSER::SUCCESS5127 (SETF *ATN-TERM* '|Expression|)5128 (LET ((|Expression604| |Expression|))5129 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5130 (DESTRUCTURING-BIND5131 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5132 ATN-PARSER::RESULT-AND-INDEX5133 (WHEN ATN-PARSER::RESULT5134 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))5135 (|ArgList.8| ATN-PARSER::RESULT-INDEX))5136 (SETF |Expression| |Expression604|))))5137 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))5138 (|ArgList/ArgList.8.9| (ATN-PARSER::INDEX)5139 (%ATN-NODE-BLOCK5140 |ArgList/ArgList.8.9|5141 (%ATN-EDGE-BLOCK5142 (ATN-PARSER::WORD SPOCQ.S:\,)5143 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)5144 (SETF *ATN-TERM* 'SPOCQ.S:\,)5145 (|ArgList/ArgList.8.10| (1+ ATN-PARSER::INDEX)))5146 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))5147 (|ArgList/fail.3| (ATN-PARSER::INDEX)5148 (%ATN-NODE-BLOCK |ArgList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5149 (|ArgList/start.1| (ATN-PARSER::INDEX)5150 (%ATN-NODE-BLOCK5151 |ArgList/start.1|5152 (%ATN-EDGE-BLOCK5153 OR5154 (PROGN (%ATN-EDGE-BLOCK5155 (PUSH NILLIST)5156 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5157 (ATN-PARSE-SUBSTRUCTURE* 'NILLIST ATN-PARSER::INDEX)5158 (COND (ATN-PARSER::SUCCESS5159 (SETF *ATN-TERM* 'NILLIST)5160 (LET ((NILLIST604 NILLIST))5161 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5162 (DESTRUCTURING-BIND5163 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5164 ATN-PARSER::RESULT-AND-INDEX5165 (WHEN ATN-PARSER::RESULT (SETF NILLIST ATN-PARSER::RESULT))5166 (|ArgList.2| ATN-PARSER::RESULT-INDEX))5167 (SETF NILLIST NILLIST604))))5168 (T (SETF *ATN-TERM?* 'NILLIST) NIL))))5169 (%ATN-EDGE-BLOCK5170 (ATN-PARSER::JUMP |ArgList/ArgList.2.4|)5171 (|ArgList/ArgList.2.4| ATN-PARSER::INDEX))5172 (|ArgList/fail.3| ATN-PARSER::INDEX))))))5173 (|ArgList/start.1| ATN-PARSER::INDEX)5174 (SETF *ATN-NODE NIL)5175 NIL5176 (IF ATN-PARSER::ATN-STRUCTURE5177 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5178 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5179 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ArgList| ATN-PARSER::INDEX *ATN-STACK))))5180 (PROGN (DEFVAR |ExpressionList-INDEX|)5181 (DEFUN |ExpressionList| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (NILLIST NIL))5182 "ExpressionList ::= (NILLIST | ('(' Expression (',' Expression)* ')'))5183 (|Expression| NILLIST)"5184 (DECLARE (SPECIAL |ExpressionList-INDEX|))5185 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ExpressionList-INDEX| *ATN-LEVEL))5186 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5187 (IF (< |ExpressionList-INDEX| ATN-PARSER::INDEX)5188 (LET ((|ExpressionList-INDEX| ATN-PARSER::INDEX)5189 (*ATN-LEVEL (1+ *ATN-LEVEL))5190 (*ATN-STACK (CONS '|ExpressionList| *ATN-STACK))5191 (ATN-PARSER::ATN-STRUCTURE NIL))5192 (DECLARE (SPECIAL |ExpressionList-INDEX|))5193 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5194 (DECLARE (TYPE CONS *ATN-STACK))5195 (SYMBOL-MACROLET5196 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5197 (%ATN-BLOCK |ExpressionList|5198 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5199 (SETF *ATN-TERM* '|ExpressionList|)5200 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5201 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5202 (|ExpressionList.2| (ATN-PARSER::INDEX)5203 (%ATN-NODE-BLOCK5204 |ExpressionList.2|5205 (%ATN-EDGE-BLOCK5206 (POP |ExpressionList|)5207 (WHEN T5208 (SETF *ATN-TERM* '|ExpressionList|)5209 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5210 '|ExpressionList|5211 ATN-PARSER::INDEX5212 (LIST '|Expression| |Expression| 'NILLIST NILLIST))5213 (LET ((ATN-PARSER::RESULT-STRUCTURE5214 (IF (EQ *ATN-REDUCE* T)5215 (|ExpressionList-Constructor| |Expression| NILLIST)5216 (IF (EQ *ATN-REDUCE* 'CONS)5217 (CONS '|ExpressionList| (DELETE NIL (LIST |Expression| NILLIST)))5218 '|ExpressionList|))))5219 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5220 (|ExpressionList.8| (ATN-PARSER::INDEX)5221 (%ATN-NODE-BLOCK5222 |ExpressionList.8|5223 (%ATN-EDGE-BLOCK5224 (ATN-PARSER::JUMP |ExpressionList/ExpressionList.8.9|)5225 (|ExpressionList/ExpressionList.8.9| ATN-PARSER::INDEX))5226 (%ATN-EDGE-BLOCK5227 (ATN-PARSER::JUMP |ExpressionList/ExpressionList.2.7|)5228 (|ExpressionList/ExpressionList.2.7| ATN-PARSER::INDEX))))5229 (|ExpressionList/ExpressionList.2.4| (ATN-PARSER::INDEX)5230 (%ATN-NODE-BLOCK5231 |ExpressionList/ExpressionList.2.4|5232 (%ATN-EDGE-BLOCK5233 (ATN-PARSER::WORD SPOCQ.S:\()5234 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()5235 (SETF *ATN-TERM* 'SPOCQ.S:\()5236 (|ExpressionList/ExpressionList.2.5| (1+ ATN-PARSER::INDEX)))5237 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() NIL)))))5238 (|ExpressionList/ExpressionList.2.5| (ATN-PARSER::INDEX)5239 (%ATN-NODE-BLOCK5240 |ExpressionList/ExpressionList.2.5|5241 (%ATN-EDGE-BLOCK5242 (PUSH |Expression|)5243 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5244 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)5245 (COND (ATN-PARSER::SUCCESS5246 (SETF *ATN-TERM* '|Expression|)5247 (LET ((|Expression607| |Expression|))5248 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5249 (DESTRUCTURING-BIND5250 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5251 ATN-PARSER::RESULT-AND-INDEX5252 (WHEN ATN-PARSER::RESULT5253 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))5254 (|ExpressionList/ExpressionList.2.6| ATN-PARSER::RESULT-INDEX))5255 (SETF |Expression| |Expression607|))))5256 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))5257 (|ExpressionList/ExpressionList.2.6| (ATN-PARSER::INDEX)5258 (%ATN-NODE-BLOCK5259 |ExpressionList/ExpressionList.2.6|5260 (%ATN-EDGE-BLOCK5261 (ATN-PARSER::JUMP |ExpressionList/ExpressionList.8.9|)5262 (|ExpressionList/ExpressionList.8.9| ATN-PARSER::INDEX))5263 (%ATN-EDGE-BLOCK5264 (ATN-PARSER::JUMP |ExpressionList/ExpressionList.2.7|)5265 (|ExpressionList/ExpressionList.2.7| ATN-PARSER::INDEX))))5266 (|ExpressionList/ExpressionList.2.7| (ATN-PARSER::INDEX)5267 (%ATN-NODE-BLOCK5268 |ExpressionList/ExpressionList.2.7|5269 (%ATN-EDGE-BLOCK5270 (ATN-PARSER::WORD SPOCQ.S:\))5271 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))5272 (SETF *ATN-TERM* 'SPOCQ.S:\))5273 (|ExpressionList.2| (1+ ATN-PARSER::INDEX)))5274 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) NIL)))))5275 (|ExpressionList/ExpressionList.8.10| (ATN-PARSER::INDEX)5276 (%ATN-NODE-BLOCK5277 |ExpressionList/ExpressionList.8.10|5278 (%ATN-EDGE-BLOCK5279 (PUSH |Expression|)5280 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5281 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)5282 (COND (ATN-PARSER::SUCCESS5283 (SETF *ATN-TERM* '|Expression|)5284 (LET ((|Expression606| |Expression|))5285 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5286 (DESTRUCTURING-BIND5287 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5288 ATN-PARSER::RESULT-AND-INDEX5289 (WHEN ATN-PARSER::RESULT5290 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))5291 (|ExpressionList.8| ATN-PARSER::RESULT-INDEX))5292 (SETF |Expression| |Expression606|))))5293 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))5294 (|ExpressionList/ExpressionList.8.9| (ATN-PARSER::INDEX)5295 (%ATN-NODE-BLOCK5296 |ExpressionList/ExpressionList.8.9|5297 (%ATN-EDGE-BLOCK5298 (ATN-PARSER::WORD SPOCQ.S:\,)5299 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)5300 (SETF *ATN-TERM* 'SPOCQ.S:\,)5301 (|ExpressionList/ExpressionList.8.10| (1+ ATN-PARSER::INDEX)))5302 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))5303 (|ExpressionList/fail.3| (ATN-PARSER::INDEX)5304 (%ATN-NODE-BLOCK |ExpressionList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5305 (|ExpressionList/start.1| (ATN-PARSER::INDEX)5306 (%ATN-NODE-BLOCK5307 |ExpressionList/start.1|5308 (%ATN-EDGE-BLOCK5309 OR5310 (PROGN (%ATN-EDGE-BLOCK5311 (PUSH NILLIST)5312 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5313 (ATN-PARSE-SUBSTRUCTURE* 'NILLIST ATN-PARSER::INDEX)5314 (COND (ATN-PARSER::SUCCESS5315 (SETF *ATN-TERM* 'NILLIST)5316 (LET ((NILLIST605 NILLIST))5317 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5318 (DESTRUCTURING-BIND5319 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5320 ATN-PARSER::RESULT-AND-INDEX5321 (WHEN ATN-PARSER::RESULT (SETF NILLIST ATN-PARSER::RESULT))5322 (|ExpressionList.2| ATN-PARSER::RESULT-INDEX))5323 (SETF NILLIST NILLIST605))))5324 (T (SETF *ATN-TERM?* 'NILLIST) NIL))))5325 (%ATN-EDGE-BLOCK5326 (ATN-PARSER::JUMP |ExpressionList/ExpressionList.2.4|)5327 (|ExpressionList/ExpressionList.2.4| ATN-PARSER::INDEX))5328 (|ExpressionList/fail.3| ATN-PARSER::INDEX))))))5329 (|ExpressionList/start.1| ATN-PARSER::INDEX)5330 (SETF *ATN-NODE NIL)5331 NIL5332 (IF ATN-PARSER::ATN-STRUCTURE5333 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5334 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5335 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ExpressionList| ATN-PARSER::INDEX *ATN-STACK))))5336 (PROGN (DEFVAR |ConstructTemplate-INDEX|)5337 (DEFUN |ConstructTemplate| (ATN-PARSER::INDEX &AUX (|ConstructTriples| NIL))5338 "{30} ConstructTemplate ::= '{' ConstructTriples? '}'5339 (|ConstructTriples|)"5340 (DECLARE (SPECIAL |ConstructTemplate-INDEX|))5341 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructTemplate-INDEX| *ATN-LEVEL))5342 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5343 (IF (< |ConstructTemplate-INDEX| ATN-PARSER::INDEX)5344 (LET ((|ConstructTemplate-INDEX| ATN-PARSER::INDEX)5345 (*ATN-LEVEL (1+ *ATN-LEVEL))5346 (*ATN-STACK (CONS '|ConstructTemplate| *ATN-STACK))5347 (ATN-PARSER::ATN-STRUCTURE NIL))5348 (DECLARE (SPECIAL |ConstructTemplate-INDEX|))5349 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5350 (DECLARE (TYPE CONS *ATN-STACK))5351 (SYMBOL-MACROLET5352 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5353 (%ATN-BLOCK |ConstructTemplate|5354 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5355 (SETF *ATN-TERM* '|ConstructTemplate|)5356 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5357 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5358 (|ConstructTemplate.2| (ATN-PARSER::INDEX)5359 (%ATN-NODE-BLOCK5360 |ConstructTemplate.2|5361 (%ATN-EDGE-BLOCK5362 (POP |ConstructTemplate|)5363 (WHEN T5364 (SETF *ATN-TERM* '|ConstructTemplate|)5365 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5366 '|ConstructTemplate|5367 ATN-PARSER::INDEX5368 (LIST '|ConstructTriples| |ConstructTriples|))5369 (LET ((ATN-PARSER::RESULT-STRUCTURE5370 (IF (EQ *ATN-REDUCE* T)5371 (|ConstructTemplate-Constructor| |ConstructTriples|)5372 (IF (EQ *ATN-REDUCE* 'CONS)5373 (CONS '|ConstructTemplate| (DELETE NIL (LIST |ConstructTriples|)))5374 '|ConstructTemplate|))))5375 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5376 (|ConstructTemplate/ConstructTemplate.2.4| (ATN-PARSER::INDEX)5377 (%ATN-NODE-BLOCK5378 |ConstructTemplate/ConstructTemplate.2.4|5379 (%ATN-EDGE-BLOCK5380 (PUSH |ConstructTriples|)5381 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5382 (ATN-PARSE-SUBSTRUCTURE* '|ConstructTriples| ATN-PARSER::INDEX)5383 (COND (ATN-PARSER::SUCCESS5384 (SETF *ATN-TERM* '|ConstructTriples|)5385 (LET ((|ConstructTriples607| |ConstructTriples|))5386 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5387 (DESTRUCTURING-BIND5388 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5389 ATN-PARSER::RESULT-AND-INDEX5390 (WHEN ATN-PARSER::RESULT (SETF |ConstructTriples| ATN-PARSER::RESULT))5391 (|ConstructTemplate/ConstructTemplate.2.5| ATN-PARSER::RESULT-INDEX))5392 (SETF |ConstructTriples| |ConstructTriples607|))))5393 (T5394 (SETF *ATN-TERM?* '|ConstructTriples|)5395 (|ConstructTemplate/ConstructTemplate.2.5| ATN-PARSER::INDEX)))))))5396 (|ConstructTemplate/ConstructTemplate.2.5| (ATN-PARSER::INDEX)5397 (%ATN-NODE-BLOCK5398 |ConstructTemplate/ConstructTemplate.2.5|5399 (%ATN-EDGE-BLOCK5400 (ATN-PARSER::WORD SPOCQ.S:})5401 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:})5402 (SETF *ATN-TERM* 'SPOCQ.S:})5403 (|ConstructTemplate.2| (1+ ATN-PARSER::INDEX)))5404 (T5405 (SETF *ATN-TERM?* 'SPOCQ.S:})5406 (|ConstructTemplate/fail.3| ATN-PARSER::INDEX))))))5407 (|ConstructTemplate/fail.3| (ATN-PARSER::INDEX)5408 (%ATN-NODE-BLOCK |ConstructTemplate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5409 (|ConstructTemplate/start.1| (ATN-PARSER::INDEX)5410 (%ATN-NODE-BLOCK5411 |ConstructTemplate/start.1|5412 (%ATN-EDGE-BLOCK5413 (ATN-PARSER::WORD SPOCQ.S:{)5414 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:{)5415 (SETF *ATN-TERM* 'SPOCQ.S:{)5416 (|ConstructTemplate/ConstructTemplate.2.4| (1+ ATN-PARSER::INDEX)))5417 (T5418 (SETF *ATN-TERM?* 'SPOCQ.S:{)5419 (|ConstructTemplate/fail.3| ATN-PARSER::INDEX)))))))5420 (|ConstructTemplate/start.1| ATN-PARSER::INDEX)5421 (SETF *ATN-NODE NIL)5422 NIL5423 (IF ATN-PARSER::ATN-STRUCTURE5424 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5425 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5426 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructTemplate| ATN-PARSER::INDEX *ATN-STACK))))5427 (PROGN (DEFVAR |ConstructTriples-INDEX|)5428 (DEFUN |ConstructTriples| (ATN-PARSER::INDEX &AUX (|ConstructTriples| NIL) (|TriplesSameSubject| NIL))5429 "{31} ConstructTriples ::= TriplesSameSubject ('.' ConstructTriples?)?5430 (|ConstructTriples| |TriplesSameSubject|)"5431 (DECLARE (SPECIAL |ConstructTriples-INDEX|))5432 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConstructTriples-INDEX| *ATN-LEVEL))5433 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5434 (IF (< |ConstructTriples-INDEX| ATN-PARSER::INDEX)5435 (LET ((|ConstructTriples-INDEX| ATN-PARSER::INDEX)5436 (*ATN-LEVEL (1+ *ATN-LEVEL))5437 (*ATN-STACK (CONS '|ConstructTriples| *ATN-STACK))5438 (ATN-PARSER::ATN-STRUCTURE NIL))5439 (DECLARE (SPECIAL |ConstructTriples-INDEX|))5440 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5441 (DECLARE (TYPE CONS *ATN-STACK))5442 (SYMBOL-MACROLET5443 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5444 (%ATN-BLOCK |ConstructTriples|5445 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5446 (SETF *ATN-TERM* '|ConstructTriples|)5447 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5448 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5449 (|ConstructTriples.2| (ATN-PARSER::INDEX)5450 (%ATN-NODE-BLOCK5451 |ConstructTriples.2|5452 (%ATN-EDGE-BLOCK5453 (POP |ConstructTriples|)5454 (WHEN T5455 (SETF *ATN-TERM* '|ConstructTriples|)5456 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5457 '|ConstructTriples|5458 ATN-PARSER::INDEX5459 (LIST '|ConstructTriples|5460 |ConstructTriples|5461 '|TriplesSameSubject|5462 |TriplesSameSubject|))5463 (LET ((ATN-PARSER::RESULT-STRUCTURE5464 (IF (EQ *ATN-REDUCE* T)5465 (|ConstructTriples-Constructor| |ConstructTriples| |TriplesSameSubject|)5466 (IF (EQ *ATN-REDUCE* 'CONS)5467 (CONS '|ConstructTriples|5468 (DELETE NIL (LIST |ConstructTriples| |TriplesSameSubject|)))5469 '|ConstructTriples|))))5470 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5471 (|ConstructTriples/ConstructTriples.2.4| (ATN-PARSER::INDEX)5472 (%ATN-NODE-BLOCK5473 |ConstructTriples/ConstructTriples.2.4|5474 (%ATN-EDGE-BLOCK5475 (ATN-PARSER::JUMP |ConstructTriples/ConstructTriples.2.5|)5476 (|ConstructTriples/ConstructTriples.2.5| ATN-PARSER::INDEX))5477 (%ATN-EDGE-BLOCK5478 (ATN-PARSER::JUMP |ConstructTriples.2|)5479 (|ConstructTriples.2| ATN-PARSER::INDEX))))5480 (|ConstructTriples/ConstructTriples.2.5| (ATN-PARSER::INDEX)5481 (%ATN-NODE-BLOCK5482 |ConstructTriples/ConstructTriples.2.5|5483 (%ATN-EDGE-BLOCK5484 (ATN-PARSER::WORD SPOCQ.S:|.|)5485 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|.|)5486 (SETF *ATN-TERM* 'SPOCQ.S:|.|)5487 (|ConstructTriples/ConstructTriples.2.6| (1+ ATN-PARSER::INDEX)))5488 (T (SETF *ATN-TERM?* 'SPOCQ.S:|.|) NIL)))))5489 (|ConstructTriples/ConstructTriples.2.6| (ATN-PARSER::INDEX)5490 (%ATN-NODE-BLOCK5491 |ConstructTriples/ConstructTriples.2.6|5492 (%ATN-EDGE-BLOCK5493 (PUSH |ConstructTriples|)5494 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5495 (ATN-PARSE-SUBSTRUCTURE* '|ConstructTriples| ATN-PARSER::INDEX)5496 (COND (ATN-PARSER::SUCCESS5497 (SETF *ATN-TERM* '|ConstructTriples|)5498 (LET ((|ConstructTriples608| |ConstructTriples|))5499 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5500 (DESTRUCTURING-BIND5501 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5502 ATN-PARSER::RESULT-AND-INDEX5503 (WHEN ATN-PARSER::RESULT (SETF |ConstructTriples| ATN-PARSER::RESULT))5504 (|ConstructTriples.2| ATN-PARSER::RESULT-INDEX))5505 (SETF |ConstructTriples| |ConstructTriples608|))))5506 (T5507 (SETF *ATN-TERM?* '|ConstructTriples|)5508 (|ConstructTriples.2| ATN-PARSER::INDEX)))))))5509 (|ConstructTriples/fail.3| (ATN-PARSER::INDEX)5510 (%ATN-NODE-BLOCK |ConstructTriples/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5511 (|ConstructTriples/start.1| (ATN-PARSER::INDEX)5512 (%ATN-NODE-BLOCK5513 |ConstructTriples/start.1|5514 (%ATN-EDGE-BLOCK5515 (PUSH |TriplesSameSubject|)5516 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5517 (ATN-PARSE-SUBSTRUCTURE* '|TriplesSameSubject| ATN-PARSER::INDEX)5518 (COND (ATN-PARSER::SUCCESS5519 (SETF *ATN-TERM* '|TriplesSameSubject|)5520 (LET ((|TriplesSameSubject608| |TriplesSameSubject|))5521 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5522 (DESTRUCTURING-BIND5523 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5524 ATN-PARSER::RESULT-AND-INDEX5525 (WHEN ATN-PARSER::RESULT (SETF |TriplesSameSubject| ATN-PARSER::RESULT))5526 (|ConstructTriples/ConstructTriples.2.4| ATN-PARSER::RESULT-INDEX))5527 (SETF |TriplesSameSubject| |TriplesSameSubject608|))))5528 (T5529 (SETF *ATN-TERM?* '|TriplesSameSubject|)5530 (|ConstructTriples/fail.3| ATN-PARSER::INDEX))))))))5531 (|ConstructTriples/start.1| ATN-PARSER::INDEX)5532 (SETF *ATN-NODE NIL)5533 NIL5534 (IF ATN-PARSER::ATN-STRUCTURE5535 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5536 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5537 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConstructTriples| ATN-PARSER::INDEX *ATN-STACK))))5538 (PROGN (DEFVAR |TriplesSameSubject-INDEX|)5539 (DEFUN |TriplesSameSubject| (ATN-PARSER::INDEX &AUX (|PropertyList| NIL) (|PropertyListNotEmpty| NIL) (|TriplesNode| NIL)5540 (|VarOrTerm| NIL))5541 "{32} TriplesSameSubject ::= ((VarOrTerm PropertyListNotEmpty) | (TriplesNode5542 PropertyList))5543 (|PropertyList| |PropertyListNotEmpty| |TriplesNode| |VarOrTerm|)"5544 (DECLARE (SPECIAL |TriplesSameSubject-INDEX|))5545 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesSameSubject-INDEX| *ATN-LEVEL))5546 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5547 (IF (< |TriplesSameSubject-INDEX| ATN-PARSER::INDEX)5548 (LET ((|TriplesSameSubject-INDEX| ATN-PARSER::INDEX)5549 (*ATN-LEVEL (1+ *ATN-LEVEL))5550 (*ATN-STACK (CONS '|TriplesSameSubject| *ATN-STACK))5551 (ATN-PARSER::ATN-STRUCTURE NIL))5552 (DECLARE (SPECIAL |TriplesSameSubject-INDEX|))5553 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5554 (DECLARE (TYPE CONS *ATN-STACK))5555 (SYMBOL-MACROLET5556 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5557 (%ATN-BLOCK |TriplesSameSubject|5558 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5559 (SETF *ATN-TERM* '|TriplesSameSubject|)5560 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5561 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5562 (|TriplesSameSubject.2| (ATN-PARSER::INDEX)5563 (%ATN-NODE-BLOCK5564 |TriplesSameSubject.2|5565 (%ATN-EDGE-BLOCK5566 (POP |TriplesSameSubject|)5567 (WHEN T5568 (SETF *ATN-TERM* '|TriplesSameSubject|)5569 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5570 '|TriplesSameSubject|5571 ATN-PARSER::INDEX5572 (LIST '|PropertyList|5573 |PropertyList|5574 '|PropertyListNotEmpty|5575 |PropertyListNotEmpty|5576 '|TriplesNode|5577 |TriplesNode|5578 '|VarOrTerm|5579 |VarOrTerm|))5580 (LET ((ATN-PARSER::RESULT-STRUCTURE5581 (IF (EQ *ATN-REDUCE* T)5582 (|TriplesSameSubject-Constructor|5583 |PropertyList|5584 |PropertyListNotEmpty|5585 |TriplesNode|5586 |VarOrTerm|)5587 (IF (EQ *ATN-REDUCE* 'CONS)5588 (CONS '|TriplesSameSubject|5589 (DELETE NIL5590 (LIST |PropertyList|5591 |PropertyListNotEmpty|5592 |TriplesNode|5593 |VarOrTerm|)))5594 '|TriplesSameSubject|))))5595 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5596 (|TriplesSameSubject/fail.3| (ATN-PARSER::INDEX)5597 (%ATN-NODE-BLOCK |TriplesSameSubject/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5598 (|TriplesSameSubject/start.1| (ATN-PARSER::INDEX)5599 (%ATN-NODE-BLOCK5600 |TriplesSameSubject/start.1|5601 (%ATN-EDGE-BLOCK5602 OR5603 (PROGN (%ATN-EDGE-BLOCK5604 (ATN-PARSER::JUMP |TriplesSameSubject/TriplesSameSubject.2.4|)5605 (|TriplesSameSubject/TriplesSameSubject.2.4| ATN-PARSER::INDEX))5606 (%ATN-EDGE-BLOCK5607 (ATN-PARSER::JUMP |TriplesSameSubject/TriplesSameSubject.2.6|)5608 (|TriplesSameSubject/TriplesSameSubject.2.6| ATN-PARSER::INDEX))5609 (|TriplesSameSubject/fail.3| ATN-PARSER::INDEX)))))5610 (|TriplesSameSubject/TriplesSameSubject.2.4| (ATN-PARSER::INDEX)5611 (%ATN-NODE-BLOCK5612 |TriplesSameSubject/TriplesSameSubject.2.4|5613 (%ATN-EDGE-BLOCK5614 (PUSH |VarOrTerm|)5615 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5616 (ATN-PARSE-SUBSTRUCTURE* '|VarOrTerm| ATN-PARSER::INDEX)5617 (COND (ATN-PARSER::SUCCESS5618 (SETF *ATN-TERM* '|VarOrTerm|)5619 (LET ((|VarOrTerm608| |VarOrTerm|))5620 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5621 (DESTRUCTURING-BIND5622 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5623 ATN-PARSER::RESULT-AND-INDEX5624 (WHEN ATN-PARSER::RESULT (SETF |VarOrTerm| ATN-PARSER::RESULT))5625 (|TriplesSameSubject/TriplesSameSubject.2.5| ATN-PARSER::RESULT-INDEX))5626 (SETF |VarOrTerm| |VarOrTerm608|))))5627 (T (SETF *ATN-TERM?* '|VarOrTerm|) NIL))))))5628 (|TriplesSameSubject/TriplesSameSubject.2.5| (ATN-PARSER::INDEX)5629 (%ATN-NODE-BLOCK5630 |TriplesSameSubject/TriplesSameSubject.2.5|5631 (%ATN-EDGE-BLOCK5632 (PUSH |PropertyListNotEmpty|)5633 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5634 (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty| ATN-PARSER::INDEX)5635 (COND (ATN-PARSER::SUCCESS5636 (SETF *ATN-TERM* '|PropertyListNotEmpty|)5637 (LET ((|PropertyListNotEmpty608| |PropertyListNotEmpty|))5638 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5639 (DESTRUCTURING-BIND5640 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5641 ATN-PARSER::RESULT-AND-INDEX5642 (WHEN ATN-PARSER::RESULT5643 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))5644 (|TriplesSameSubject.2| ATN-PARSER::RESULT-INDEX))5645 (SETF |PropertyListNotEmpty| |PropertyListNotEmpty608|))))5646 (T (SETF *ATN-TERM?* '|PropertyListNotEmpty|) NIL))))))5647 (|TriplesSameSubject/TriplesSameSubject.2.6| (ATN-PARSER::INDEX)5648 (%ATN-NODE-BLOCK5649 |TriplesSameSubject/TriplesSameSubject.2.6|5650 (%ATN-EDGE-BLOCK5651 (PUSH |TriplesNode|)5652 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5653 (ATN-PARSE-SUBSTRUCTURE* '|TriplesNode| ATN-PARSER::INDEX)5654 (COND (ATN-PARSER::SUCCESS5655 (SETF *ATN-TERM* '|TriplesNode|)5656 (LET ((|TriplesNode608| |TriplesNode|))5657 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5658 (DESTRUCTURING-BIND5659 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5660 ATN-PARSER::RESULT-AND-INDEX5661 (WHEN ATN-PARSER::RESULT (SETF |TriplesNode| ATN-PARSER::RESULT))5662 (|TriplesSameSubject/TriplesSameSubject.2.7| ATN-PARSER::RESULT-INDEX))5663 (SETF |TriplesNode| |TriplesNode608|))))5664 (T (SETF *ATN-TERM?* '|TriplesNode|) NIL))))))5665 (|TriplesSameSubject/TriplesSameSubject.2.7| (ATN-PARSER::INDEX)5666 (%ATN-NODE-BLOCK5667 |TriplesSameSubject/TriplesSameSubject.2.7|5668 (%ATN-EDGE-BLOCK5669 (PUSH |PropertyList|)5670 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5671 (ATN-PARSE-SUBSTRUCTURE* '|PropertyList| ATN-PARSER::INDEX)5672 (COND (ATN-PARSER::SUCCESS5673 (SETF *ATN-TERM* '|PropertyList|)5674 (LET ((|PropertyList608| |PropertyList|))5675 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5676 (DESTRUCTURING-BIND5677 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5678 ATN-PARSER::RESULT-AND-INDEX5679 (WHEN ATN-PARSER::RESULT (SETF |PropertyList| ATN-PARSER::RESULT))5680 (|TriplesSameSubject.2| ATN-PARSER::RESULT-INDEX))5681 (SETF |PropertyList| |PropertyList608|))))5682 (T (SETF *ATN-TERM?* '|PropertyList|) NIL)))))))5683 (|TriplesSameSubject/start.1| ATN-PARSER::INDEX)5684 (SETF *ATN-NODE NIL)5685 NIL5686 (IF ATN-PARSER::ATN-STRUCTURE5687 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5688 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5689 (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesSameSubject| ATN-PARSER::INDEX *ATN-STACK))))5690 (PROGN (DEFVAR |PropertyListNotEmpty-INDEX|)5691 (DEFUN |PropertyListNotEmpty| (ATN-PARSER::INDEX &AUX (|VerbObjectList| NIL))5692 "{33} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*5693 (|VerbObjectList|)"5694 (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))5695 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PropertyListNotEmpty-INDEX| *ATN-LEVEL))5696 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5697 (IF (< |PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)5698 (LET ((|PropertyListNotEmpty-INDEX| ATN-PARSER::INDEX)5699 (*ATN-LEVEL (1+ *ATN-LEVEL))5700 (*ATN-STACK (CONS '|PropertyListNotEmpty| *ATN-STACK))5701 (ATN-PARSER::ATN-STRUCTURE NIL))5702 (DECLARE (SPECIAL |PropertyListNotEmpty-INDEX|))5703 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5704 (DECLARE (TYPE CONS *ATN-STACK))5705 (SYMBOL-MACROLET5706 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5707 (%ATN-BLOCK |PropertyListNotEmpty|5708 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5709 (SETF *ATN-TERM* '|PropertyListNotEmpty|)5710 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5711 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5712 (|PropertyListNotEmpty.2| (ATN-PARSER::INDEX)5713 (%ATN-NODE-BLOCK5714 |PropertyListNotEmpty.2|5715 (%ATN-EDGE-BLOCK5716 (POP |PropertyListNotEmpty|)5717 (WHEN T5718 (SETF *ATN-TERM* '|PropertyListNotEmpty|)5719 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5720 '|PropertyListNotEmpty|5721 ATN-PARSER::INDEX5722 (LIST '|VerbObjectList| |VerbObjectList|))5723 (LET ((ATN-PARSER::RESULT-STRUCTURE5724 (IF (EQ *ATN-REDUCE* T)5725 (|PropertyListNotEmpty-Constructor| |VerbObjectList|)5726 (IF (EQ *ATN-REDUCE* 'CONS)5727 (CONS '|PropertyListNotEmpty| (DELETE NIL (LIST |VerbObjectList|)))5728 '|PropertyListNotEmpty|))))5729 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5730 (|PropertyListNotEmpty.5| (ATN-PARSER::INDEX)5731 (%ATN-NODE-BLOCK5732 |PropertyListNotEmpty.5|5733 (%ATN-EDGE-BLOCK5734 (ATN-PARSER::JUMP |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)5735 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| ATN-PARSER::INDEX))5736 (%ATN-EDGE-BLOCK5737 (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)5738 (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))5739 (|PropertyListNotEmpty/fail.3| (ATN-PARSER::INDEX)5740 (%ATN-NODE-BLOCK5741 |PropertyListNotEmpty/fail.3|5742 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5743 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4| (ATN-PARSER::INDEX)5744 (%ATN-NODE-BLOCK5745 |PropertyListNotEmpty/PropertyListNotEmpty.2.4|5746 (%ATN-EDGE-BLOCK5747 (ATN-PARSER::JUMP |PropertyListNotEmpty/PropertyListNotEmpty.5.6|)5748 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| ATN-PARSER::INDEX))5749 (%ATN-EDGE-BLOCK5750 (ATN-PARSER::JUMP |PropertyListNotEmpty.2|)5751 (|PropertyListNotEmpty.2| ATN-PARSER::INDEX))))5752 (|PropertyListNotEmpty/PropertyListNotEmpty.5.6| (ATN-PARSER::INDEX)5753 (%ATN-NODE-BLOCK5754 |PropertyListNotEmpty/PropertyListNotEmpty.5.6|5755 (%ATN-EDGE-BLOCK5756 (ATN-PARSER::WORD SPOCQ.S:\;)5757 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\;)5758 (SETF *ATN-TERM* 'SPOCQ.S:\;)5759 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7| (1+ ATN-PARSER::INDEX)))5760 (T (SETF *ATN-TERM?* 'SPOCQ.S:\;) NIL)))))5761 (|PropertyListNotEmpty/PropertyListNotEmpty.5.7| (ATN-PARSER::INDEX)5762 (%ATN-NODE-BLOCK5763 |PropertyListNotEmpty/PropertyListNotEmpty.5.7|5764 (%ATN-EDGE-BLOCK5765 (PUSH |VerbObjectList|)5766 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5767 (ATN-PARSE-SUBSTRUCTURE* '|VerbObjectList| ATN-PARSER::INDEX)5768 (COND (ATN-PARSER::SUCCESS5769 (SETF *ATN-TERM* '|VerbObjectList|)5770 (LET ((|VerbObjectList608| |VerbObjectList|))5771 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5772 (DESTRUCTURING-BIND5773 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5774 ATN-PARSER::RESULT-AND-INDEX5775 (WHEN ATN-PARSER::RESULT5776 (SETF |VerbObjectList| (CONS ATN-PARSER::RESULT |VerbObjectList|)))5777 (|PropertyListNotEmpty.5| ATN-PARSER::RESULT-INDEX))5778 (SETF |VerbObjectList| |VerbObjectList608|))))5779 (T5780 (SETF *ATN-TERM?* '|VerbObjectList|)5781 (|PropertyListNotEmpty.5| ATN-PARSER::INDEX)))))))5782 (|PropertyListNotEmpty/start.1| (ATN-PARSER::INDEX)5783 (%ATN-NODE-BLOCK5784 |PropertyListNotEmpty/start.1|5785 (%ATN-EDGE-BLOCK5786 (PUSH |VerbObjectList|)5787 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5788 (ATN-PARSE-SUBSTRUCTURE* '|VerbObjectList| ATN-PARSER::INDEX)5789 (COND (ATN-PARSER::SUCCESS5790 (SETF *ATN-TERM* '|VerbObjectList|)5791 (LET ((|VerbObjectList609| |VerbObjectList|))5792 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5793 (DESTRUCTURING-BIND5794 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5795 ATN-PARSER::RESULT-AND-INDEX5796 (WHEN ATN-PARSER::RESULT5797 (SETF |VerbObjectList| (CONS ATN-PARSER::RESULT |VerbObjectList|)))5798 (|PropertyListNotEmpty/PropertyListNotEmpty.2.4|5799 ATN-PARSER::RESULT-INDEX))5800 (SETF |VerbObjectList| |VerbObjectList609|))))5801 (T5802 (SETF *ATN-TERM?* '|VerbObjectList|)5803 (|PropertyListNotEmpty/fail.3| ATN-PARSER::INDEX))))))))5804 (|PropertyListNotEmpty/start.1| ATN-PARSER::INDEX)5805 (SETF *ATN-NODE NIL)5806 NIL5807 (IF ATN-PARSER::ATN-STRUCTURE5808 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5809 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5810 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PropertyListNotEmpty| ATN-PARSER::INDEX *ATN-STACK))))5811 (PROGN (DEFVAR |VerbObjectList-INDEX|)5812 (DEFUN |VerbObjectList| (ATN-PARSER::INDEX &AUX (|ObjectList| NIL) (|Verb| NIL))5813 "VerbObjectList ::= Verb ObjectList5814 (|ObjectList| |Verb|)"5815 (DECLARE (SPECIAL |VerbObjectList-INDEX|))5816 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VerbObjectList-INDEX| *ATN-LEVEL))5817 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5818 (IF (< |VerbObjectList-INDEX| ATN-PARSER::INDEX)5819 (LET ((|VerbObjectList-INDEX| ATN-PARSER::INDEX)5820 (*ATN-LEVEL (1+ *ATN-LEVEL))5821 (*ATN-STACK (CONS '|VerbObjectList| *ATN-STACK))5822 (ATN-PARSER::ATN-STRUCTURE NIL))5823 (DECLARE (SPECIAL |VerbObjectList-INDEX|))5824 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5825 (DECLARE (TYPE CONS *ATN-STACK))5826 (SYMBOL-MACROLET5827 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5828 (%ATN-BLOCK |VerbObjectList|5829 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5830 (SETF *ATN-TERM* '|VerbObjectList|)5831 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5832 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5833 (|VerbObjectList.2| (ATN-PARSER::INDEX)5834 (%ATN-NODE-BLOCK5835 |VerbObjectList.2|5836 (%ATN-EDGE-BLOCK5837 (POP |VerbObjectList|)5838 (WHEN T5839 (SETF *ATN-TERM* '|VerbObjectList|)5840 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5841 '|VerbObjectList|5842 ATN-PARSER::INDEX5843 (LIST '|ObjectList| |ObjectList| '|Verb| |Verb|))5844 (LET ((ATN-PARSER::RESULT-STRUCTURE5845 (IF (EQ *ATN-REDUCE* T)5846 (|VerbObjectList-Constructor| |ObjectList| |Verb|)5847 (IF (EQ *ATN-REDUCE* 'CONS)5848 (CONS '|VerbObjectList| (DELETE NIL (LIST |ObjectList| |Verb|)))5849 '|VerbObjectList|))))5850 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5851 (|VerbObjectList/fail.3| (ATN-PARSER::INDEX)5852 (%ATN-NODE-BLOCK |VerbObjectList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5853 (|VerbObjectList/start.1| (ATN-PARSER::INDEX)5854 (%ATN-NODE-BLOCK5855 |VerbObjectList/start.1|5856 (%ATN-EDGE-BLOCK5857 (PUSH |Verb|)5858 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5859 (ATN-PARSE-SUBSTRUCTURE* '|Verb| ATN-PARSER::INDEX)5860 (COND (ATN-PARSER::SUCCESS5861 (SETF *ATN-TERM* '|Verb|)5862 (LET ((|Verb609| |Verb|))5863 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5864 (DESTRUCTURING-BIND5865 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5866 ATN-PARSER::RESULT-AND-INDEX5867 (WHEN ATN-PARSER::RESULT (SETF |Verb| ATN-PARSER::RESULT))5868 (|VerbObjectList/VerbObjectList.2.4| ATN-PARSER::RESULT-INDEX))5869 (SETF |Verb| |Verb609|))))5870 (T (SETF *ATN-TERM?* '|Verb|) (|VerbObjectList/fail.3| ATN-PARSER::INDEX)))))))5871 (|VerbObjectList/VerbObjectList.2.4| (ATN-PARSER::INDEX)5872 (%ATN-NODE-BLOCK5873 |VerbObjectList/VerbObjectList.2.4|5874 (%ATN-EDGE-BLOCK5875 (PUSH |ObjectList|)5876 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5877 (ATN-PARSE-SUBSTRUCTURE* '|ObjectList| ATN-PARSER::INDEX)5878 (COND (ATN-PARSER::SUCCESS5879 (SETF *ATN-TERM* '|ObjectList|)5880 (LET ((|ObjectList609| |ObjectList|))5881 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5882 (DESTRUCTURING-BIND5883 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5884 ATN-PARSER::RESULT-AND-INDEX5885 (WHEN ATN-PARSER::RESULT (SETF |ObjectList| ATN-PARSER::RESULT))5886 (|VerbObjectList.2| ATN-PARSER::RESULT-INDEX))5887 (SETF |ObjectList| |ObjectList609|))))5888 (T5889 (SETF *ATN-TERM?* '|ObjectList|)5890 (|VerbObjectList/fail.3| ATN-PARSER::INDEX))))))))5891 (|VerbObjectList/start.1| ATN-PARSER::INDEX)5892 (SETF *ATN-NODE NIL)5893 NIL5894 (IF ATN-PARSER::ATN-STRUCTURE5895 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5896 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5897 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VerbObjectList| ATN-PARSER::INDEX *ATN-STACK))))5898 (PROGN (DEFVAR |PropertyList-INDEX|)5899 (DEFUN |PropertyList| (ATN-PARSER::INDEX &AUX (|PropertyListNotEmpty| NIL))5900 "{34} PropertyList ::= PropertyListNotEmpty?5901 (|PropertyListNotEmpty|)"5902 (DECLARE (SPECIAL |PropertyList-INDEX|))5903 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PropertyList-INDEX| *ATN-LEVEL))5904 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5905 (IF (< |PropertyList-INDEX| ATN-PARSER::INDEX)5906 (LET ((|PropertyList-INDEX| ATN-PARSER::INDEX)5907 (*ATN-LEVEL (1+ *ATN-LEVEL))5908 (*ATN-STACK (CONS '|PropertyList| *ATN-STACK))5909 (ATN-PARSER::ATN-STRUCTURE NIL))5910 (DECLARE (SPECIAL |PropertyList-INDEX|))5911 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5912 (DECLARE (TYPE CONS *ATN-STACK))5913 (SYMBOL-MACROLET5914 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5915 (%ATN-BLOCK |PropertyList|5916 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5917 (SETF *ATN-TERM* '|PropertyList|)5918 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5919 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5920 (|PropertyList.2| (ATN-PARSER::INDEX)5921 (%ATN-NODE-BLOCK5922 |PropertyList.2|5923 (%ATN-EDGE-BLOCK5924 (POP |PropertyList|)5925 (WHEN T5926 (SETF *ATN-TERM* '|PropertyList|)5927 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5928 '|PropertyList|5929 ATN-PARSER::INDEX5930 (LIST '|PropertyListNotEmpty| |PropertyListNotEmpty|))5931 (LET ((ATN-PARSER::RESULT-STRUCTURE5932 (IF (EQ *ATN-REDUCE* T)5933 (|PropertyList-Constructor| |PropertyListNotEmpty|)5934 (IF (EQ *ATN-REDUCE* 'CONS)5935 (CONS '|PropertyList| (DELETE NIL (LIST |PropertyListNotEmpty|)))5936 '|PropertyList|))))5937 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))5938 (|PropertyList/fail.3| (ATN-PARSER::INDEX)5939 (%ATN-NODE-BLOCK |PropertyList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))5940 (|PropertyList/start.1| (ATN-PARSER::INDEX)5941 (%ATN-NODE-BLOCK5942 |PropertyList/start.1|5943 (%ATN-EDGE-BLOCK5944 (PUSH |PropertyListNotEmpty|)5945 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)5946 (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty| ATN-PARSER::INDEX)5947 (COND (ATN-PARSER::SUCCESS5948 (SETF *ATN-TERM* '|PropertyListNotEmpty|)5949 (LET ((|PropertyListNotEmpty609| |PropertyListNotEmpty|))5950 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)5951 (DESTRUCTURING-BIND5952 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)5953 ATN-PARSER::RESULT-AND-INDEX5954 (WHEN ATN-PARSER::RESULT5955 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))5956 (|PropertyList.2| ATN-PARSER::RESULT-INDEX))5957 (SETF |PropertyListNotEmpty| |PropertyListNotEmpty609|))))5958 (T5959 (SETF *ATN-TERM?* '|PropertyListNotEmpty|)5960 (|PropertyList.2| ATN-PARSER::INDEX))))))))5961 (|PropertyList/start.1| ATN-PARSER::INDEX)5962 (SETF *ATN-NODE NIL)5963 NIL5964 (IF ATN-PARSER::ATN-STRUCTURE5965 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)5966 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))5967 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PropertyList| ATN-PARSER::INDEX *ATN-STACK))))5968 (PROGN (DEFVAR |ObjectList-INDEX|)5969 (DEFUN |ObjectList| (ATN-PARSER::INDEX &AUX (|Object| NIL))5970 "{35} ObjectList ::= Object (',' Object)*5971 (|Object|)"5972 (DECLARE (SPECIAL |ObjectList-INDEX|))5973 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ObjectList-INDEX| *ATN-LEVEL))5974 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))5975 (IF (< |ObjectList-INDEX| ATN-PARSER::INDEX)5976 (LET ((|ObjectList-INDEX| ATN-PARSER::INDEX)5977 (*ATN-LEVEL (1+ *ATN-LEVEL))5978 (*ATN-STACK (CONS '|ObjectList| *ATN-STACK))5979 (ATN-PARSER::ATN-STRUCTURE NIL))5980 (DECLARE (SPECIAL |ObjectList-INDEX|))5981 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))5982 (DECLARE (TYPE CONS *ATN-STACK))5983 (SYMBOL-MACROLET5984 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))5985 (%ATN-BLOCK |ObjectList|5986 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)5987 (SETF *ATN-TERM* '|ObjectList|)5988 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))5989 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)5990 (|ObjectList.2| (ATN-PARSER::INDEX)5991 (%ATN-NODE-BLOCK5992 |ObjectList.2|5993 (%ATN-EDGE-BLOCK5994 (POP |ObjectList|)5995 (WHEN T5996 (SETF *ATN-TERM* '|ObjectList|)5997 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"5998 '|ObjectList|5999 ATN-PARSER::INDEX6000 (LIST '|Object| |Object|))6001 (LET ((ATN-PARSER::RESULT-STRUCTURE6002 (IF (EQ *ATN-REDUCE* T)6003 (|ObjectList-Constructor| |Object|)6004 (IF (EQ *ATN-REDUCE* 'CONS)6005 (CONS '|ObjectList| (DELETE NIL (LIST |Object|)))6006 '|ObjectList|))))6007 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6008 (|ObjectList.5| (ATN-PARSER::INDEX)6009 (%ATN-NODE-BLOCK6010 |ObjectList.5|6011 (%ATN-EDGE-BLOCK6012 (ATN-PARSER::JUMP |ObjectList/ObjectList.5.6|)6013 (|ObjectList/ObjectList.5.6| ATN-PARSER::INDEX))6014 (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ObjectList.2|) (|ObjectList.2| ATN-PARSER::INDEX))))6015 (|ObjectList/fail.3| (ATN-PARSER::INDEX)6016 (%ATN-NODE-BLOCK |ObjectList/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6017 (|ObjectList/ObjectList.2.4| (ATN-PARSER::INDEX)6018 (%ATN-NODE-BLOCK6019 |ObjectList/ObjectList.2.4|6020 (%ATN-EDGE-BLOCK6021 (ATN-PARSER::JUMP |ObjectList/ObjectList.5.6|)6022 (|ObjectList/ObjectList.5.6| ATN-PARSER::INDEX))6023 (%ATN-EDGE-BLOCK (ATN-PARSER::JUMP |ObjectList.2|) (|ObjectList.2| ATN-PARSER::INDEX))))6024 (|ObjectList/ObjectList.5.6| (ATN-PARSER::INDEX)6025 (%ATN-NODE-BLOCK6026 |ObjectList/ObjectList.5.6|6027 (%ATN-EDGE-BLOCK6028 (ATN-PARSER::WORD SPOCQ.S:\,)6029 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)6030 (SETF *ATN-TERM* 'SPOCQ.S:\,)6031 (|ObjectList/ObjectList.5.7| (1+ ATN-PARSER::INDEX)))6032 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))6033 (|ObjectList/ObjectList.5.7| (ATN-PARSER::INDEX)6034 (%ATN-NODE-BLOCK6035 |ObjectList/ObjectList.5.7|6036 (%ATN-EDGE-BLOCK6037 (PUSH |Object|)6038 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6039 (ATN-PARSE-SUBSTRUCTURE* '|Object| ATN-PARSER::INDEX)6040 (COND (ATN-PARSER::SUCCESS6041 (SETF *ATN-TERM* '|Object|)6042 (LET ((|Object609| |Object|))6043 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6044 (DESTRUCTURING-BIND6045 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6046 ATN-PARSER::RESULT-AND-INDEX6047 (WHEN ATN-PARSER::RESULT6048 (SETF |Object| (CONS ATN-PARSER::RESULT |Object|)))6049 (|ObjectList.5| ATN-PARSER::RESULT-INDEX))6050 (SETF |Object| |Object609|))))6051 (T (SETF *ATN-TERM?* '|Object|) NIL))))))6052 (|ObjectList/start.1| (ATN-PARSER::INDEX)6053 (%ATN-NODE-BLOCK6054 |ObjectList/start.1|6055 (%ATN-EDGE-BLOCK6056 (PUSH |Object|)6057 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6058 (ATN-PARSE-SUBSTRUCTURE* '|Object| ATN-PARSER::INDEX)6059 (COND (ATN-PARSER::SUCCESS6060 (SETF *ATN-TERM* '|Object|)6061 (LET ((|Object610| |Object|))6062 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6063 (DESTRUCTURING-BIND6064 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6065 ATN-PARSER::RESULT-AND-INDEX6066 (WHEN ATN-PARSER::RESULT6067 (SETF |Object| (CONS ATN-PARSER::RESULT |Object|)))6068 (|ObjectList/ObjectList.2.4| ATN-PARSER::RESULT-INDEX))6069 (SETF |Object| |Object610|))))6070 (T (SETF *ATN-TERM?* '|Object|) (|ObjectList/fail.3| ATN-PARSER::INDEX))))))))6071 (|ObjectList/start.1| ATN-PARSER::INDEX)6072 (SETF *ATN-NODE NIL)6073 NIL6074 (IF ATN-PARSER::ATN-STRUCTURE6075 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6076 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6077 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ObjectList| ATN-PARSER::INDEX *ATN-STACK))))6078 (PROGN (DEFVAR |Object-INDEX|)6079 (DEFUN |Object| (ATN-PARSER::INDEX &AUX (|GraphNode| NIL))6080 "{36} Object ::= GraphNode6081 (|GraphNode|)"6082 (DECLARE (SPECIAL |Object-INDEX|))6083 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Object-INDEX| *ATN-LEVEL))6084 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6085 (IF (< |Object-INDEX| ATN-PARSER::INDEX)6086 (LET ((|Object-INDEX| ATN-PARSER::INDEX)6087 (*ATN-LEVEL (1+ *ATN-LEVEL))6088 (*ATN-STACK (CONS '|Object| *ATN-STACK))6089 (ATN-PARSER::ATN-STRUCTURE NIL))6090 (DECLARE (SPECIAL |Object-INDEX|))6091 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6092 (DECLARE (TYPE CONS *ATN-STACK))6093 (SYMBOL-MACROLET6094 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6095 (%ATN-BLOCK |Object|6096 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6097 (SETF *ATN-TERM* '|Object|)6098 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6099 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6100 (|Object.2| (ATN-PARSER::INDEX)6101 (%ATN-NODE-BLOCK6102 |Object.2|6103 (%ATN-EDGE-BLOCK6104 (POP |Object|)6105 (WHEN T6106 (SETF *ATN-TERM* '|Object|)6107 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6108 '|Object|6109 ATN-PARSER::INDEX6110 (LIST '|GraphNode| |GraphNode|))6111 (LET ((ATN-PARSER::RESULT-STRUCTURE6112 (IF (EQ *ATN-REDUCE* T)6113 (|Object-Constructor| |GraphNode|)6114 (IF (EQ *ATN-REDUCE* 'CONS)6115 (CONS '|Object| (DELETE NIL (LIST |GraphNode|)))6116 '|Object|))))6117 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6118 (|Object/fail.3| (ATN-PARSER::INDEX)6119 (%ATN-NODE-BLOCK |Object/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6120 (|Object/start.1| (ATN-PARSER::INDEX)6121 (%ATN-NODE-BLOCK6122 |Object/start.1|6123 (%ATN-EDGE-BLOCK6124 (PUSH |GraphNode|)6125 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6126 (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)6127 (COND (ATN-PARSER::SUCCESS6128 (SETF *ATN-TERM* '|GraphNode|)6129 (LET ((|GraphNode610| |GraphNode|))6130 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6131 (DESTRUCTURING-BIND6132 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6133 ATN-PARSER::RESULT-AND-INDEX6134 (WHEN ATN-PARSER::RESULT (SETF |GraphNode| ATN-PARSER::RESULT))6135 (|Object.2| ATN-PARSER::RESULT-INDEX))6136 (SETF |GraphNode| |GraphNode610|))))6137 (T (SETF *ATN-TERM?* '|GraphNode|) (|Object/fail.3| ATN-PARSER::INDEX))))))))6138 (|Object/start.1| ATN-PARSER::INDEX)6139 (SETF *ATN-NODE NIL)6140 NIL6141 (IF ATN-PARSER::ATN-STRUCTURE6142 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6143 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6144 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Object| ATN-PARSER::INDEX *ATN-STACK))))6145 (PROGN (DEFVAR |Verb-INDEX|)6146 (DEFUN |Verb| (ATN-PARSER::INDEX &AUX (|VarOrIRIref| NIL))6147 "{37} Verb ::= (VarOrIRIref | 'a')6148 (|VarOrIRIref|)"6149 (DECLARE (SPECIAL |Verb-INDEX|))6150 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Verb-INDEX| *ATN-LEVEL))6151 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6152 (IF (< |Verb-INDEX| ATN-PARSER::INDEX)6153 (LET ((|Verb-INDEX| ATN-PARSER::INDEX)6154 (*ATN-LEVEL (1+ *ATN-LEVEL))6155 (*ATN-STACK (CONS '|Verb| *ATN-STACK))6156 (ATN-PARSER::ATN-STRUCTURE NIL))6157 (DECLARE (SPECIAL |Verb-INDEX|))6158 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6159 (DECLARE (TYPE CONS *ATN-STACK))6160 (SYMBOL-MACROLET6161 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6162 (%ATN-BLOCK |Verb|6163 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6164 (SETF *ATN-TERM* '|Verb|)6165 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6166 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6167 (|Verb.2| (ATN-PARSER::INDEX)6168 (%ATN-NODE-BLOCK6169 |Verb.2|6170 (%ATN-EDGE-BLOCK6171 (POP |Verb|)6172 (WHEN T6173 (SETF *ATN-TERM* '|Verb|)6174 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6175 '|Verb|6176 ATN-PARSER::INDEX6177 (LIST '|VarOrIRIref| |VarOrIRIref|))6178 (LET ((ATN-PARSER::RESULT-STRUCTURE6179 (IF (EQ *ATN-REDUCE* T)6180 (|Verb-Constructor| |VarOrIRIref|)6181 (IF (EQ *ATN-REDUCE* 'CONS)6182 (CONS '|Verb| (DELETE NIL (LIST |VarOrIRIref|)))6183 '|Verb|))))6184 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6185 (|Verb/fail.3| (ATN-PARSER::INDEX)6186 (%ATN-NODE-BLOCK |Verb/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6187 (|Verb/start.1| (ATN-PARSER::INDEX)6188 (%ATN-NODE-BLOCK6189 |Verb/start.1|6190 (%ATN-EDGE-BLOCK6191 OR6192 (PROGN (%ATN-EDGE-BLOCK6193 (PUSH |VarOrIRIref|)6194 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6195 (ATN-PARSE-SUBSTRUCTURE* '|VarOrIRIref| ATN-PARSER::INDEX)6196 (COND (ATN-PARSER::SUCCESS6197 (SETF *ATN-TERM* '|VarOrIRIref|)6198 (LET ((|VarOrIRIref610| |VarOrIRIref|))6199 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6200 (DESTRUCTURING-BIND6201 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6202 ATN-PARSER::RESULT-AND-INDEX6203 (WHEN ATN-PARSER::RESULT6204 (SETF |VarOrIRIref| ATN-PARSER::RESULT))6205 (|Verb.2| ATN-PARSER::RESULT-INDEX))6206 (SETF |VarOrIRIref| |VarOrIRIref610|))))6207 (T (SETF *ATN-TERM?* '|VarOrIRIref|) NIL))))6208 (%ATN-EDGE-BLOCK6209 (ATN-PARSER::WORD SPOCQ.S:\a)6210 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\a)6211 (SETF *ATN-TERM* 'SPOCQ.S:\a)6212 (|Verb.2| (1+ ATN-PARSER::INDEX)))6213 (T (SETF *ATN-TERM?* 'SPOCQ.S:\a) NIL)))6214 (|Verb/fail.3| ATN-PARSER::INDEX))))))6215 (|Verb/start.1| ATN-PARSER::INDEX)6216 (SETF *ATN-NODE NIL)6217 NIL6218 (IF ATN-PARSER::ATN-STRUCTURE6219 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6220 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6221 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Verb| ATN-PARSER::INDEX *ATN-STACK))))6222 (PROGN (DEFVAR |TriplesNode-INDEX|)6223 (DEFUN |TriplesNode| (ATN-PARSER::INDEX &AUX (|BlankNodePropertyList| NIL) (|Collection| NIL))6224 "{38} TriplesNode ::= (Collection | BlankNodePropertyList)6225 (|BlankNodePropertyList| |Collection|)"6226 (DECLARE (SPECIAL |TriplesNode-INDEX|))6227 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |TriplesNode-INDEX| *ATN-LEVEL))6228 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6229 (IF (< |TriplesNode-INDEX| ATN-PARSER::INDEX)6230 (LET ((|TriplesNode-INDEX| ATN-PARSER::INDEX)6231 (*ATN-LEVEL (1+ *ATN-LEVEL))6232 (*ATN-STACK (CONS '|TriplesNode| *ATN-STACK))6233 (ATN-PARSER::ATN-STRUCTURE NIL))6234 (DECLARE (SPECIAL |TriplesNode-INDEX|))6235 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6236 (DECLARE (TYPE CONS *ATN-STACK))6237 (SYMBOL-MACROLET6238 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6239 (%ATN-BLOCK |TriplesNode|6240 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6241 (SETF *ATN-TERM* '|TriplesNode|)6242 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6243 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6244 (|TriplesNode.2| (ATN-PARSER::INDEX)6245 (%ATN-NODE-BLOCK6246 |TriplesNode.2|6247 (%ATN-EDGE-BLOCK6248 (POP |TriplesNode|)6249 (WHEN T6250 (SETF *ATN-TERM* '|TriplesNode|)6251 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6252 '|TriplesNode|6253 ATN-PARSER::INDEX6254 (LIST '|BlankNodePropertyList|6255 |BlankNodePropertyList|6256 '|Collection|6257 |Collection|))6258 (LET ((ATN-PARSER::RESULT-STRUCTURE6259 (IF (EQ *ATN-REDUCE* T)6260 (|TriplesNode-Constructor| |BlankNodePropertyList| |Collection|)6261 (IF (EQ *ATN-REDUCE* 'CONS)6262 (CONS '|TriplesNode|6263 (DELETE NIL (LIST |BlankNodePropertyList| |Collection|)))6264 '|TriplesNode|))))6265 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6266 (|TriplesNode/fail.3| (ATN-PARSER::INDEX)6267 (%ATN-NODE-BLOCK |TriplesNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6268 (|TriplesNode/start.1| (ATN-PARSER::INDEX)6269 (%ATN-NODE-BLOCK6270 |TriplesNode/start.1|6271 (%ATN-EDGE-BLOCK6272 OR6273 (PROGN (%ATN-EDGE-BLOCK6274 (PUSH |Collection|)6275 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6276 (ATN-PARSE-SUBSTRUCTURE* '|Collection| ATN-PARSER::INDEX)6277 (COND (ATN-PARSER::SUCCESS6278 (SETF *ATN-TERM* '|Collection|)6279 (LET ((|Collection610| |Collection|))6280 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6281 (DESTRUCTURING-BIND6282 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6283 ATN-PARSER::RESULT-AND-INDEX6284 (WHEN ATN-PARSER::RESULT6285 (SETF |Collection| ATN-PARSER::RESULT))6286 (|TriplesNode.2| ATN-PARSER::RESULT-INDEX))6287 (SETF |Collection| |Collection610|))))6288 (T (SETF *ATN-TERM?* '|Collection|) NIL))))6289 (%ATN-EDGE-BLOCK6290 (PUSH |BlankNodePropertyList|)6291 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6292 (ATN-PARSE-SUBSTRUCTURE* '|BlankNodePropertyList| ATN-PARSER::INDEX)6293 (COND (ATN-PARSER::SUCCESS6294 (SETF *ATN-TERM* '|BlankNodePropertyList|)6295 (LET ((|BlankNodePropertyList610| |BlankNodePropertyList|))6296 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6297 (DESTRUCTURING-BIND6298 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6299 ATN-PARSER::RESULT-AND-INDEX6300 (WHEN ATN-PARSER::RESULT6301 (SETF |BlankNodePropertyList| ATN-PARSER::RESULT))6302 (|TriplesNode.2| ATN-PARSER::RESULT-INDEX))6303 (SETF |BlankNodePropertyList| |BlankNodePropertyList610|))))6304 (T (SETF *ATN-TERM?* '|BlankNodePropertyList|) NIL))))6305 (|TriplesNode/fail.3| ATN-PARSER::INDEX))))))6306 (|TriplesNode/start.1| ATN-PARSER::INDEX)6307 (SETF *ATN-NODE NIL)6308 NIL6309 (IF ATN-PARSER::ATN-STRUCTURE6310 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6311 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6312 (WARN "recursive grammar: ~s @ position ~s: ~s" '|TriplesNode| ATN-PARSER::INDEX *ATN-STACK))))6313 (PROGN (DEFVAR |BlankNodePropertyList-INDEX|)6314 (DEFUN |BlankNodePropertyList| (ATN-PARSER::INDEX &AUX (|PropertyListNotEmpty| NIL))6315 "{39} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'6316 (|PropertyListNotEmpty|)"6317 (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))6318 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNodePropertyList-INDEX| *ATN-LEVEL))6319 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6320 (IF (< |BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)6321 (LET ((|BlankNodePropertyList-INDEX| ATN-PARSER::INDEX)6322 (*ATN-LEVEL (1+ *ATN-LEVEL))6323 (*ATN-STACK (CONS '|BlankNodePropertyList| *ATN-STACK))6324 (ATN-PARSER::ATN-STRUCTURE NIL))6325 (DECLARE (SPECIAL |BlankNodePropertyList-INDEX|))6326 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6327 (DECLARE (TYPE CONS *ATN-STACK))6328 (SYMBOL-MACROLET6329 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6330 (%ATN-BLOCK |BlankNodePropertyList|6331 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6332 (SETF *ATN-TERM* '|BlankNodePropertyList|)6333 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6334 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6335 (|BlankNodePropertyList.2| (ATN-PARSER::INDEX)6336 (%ATN-NODE-BLOCK6337 |BlankNodePropertyList.2|6338 (%ATN-EDGE-BLOCK6339 (POP |BlankNodePropertyList|)6340 (WHEN T6341 (SETF *ATN-TERM* '|BlankNodePropertyList|)6342 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6343 '|BlankNodePropertyList|6344 ATN-PARSER::INDEX6345 (LIST '|PropertyListNotEmpty| |PropertyListNotEmpty|))6346 (LET ((ATN-PARSER::RESULT-STRUCTURE6347 (IF (EQ *ATN-REDUCE* T)6348 (|BlankNodePropertyList-Constructor| |PropertyListNotEmpty|)6349 (IF (EQ *ATN-REDUCE* 'CONS)6350 (CONS '|BlankNodePropertyList|6351 (DELETE NIL (LIST |PropertyListNotEmpty|)))6352 '|BlankNodePropertyList|))))6353 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6354 (|BlankNodePropertyList/BlankNodePropertyList.2.4| (ATN-PARSER::INDEX)6355 (%ATN-NODE-BLOCK6356 |BlankNodePropertyList/BlankNodePropertyList.2.4|6357 (%ATN-EDGE-BLOCK6358 (PUSH |PropertyListNotEmpty|)6359 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6360 (ATN-PARSE-SUBSTRUCTURE* '|PropertyListNotEmpty| ATN-PARSER::INDEX)6361 (COND (ATN-PARSER::SUCCESS6362 (SETF *ATN-TERM* '|PropertyListNotEmpty|)6363 (LET ((|PropertyListNotEmpty610| |PropertyListNotEmpty|))6364 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6365 (DESTRUCTURING-BIND6366 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6367 ATN-PARSER::RESULT-AND-INDEX6368 (WHEN ATN-PARSER::RESULT6369 (SETF |PropertyListNotEmpty| ATN-PARSER::RESULT))6370 (|BlankNodePropertyList/BlankNodePropertyList.2.5|6371 ATN-PARSER::RESULT-INDEX))6372 (SETF |PropertyListNotEmpty| |PropertyListNotEmpty610|))))6373 (T6374 (SETF *ATN-TERM?* '|PropertyListNotEmpty|)6375 (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX)))))))6376 (|BlankNodePropertyList/BlankNodePropertyList.2.5| (ATN-PARSER::INDEX)6377 (%ATN-NODE-BLOCK6378 |BlankNodePropertyList/BlankNodePropertyList.2.5|6379 (%ATN-EDGE-BLOCK6380 (ATN-PARSER::WORD SPOCQ.S:])6381 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:])6382 (SETF *ATN-TERM* 'SPOCQ.S:])6383 (|BlankNodePropertyList.2| (1+ ATN-PARSER::INDEX)))6384 (T6385 (SETF *ATN-TERM?* 'SPOCQ.S:])6386 (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX))))))6387 (|BlankNodePropertyList/fail.3| (ATN-PARSER::INDEX)6388 (%ATN-NODE-BLOCK6389 |BlankNodePropertyList/fail.3|6390 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6391 (|BlankNodePropertyList/start.1| (ATN-PARSER::INDEX)6392 (%ATN-NODE-BLOCK6393 |BlankNodePropertyList/start.1|6394 (%ATN-EDGE-BLOCK6395 (ATN-PARSER::WORD SPOCQ.S:[)6396 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:[)6397 (SETF *ATN-TERM* 'SPOCQ.S:[)6398 (|BlankNodePropertyList/BlankNodePropertyList.2.4| (1+ ATN-PARSER::INDEX)))6399 (T6400 (SETF *ATN-TERM?* 'SPOCQ.S:[)6401 (|BlankNodePropertyList/fail.3| ATN-PARSER::INDEX)))))))6402 (|BlankNodePropertyList/start.1| ATN-PARSER::INDEX)6403 (SETF *ATN-NODE NIL)6404 NIL6405 (IF ATN-PARSER::ATN-STRUCTURE6406 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6407 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6408 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNodePropertyList| ATN-PARSER::INDEX *ATN-STACK))))6409 (PROGN (DEFVAR |Collection-INDEX|)6410 (DEFUN |Collection| (ATN-PARSER::INDEX &AUX (|GraphNode| NIL))6411 "{40} Collection ::= '(' GraphNode+ ')'6412 (|GraphNode|)"6413 (DECLARE (SPECIAL |Collection-INDEX|))6414 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Collection-INDEX| *ATN-LEVEL))6415 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6416 (IF (< |Collection-INDEX| ATN-PARSER::INDEX)6417 (LET ((|Collection-INDEX| ATN-PARSER::INDEX)6418 (*ATN-LEVEL (1+ *ATN-LEVEL))6419 (*ATN-STACK (CONS '|Collection| *ATN-STACK))6420 (ATN-PARSER::ATN-STRUCTURE NIL))6421 (DECLARE (SPECIAL |Collection-INDEX|))6422 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6423 (DECLARE (TYPE CONS *ATN-STACK))6424 (SYMBOL-MACROLET6425 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6426 (%ATN-BLOCK |Collection|6427 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6428 (SETF *ATN-TERM* '|Collection|)6429 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6430 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6431 (|Collection.2| (ATN-PARSER::INDEX)6432 (%ATN-NODE-BLOCK6433 |Collection.2|6434 (%ATN-EDGE-BLOCK6435 (POP |Collection|)6436 (WHEN T6437 (SETF *ATN-TERM* '|Collection|)6438 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6439 '|Collection|6440 ATN-PARSER::INDEX6441 (LIST '|GraphNode| |GraphNode|))6442 (LET ((ATN-PARSER::RESULT-STRUCTURE6443 (IF (EQ *ATN-REDUCE* T)6444 (|Collection-Constructor| |GraphNode|)6445 (IF (EQ *ATN-REDUCE* 'CONS)6446 (CONS '|Collection| (DELETE NIL (LIST |GraphNode|)))6447 '|Collection|))))6448 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6449 (|Collection.6| (ATN-PARSER::INDEX)6450 (%ATN-NODE-BLOCK6451 |Collection.6|6452 (%ATN-EDGE-BLOCK6453 (PUSH |GraphNode|)6454 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6455 (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)6456 (COND (ATN-PARSER::SUCCESS6457 (SETF *ATN-TERM* '|GraphNode|)6458 (LET ((|GraphNode612| |GraphNode|))6459 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6460 (DESTRUCTURING-BIND6461 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6462 ATN-PARSER::RESULT-AND-INDEX6463 (WHEN ATN-PARSER::RESULT6464 (SETF |GraphNode| (CONS ATN-PARSER::RESULT |GraphNode|)))6465 (|Collection.6| ATN-PARSER::RESULT-INDEX))6466 (SETF |GraphNode| |GraphNode612|))))6467 (T6468 (SETF *ATN-TERM?* '|GraphNode|)6469 (|Collection/Collection.2.5| ATN-PARSER::INDEX)))))))6470 (|Collection/Collection.2.4| (ATN-PARSER::INDEX)6471 (%ATN-NODE-BLOCK6472 |Collection/Collection.2.4|6473 (%ATN-EDGE-BLOCK6474 (PUSH |GraphNode|)6475 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6476 (ATN-PARSE-SUBSTRUCTURE* '|GraphNode| ATN-PARSER::INDEX)6477 (COND (ATN-PARSER::SUCCESS6478 (SETF *ATN-TERM* '|GraphNode|)6479 (LET ((|GraphNode611| |GraphNode|))6480 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6481 (DESTRUCTURING-BIND6482 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6483 ATN-PARSER::RESULT-AND-INDEX6484 (WHEN ATN-PARSER::RESULT6485 (SETF |GraphNode| (CONS ATN-PARSER::RESULT |GraphNode|)))6486 (|Collection.6| ATN-PARSER::RESULT-INDEX))6487 (SETF |GraphNode| |GraphNode611|))))6488 (T6489 (SETF *ATN-TERM?* '|GraphNode|)6490 (|Collection/fail.3| ATN-PARSER::INDEX)))))))6491 (|Collection/Collection.2.5| (ATN-PARSER::INDEX)6492 (%ATN-NODE-BLOCK6493 |Collection/Collection.2.5|6494 (%ATN-EDGE-BLOCK6495 (ATN-PARSER::WORD SPOCQ.S:\))6496 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))6497 (SETF *ATN-TERM* 'SPOCQ.S:\))6498 (|Collection.2| (1+ ATN-PARSER::INDEX)))6499 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|Collection/fail.3| ATN-PARSER::INDEX))))))6500 (|Collection/fail.3| (ATN-PARSER::INDEX)6501 (%ATN-NODE-BLOCK |Collection/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6502 (|Collection/start.1| (ATN-PARSER::INDEX)6503 (%ATN-NODE-BLOCK6504 |Collection/start.1|6505 (%ATN-EDGE-BLOCK6506 (ATN-PARSER::WORD SPOCQ.S:\()6507 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()6508 (SETF *ATN-TERM* 'SPOCQ.S:\()6509 (|Collection/Collection.2.4| (1+ ATN-PARSER::INDEX)))6510 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|Collection/fail.3| ATN-PARSER::INDEX)))))))6511 (|Collection/start.1| ATN-PARSER::INDEX)6512 (SETF *ATN-NODE NIL)6513 NIL6514 (IF ATN-PARSER::ATN-STRUCTURE6515 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6516 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6517 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Collection| ATN-PARSER::INDEX *ATN-STACK))))6518 (PROGN (DEFVAR |GraphNode-INDEX|)6519 (DEFUN |GraphNode| (ATN-PARSER::INDEX &AUX (|TriplesNode| NIL) (|VarOrTerm| NIL))6520 "{41} GraphNode ::= (VarOrTerm | TriplesNode)6521 (|TriplesNode| |VarOrTerm|)"6522 (DECLARE (SPECIAL |GraphNode-INDEX|))6523 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphNode-INDEX| *ATN-LEVEL))6524 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6525 (IF (< |GraphNode-INDEX| ATN-PARSER::INDEX)6526 (LET ((|GraphNode-INDEX| ATN-PARSER::INDEX)6527 (*ATN-LEVEL (1+ *ATN-LEVEL))6528 (*ATN-STACK (CONS '|GraphNode| *ATN-STACK))6529 (ATN-PARSER::ATN-STRUCTURE NIL))6530 (DECLARE (SPECIAL |GraphNode-INDEX|))6531 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6532 (DECLARE (TYPE CONS *ATN-STACK))6533 (SYMBOL-MACROLET6534 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6535 (%ATN-BLOCK |GraphNode|6536 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6537 (SETF *ATN-TERM* '|GraphNode|)6538 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6539 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6540 (|GraphNode.2| (ATN-PARSER::INDEX)6541 (%ATN-NODE-BLOCK6542 |GraphNode.2|6543 (%ATN-EDGE-BLOCK6544 (POP |GraphNode|)6545 (WHEN T6546 (SETF *ATN-TERM* '|GraphNode|)6547 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6548 '|GraphNode|6549 ATN-PARSER::INDEX6550 (LIST '|TriplesNode| |TriplesNode| '|VarOrTerm| |VarOrTerm|))6551 (LET ((ATN-PARSER::RESULT-STRUCTURE6552 (IF (EQ *ATN-REDUCE* T)6553 (|GraphNode-Constructor| |TriplesNode| |VarOrTerm|)6554 (IF (EQ *ATN-REDUCE* 'CONS)6555 (CONS '|GraphNode| (DELETE NIL (LIST |TriplesNode| |VarOrTerm|)))6556 '|GraphNode|))))6557 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6558 (|GraphNode/fail.3| (ATN-PARSER::INDEX)6559 (%ATN-NODE-BLOCK |GraphNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6560 (|GraphNode/start.1| (ATN-PARSER::INDEX)6561 (%ATN-NODE-BLOCK6562 |GraphNode/start.1|6563 (%ATN-EDGE-BLOCK6564 OR6565 (PROGN (%ATN-EDGE-BLOCK6566 (PUSH |VarOrTerm|)6567 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6568 (ATN-PARSE-SUBSTRUCTURE* '|VarOrTerm| ATN-PARSER::INDEX)6569 (COND (ATN-PARSER::SUCCESS6570 (SETF *ATN-TERM* '|VarOrTerm|)6571 (LET ((|VarOrTerm612| |VarOrTerm|))6572 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6573 (DESTRUCTURING-BIND6574 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6575 ATN-PARSER::RESULT-AND-INDEX6576 (WHEN ATN-PARSER::RESULT (SETF |VarOrTerm| ATN-PARSER::RESULT))6577 (|GraphNode.2| ATN-PARSER::RESULT-INDEX))6578 (SETF |VarOrTerm| |VarOrTerm612|))))6579 (T (SETF *ATN-TERM?* '|VarOrTerm|) NIL))))6580 (%ATN-EDGE-BLOCK6581 (PUSH |TriplesNode|)6582 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6583 (ATN-PARSE-SUBSTRUCTURE* '|TriplesNode| ATN-PARSER::INDEX)6584 (COND (ATN-PARSER::SUCCESS6585 (SETF *ATN-TERM* '|TriplesNode|)6586 (LET ((|TriplesNode612| |TriplesNode|))6587 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6588 (DESTRUCTURING-BIND6589 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6590 ATN-PARSER::RESULT-AND-INDEX6591 (WHEN ATN-PARSER::RESULT6592 (SETF |TriplesNode| ATN-PARSER::RESULT))6593 (|GraphNode.2| ATN-PARSER::RESULT-INDEX))6594 (SETF |TriplesNode| |TriplesNode612|))))6595 (T (SETF *ATN-TERM?* '|TriplesNode|) NIL))))6596 (|GraphNode/fail.3| ATN-PARSER::INDEX))))))6597 (|GraphNode/start.1| ATN-PARSER::INDEX)6598 (SETF *ATN-NODE NIL)6599 NIL6600 (IF ATN-PARSER::ATN-STRUCTURE6601 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6602 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6603 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphNode| ATN-PARSER::INDEX *ATN-STACK))))6604 (PROGN (DEFVAR |VarOrTerm-INDEX|)6605 (DEFUN |VarOrTerm| (ATN-PARSER::INDEX &AUX (|GraphTerm| NIL) (|Var| NIL))6606 "{42} VarOrTerm ::= (Var | GraphTerm)6607 (|GraphTerm| |Var|)"6608 (DECLARE (SPECIAL |VarOrTerm-INDEX|))6609 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VarOrTerm-INDEX| *ATN-LEVEL))6610 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6611 (IF (< |VarOrTerm-INDEX| ATN-PARSER::INDEX)6612 (LET ((|VarOrTerm-INDEX| ATN-PARSER::INDEX)6613 (*ATN-LEVEL (1+ *ATN-LEVEL))6614 (*ATN-STACK (CONS '|VarOrTerm| *ATN-STACK))6615 (ATN-PARSER::ATN-STRUCTURE NIL))6616 (DECLARE (SPECIAL |VarOrTerm-INDEX|))6617 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6618 (DECLARE (TYPE CONS *ATN-STACK))6619 (SYMBOL-MACROLET6620 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6621 (%ATN-BLOCK |VarOrTerm|6622 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6623 (SETF *ATN-TERM* '|VarOrTerm|)6624 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6625 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6626 (|VarOrTerm.2| (ATN-PARSER::INDEX)6627 (%ATN-NODE-BLOCK6628 |VarOrTerm.2|6629 (%ATN-EDGE-BLOCK6630 (POP |VarOrTerm|)6631 (WHEN T6632 (SETF *ATN-TERM* '|VarOrTerm|)6633 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6634 '|VarOrTerm|6635 ATN-PARSER::INDEX6636 (LIST '|GraphTerm| |GraphTerm| '|Var| |Var|))6637 (LET ((ATN-PARSER::RESULT-STRUCTURE6638 (IF (EQ *ATN-REDUCE* T)6639 (|VarOrTerm-Constructor| |GraphTerm| |Var|)6640 (IF (EQ *ATN-REDUCE* 'CONS)6641 (CONS '|VarOrTerm| (DELETE NIL (LIST |GraphTerm| |Var|)))6642 '|VarOrTerm|))))6643 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6644 (|VarOrTerm/fail.3| (ATN-PARSER::INDEX)6645 (%ATN-NODE-BLOCK |VarOrTerm/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6646 (|VarOrTerm/start.1| (ATN-PARSER::INDEX)6647 (%ATN-NODE-BLOCK6648 |VarOrTerm/start.1|6649 (%ATN-EDGE-BLOCK6650 OR6651 (PROGN (%ATN-EDGE-BLOCK6652 (TEST |Var|)6653 (COND ((|IS-Var| ATN-PARSER::|item|)6654 (SETF *ATN-TERM* '|Var|)6655 (SETF |Var|6656 (IF (EQ *ATN-REDUCE* T)6657 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)6658 (IF (EQ *ATN-REDUCE* 'CONS)6659 (LIST '|Var| ATN-PARSER::|item|)6660 '|Var|)))6661 (|VarOrTerm.2| (1+ ATN-PARSER::INDEX)))6662 (T (SETF *ATN-TERM?* '|Var|) NIL)))6663 (%ATN-EDGE-BLOCK6664 (PUSH |GraphTerm|)6665 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6666 (ATN-PARSE-SUBSTRUCTURE* '|GraphTerm| ATN-PARSER::INDEX)6667 (COND (ATN-PARSER::SUCCESS6668 (SETF *ATN-TERM* '|GraphTerm|)6669 (LET ((|GraphTerm612| |GraphTerm|))6670 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6671 (DESTRUCTURING-BIND6672 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6673 ATN-PARSER::RESULT-AND-INDEX6674 (WHEN ATN-PARSER::RESULT (SETF |GraphTerm| ATN-PARSER::RESULT))6675 (|VarOrTerm.2| ATN-PARSER::RESULT-INDEX))6676 (SETF |GraphTerm| |GraphTerm612|))))6677 (T (SETF *ATN-TERM?* '|GraphTerm|) NIL))))6678 (|VarOrTerm/fail.3| ATN-PARSER::INDEX))))))6679 (|VarOrTerm/start.1| ATN-PARSER::INDEX)6680 (SETF *ATN-NODE NIL)6681 NIL6682 (IF ATN-PARSER::ATN-STRUCTURE6683 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6684 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6685 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VarOrTerm| ATN-PARSER::INDEX *ATN-STACK))))6686 (PROGN (DEFVAR |VarOrIRIref-INDEX|)6687 (DEFUN |VarOrIRIref| (ATN-PARSER::INDEX &AUX (|IRIref| NIL) (|Var| NIL))6688 "{43} VarOrIRIref ::= (Var | IRIref)6689 (|IRIref| |Var|)"6690 (DECLARE (SPECIAL |VarOrIRIref-INDEX|))6691 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |VarOrIRIref-INDEX| *ATN-LEVEL))6692 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6693 (IF (< |VarOrIRIref-INDEX| ATN-PARSER::INDEX)6694 (LET ((|VarOrIRIref-INDEX| ATN-PARSER::INDEX)6695 (*ATN-LEVEL (1+ *ATN-LEVEL))6696 (*ATN-STACK (CONS '|VarOrIRIref| *ATN-STACK))6697 (ATN-PARSER::ATN-STRUCTURE NIL))6698 (DECLARE (SPECIAL |VarOrIRIref-INDEX|))6699 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6700 (DECLARE (TYPE CONS *ATN-STACK))6701 (SYMBOL-MACROLET6702 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6703 (%ATN-BLOCK |VarOrIRIref|6704 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6705 (SETF *ATN-TERM* '|VarOrIRIref|)6706 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6707 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6708 (|VarOrIRIref.2| (ATN-PARSER::INDEX)6709 (%ATN-NODE-BLOCK6710 |VarOrIRIref.2|6711 (%ATN-EDGE-BLOCK6712 (POP |VarOrIRIref|)6713 (WHEN T6714 (SETF *ATN-TERM* '|VarOrIRIref|)6715 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6716 '|VarOrIRIref|6717 ATN-PARSER::INDEX6718 (LIST '|IRIref| |IRIref| '|Var| |Var|))6719 (LET ((ATN-PARSER::RESULT-STRUCTURE6720 (IF (EQ *ATN-REDUCE* T)6721 (|VarOrIRIref-Constructor| |IRIref| |Var|)6722 (IF (EQ *ATN-REDUCE* 'CONS)6723 (CONS '|VarOrIRIref| (DELETE NIL (LIST |IRIref| |Var|)))6724 '|VarOrIRIref|))))6725 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6726 (|VarOrIRIref/fail.3| (ATN-PARSER::INDEX)6727 (%ATN-NODE-BLOCK |VarOrIRIref/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6728 (|VarOrIRIref/start.1| (ATN-PARSER::INDEX)6729 (%ATN-NODE-BLOCK6730 |VarOrIRIref/start.1|6731 (%ATN-EDGE-BLOCK6732 OR6733 (PROGN (%ATN-EDGE-BLOCK6734 (TEST |Var|)6735 (COND ((|IS-Var| ATN-PARSER::|item|)6736 (SETF *ATN-TERM* '|Var|)6737 (SETF |Var|6738 (IF (EQ *ATN-REDUCE* T)6739 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)6740 (IF (EQ *ATN-REDUCE* 'CONS)6741 (LIST '|Var| ATN-PARSER::|item|)6742 '|Var|)))6743 (|VarOrIRIref.2| (1+ ATN-PARSER::INDEX)))6744 (T (SETF *ATN-TERM?* '|Var|) NIL)))6745 (%ATN-EDGE-BLOCK6746 (PUSH |IRIref|)6747 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6748 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)6749 (COND (ATN-PARSER::SUCCESS6750 (SETF *ATN-TERM* '|IRIref|)6751 (LET ((|IRIref612| |IRIref|))6752 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6753 (DESTRUCTURING-BIND6754 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6755 ATN-PARSER::RESULT-AND-INDEX6756 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))6757 (|VarOrIRIref.2| ATN-PARSER::RESULT-INDEX))6758 (SETF |IRIref| |IRIref612|))))6759 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))6760 (|VarOrIRIref/fail.3| ATN-PARSER::INDEX))))))6761 (|VarOrIRIref/start.1| ATN-PARSER::INDEX)6762 (SETF *ATN-NODE NIL)6763 NIL6764 (IF ATN-PARSER::ATN-STRUCTURE6765 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6766 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6767 (WARN "recursive grammar: ~s @ position ~s: ~s" '|VarOrIRIref| ATN-PARSER::INDEX *ATN-STACK))))6768 (PROGN (DEFVAR |GraphTerm-INDEX|)6769 (DEFUN |GraphTerm| (ATN-PARSER::INDEX &AUX (|BlankNode| NIL) (|BooleanLiteral| NIL) (|IRIref| NIL) (NILLIST NIL)6770 (|NumericLiteral| NIL) (|RDFLiteral| NIL))6771 "{45} GraphTerm ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST)6772 (|BlankNode| |BooleanLiteral| |IRIref| NILLIST |NumericLiteral| |RDFLiteral|)"6773 (DECLARE (SPECIAL |GraphTerm-INDEX|))6774 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |GraphTerm-INDEX| *ATN-LEVEL))6775 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6776 (IF (< |GraphTerm-INDEX| ATN-PARSER::INDEX)6777 (LET ((|GraphTerm-INDEX| ATN-PARSER::INDEX)6778 (*ATN-LEVEL (1+ *ATN-LEVEL))6779 (*ATN-STACK (CONS '|GraphTerm| *ATN-STACK))6780 (ATN-PARSER::ATN-STRUCTURE NIL))6781 (DECLARE (SPECIAL |GraphTerm-INDEX|))6782 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6783 (DECLARE (TYPE CONS *ATN-STACK))6784 (SYMBOL-MACROLET6785 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6786 (%ATN-BLOCK |GraphTerm|6787 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6788 (SETF *ATN-TERM* '|GraphTerm|)6789 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6790 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6791 (|GraphTerm.2| (ATN-PARSER::INDEX)6792 (%ATN-NODE-BLOCK6793 |GraphTerm.2|6794 (%ATN-EDGE-BLOCK6795 (POP |GraphTerm|)6796 (WHEN T6797 (SETF *ATN-TERM* '|GraphTerm|)6798 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6799 '|GraphTerm|6800 ATN-PARSER::INDEX6801 (LIST '|BlankNode|6802 |BlankNode|6803 '|BooleanLiteral|6804 |BooleanLiteral|6805 '|IRIref|6806 |IRIref|6807 'NILLIST6808 NILLIST6809 '|NumericLiteral|6810 |NumericLiteral|6811 '|RDFLiteral|6812 |RDFLiteral|))6813 (LET ((ATN-PARSER::RESULT-STRUCTURE6814 (IF (EQ *ATN-REDUCE* T)6815 (|GraphTerm-Constructor|6816 |BlankNode|6817 |BooleanLiteral|6818 |IRIref|6819 NILLIST6820 |NumericLiteral|6821 |RDFLiteral|)6822 (IF (EQ *ATN-REDUCE* 'CONS)6823 (CONS '|GraphTerm|6824 (DELETE NIL6825 (LIST |BlankNode|6826 |BooleanLiteral|6827 |IRIref|6828 NILLIST6829 |NumericLiteral|6830 |RDFLiteral|)))6831 '|GraphTerm|))))6832 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6833 (|GraphTerm/fail.3| (ATN-PARSER::INDEX)6834 (%ATN-NODE-BLOCK |GraphTerm/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6835 (|GraphTerm/start.1| (ATN-PARSER::INDEX)6836 (%ATN-NODE-BLOCK6837 |GraphTerm/start.1|6838 (%ATN-EDGE-BLOCK6839 OR6840 (PROGN (%ATN-EDGE-BLOCK6841 (PUSH |IRIref|)6842 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6843 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)6844 (COND (ATN-PARSER::SUCCESS6845 (SETF *ATN-TERM* '|IRIref|)6846 (LET ((|IRIref613| |IRIref|))6847 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6848 (DESTRUCTURING-BIND6849 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6850 ATN-PARSER::RESULT-AND-INDEX6851 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))6852 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))6853 (SETF |IRIref| |IRIref613|))))6854 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))6855 (%ATN-EDGE-BLOCK6856 (PUSH |RDFLiteral|)6857 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6858 (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral| ATN-PARSER::INDEX)6859 (COND (ATN-PARSER::SUCCESS6860 (SETF *ATN-TERM* '|RDFLiteral|)6861 (LET ((|RDFLiteral613| |RDFLiteral|))6862 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6863 (DESTRUCTURING-BIND6864 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6865 ATN-PARSER::RESULT-AND-INDEX6866 (WHEN ATN-PARSER::RESULT6867 (SETF |RDFLiteral| ATN-PARSER::RESULT))6868 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))6869 (SETF |RDFLiteral| |RDFLiteral613|))))6870 (T (SETF *ATN-TERM?* '|RDFLiteral|) NIL))))6871 (%ATN-EDGE-BLOCK6872 (ATN-PARSER::CAT |NumericLiteral|)6873 (COND ((|IS-NumericLiteral| ATN-PARSER::|item|)6874 (SETF *ATN-TERM* '|NumericLiteral|)6875 (SETF |NumericLiteral|6876 (IF (EQ *ATN-REDUCE* T)6877 (ATN-REDUCE-ITEM6878 #'|NumericLiteral-Constructor|6879 ATN-PARSER::|item|)6880 (IF (EQ *ATN-REDUCE* 'CONS)6881 (LIST '|NumericLiteral| ATN-PARSER::|item|)6882 '|NumericLiteral|)))6883 (|GraphTerm.2| (1+ ATN-PARSER::INDEX)))6884 (T (SETF *ATN-TERM* '|NumericLiteral|) NIL)))6885 (%ATN-EDGE-BLOCK6886 (ATN-PARSER::CAT |BooleanLiteral|)6887 (COND ((|IS-BooleanLiteral| ATN-PARSER::|item|)6888 (SETF *ATN-TERM* '|BooleanLiteral|)6889 (SETF |BooleanLiteral|6890 (IF (EQ *ATN-REDUCE* T)6891 (ATN-REDUCE-ITEM6892 #'|BooleanLiteral-Constructor|6893 ATN-PARSER::|item|)6894 (IF (EQ *ATN-REDUCE* 'CONS)6895 (LIST '|BooleanLiteral| ATN-PARSER::|item|)6896 '|BooleanLiteral|)))6897 (|GraphTerm.2| (1+ ATN-PARSER::INDEX)))6898 (T (SETF *ATN-TERM* '|BooleanLiteral|) NIL)))6899 (%ATN-EDGE-BLOCK6900 (PUSH |BlankNode|)6901 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6902 (ATN-PARSE-SUBSTRUCTURE* '|BlankNode| ATN-PARSER::INDEX)6903 (COND (ATN-PARSER::SUCCESS6904 (SETF *ATN-TERM* '|BlankNode|)6905 (LET ((|BlankNode613| |BlankNode|))6906 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6907 (DESTRUCTURING-BIND6908 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6909 ATN-PARSER::RESULT-AND-INDEX6910 (WHEN ATN-PARSER::RESULT (SETF |BlankNode| ATN-PARSER::RESULT))6911 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))6912 (SETF |BlankNode| |BlankNode613|))))6913 (T (SETF *ATN-TERM?* '|BlankNode|) NIL))))6914 (%ATN-EDGE-BLOCK6915 (PUSH NILLIST)6916 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6917 (ATN-PARSE-SUBSTRUCTURE* 'NILLIST ATN-PARSER::INDEX)6918 (COND (ATN-PARSER::SUCCESS6919 (SETF *ATN-TERM* 'NILLIST)6920 (LET ((NILLIST613 NILLIST))6921 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6922 (DESTRUCTURING-BIND6923 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6924 ATN-PARSER::RESULT-AND-INDEX6925 (WHEN ATN-PARSER::RESULT (SETF NILLIST ATN-PARSER::RESULT))6926 (|GraphTerm.2| ATN-PARSER::RESULT-INDEX))6927 (SETF NILLIST NILLIST613))))6928 (T (SETF *ATN-TERM?* 'NILLIST) NIL))))6929 (|GraphTerm/fail.3| ATN-PARSER::INDEX))))))6930 (|GraphTerm/start.1| ATN-PARSER::INDEX)6931 (SETF *ATN-NODE NIL)6932 NIL6933 (IF ATN-PARSER::ATN-STRUCTURE6934 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)6935 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))6936 (WARN "recursive grammar: ~s @ position ~s: ~s" '|GraphTerm| ATN-PARSER::INDEX *ATN-STACK))))6937 (PROGN (DEFVAR |Expression-INDEX|)6938 (DEFUN |Expression| (ATN-PARSER::INDEX &AUX (|ConditionalOrExpression| NIL))6939 "{46} Expression ::= ConditionalOrExpression6940 (|ConditionalOrExpression|)"6941 (DECLARE (SPECIAL |Expression-INDEX|))6942 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Expression-INDEX| *ATN-LEVEL))6943 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))6944 (IF (< |Expression-INDEX| ATN-PARSER::INDEX)6945 (LET ((|Expression-INDEX| ATN-PARSER::INDEX)6946 (*ATN-LEVEL (1+ *ATN-LEVEL))6947 (*ATN-STACK (CONS '|Expression| *ATN-STACK))6948 (ATN-PARSER::ATN-STRUCTURE NIL))6949 (DECLARE (SPECIAL |Expression-INDEX|))6950 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))6951 (DECLARE (TYPE CONS *ATN-STACK))6952 (SYMBOL-MACROLET6953 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))6954 (%ATN-BLOCK |Expression|6955 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)6956 (SETF *ATN-TERM* '|Expression|)6957 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))6958 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)6959 (|Expression.2| (ATN-PARSER::INDEX)6960 (%ATN-NODE-BLOCK6961 |Expression.2|6962 (%ATN-EDGE-BLOCK6963 (POP |Expression|)6964 (WHEN T6965 (SETF *ATN-TERM* '|Expression|)6966 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"6967 '|Expression|6968 ATN-PARSER::INDEX6969 (LIST '|ConditionalOrExpression| |ConditionalOrExpression|))6970 (LET ((ATN-PARSER::RESULT-STRUCTURE6971 (IF (EQ *ATN-REDUCE* T)6972 (|Expression-Constructor| |ConditionalOrExpression|)6973 (IF (EQ *ATN-REDUCE* 'CONS)6974 (CONS '|Expression| (DELETE NIL (LIST |ConditionalOrExpression|)))6975 '|Expression|))))6976 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))6977 (|Expression/fail.3| (ATN-PARSER::INDEX)6978 (%ATN-NODE-BLOCK |Expression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))6979 (|Expression/start.1| (ATN-PARSER::INDEX)6980 (%ATN-NODE-BLOCK6981 |Expression/start.1|6982 (%ATN-EDGE-BLOCK6983 (PUSH |ConditionalOrExpression|)6984 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)6985 (ATN-PARSE-SUBSTRUCTURE* '|ConditionalOrExpression| ATN-PARSER::INDEX)6986 (COND (ATN-PARSER::SUCCESS6987 (SETF *ATN-TERM* '|ConditionalOrExpression|)6988 (LET ((|ConditionalOrExpression613| |ConditionalOrExpression|))6989 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)6990 (DESTRUCTURING-BIND6991 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)6992 ATN-PARSER::RESULT-AND-INDEX6993 (WHEN ATN-PARSER::RESULT6994 (SETF |ConditionalOrExpression| ATN-PARSER::RESULT))6995 (|Expression.2| ATN-PARSER::RESULT-INDEX))6996 (SETF |ConditionalOrExpression| |ConditionalOrExpression613|))))6997 (T6998 (SETF *ATN-TERM?* '|ConditionalOrExpression|)6999 (|Expression/fail.3| ATN-PARSER::INDEX))))))))7000 (|Expression/start.1| ATN-PARSER::INDEX)7001 (SETF *ATN-NODE NIL)7002 NIL7003 (IF ATN-PARSER::ATN-STRUCTURE7004 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7005 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7006 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Expression| ATN-PARSER::INDEX *ATN-STACK))))7007 (PROGN (DEFVAR |ConditionalOrExpression-INDEX|)7008 (DEFUN |ConditionalOrExpression| (ATN-PARSER::INDEX &AUX (|ConditionalAndExpression| NIL))7009 "{47} ConditionalOrExpression ::= ConditionalAndExpression ('||'7010 ConditionalAndExpression)*7011 (|ConditionalAndExpression|)"7012 (DECLARE (SPECIAL |ConditionalOrExpression-INDEX|))7013 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConditionalOrExpression-INDEX| *ATN-LEVEL))7014 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7015 (IF (< |ConditionalOrExpression-INDEX| ATN-PARSER::INDEX)7016 (LET ((|ConditionalOrExpression-INDEX| ATN-PARSER::INDEX)7017 (*ATN-LEVEL (1+ *ATN-LEVEL))7018 (*ATN-STACK (CONS '|ConditionalOrExpression| *ATN-STACK))7019 (ATN-PARSER::ATN-STRUCTURE NIL))7020 (DECLARE (SPECIAL |ConditionalOrExpression-INDEX|))7021 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7022 (DECLARE (TYPE CONS *ATN-STACK))7023 (SYMBOL-MACROLET7024 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7025 (%ATN-BLOCK |ConditionalOrExpression|7026 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7027 (SETF *ATN-TERM* '|ConditionalOrExpression|)7028 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7029 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7030 (|ConditionalOrExpression.2| (ATN-PARSER::INDEX)7031 (%ATN-NODE-BLOCK7032 |ConditionalOrExpression.2|7033 (%ATN-EDGE-BLOCK7034 (POP |ConditionalOrExpression|)7035 (WHEN T7036 (SETF *ATN-TERM* '|ConditionalOrExpression|)7037 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7038 '|ConditionalOrExpression|7039 ATN-PARSER::INDEX7040 (LIST '|ConditionalAndExpression| |ConditionalAndExpression|))7041 (LET ((ATN-PARSER::RESULT-STRUCTURE7042 (IF (EQ *ATN-REDUCE* T)7043 (|ConditionalOrExpression-Constructor| |ConditionalAndExpression|)7044 (IF (EQ *ATN-REDUCE* 'CONS)7045 (CONS '|ConditionalOrExpression|7046 (DELETE NIL (LIST |ConditionalAndExpression|)))7047 '|ConditionalOrExpression|))))7048 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7049 (|ConditionalOrExpression.5| (ATN-PARSER::INDEX)7050 (%ATN-NODE-BLOCK7051 |ConditionalOrExpression.5|7052 (%ATN-EDGE-BLOCK7053 (ATN-PARSER::JUMP |ConditionalOrExpression/ConditionalOrExpression.5.6|)7054 (|ConditionalOrExpression/ConditionalOrExpression.5.6| ATN-PARSER::INDEX))7055 (%ATN-EDGE-BLOCK7056 (ATN-PARSER::JUMP |ConditionalOrExpression.2|)7057 (|ConditionalOrExpression.2| ATN-PARSER::INDEX))))7058 (|ConditionalOrExpression/ConditionalOrExpression.2.4| (ATN-PARSER::INDEX)7059 (%ATN-NODE-BLOCK7060 |ConditionalOrExpression/ConditionalOrExpression.2.4|7061 (%ATN-EDGE-BLOCK7062 (ATN-PARSER::JUMP |ConditionalOrExpression/ConditionalOrExpression.5.6|)7063 (|ConditionalOrExpression/ConditionalOrExpression.5.6| ATN-PARSER::INDEX))7064 (%ATN-EDGE-BLOCK7065 (ATN-PARSER::JUMP |ConditionalOrExpression.2|)7066 (|ConditionalOrExpression.2| ATN-PARSER::INDEX))))7067 (|ConditionalOrExpression/ConditionalOrExpression.5.6| (ATN-PARSER::INDEX)7068 (%ATN-NODE-BLOCK7069 |ConditionalOrExpression/ConditionalOrExpression.5.6|7070 (%ATN-EDGE-BLOCK7071 (ATN-PARSER::WORD SPOCQ.S:|\|\||)7072 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|\|\||)7073 (SETF *ATN-TERM* 'SPOCQ.S:|\|\||)7074 (|ConditionalOrExpression/ConditionalOrExpression.5.7| (1+ ATN-PARSER::INDEX)))7075 (T (SETF *ATN-TERM?* 'SPOCQ.S:|\|\||) NIL)))))7076 (|ConditionalOrExpression/ConditionalOrExpression.5.7| (ATN-PARSER::INDEX)7077 (%ATN-NODE-BLOCK7078 |ConditionalOrExpression/ConditionalOrExpression.5.7|7079 (%ATN-EDGE-BLOCK7080 (PUSH |ConditionalAndExpression|)7081 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7082 (ATN-PARSE-SUBSTRUCTURE* '|ConditionalAndExpression| ATN-PARSER::INDEX)7083 (COND (ATN-PARSER::SUCCESS7084 (SETF *ATN-TERM* '|ConditionalAndExpression|)7085 (LET ((|ConditionalAndExpression613| |ConditionalAndExpression|))7086 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7087 (DESTRUCTURING-BIND7088 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7089 ATN-PARSER::RESULT-AND-INDEX7090 (WHEN ATN-PARSER::RESULT7091 (SETF |ConditionalAndExpression|7092 (CONS ATN-PARSER::RESULT |ConditionalAndExpression|)))7093 (|ConditionalOrExpression.5| ATN-PARSER::RESULT-INDEX))7094 (SETF |ConditionalAndExpression| |ConditionalAndExpression613|))))7095 (T (SETF *ATN-TERM?* '|ConditionalAndExpression|) NIL))))))7096 (|ConditionalOrExpression/fail.3| (ATN-PARSER::INDEX)7097 (%ATN-NODE-BLOCK7098 |ConditionalOrExpression/fail.3|7099 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7100 (|ConditionalOrExpression/start.1| (ATN-PARSER::INDEX)7101 (%ATN-NODE-BLOCK7102 |ConditionalOrExpression/start.1|7103 (%ATN-EDGE-BLOCK7104 (PUSH |ConditionalAndExpression|)7105 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7106 (ATN-PARSE-SUBSTRUCTURE* '|ConditionalAndExpression| ATN-PARSER::INDEX)7107 (COND (ATN-PARSER::SUCCESS7108 (SETF *ATN-TERM* '|ConditionalAndExpression|)7109 (LET ((|ConditionalAndExpression614| |ConditionalAndExpression|))7110 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7111 (DESTRUCTURING-BIND7112 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7113 ATN-PARSER::RESULT-AND-INDEX7114 (WHEN ATN-PARSER::RESULT7115 (SETF |ConditionalAndExpression|7116 (CONS ATN-PARSER::RESULT |ConditionalAndExpression|)))7117 (|ConditionalOrExpression/ConditionalOrExpression.2.4|7118 ATN-PARSER::RESULT-INDEX))7119 (SETF |ConditionalAndExpression| |ConditionalAndExpression614|))))7120 (T7121 (SETF *ATN-TERM?* '|ConditionalAndExpression|)7122 (|ConditionalOrExpression/fail.3| ATN-PARSER::INDEX))))))))7123 (|ConditionalOrExpression/start.1| ATN-PARSER::INDEX)7124 (SETF *ATN-NODE NIL)7125 NIL7126 (IF ATN-PARSER::ATN-STRUCTURE7127 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7128 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7129 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConditionalOrExpression| ATN-PARSER::INDEX *ATN-STACK))))7130 (PROGN (DEFVAR |ConditionalAndExpression-INDEX|)7131 (DEFUN |ConditionalAndExpression| (ATN-PARSER::INDEX &AUX (|ValueLogical| NIL))7132 "{48} ConditionalAndExpression ::= ValueLogical ('&&' ValueLogical)*7133 (|ValueLogical|)"7134 (DECLARE (SPECIAL |ConditionalAndExpression-INDEX|))7135 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConditionalAndExpression-INDEX| *ATN-LEVEL))7136 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7137 (IF (< |ConditionalAndExpression-INDEX| ATN-PARSER::INDEX)7138 (LET ((|ConditionalAndExpression-INDEX| ATN-PARSER::INDEX)7139 (*ATN-LEVEL (1+ *ATN-LEVEL))7140 (*ATN-STACK (CONS '|ConditionalAndExpression| *ATN-STACK))7141 (ATN-PARSER::ATN-STRUCTURE NIL))7142 (DECLARE (SPECIAL |ConditionalAndExpression-INDEX|))7143 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7144 (DECLARE (TYPE CONS *ATN-STACK))7145 (SYMBOL-MACROLET7146 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7147 (%ATN-BLOCK |ConditionalAndExpression|7148 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7149 (SETF *ATN-TERM* '|ConditionalAndExpression|)7150 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7151 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7152 (|ConditionalAndExpression.2| (ATN-PARSER::INDEX)7153 (%ATN-NODE-BLOCK7154 |ConditionalAndExpression.2|7155 (%ATN-EDGE-BLOCK7156 (POP |ConditionalAndExpression|)7157 (WHEN T7158 (SETF *ATN-TERM* '|ConditionalAndExpression|)7159 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7160 '|ConditionalAndExpression|7161 ATN-PARSER::INDEX7162 (LIST '|ValueLogical| |ValueLogical|))7163 (LET ((ATN-PARSER::RESULT-STRUCTURE7164 (IF (EQ *ATN-REDUCE* T)7165 (|ConditionalAndExpression-Constructor| |ValueLogical|)7166 (IF (EQ *ATN-REDUCE* 'CONS)7167 (CONS '|ConditionalAndExpression| (DELETE NIL (LIST |ValueLogical|)))7168 '|ConditionalAndExpression|))))7169 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7170 (|ConditionalAndExpression.5| (ATN-PARSER::INDEX)7171 (%ATN-NODE-BLOCK7172 |ConditionalAndExpression.5|7173 (%ATN-EDGE-BLOCK7174 (ATN-PARSER::JUMP |ConditionalAndExpression/ConditionalAndExpression.5.6|)7175 (|ConditionalAndExpression/ConditionalAndExpression.5.6| ATN-PARSER::INDEX))7176 (%ATN-EDGE-BLOCK7177 (ATN-PARSER::JUMP |ConditionalAndExpression.2|)7178 (|ConditionalAndExpression.2| ATN-PARSER::INDEX))))7179 (|ConditionalAndExpression/ConditionalAndExpression.2.4| (ATN-PARSER::INDEX)7180 (%ATN-NODE-BLOCK7181 |ConditionalAndExpression/ConditionalAndExpression.2.4|7182 (%ATN-EDGE-BLOCK7183 (ATN-PARSER::JUMP |ConditionalAndExpression/ConditionalAndExpression.5.6|)7184 (|ConditionalAndExpression/ConditionalAndExpression.5.6| ATN-PARSER::INDEX))7185 (%ATN-EDGE-BLOCK7186 (ATN-PARSER::JUMP |ConditionalAndExpression.2|)7187 (|ConditionalAndExpression.2| ATN-PARSER::INDEX))))7188 (|ConditionalAndExpression/ConditionalAndExpression.5.6| (ATN-PARSER::INDEX)7189 (%ATN-NODE-BLOCK7190 |ConditionalAndExpression/ConditionalAndExpression.5.6|7191 (%ATN-EDGE-BLOCK7192 (ATN-PARSER::WORD SPOCQ.S:&&)7193 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:&&)7194 (SETF *ATN-TERM* 'SPOCQ.S:&&)7195 (|ConditionalAndExpression/ConditionalAndExpression.5.7|7196 (1+ ATN-PARSER::INDEX)))7197 (T (SETF *ATN-TERM?* 'SPOCQ.S:&&) NIL)))))7198 (|ConditionalAndExpression/ConditionalAndExpression.5.7| (ATN-PARSER::INDEX)7199 (%ATN-NODE-BLOCK7200 |ConditionalAndExpression/ConditionalAndExpression.5.7|7201 (%ATN-EDGE-BLOCK7202 (PUSH |ValueLogical|)7203 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7204 (ATN-PARSE-SUBSTRUCTURE* '|ValueLogical| ATN-PARSER::INDEX)7205 (COND (ATN-PARSER::SUCCESS7206 (SETF *ATN-TERM* '|ValueLogical|)7207 (LET ((|ValueLogical614| |ValueLogical|))7208 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7209 (DESTRUCTURING-BIND7210 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7211 ATN-PARSER::RESULT-AND-INDEX7212 (WHEN ATN-PARSER::RESULT7213 (SETF |ValueLogical| (CONS ATN-PARSER::RESULT |ValueLogical|)))7214 (|ConditionalAndExpression.5| ATN-PARSER::RESULT-INDEX))7215 (SETF |ValueLogical| |ValueLogical614|))))7216 (T (SETF *ATN-TERM?* '|ValueLogical|) NIL))))))7217 (|ConditionalAndExpression/fail.3| (ATN-PARSER::INDEX)7218 (%ATN-NODE-BLOCK7219 |ConditionalAndExpression/fail.3|7220 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7221 (|ConditionalAndExpression/start.1| (ATN-PARSER::INDEX)7222 (%ATN-NODE-BLOCK7223 |ConditionalAndExpression/start.1|7224 (%ATN-EDGE-BLOCK7225 (PUSH |ValueLogical|)7226 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7227 (ATN-PARSE-SUBSTRUCTURE* '|ValueLogical| ATN-PARSER::INDEX)7228 (COND (ATN-PARSER::SUCCESS7229 (SETF *ATN-TERM* '|ValueLogical|)7230 (LET ((|ValueLogical615| |ValueLogical|))7231 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7232 (DESTRUCTURING-BIND7233 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7234 ATN-PARSER::RESULT-AND-INDEX7235 (WHEN ATN-PARSER::RESULT7236 (SETF |ValueLogical| (CONS ATN-PARSER::RESULT |ValueLogical|)))7237 (|ConditionalAndExpression/ConditionalAndExpression.2.4|7238 ATN-PARSER::RESULT-INDEX))7239 (SETF |ValueLogical| |ValueLogical615|))))7240 (T7241 (SETF *ATN-TERM?* '|ValueLogical|)7242 (|ConditionalAndExpression/fail.3| ATN-PARSER::INDEX))))))))7243 (|ConditionalAndExpression/start.1| ATN-PARSER::INDEX)7244 (SETF *ATN-NODE NIL)7245 NIL7246 (IF ATN-PARSER::ATN-STRUCTURE7247 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7248 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7249 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConditionalAndExpression| ATN-PARSER::INDEX *ATN-STACK))))7250 (PROGN (DEFVAR |ValueLogical-INDEX|)7251 (DEFUN |ValueLogical| (ATN-PARSER::INDEX &AUX (|RelationalExpression| NIL))7252 "{49} ValueLogical ::= RelationalExpression7253 (|RelationalExpression|)"7254 (DECLARE (SPECIAL |ValueLogical-INDEX|))7255 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ValueLogical-INDEX| *ATN-LEVEL))7256 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7257 (IF (< |ValueLogical-INDEX| ATN-PARSER::INDEX)7258 (LET ((|ValueLogical-INDEX| ATN-PARSER::INDEX)7259 (*ATN-LEVEL (1+ *ATN-LEVEL))7260 (*ATN-STACK (CONS '|ValueLogical| *ATN-STACK))7261 (ATN-PARSER::ATN-STRUCTURE NIL))7262 (DECLARE (SPECIAL |ValueLogical-INDEX|))7263 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7264 (DECLARE (TYPE CONS *ATN-STACK))7265 (SYMBOL-MACROLET7266 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7267 (%ATN-BLOCK |ValueLogical|7268 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7269 (SETF *ATN-TERM* '|ValueLogical|)7270 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7271 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7272 (|ValueLogical.2| (ATN-PARSER::INDEX)7273 (%ATN-NODE-BLOCK7274 |ValueLogical.2|7275 (%ATN-EDGE-BLOCK7276 (POP |ValueLogical|)7277 (WHEN T7278 (SETF *ATN-TERM* '|ValueLogical|)7279 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7280 '|ValueLogical|7281 ATN-PARSER::INDEX7282 (LIST '|RelationalExpression| |RelationalExpression|))7283 (LET ((ATN-PARSER::RESULT-STRUCTURE7284 (IF (EQ *ATN-REDUCE* T)7285 (|ValueLogical-Constructor| |RelationalExpression|)7286 (IF (EQ *ATN-REDUCE* 'CONS)7287 (CONS '|ValueLogical| (DELETE NIL (LIST |RelationalExpression|)))7288 '|ValueLogical|))))7289 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7290 (|ValueLogical/fail.3| (ATN-PARSER::INDEX)7291 (%ATN-NODE-BLOCK |ValueLogical/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7292 (|ValueLogical/start.1| (ATN-PARSER::INDEX)7293 (%ATN-NODE-BLOCK7294 |ValueLogical/start.1|7295 (%ATN-EDGE-BLOCK7296 (PUSH |RelationalExpression|)7297 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7298 (ATN-PARSE-SUBSTRUCTURE* '|RelationalExpression| ATN-PARSER::INDEX)7299 (COND (ATN-PARSER::SUCCESS7300 (SETF *ATN-TERM* '|RelationalExpression|)7301 (LET ((|RelationalExpression615| |RelationalExpression|))7302 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7303 (DESTRUCTURING-BIND7304 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7305 ATN-PARSER::RESULT-AND-INDEX7306 (WHEN ATN-PARSER::RESULT7307 (SETF |RelationalExpression| ATN-PARSER::RESULT))7308 (|ValueLogical.2| ATN-PARSER::RESULT-INDEX))7309 (SETF |RelationalExpression| |RelationalExpression615|))))7310 (T7311 (SETF *ATN-TERM?* '|RelationalExpression|)7312 (|ValueLogical/fail.3| ATN-PARSER::INDEX))))))))7313 (|ValueLogical/start.1| ATN-PARSER::INDEX)7314 (SETF *ATN-NODE NIL)7315 NIL7316 (IF ATN-PARSER::ATN-STRUCTURE7317 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7318 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7319 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ValueLogical| ATN-PARSER::INDEX *ATN-STACK))))7320 (PROGN (DEFVAR |RelationalExpression-INDEX|)7321 (DEFUN |RelationalExpression| (ATN-PARSER::INDEX &AUX (|NumericExpression| NIL) (|RelatedNumeric| NIL))7322 "{50} RelationalExpression ::= NumericExpression RelatedNumeric?7323 (|NumericExpression| |RelatedNumeric|)"7324 (DECLARE (SPECIAL |RelationalExpression-INDEX|))7325 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RelationalExpression-INDEX| *ATN-LEVEL))7326 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7327 (IF (< |RelationalExpression-INDEX| ATN-PARSER::INDEX)7328 (LET ((|RelationalExpression-INDEX| ATN-PARSER::INDEX)7329 (*ATN-LEVEL (1+ *ATN-LEVEL))7330 (*ATN-STACK (CONS '|RelationalExpression| *ATN-STACK))7331 (ATN-PARSER::ATN-STRUCTURE NIL))7332 (DECLARE (SPECIAL |RelationalExpression-INDEX|))7333 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7334 (DECLARE (TYPE CONS *ATN-STACK))7335 (SYMBOL-MACROLET7336 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7337 (%ATN-BLOCK |RelationalExpression|7338 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7339 (SETF *ATN-TERM* '|RelationalExpression|)7340 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7341 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7342 (|RelationalExpression.2| (ATN-PARSER::INDEX)7343 (%ATN-NODE-BLOCK7344 |RelationalExpression.2|7345 (%ATN-EDGE-BLOCK7346 (POP |RelationalExpression|)7347 (WHEN T7348 (SETF *ATN-TERM* '|RelationalExpression|)7349 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7350 '|RelationalExpression|7351 ATN-PARSER::INDEX7352 (LIST '|NumericExpression|7353 |NumericExpression|7354 '|RelatedNumeric|7355 |RelatedNumeric|))7356 (LET ((ATN-PARSER::RESULT-STRUCTURE7357 (IF (EQ *ATN-REDUCE* T)7358 (|RelationalExpression-Constructor| |NumericExpression| |RelatedNumeric|)7359 (IF (EQ *ATN-REDUCE* 'CONS)7360 (CONS '|RelationalExpression|7361 (DELETE NIL (LIST |NumericExpression| |RelatedNumeric|)))7362 '|RelationalExpression|))))7363 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7364 (|RelationalExpression/fail.3| (ATN-PARSER::INDEX)7365 (%ATN-NODE-BLOCK7366 |RelationalExpression/fail.3|7367 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7368 (|RelationalExpression/RelationalExpression.2.4| (ATN-PARSER::INDEX)7369 (%ATN-NODE-BLOCK7370 |RelationalExpression/RelationalExpression.2.4|7371 (%ATN-EDGE-BLOCK7372 (PUSH |RelatedNumeric|)7373 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7374 (ATN-PARSE-SUBSTRUCTURE* '|RelatedNumeric| ATN-PARSER::INDEX)7375 (COND (ATN-PARSER::SUCCESS7376 (SETF *ATN-TERM* '|RelatedNumeric|)7377 (LET ((|RelatedNumeric615| |RelatedNumeric|))7378 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7379 (DESTRUCTURING-BIND7380 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7381 ATN-PARSER::RESULT-AND-INDEX7382 (WHEN ATN-PARSER::RESULT (SETF |RelatedNumeric| ATN-PARSER::RESULT))7383 (|RelationalExpression.2| ATN-PARSER::RESULT-INDEX))7384 (SETF |RelatedNumeric| |RelatedNumeric615|))))7385 (T7386 (SETF *ATN-TERM?* '|RelatedNumeric|)7387 (|RelationalExpression.2| ATN-PARSER::INDEX)))))))7388 (|RelationalExpression/start.1| (ATN-PARSER::INDEX)7389 (%ATN-NODE-BLOCK7390 |RelationalExpression/start.1|7391 (%ATN-EDGE-BLOCK7392 (PUSH |NumericExpression|)7393 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7394 (ATN-PARSE-SUBSTRUCTURE* '|NumericExpression| ATN-PARSER::INDEX)7395 (COND (ATN-PARSER::SUCCESS7396 (SETF *ATN-TERM* '|NumericExpression|)7397 (LET ((|NumericExpression615| |NumericExpression|))7398 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7399 (DESTRUCTURING-BIND7400 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7401 ATN-PARSER::RESULT-AND-INDEX7402 (WHEN ATN-PARSER::RESULT (SETF |NumericExpression| ATN-PARSER::RESULT))7403 (|RelationalExpression/RelationalExpression.2.4|7404 ATN-PARSER::RESULT-INDEX))7405 (SETF |NumericExpression| |NumericExpression615|))))7406 (T7407 (SETF *ATN-TERM?* '|NumericExpression|)7408 (|RelationalExpression/fail.3| ATN-PARSER::INDEX))))))))7409 (|RelationalExpression/start.1| ATN-PARSER::INDEX)7410 (SETF *ATN-NODE NIL)7411 NIL7412 (IF ATN-PARSER::ATN-STRUCTURE7413 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7414 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7415 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RelationalExpression| ATN-PARSER::INDEX *ATN-STACK))))7416 (PROGN (DEFVAR |RelatedNumeric-INDEX|)7417 (DEFUN |RelatedNumeric| (ATN-PARSER::INDEX &AUX (|NumericExpression| NIL) (|RelationalOperator| NIL))7418 "RelatedNumeric ::= RelationalOperator NumericExpression7419 (|NumericExpression| |RelationalOperator|)"7420 (DECLARE (SPECIAL |RelatedNumeric-INDEX|))7421 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RelatedNumeric-INDEX| *ATN-LEVEL))7422 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7423 (IF (< |RelatedNumeric-INDEX| ATN-PARSER::INDEX)7424 (LET ((|RelatedNumeric-INDEX| ATN-PARSER::INDEX)7425 (*ATN-LEVEL (1+ *ATN-LEVEL))7426 (*ATN-STACK (CONS '|RelatedNumeric| *ATN-STACK))7427 (ATN-PARSER::ATN-STRUCTURE NIL))7428 (DECLARE (SPECIAL |RelatedNumeric-INDEX|))7429 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7430 (DECLARE (TYPE CONS *ATN-STACK))7431 (SYMBOL-MACROLET7432 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7433 (%ATN-BLOCK |RelatedNumeric|7434 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7435 (SETF *ATN-TERM* '|RelatedNumeric|)7436 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7437 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7438 (|RelatedNumeric.2| (ATN-PARSER::INDEX)7439 (%ATN-NODE-BLOCK7440 |RelatedNumeric.2|7441 (%ATN-EDGE-BLOCK7442 (POP |RelatedNumeric|)7443 (WHEN T7444 (SETF *ATN-TERM* '|RelatedNumeric|)7445 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7446 '|RelatedNumeric|7447 ATN-PARSER::INDEX7448 (LIST '|NumericExpression|7449 |NumericExpression|7450 '|RelationalOperator|7451 |RelationalOperator|))7452 (LET ((ATN-PARSER::RESULT-STRUCTURE7453 (IF (EQ *ATN-REDUCE* T)7454 (|RelatedNumeric-Constructor| |NumericExpression| |RelationalOperator|)7455 (IF (EQ *ATN-REDUCE* 'CONS)7456 (CONS '|RelatedNumeric|7457 (DELETE NIL (LIST |NumericExpression| |RelationalOperator|)))7458 '|RelatedNumeric|))))7459 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7460 (|RelatedNumeric/fail.3| (ATN-PARSER::INDEX)7461 (%ATN-NODE-BLOCK |RelatedNumeric/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7462 (|RelatedNumeric/RelatedNumeric.2.4| (ATN-PARSER::INDEX)7463 (%ATN-NODE-BLOCK7464 |RelatedNumeric/RelatedNumeric.2.4|7465 (%ATN-EDGE-BLOCK7466 (PUSH |NumericExpression|)7467 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7468 (ATN-PARSE-SUBSTRUCTURE* '|NumericExpression| ATN-PARSER::INDEX)7469 (COND (ATN-PARSER::SUCCESS7470 (SETF *ATN-TERM* '|NumericExpression|)7471 (LET ((|NumericExpression616| |NumericExpression|))7472 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7473 (DESTRUCTURING-BIND7474 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7475 ATN-PARSER::RESULT-AND-INDEX7476 (WHEN ATN-PARSER::RESULT (SETF |NumericExpression| ATN-PARSER::RESULT))7477 (|RelatedNumeric.2| ATN-PARSER::RESULT-INDEX))7478 (SETF |NumericExpression| |NumericExpression616|))))7479 (T7480 (SETF *ATN-TERM?* '|NumericExpression|)7481 (|RelatedNumeric/fail.3| ATN-PARSER::INDEX)))))))7482 (|RelatedNumeric/start.1| (ATN-PARSER::INDEX)7483 (%ATN-NODE-BLOCK7484 |RelatedNumeric/start.1|7485 (%ATN-EDGE-BLOCK7486 (ATN-PARSER::CAT |RelationalOperator|)7487 (COND ((|IS-RelationalOperator| ATN-PARSER::|item|)7488 (SETF *ATN-TERM* '|RelationalOperator|)7489 (SETF |RelationalOperator|7490 (IF (EQ *ATN-REDUCE* T)7491 (ATN-REDUCE-ITEM7492 #'|RelationalOperator-Constructor|7493 ATN-PARSER::|item|)7494 (IF (EQ *ATN-REDUCE* 'CONS)7495 (LIST '|RelationalOperator| ATN-PARSER::|item|)7496 '|RelationalOperator|)))7497 (|RelatedNumeric/RelatedNumeric.2.4| (1+ ATN-PARSER::INDEX)))7498 (T7499 (SETF *ATN-TERM* '|RelationalOperator|)7500 (|RelatedNumeric/fail.3| ATN-PARSER::INDEX)))))))7501 (|RelatedNumeric/start.1| ATN-PARSER::INDEX)7502 (SETF *ATN-NODE NIL)7503 NIL7504 (IF ATN-PARSER::ATN-STRUCTURE7505 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7506 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7507 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RelatedNumeric| ATN-PARSER::INDEX *ATN-STACK))))7508 (PROGN (DEFVAR |NumericExpression-INDEX|)7509 (DEFUN |NumericExpression| (ATN-PARSER::INDEX &AUX (|AdditiveExpression| NIL))7510 "{51} NumericExpression ::= AdditiveExpression7511 (|AdditiveExpression|)"7512 (DECLARE (SPECIAL |NumericExpression-INDEX|))7513 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NumericExpression-INDEX| *ATN-LEVEL))7514 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7515 (IF (< |NumericExpression-INDEX| ATN-PARSER::INDEX)7516 (LET ((|NumericExpression-INDEX| ATN-PARSER::INDEX)7517 (*ATN-LEVEL (1+ *ATN-LEVEL))7518 (*ATN-STACK (CONS '|NumericExpression| *ATN-STACK))7519 (ATN-PARSER::ATN-STRUCTURE NIL))7520 (DECLARE (SPECIAL |NumericExpression-INDEX|))7521 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7522 (DECLARE (TYPE CONS *ATN-STACK))7523 (SYMBOL-MACROLET7524 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7525 (%ATN-BLOCK |NumericExpression|7526 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7527 (SETF *ATN-TERM* '|NumericExpression|)7528 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7529 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7530 (|NumericExpression.2| (ATN-PARSER::INDEX)7531 (%ATN-NODE-BLOCK7532 |NumericExpression.2|7533 (%ATN-EDGE-BLOCK7534 (POP |NumericExpression|)7535 (WHEN T7536 (SETF *ATN-TERM* '|NumericExpression|)7537 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7538 '|NumericExpression|7539 ATN-PARSER::INDEX7540 (LIST '|AdditiveExpression| |AdditiveExpression|))7541 (LET ((ATN-PARSER::RESULT-STRUCTURE7542 (IF (EQ *ATN-REDUCE* T)7543 (|NumericExpression-Constructor| |AdditiveExpression|)7544 (IF (EQ *ATN-REDUCE* 'CONS)7545 (CONS '|NumericExpression| (DELETE NIL (LIST |AdditiveExpression|)))7546 '|NumericExpression|))))7547 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7548 (|NumericExpression/fail.3| (ATN-PARSER::INDEX)7549 (%ATN-NODE-BLOCK |NumericExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7550 (|NumericExpression/start.1| (ATN-PARSER::INDEX)7551 (%ATN-NODE-BLOCK7552 |NumericExpression/start.1|7553 (%ATN-EDGE-BLOCK7554 (PUSH |AdditiveExpression|)7555 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7556 (ATN-PARSE-SUBSTRUCTURE* '|AdditiveExpression| ATN-PARSER::INDEX)7557 (COND (ATN-PARSER::SUCCESS7558 (SETF *ATN-TERM* '|AdditiveExpression|)7559 (LET ((|AdditiveExpression616| |AdditiveExpression|))7560 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7561 (DESTRUCTURING-BIND7562 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7563 ATN-PARSER::RESULT-AND-INDEX7564 (WHEN ATN-PARSER::RESULT (SETF |AdditiveExpression| ATN-PARSER::RESULT))7565 (|NumericExpression.2| ATN-PARSER::RESULT-INDEX))7566 (SETF |AdditiveExpression| |AdditiveExpression616|))))7567 (T7568 (SETF *ATN-TERM?* '|AdditiveExpression|)7569 (|NumericExpression/fail.3| ATN-PARSER::INDEX))))))))7570 (|NumericExpression/start.1| ATN-PARSER::INDEX)7571 (SETF *ATN-NODE NIL)7572 NIL7573 (IF ATN-PARSER::ATN-STRUCTURE7574 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7575 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7576 (WARN "recursive grammar: ~s @ position ~s: ~s" '|NumericExpression| ATN-PARSER::INDEX *ATN-STACK))))7577 (PROGN (DEFVAR |AdditiveExpression-INDEX|)7578 (DEFUN |AdditiveExpression| (ATN-PARSER::INDEX &AUX (|AddedMultiplicative| NIL) (|MultiplicativeExpression| NIL))7579 "{52} AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*7580 (|AddedMultiplicative| |MultiplicativeExpression|)"7581 (DECLARE (SPECIAL |AdditiveExpression-INDEX|))7582 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AdditiveExpression-INDEX| *ATN-LEVEL))7583 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7584 (IF (< |AdditiveExpression-INDEX| ATN-PARSER::INDEX)7585 (LET ((|AdditiveExpression-INDEX| ATN-PARSER::INDEX)7586 (*ATN-LEVEL (1+ *ATN-LEVEL))7587 (*ATN-STACK (CONS '|AdditiveExpression| *ATN-STACK))7588 (ATN-PARSER::ATN-STRUCTURE NIL))7589 (DECLARE (SPECIAL |AdditiveExpression-INDEX|))7590 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7591 (DECLARE (TYPE CONS *ATN-STACK))7592 (SYMBOL-MACROLET7593 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7594 (%ATN-BLOCK |AdditiveExpression|7595 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7596 (SETF *ATN-TERM* '|AdditiveExpression|)7597 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7598 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7599 (|AdditiveExpression.2| (ATN-PARSER::INDEX)7600 (%ATN-NODE-BLOCK7601 |AdditiveExpression.2|7602 (%ATN-EDGE-BLOCK7603 (POP |AdditiveExpression|)7604 (WHEN T7605 (SETF *ATN-TERM* '|AdditiveExpression|)7606 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7607 '|AdditiveExpression|7608 ATN-PARSER::INDEX7609 (LIST '|AddedMultiplicative|7610 |AddedMultiplicative|7611 '|MultiplicativeExpression|7612 |MultiplicativeExpression|))7613 (LET ((ATN-PARSER::RESULT-STRUCTURE7614 (IF (EQ *ATN-REDUCE* T)7615 (|AdditiveExpression-Constructor|7616 |AddedMultiplicative|7617 |MultiplicativeExpression|)7618 (IF (EQ *ATN-REDUCE* 'CONS)7619 (CONS '|AdditiveExpression|7620 (DELETE NIL7621 (LIST |AddedMultiplicative|7622 |MultiplicativeExpression|)))7623 '|AdditiveExpression|))))7624 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7625 (|AdditiveExpression.5| (ATN-PARSER::INDEX)7626 (%ATN-NODE-BLOCK7627 |AdditiveExpression.5|7628 (%ATN-EDGE-BLOCK7629 (PUSH |AddedMultiplicative|)7630 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7631 (ATN-PARSE-SUBSTRUCTURE* '|AddedMultiplicative| ATN-PARSER::INDEX)7632 (COND (ATN-PARSER::SUCCESS7633 (SETF *ATN-TERM* '|AddedMultiplicative|)7634 (LET ((|AddedMultiplicative617| |AddedMultiplicative|))7635 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7636 (DESTRUCTURING-BIND7637 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7638 ATN-PARSER::RESULT-AND-INDEX7639 (WHEN ATN-PARSER::RESULT7640 (SETF |AddedMultiplicative|7641 (CONS ATN-PARSER::RESULT |AddedMultiplicative|)))7642 (|AdditiveExpression.5| ATN-PARSER::RESULT-INDEX))7643 (SETF |AddedMultiplicative| |AddedMultiplicative617|))))7644 (T7645 (SETF *ATN-TERM?* '|AddedMultiplicative|)7646 (|AdditiveExpression.2| ATN-PARSER::INDEX)))))))7647 (|AdditiveExpression/AdditiveExpression.2.4| (ATN-PARSER::INDEX)7648 (%ATN-NODE-BLOCK7649 |AdditiveExpression/AdditiveExpression.2.4|7650 (%ATN-EDGE-BLOCK7651 (PUSH |AddedMultiplicative|)7652 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7653 (ATN-PARSE-SUBSTRUCTURE* '|AddedMultiplicative| ATN-PARSER::INDEX)7654 (COND (ATN-PARSER::SUCCESS7655 (SETF *ATN-TERM* '|AddedMultiplicative|)7656 (LET ((|AddedMultiplicative616| |AddedMultiplicative|))7657 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7658 (DESTRUCTURING-BIND7659 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7660 ATN-PARSER::RESULT-AND-INDEX7661 (WHEN ATN-PARSER::RESULT7662 (SETF |AddedMultiplicative|7663 (CONS ATN-PARSER::RESULT |AddedMultiplicative|)))7664 (|AdditiveExpression.5| ATN-PARSER::RESULT-INDEX))7665 (SETF |AddedMultiplicative| |AddedMultiplicative616|))))7666 (T7667 (SETF *ATN-TERM?* '|AddedMultiplicative|)7668 (|AdditiveExpression.2| ATN-PARSER::INDEX)))))))7669 (|AdditiveExpression/fail.3| (ATN-PARSER::INDEX)7670 (%ATN-NODE-BLOCK |AdditiveExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7671 (|AdditiveExpression/start.1| (ATN-PARSER::INDEX)7672 (%ATN-NODE-BLOCK7673 |AdditiveExpression/start.1|7674 (%ATN-EDGE-BLOCK7675 (PUSH |MultiplicativeExpression|)7676 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7677 (ATN-PARSE-SUBSTRUCTURE* '|MultiplicativeExpression| ATN-PARSER::INDEX)7678 (COND (ATN-PARSER::SUCCESS7679 (SETF *ATN-TERM* '|MultiplicativeExpression|)7680 (LET ((|MultiplicativeExpression617| |MultiplicativeExpression|))7681 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7682 (DESTRUCTURING-BIND7683 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7684 ATN-PARSER::RESULT-AND-INDEX7685 (WHEN ATN-PARSER::RESULT7686 (SETF |MultiplicativeExpression| ATN-PARSER::RESULT))7687 (|AdditiveExpression/AdditiveExpression.2.4| ATN-PARSER::RESULT-INDEX))7688 (SETF |MultiplicativeExpression| |MultiplicativeExpression617|))))7689 (T7690 (SETF *ATN-TERM?* '|MultiplicativeExpression|)7691 (|AdditiveExpression/fail.3| ATN-PARSER::INDEX))))))))7692 (|AdditiveExpression/start.1| ATN-PARSER::INDEX)7693 (SETF *ATN-NODE NIL)7694 NIL7695 (IF ATN-PARSER::ATN-STRUCTURE7696 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7697 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7698 (WARN "recursive grammar: ~s @ position ~s: ~s" '|AdditiveExpression| ATN-PARSER::INDEX *ATN-STACK))))7699 (PROGN (DEFVAR |AddedMultiplicative-INDEX|)7700 (DEFUN |AddedMultiplicative| (ATN-PARSER::INDEX &AUX (|AdditiveOperator| NIL) (|MultiplicativeExpression| NIL)7701 (|NumericLiteralNegative| NIL) (|NumericLiteralPositive| NIL))7702 "AddedMultiplicative ::= ((AdditiveOperator7703 MultiplicativeExpression) | NumericLiteralPositive | NumericLiteralNegative)7704 (|AdditiveOperator| |MultiplicativeExpression| |NumericLiteralNegative| |NumericLiteralPositive|)"7705 (DECLARE (SPECIAL |AddedMultiplicative-INDEX|))7706 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |AddedMultiplicative-INDEX| *ATN-LEVEL))7707 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7708 (IF (< |AddedMultiplicative-INDEX| ATN-PARSER::INDEX)7709 (LET ((|AddedMultiplicative-INDEX| ATN-PARSER::INDEX)7710 (*ATN-LEVEL (1+ *ATN-LEVEL))7711 (*ATN-STACK (CONS '|AddedMultiplicative| *ATN-STACK))7712 (ATN-PARSER::ATN-STRUCTURE NIL))7713 (DECLARE (SPECIAL |AddedMultiplicative-INDEX|))7714 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7715 (DECLARE (TYPE CONS *ATN-STACK))7716 (SYMBOL-MACROLET7717 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7718 (%ATN-BLOCK |AddedMultiplicative|7719 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7720 (SETF *ATN-TERM* '|AddedMultiplicative|)7721 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7722 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7723 (|AddedMultiplicative.2| (ATN-PARSER::INDEX)7724 (%ATN-NODE-BLOCK7725 |AddedMultiplicative.2|7726 (%ATN-EDGE-BLOCK7727 (POP |AddedMultiplicative|)7728 (WHEN T7729 (SETF *ATN-TERM* '|AddedMultiplicative|)7730 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7731 '|AddedMultiplicative|7732 ATN-PARSER::INDEX7733 (LIST '|AdditiveOperator|7734 |AdditiveOperator|7735 '|MultiplicativeExpression|7736 |MultiplicativeExpression|7737 '|NumericLiteralNegative|7738 |NumericLiteralNegative|7739 '|NumericLiteralPositive|7740 |NumericLiteralPositive|))7741 (LET ((ATN-PARSER::RESULT-STRUCTURE7742 (IF (EQ *ATN-REDUCE* T)7743 (|AddedMultiplicative-Constructor|7744 |AdditiveOperator|7745 |MultiplicativeExpression|7746 |NumericLiteralNegative|7747 |NumericLiteralPositive|)7748 (IF (EQ *ATN-REDUCE* 'CONS)7749 (CONS '|AddedMultiplicative|7750 (DELETE NIL7751 (LIST |AdditiveOperator|7752 |MultiplicativeExpression|7753 |NumericLiteralNegative|7754 |NumericLiteralPositive|)))7755 '|AddedMultiplicative|))))7756 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7757 (|AddedMultiplicative/AddedMultiplicative.2.4| (ATN-PARSER::INDEX)7758 (%ATN-NODE-BLOCK7759 |AddedMultiplicative/AddedMultiplicative.2.4|7760 (%ATN-EDGE-BLOCK7761 (ATN-PARSER::CAT |AdditiveOperator|)7762 (COND ((|IS-AdditiveOperator| ATN-PARSER::|item|)7763 (SETF *ATN-TERM* '|AdditiveOperator|)7764 (SETF |AdditiveOperator|7765 (IF (EQ *ATN-REDUCE* T)7766 (ATN-REDUCE-ITEM #'|AdditiveOperator-Constructor| ATN-PARSER::|item|)7767 (IF (EQ *ATN-REDUCE* 'CONS)7768 (LIST '|AdditiveOperator| ATN-PARSER::|item|)7769 '|AdditiveOperator|)))7770 (|AddedMultiplicative/AddedMultiplicative.2.5| (1+ ATN-PARSER::INDEX)))7771 (T (SETF *ATN-TERM* '|AdditiveOperator|) NIL)))))7772 (|AddedMultiplicative/AddedMultiplicative.2.5| (ATN-PARSER::INDEX)7773 (%ATN-NODE-BLOCK7774 |AddedMultiplicative/AddedMultiplicative.2.5|7775 (%ATN-EDGE-BLOCK7776 (PUSH |MultiplicativeExpression|)7777 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7778 (ATN-PARSE-SUBSTRUCTURE* '|MultiplicativeExpression| ATN-PARSER::INDEX)7779 (COND (ATN-PARSER::SUCCESS7780 (SETF *ATN-TERM* '|MultiplicativeExpression|)7781 (LET ((|MultiplicativeExpression618| |MultiplicativeExpression|))7782 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7783 (DESTRUCTURING-BIND7784 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7785 ATN-PARSER::RESULT-AND-INDEX7786 (WHEN ATN-PARSER::RESULT7787 (SETF |MultiplicativeExpression| ATN-PARSER::RESULT))7788 (|AddedMultiplicative.2| ATN-PARSER::RESULT-INDEX))7789 (SETF |MultiplicativeExpression| |MultiplicativeExpression618|))))7790 (T (SETF *ATN-TERM?* '|MultiplicativeExpression|) NIL))))))7791 (|AddedMultiplicative/fail.3| (ATN-PARSER::INDEX)7792 (%ATN-NODE-BLOCK7793 |AddedMultiplicative/fail.3|7794 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7795 (|AddedMultiplicative/start.1| (ATN-PARSER::INDEX)7796 (%ATN-NODE-BLOCK7797 |AddedMultiplicative/start.1|7798 (%ATN-EDGE-BLOCK7799 OR7800 (PROGN (%ATN-EDGE-BLOCK7801 (ATN-PARSER::JUMP |AddedMultiplicative/AddedMultiplicative.2.4|)7802 (|AddedMultiplicative/AddedMultiplicative.2.4| ATN-PARSER::INDEX))7803 (%ATN-EDGE-BLOCK7804 (ATN-PARSER::CAT |NumericLiteralPositive|)7805 (COND ((|IS-NumericLiteralPositive| ATN-PARSER::|item|)7806 (SETF *ATN-TERM* '|NumericLiteralPositive|)7807 (SETF |NumericLiteralPositive|7808 (IF (EQ *ATN-REDUCE* T)7809 (ATN-REDUCE-ITEM7810 #'|NumericLiteralPositive-Constructor|7811 ATN-PARSER::|item|)7812 (IF (EQ *ATN-REDUCE* 'CONS)7813 (LIST '|NumericLiteralPositive| ATN-PARSER::|item|)7814 '|NumericLiteralPositive|)))7815 (|AddedMultiplicative.2| (1+ ATN-PARSER::INDEX)))7816 (T (SETF *ATN-TERM* '|NumericLiteralPositive|) NIL)))7817 (%ATN-EDGE-BLOCK7818 (ATN-PARSER::CAT |NumericLiteralNegative|)7819 (COND ((|IS-NumericLiteralNegative| ATN-PARSER::|item|)7820 (SETF *ATN-TERM* '|NumericLiteralNegative|)7821 (SETF |NumericLiteralNegative|7822 (IF (EQ *ATN-REDUCE* T)7823 (ATN-REDUCE-ITEM7824 #'|NumericLiteralNegative-Constructor|7825 ATN-PARSER::|item|)7826 (IF (EQ *ATN-REDUCE* 'CONS)7827 (LIST '|NumericLiteralNegative| ATN-PARSER::|item|)7828 '|NumericLiteralNegative|)))7829 (|AddedMultiplicative.2| (1+ ATN-PARSER::INDEX)))7830 (T (SETF *ATN-TERM* '|NumericLiteralNegative|) NIL)))7831 (|AddedMultiplicative/fail.3| ATN-PARSER::INDEX))))))7832 (|AddedMultiplicative/start.1| ATN-PARSER::INDEX)7833 (SETF *ATN-NODE NIL)7834 NIL7835 (IF ATN-PARSER::ATN-STRUCTURE7836 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7837 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7838 (WARN "recursive grammar: ~s @ position ~s: ~s" '|AddedMultiplicative| ATN-PARSER::INDEX *ATN-STACK))))7839 (PROGN (DEFVAR |MultiplicativeExpression-INDEX|)7840 (DEFUN |MultiplicativeExpression| (ATN-PARSER::INDEX &AUX (|MultipliedUnary| NIL) (|UnaryExpression| NIL))7841 "{53} MultiplicativeExpression ::= UnaryExpression MultipliedUnary*7842 (|MultipliedUnary| |UnaryExpression|)"7843 (DECLARE (SPECIAL |MultiplicativeExpression-INDEX|))7844 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MultiplicativeExpression-INDEX| *ATN-LEVEL))7845 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7846 (IF (< |MultiplicativeExpression-INDEX| ATN-PARSER::INDEX)7847 (LET ((|MultiplicativeExpression-INDEX| ATN-PARSER::INDEX)7848 (*ATN-LEVEL (1+ *ATN-LEVEL))7849 (*ATN-STACK (CONS '|MultiplicativeExpression| *ATN-STACK))7850 (ATN-PARSER::ATN-STRUCTURE NIL))7851 (DECLARE (SPECIAL |MultiplicativeExpression-INDEX|))7852 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7853 (DECLARE (TYPE CONS *ATN-STACK))7854 (SYMBOL-MACROLET7855 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7856 (%ATN-BLOCK |MultiplicativeExpression|7857 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7858 (SETF *ATN-TERM* '|MultiplicativeExpression|)7859 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7860 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7861 (|MultiplicativeExpression.2| (ATN-PARSER::INDEX)7862 (%ATN-NODE-BLOCK7863 |MultiplicativeExpression.2|7864 (%ATN-EDGE-BLOCK7865 (POP |MultiplicativeExpression|)7866 (WHEN T7867 (SETF *ATN-TERM* '|MultiplicativeExpression|)7868 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7869 '|MultiplicativeExpression|7870 ATN-PARSER::INDEX7871 (LIST '|MultipliedUnary|7872 |MultipliedUnary|7873 '|UnaryExpression|7874 |UnaryExpression|))7875 (LET ((ATN-PARSER::RESULT-STRUCTURE7876 (IF (EQ *ATN-REDUCE* T)7877 (|MultiplicativeExpression-Constructor|7878 |MultipliedUnary|7879 |UnaryExpression|)7880 (IF (EQ *ATN-REDUCE* 'CONS)7881 (CONS '|MultiplicativeExpression|7882 (DELETE NIL (LIST |MultipliedUnary| |UnaryExpression|)))7883 '|MultiplicativeExpression|))))7884 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))7885 (|MultiplicativeExpression.5| (ATN-PARSER::INDEX)7886 (%ATN-NODE-BLOCK7887 |MultiplicativeExpression.5|7888 (%ATN-EDGE-BLOCK7889 (PUSH |MultipliedUnary|)7890 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7891 (ATN-PARSE-SUBSTRUCTURE* '|MultipliedUnary| ATN-PARSER::INDEX)7892 (COND (ATN-PARSER::SUCCESS7893 (SETF *ATN-TERM* '|MultipliedUnary|)7894 (LET ((|MultipliedUnary619| |MultipliedUnary|))7895 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7896 (DESTRUCTURING-BIND7897 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7898 ATN-PARSER::RESULT-AND-INDEX7899 (WHEN ATN-PARSER::RESULT7900 (SETF |MultipliedUnary| (CONS ATN-PARSER::RESULT |MultipliedUnary|)))7901 (|MultiplicativeExpression.5| ATN-PARSER::RESULT-INDEX))7902 (SETF |MultipliedUnary| |MultipliedUnary619|))))7903 (T7904 (SETF *ATN-TERM?* '|MultipliedUnary|)7905 (|MultiplicativeExpression.2| ATN-PARSER::INDEX)))))))7906 (|MultiplicativeExpression/fail.3| (ATN-PARSER::INDEX)7907 (%ATN-NODE-BLOCK7908 |MultiplicativeExpression/fail.3|7909 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))7910 (|MultiplicativeExpression/MultiplicativeExpression.2.4| (ATN-PARSER::INDEX)7911 (%ATN-NODE-BLOCK7912 |MultiplicativeExpression/MultiplicativeExpression.2.4|7913 (%ATN-EDGE-BLOCK7914 (PUSH |MultipliedUnary|)7915 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7916 (ATN-PARSE-SUBSTRUCTURE* '|MultipliedUnary| ATN-PARSER::INDEX)7917 (COND (ATN-PARSER::SUCCESS7918 (SETF *ATN-TERM* '|MultipliedUnary|)7919 (LET ((|MultipliedUnary618| |MultipliedUnary|))7920 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7921 (DESTRUCTURING-BIND7922 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7923 ATN-PARSER::RESULT-AND-INDEX7924 (WHEN ATN-PARSER::RESULT7925 (SETF |MultipliedUnary| (CONS ATN-PARSER::RESULT |MultipliedUnary|)))7926 (|MultiplicativeExpression.5| ATN-PARSER::RESULT-INDEX))7927 (SETF |MultipliedUnary| |MultipliedUnary618|))))7928 (T7929 (SETF *ATN-TERM?* '|MultipliedUnary|)7930 (|MultiplicativeExpression.2| ATN-PARSER::INDEX)))))))7931 (|MultiplicativeExpression/start.1| (ATN-PARSER::INDEX)7932 (%ATN-NODE-BLOCK7933 |MultiplicativeExpression/start.1|7934 (%ATN-EDGE-BLOCK7935 (PUSH |UnaryExpression|)7936 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)7937 (ATN-PARSE-SUBSTRUCTURE* '|UnaryExpression| ATN-PARSER::INDEX)7938 (COND (ATN-PARSER::SUCCESS7939 (SETF *ATN-TERM* '|UnaryExpression|)7940 (LET ((|UnaryExpression619| |UnaryExpression|))7941 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)7942 (DESTRUCTURING-BIND7943 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)7944 ATN-PARSER::RESULT-AND-INDEX7945 (WHEN ATN-PARSER::RESULT (SETF |UnaryExpression| ATN-PARSER::RESULT))7946 (|MultiplicativeExpression/MultiplicativeExpression.2.4|7947 ATN-PARSER::RESULT-INDEX))7948 (SETF |UnaryExpression| |UnaryExpression619|))))7949 (T7950 (SETF *ATN-TERM?* '|UnaryExpression|)7951 (|MultiplicativeExpression/fail.3| ATN-PARSER::INDEX))))))))7952 (|MultiplicativeExpression/start.1| ATN-PARSER::INDEX)7953 (SETF *ATN-NODE NIL)7954 NIL7955 (IF ATN-PARSER::ATN-STRUCTURE7956 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)7957 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))7958 (WARN "recursive grammar: ~s @ position ~s: ~s" '|MultiplicativeExpression| ATN-PARSER::INDEX *ATN-STACK))))7959 (PROGN (DEFVAR |MultipliedUnary-INDEX|)7960 (DEFUN |MultipliedUnary| (ATN-PARSER::INDEX &AUX (|MultiplicativeOperator| NIL) (|UnaryExpression| NIL))7961 "MultipliedUnary ::= MultiplicativeOperator UnaryExpression7962 (|MultiplicativeOperator| |UnaryExpression|)"7963 (DECLARE (SPECIAL |MultipliedUnary-INDEX|))7964 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |MultipliedUnary-INDEX| *ATN-LEVEL))7965 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))7966 (IF (< |MultipliedUnary-INDEX| ATN-PARSER::INDEX)7967 (LET ((|MultipliedUnary-INDEX| ATN-PARSER::INDEX)7968 (*ATN-LEVEL (1+ *ATN-LEVEL))7969 (*ATN-STACK (CONS '|MultipliedUnary| *ATN-STACK))7970 (ATN-PARSER::ATN-STRUCTURE NIL))7971 (DECLARE (SPECIAL |MultipliedUnary-INDEX|))7972 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))7973 (DECLARE (TYPE CONS *ATN-STACK))7974 (SYMBOL-MACROLET7975 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))7976 (%ATN-BLOCK |MultipliedUnary|7977 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)7978 (SETF *ATN-TERM* '|MultipliedUnary|)7979 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))7980 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)7981 (|MultipliedUnary.2| (ATN-PARSER::INDEX)7982 (%ATN-NODE-BLOCK7983 |MultipliedUnary.2|7984 (%ATN-EDGE-BLOCK7985 (POP |MultipliedUnary|)7986 (WHEN T7987 (SETF *ATN-TERM* '|MultipliedUnary|)7988 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"7989 '|MultipliedUnary|7990 ATN-PARSER::INDEX7991 (LIST '|MultiplicativeOperator|7992 |MultiplicativeOperator|7993 '|UnaryExpression|7994 |UnaryExpression|))7995 (LET ((ATN-PARSER::RESULT-STRUCTURE7996 (IF (EQ *ATN-REDUCE* T)7997 (|MultipliedUnary-Constructor| |MultiplicativeOperator| |UnaryExpression|)7998 (IF (EQ *ATN-REDUCE* 'CONS)7999 (CONS '|MultipliedUnary|8000 (DELETE NIL (LIST |MultiplicativeOperator| |UnaryExpression|)))8001 '|MultipliedUnary|))))8002 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8003 (|MultipliedUnary/fail.3| (ATN-PARSER::INDEX)8004 (%ATN-NODE-BLOCK |MultipliedUnary/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8005 (|MultipliedUnary/MultipliedUnary.2.4| (ATN-PARSER::INDEX)8006 (%ATN-NODE-BLOCK8007 |MultipliedUnary/MultipliedUnary.2.4|8008 (%ATN-EDGE-BLOCK8009 (PUSH |UnaryExpression|)8010 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8011 (ATN-PARSE-SUBSTRUCTURE* '|UnaryExpression| ATN-PARSER::INDEX)8012 (COND (ATN-PARSER::SUCCESS8013 (SETF *ATN-TERM* '|UnaryExpression|)8014 (LET ((|UnaryExpression620| |UnaryExpression|))8015 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8016 (DESTRUCTURING-BIND8017 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8018 ATN-PARSER::RESULT-AND-INDEX8019 (WHEN ATN-PARSER::RESULT (SETF |UnaryExpression| ATN-PARSER::RESULT))8020 (|MultipliedUnary.2| ATN-PARSER::RESULT-INDEX))8021 (SETF |UnaryExpression| |UnaryExpression620|))))8022 (T8023 (SETF *ATN-TERM?* '|UnaryExpression|)8024 (|MultipliedUnary/fail.3| ATN-PARSER::INDEX)))))))8025 (|MultipliedUnary/start.1| (ATN-PARSER::INDEX)8026 (%ATN-NODE-BLOCK8027 |MultipliedUnary/start.1|8028 (%ATN-EDGE-BLOCK8029 (ATN-PARSER::CAT |MultiplicativeOperator|)8030 (COND ((|IS-MultiplicativeOperator| ATN-PARSER::|item|)8031 (SETF *ATN-TERM* '|MultiplicativeOperator|)8032 (SETF |MultiplicativeOperator|8033 (IF (EQ *ATN-REDUCE* T)8034 (ATN-REDUCE-ITEM8035 #'|MultiplicativeOperator-Constructor|8036 ATN-PARSER::|item|)8037 (IF (EQ *ATN-REDUCE* 'CONS)8038 (LIST '|MultiplicativeOperator| ATN-PARSER::|item|)8039 '|MultiplicativeOperator|)))8040 (|MultipliedUnary/MultipliedUnary.2.4| (1+ ATN-PARSER::INDEX)))8041 (T8042 (SETF *ATN-TERM* '|MultiplicativeOperator|)8043 (|MultipliedUnary/fail.3| ATN-PARSER::INDEX)))))))8044 (|MultipliedUnary/start.1| ATN-PARSER::INDEX)8045 (SETF *ATN-NODE NIL)8046 NIL8047 (IF ATN-PARSER::ATN-STRUCTURE8048 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8049 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8050 (WARN "recursive grammar: ~s @ position ~s: ~s" '|MultipliedUnary| ATN-PARSER::INDEX *ATN-STACK))))8051 (PROGN (DEFVAR |UnaryExpression-INDEX|)8052 (DEFUN |UnaryExpression| (ATN-PARSER::INDEX &AUX (|PrimaryExpression| NIL) (|UnaryOperator| NIL))8053 "{54} UnaryExpression ::= ((UnaryOperator PrimaryExpression) | PrimaryExpression)8054 (|PrimaryExpression| |UnaryOperator|)"8055 (DECLARE (SPECIAL |UnaryExpression-INDEX|))8056 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |UnaryExpression-INDEX| *ATN-LEVEL))8057 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8058 (IF (< |UnaryExpression-INDEX| ATN-PARSER::INDEX)8059 (LET ((|UnaryExpression-INDEX| ATN-PARSER::INDEX)8060 (*ATN-LEVEL (1+ *ATN-LEVEL))8061 (*ATN-STACK (CONS '|UnaryExpression| *ATN-STACK))8062 (ATN-PARSER::ATN-STRUCTURE NIL))8063 (DECLARE (SPECIAL |UnaryExpression-INDEX|))8064 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8065 (DECLARE (TYPE CONS *ATN-STACK))8066 (SYMBOL-MACROLET8067 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8068 (%ATN-BLOCK |UnaryExpression|8069 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8070 (SETF *ATN-TERM* '|UnaryExpression|)8071 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8072 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8073 (|UnaryExpression.2| (ATN-PARSER::INDEX)8074 (%ATN-NODE-BLOCK8075 |UnaryExpression.2|8076 (%ATN-EDGE-BLOCK8077 (POP |UnaryExpression|)8078 (WHEN T8079 (SETF *ATN-TERM* '|UnaryExpression|)8080 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8081 '|UnaryExpression|8082 ATN-PARSER::INDEX8083 (LIST '|PrimaryExpression|8084 |PrimaryExpression|8085 '|UnaryOperator|8086 |UnaryOperator|))8087 (LET ((ATN-PARSER::RESULT-STRUCTURE8088 (IF (EQ *ATN-REDUCE* T)8089 (|UnaryExpression-Constructor| |PrimaryExpression| |UnaryOperator|)8090 (IF (EQ *ATN-REDUCE* 'CONS)8091 (CONS '|UnaryExpression|8092 (DELETE NIL (LIST |PrimaryExpression| |UnaryOperator|)))8093 '|UnaryExpression|))))8094 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8095 (|UnaryExpression/fail.3| (ATN-PARSER::INDEX)8096 (%ATN-NODE-BLOCK |UnaryExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8097 (|UnaryExpression/start.1| (ATN-PARSER::INDEX)8098 (%ATN-NODE-BLOCK8099 |UnaryExpression/start.1|8100 (%ATN-EDGE-BLOCK8101 OR8102 (PROGN (%ATN-EDGE-BLOCK8103 (ATN-PARSER::JUMP |UnaryExpression/UnaryExpression.2.4|)8104 (|UnaryExpression/UnaryExpression.2.4| ATN-PARSER::INDEX))8105 (%ATN-EDGE-BLOCK8106 (PUSH |PrimaryExpression|)8107 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8108 (ATN-PARSE-SUBSTRUCTURE* '|PrimaryExpression| ATN-PARSER::INDEX)8109 (COND (ATN-PARSER::SUCCESS8110 (SETF *ATN-TERM* '|PrimaryExpression|)8111 (LET ((|PrimaryExpression620| |PrimaryExpression|))8112 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8113 (DESTRUCTURING-BIND8114 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8115 ATN-PARSER::RESULT-AND-INDEX8116 (WHEN ATN-PARSER::RESULT8117 (SETF |PrimaryExpression| ATN-PARSER::RESULT))8118 (|UnaryExpression.2| ATN-PARSER::RESULT-INDEX))8119 (SETF |PrimaryExpression| |PrimaryExpression620|))))8120 (T (SETF *ATN-TERM?* '|PrimaryExpression|) NIL))))8121 (|UnaryExpression/fail.3| ATN-PARSER::INDEX)))))8122 (|UnaryExpression/UnaryExpression.2.4| (ATN-PARSER::INDEX)8123 (%ATN-NODE-BLOCK8124 |UnaryExpression/UnaryExpression.2.4|8125 (%ATN-EDGE-BLOCK8126 (ATN-PARSER::CAT |UnaryOperator|)8127 (COND ((|IS-UnaryOperator| ATN-PARSER::|item|)8128 (SETF *ATN-TERM* '|UnaryOperator|)8129 (SETF |UnaryOperator|8130 (IF (EQ *ATN-REDUCE* T)8131 (ATN-REDUCE-ITEM #'|UnaryOperator-Constructor| ATN-PARSER::|item|)8132 (IF (EQ *ATN-REDUCE* 'CONS)8133 (LIST '|UnaryOperator| ATN-PARSER::|item|)8134 '|UnaryOperator|)))8135 (|UnaryExpression/UnaryExpression.2.5| (1+ ATN-PARSER::INDEX)))8136 (T (SETF *ATN-TERM* '|UnaryOperator|) NIL)))))8137 (|UnaryExpression/UnaryExpression.2.5| (ATN-PARSER::INDEX)8138 (%ATN-NODE-BLOCK8139 |UnaryExpression/UnaryExpression.2.5|8140 (%ATN-EDGE-BLOCK8141 (PUSH |PrimaryExpression|)8142 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8143 (ATN-PARSE-SUBSTRUCTURE* '|PrimaryExpression| ATN-PARSER::INDEX)8144 (COND (ATN-PARSER::SUCCESS8145 (SETF *ATN-TERM* '|PrimaryExpression|)8146 (LET ((|PrimaryExpression621| |PrimaryExpression|))8147 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8148 (DESTRUCTURING-BIND8149 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8150 ATN-PARSER::RESULT-AND-INDEX8151 (WHEN ATN-PARSER::RESULT (SETF |PrimaryExpression| ATN-PARSER::RESULT))8152 (|UnaryExpression.2| ATN-PARSER::RESULT-INDEX))8153 (SETF |PrimaryExpression| |PrimaryExpression621|))))8154 (T (SETF *ATN-TERM?* '|PrimaryExpression|) NIL)))))))8155 (|UnaryExpression/start.1| ATN-PARSER::INDEX)8156 (SETF *ATN-NODE NIL)8157 NIL8158 (IF ATN-PARSER::ATN-STRUCTURE8159 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8160 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8161 (WARN "recursive grammar: ~s @ position ~s: ~s" '|UnaryExpression| ATN-PARSER::INDEX *ATN-STACK))))8162 (PROGN (DEFVAR |PrimaryExpression-INDEX|)8163 (DEFUN |PrimaryExpression| (ATN-PARSER::INDEX &AUX (|Aggregate| NIL) (|BooleanLiteral| NIL) (|BrackettedExpression| NIL)8164 (|BuiltInCall| NIL) (|IRIrefOrFunction| NIL) (|NumericLiteral| NIL) (|RDFLiteral| NIL)8165 (|Var| NIL))8166 "{55} PrimaryExpression ::= (BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var | Aggregate)8167 (|Aggregate| |BooleanLiteral| |BrackettedExpression| |BuiltInCall| |IRIrefOrFunction| |NumericLiteral| |RDFLiteral| |Var|)"8168 (DECLARE (SPECIAL |PrimaryExpression-INDEX|))8169 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |PrimaryExpression-INDEX| *ATN-LEVEL))8170 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8171 (IF (< |PrimaryExpression-INDEX| ATN-PARSER::INDEX)8172 (LET ((|PrimaryExpression-INDEX| ATN-PARSER::INDEX)8173 (*ATN-LEVEL (1+ *ATN-LEVEL))8174 (*ATN-STACK (CONS '|PrimaryExpression| *ATN-STACK))8175 (ATN-PARSER::ATN-STRUCTURE NIL))8176 (DECLARE (SPECIAL |PrimaryExpression-INDEX|))8177 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8178 (DECLARE (TYPE CONS *ATN-STACK))8179 (SYMBOL-MACROLET8180 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8181 (%ATN-BLOCK |PrimaryExpression|8182 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8183 (SETF *ATN-TERM* '|PrimaryExpression|)8184 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8185 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8186 (|PrimaryExpression.2| (ATN-PARSER::INDEX)8187 (%ATN-NODE-BLOCK8188 |PrimaryExpression.2|8189 (%ATN-EDGE-BLOCK8190 (POP |PrimaryExpression|)8191 (WHEN T8192 (SETF *ATN-TERM* '|PrimaryExpression|)8193 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8194 '|PrimaryExpression|8195 ATN-PARSER::INDEX8196 (LIST '|Aggregate|8197 |Aggregate|8198 '|BooleanLiteral|8199 |BooleanLiteral|8200 '|BrackettedExpression|8201 |BrackettedExpression|8202 '|BuiltInCall|8203 |BuiltInCall|8204 '|IRIrefOrFunction|8205 |IRIrefOrFunction|8206 '|NumericLiteral|8207 |NumericLiteral|8208 '|RDFLiteral|8209 |RDFLiteral|8210 '|Var|8211 |Var|))8212 (LET ((ATN-PARSER::RESULT-STRUCTURE8213 (IF (EQ *ATN-REDUCE* T)8214 (|PrimaryExpression-Constructor|8215 |Aggregate|8216 |BooleanLiteral|8217 |BrackettedExpression|8218 |BuiltInCall|8219 |IRIrefOrFunction|8220 |NumericLiteral|8221 |RDFLiteral|8222 |Var|)8223 (IF (EQ *ATN-REDUCE* 'CONS)8224 (CONS '|PrimaryExpression|8225 (DELETE NIL8226 (LIST |Aggregate|8227 |BooleanLiteral|8228 |BrackettedExpression|8229 |BuiltInCall|8230 |IRIrefOrFunction|8231 |NumericLiteral|8232 |RDFLiteral|8233 |Var|)))8234 '|PrimaryExpression|))))8235 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8236 (|PrimaryExpression/fail.3| (ATN-PARSER::INDEX)8237 (%ATN-NODE-BLOCK |PrimaryExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8238 (|PrimaryExpression/start.1| (ATN-PARSER::INDEX)8239 (%ATN-NODE-BLOCK8240 |PrimaryExpression/start.1|8241 (%ATN-EDGE-BLOCK8242 OR8243 (PROGN (%ATN-EDGE-BLOCK8244 (PUSH |BrackettedExpression|)8245 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8246 (ATN-PARSE-SUBSTRUCTURE* '|BrackettedExpression| ATN-PARSER::INDEX)8247 (COND (ATN-PARSER::SUCCESS8248 (SETF *ATN-TERM* '|BrackettedExpression|)8249 (LET ((|BrackettedExpression621| |BrackettedExpression|))8250 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8251 (DESTRUCTURING-BIND8252 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8253 ATN-PARSER::RESULT-AND-INDEX8254 (WHEN ATN-PARSER::RESULT8255 (SETF |BrackettedExpression| ATN-PARSER::RESULT))8256 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))8257 (SETF |BrackettedExpression| |BrackettedExpression621|))))8258 (T (SETF *ATN-TERM?* '|BrackettedExpression|) NIL))))8259 (%ATN-EDGE-BLOCK8260 (PUSH |BuiltInCall|)8261 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8262 (ATN-PARSE-SUBSTRUCTURE* '|BuiltInCall| ATN-PARSER::INDEX)8263 (COND (ATN-PARSER::SUCCESS8264 (SETF *ATN-TERM* '|BuiltInCall|)8265 (LET ((|BuiltInCall621| |BuiltInCall|))8266 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8267 (DESTRUCTURING-BIND8268 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8269 ATN-PARSER::RESULT-AND-INDEX8270 (WHEN ATN-PARSER::RESULT8271 (SETF |BuiltInCall| ATN-PARSER::RESULT))8272 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))8273 (SETF |BuiltInCall| |BuiltInCall621|))))8274 (T (SETF *ATN-TERM?* '|BuiltInCall|) NIL))))8275 (%ATN-EDGE-BLOCK8276 (PUSH |IRIrefOrFunction|)8277 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8278 (ATN-PARSE-SUBSTRUCTURE* '|IRIrefOrFunction| ATN-PARSER::INDEX)8279 (COND (ATN-PARSER::SUCCESS8280 (SETF *ATN-TERM* '|IRIrefOrFunction|)8281 (LET ((|IRIrefOrFunction621| |IRIrefOrFunction|))8282 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8283 (DESTRUCTURING-BIND8284 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8285 ATN-PARSER::RESULT-AND-INDEX8286 (WHEN ATN-PARSER::RESULT8287 (SETF |IRIrefOrFunction| ATN-PARSER::RESULT))8288 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))8289 (SETF |IRIrefOrFunction| |IRIrefOrFunction621|))))8290 (T (SETF *ATN-TERM?* '|IRIrefOrFunction|) NIL))))8291 (%ATN-EDGE-BLOCK8292 (PUSH |RDFLiteral|)8293 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8294 (ATN-PARSE-SUBSTRUCTURE* '|RDFLiteral| ATN-PARSER::INDEX)8295 (COND (ATN-PARSER::SUCCESS8296 (SETF *ATN-TERM* '|RDFLiteral|)8297 (LET ((|RDFLiteral621| |RDFLiteral|))8298 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8299 (DESTRUCTURING-BIND8300 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8301 ATN-PARSER::RESULT-AND-INDEX8302 (WHEN ATN-PARSER::RESULT8303 (SETF |RDFLiteral| ATN-PARSER::RESULT))8304 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))8305 (SETF |RDFLiteral| |RDFLiteral621|))))8306 (T (SETF *ATN-TERM?* '|RDFLiteral|) NIL))))8307 (%ATN-EDGE-BLOCK8308 (ATN-PARSER::CAT |NumericLiteral|)8309 (COND ((|IS-NumericLiteral| ATN-PARSER::|item|)8310 (SETF *ATN-TERM* '|NumericLiteral|)8311 (SETF |NumericLiteral|8312 (IF (EQ *ATN-REDUCE* T)8313 (ATN-REDUCE-ITEM8314 #'|NumericLiteral-Constructor|8315 ATN-PARSER::|item|)8316 (IF (EQ *ATN-REDUCE* 'CONS)8317 (LIST '|NumericLiteral| ATN-PARSER::|item|)8318 '|NumericLiteral|)))8319 (|PrimaryExpression.2| (1+ ATN-PARSER::INDEX)))8320 (T (SETF *ATN-TERM* '|NumericLiteral|) NIL)))8321 (%ATN-EDGE-BLOCK8322 (ATN-PARSER::CAT |BooleanLiteral|)8323 (COND ((|IS-BooleanLiteral| ATN-PARSER::|item|)8324 (SETF *ATN-TERM* '|BooleanLiteral|)8325 (SETF |BooleanLiteral|8326 (IF (EQ *ATN-REDUCE* T)8327 (ATN-REDUCE-ITEM8328 #'|BooleanLiteral-Constructor|8329 ATN-PARSER::|item|)8330 (IF (EQ *ATN-REDUCE* 'CONS)8331 (LIST '|BooleanLiteral| ATN-PARSER::|item|)8332 '|BooleanLiteral|)))8333 (|PrimaryExpression.2| (1+ ATN-PARSER::INDEX)))8334 (T (SETF *ATN-TERM* '|BooleanLiteral|) NIL)))8335 (%ATN-EDGE-BLOCK8336 (TEST |Var|)8337 (COND ((|IS-Var| ATN-PARSER::|item|)8338 (SETF *ATN-TERM* '|Var|)8339 (SETF |Var|8340 (IF (EQ *ATN-REDUCE* T)8341 (ATN-REDUCE-ITEM #'|Var-Constructor| ATN-PARSER::|item|)8342 (IF (EQ *ATN-REDUCE* 'CONS)8343 (LIST '|Var| ATN-PARSER::|item|)8344 '|Var|)))8345 (|PrimaryExpression.2| (1+ ATN-PARSER::INDEX)))8346 (T (SETF *ATN-TERM?* '|Var|) NIL)))8347 (%ATN-EDGE-BLOCK8348 (PUSH |Aggregate|)8349 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8350 (ATN-PARSE-SUBSTRUCTURE* '|Aggregate| ATN-PARSER::INDEX)8351 (COND (ATN-PARSER::SUCCESS8352 (SETF *ATN-TERM* '|Aggregate|)8353 (LET ((|Aggregate621| |Aggregate|))8354 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8355 (DESTRUCTURING-BIND8356 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8357 ATN-PARSER::RESULT-AND-INDEX8358 (WHEN ATN-PARSER::RESULT (SETF |Aggregate| ATN-PARSER::RESULT))8359 (|PrimaryExpression.2| ATN-PARSER::RESULT-INDEX))8360 (SETF |Aggregate| |Aggregate621|))))8361 (T (SETF *ATN-TERM?* '|Aggregate|) NIL))))8362 (|PrimaryExpression/fail.3| ATN-PARSER::INDEX))))))8363 (|PrimaryExpression/start.1| ATN-PARSER::INDEX)8364 (SETF *ATN-NODE NIL)8365 NIL8366 (IF ATN-PARSER::ATN-STRUCTURE8367 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8368 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8369 (WARN "recursive grammar: ~s @ position ~s: ~s" '|PrimaryExpression| ATN-PARSER::INDEX *ATN-STACK))))8370 (PROGN (DEFVAR |BrackettedExpression-INDEX|)8371 (DEFUN |BrackettedExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))8372 "{56} BrackettedExpression ::= '(' Expression ')'8373 (|Expression|)"8374 (DECLARE (SPECIAL |BrackettedExpression-INDEX|))8375 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BrackettedExpression-INDEX| *ATN-LEVEL))8376 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8377 (IF (< |BrackettedExpression-INDEX| ATN-PARSER::INDEX)8378 (LET ((|BrackettedExpression-INDEX| ATN-PARSER::INDEX)8379 (*ATN-LEVEL (1+ *ATN-LEVEL))8380 (*ATN-STACK (CONS '|BrackettedExpression| *ATN-STACK))8381 (ATN-PARSER::ATN-STRUCTURE NIL))8382 (DECLARE (SPECIAL |BrackettedExpression-INDEX|))8383 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8384 (DECLARE (TYPE CONS *ATN-STACK))8385 (SYMBOL-MACROLET8386 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8387 (%ATN-BLOCK |BrackettedExpression|8388 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8389 (SETF *ATN-TERM* '|BrackettedExpression|)8390 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8391 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8392 (|BrackettedExpression.2| (ATN-PARSER::INDEX)8393 (%ATN-NODE-BLOCK8394 |BrackettedExpression.2|8395 (%ATN-EDGE-BLOCK8396 (POP |BrackettedExpression|)8397 (WHEN T8398 (SETF *ATN-TERM* '|BrackettedExpression|)8399 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8400 '|BrackettedExpression|8401 ATN-PARSER::INDEX8402 (LIST '|Expression| |Expression|))8403 (LET ((ATN-PARSER::RESULT-STRUCTURE8404 (IF (EQ *ATN-REDUCE* T)8405 (|BrackettedExpression-Constructor| |Expression|)8406 (IF (EQ *ATN-REDUCE* 'CONS)8407 (CONS '|BrackettedExpression| (DELETE NIL (LIST |Expression|)))8408 '|BrackettedExpression|))))8409 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8410 (|BrackettedExpression/BrackettedExpression.2.4| (ATN-PARSER::INDEX)8411 (%ATN-NODE-BLOCK8412 |BrackettedExpression/BrackettedExpression.2.4|8413 (%ATN-EDGE-BLOCK8414 (PUSH |Expression|)8415 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8416 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)8417 (COND (ATN-PARSER::SUCCESS8418 (SETF *ATN-TERM* '|Expression|)8419 (LET ((|Expression621| |Expression|))8420 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8421 (DESTRUCTURING-BIND8422 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8423 ATN-PARSER::RESULT-AND-INDEX8424 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))8425 (|BrackettedExpression/BrackettedExpression.2.5|8426 ATN-PARSER::RESULT-INDEX))8427 (SETF |Expression| |Expression621|))))8428 (T8429 (SETF *ATN-TERM?* '|Expression|)8430 (|BrackettedExpression/fail.3| ATN-PARSER::INDEX)))))))8431 (|BrackettedExpression/BrackettedExpression.2.5| (ATN-PARSER::INDEX)8432 (%ATN-NODE-BLOCK8433 |BrackettedExpression/BrackettedExpression.2.5|8434 (%ATN-EDGE-BLOCK8435 (ATN-PARSER::WORD SPOCQ.S:\))8436 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))8437 (SETF *ATN-TERM* 'SPOCQ.S:\))8438 (|BrackettedExpression.2| (1+ ATN-PARSER::INDEX)))8439 (T8440 (SETF *ATN-TERM?* 'SPOCQ.S:\))8441 (|BrackettedExpression/fail.3| ATN-PARSER::INDEX))))))8442 (|BrackettedExpression/fail.3| (ATN-PARSER::INDEX)8443 (%ATN-NODE-BLOCK8444 |BrackettedExpression/fail.3|8445 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8446 (|BrackettedExpression/start.1| (ATN-PARSER::INDEX)8447 (%ATN-NODE-BLOCK8448 |BrackettedExpression/start.1|8449 (%ATN-EDGE-BLOCK8450 (ATN-PARSER::WORD SPOCQ.S:\()8451 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()8452 (SETF *ATN-TERM* 'SPOCQ.S:\()8453 (|BrackettedExpression/BrackettedExpression.2.4| (1+ ATN-PARSER::INDEX)))8454 (T8455 (SETF *ATN-TERM?* 'SPOCQ.S:\()8456 (|BrackettedExpression/fail.3| ATN-PARSER::INDEX)))))))8457 (|BrackettedExpression/start.1| ATN-PARSER::INDEX)8458 (SETF *ATN-NODE NIL)8459 NIL8460 (IF ATN-PARSER::ATN-STRUCTURE8461 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8462 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8463 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BrackettedExpression| ATN-PARSER::INDEX *ATN-STACK))))8464 (PROGN (DEFVAR |BuiltInCall-INDEX|)8465 (DEFUN |BuiltInCall| (ATN-PARSER::INDEX &AUX (|BuiltinBinaryCall| NIL) (|BuiltinListCall| NIL) (|BuiltinNullCall| NIL)8466 (|BuiltinNullOrUnaryCall| NIL) (|BuiltinUnaryCall| NIL) (|ExistsFunc| NIL) (|IfExpression| NIL)8467 (|NotExistsFunc| NIL) (|RegexExpression| NIL) (|SubstringExpression| NIL))8468 "{57} BuiltInCall ::= (BuiltinNullCall | BuiltinNullOrUnaryCall | BuiltinBinaryCall | BuiltinUnaryCall | BuiltinListCall | RegexExpression | IfExpression | SubstringExpression | ExistsFunc | NotExistsFunc)8469 (|BuiltinBinaryCall| |BuiltinListCall| |BuiltinNullCall| |BuiltinNullOrUnaryCall| |BuiltinUnaryCall| |ExistsFunc| |IfExpression| |NotExistsFunc| |RegexExpression| |SubstringExpression|)"8470 (DECLARE (SPECIAL |BuiltInCall-INDEX|))8471 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltInCall-INDEX| *ATN-LEVEL))8472 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8473 (IF (< |BuiltInCall-INDEX| ATN-PARSER::INDEX)8474 (LET ((|BuiltInCall-INDEX| ATN-PARSER::INDEX)8475 (*ATN-LEVEL (1+ *ATN-LEVEL))8476 (*ATN-STACK (CONS '|BuiltInCall| *ATN-STACK))8477 (ATN-PARSER::ATN-STRUCTURE NIL))8478 (DECLARE (SPECIAL |BuiltInCall-INDEX|))8479 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8480 (DECLARE (TYPE CONS *ATN-STACK))8481 (SYMBOL-MACROLET8482 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8483 (%ATN-BLOCK |BuiltInCall|8484 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8485 (SETF *ATN-TERM* '|BuiltInCall|)8486 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8487 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8488 (|BuiltInCall.2| (ATN-PARSER::INDEX)8489 (%ATN-NODE-BLOCK8490 |BuiltInCall.2|8491 (%ATN-EDGE-BLOCK8492 (POP |BuiltInCall|)8493 (WHEN T8494 (SETF *ATN-TERM* '|BuiltInCall|)8495 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8496 '|BuiltInCall|8497 ATN-PARSER::INDEX8498 (LIST '|BuiltinBinaryCall|8499 |BuiltinBinaryCall|8500 '|BuiltinListCall|8501 |BuiltinListCall|8502 '|BuiltinNullCall|8503 |BuiltinNullCall|8504 '|BuiltinNullOrUnaryCall|8505 |BuiltinNullOrUnaryCall|8506 '|BuiltinUnaryCall|8507 |BuiltinUnaryCall|8508 '|ExistsFunc|8509 |ExistsFunc|8510 '|IfExpression|8511 |IfExpression|8512 '|NotExistsFunc|8513 |NotExistsFunc|8514 '|RegexExpression|8515 |RegexExpression|8516 '|SubstringExpression|8517 |SubstringExpression|))8518 (LET ((ATN-PARSER::RESULT-STRUCTURE8519 (IF (EQ *ATN-REDUCE* T)8520 (|BuiltInCall-Constructor|8521 |BuiltinBinaryCall|8522 |BuiltinListCall|8523 |BuiltinNullCall|8524 |BuiltinNullOrUnaryCall|8525 |BuiltinUnaryCall|8526 |ExistsFunc|8527 |IfExpression|8528 |NotExistsFunc|8529 |RegexExpression|8530 |SubstringExpression|)8531 (IF (EQ *ATN-REDUCE* 'CONS)8532 (CONS '|BuiltInCall|8533 (DELETE NIL8534 (LIST |BuiltinBinaryCall|8535 |BuiltinListCall|8536 |BuiltinNullCall|8537 |BuiltinNullOrUnaryCall|8538 |BuiltinUnaryCall|8539 |ExistsFunc|8540 |IfExpression|8541 |NotExistsFunc|8542 |RegexExpression|8543 |SubstringExpression|)))8544 '|BuiltInCall|))))8545 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8546 (|BuiltInCall/fail.3| (ATN-PARSER::INDEX)8547 (%ATN-NODE-BLOCK |BuiltInCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8548 (|BuiltInCall/start.1| (ATN-PARSER::INDEX)8549 (%ATN-NODE-BLOCK8550 |BuiltInCall/start.1|8551 (%ATN-EDGE-BLOCK8552 OR8553 (PROGN (%ATN-EDGE-BLOCK8554 (PUSH |BuiltinNullCall|)8555 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8556 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinNullCall| ATN-PARSER::INDEX)8557 (COND (ATN-PARSER::SUCCESS8558 (SETF *ATN-TERM* '|BuiltinNullCall|)8559 (LET ((|BuiltinNullCall621| |BuiltinNullCall|))8560 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8561 (DESTRUCTURING-BIND8562 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8563 ATN-PARSER::RESULT-AND-INDEX8564 (WHEN ATN-PARSER::RESULT8565 (SETF |BuiltinNullCall| ATN-PARSER::RESULT))8566 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))8567 (SETF |BuiltinNullCall| |BuiltinNullCall621|))))8568 (T (SETF *ATN-TERM?* '|BuiltinNullCall|) NIL))))8569 (%ATN-EDGE-BLOCK8570 (PUSH |BuiltinNullOrUnaryCall|)8571 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8572 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinNullOrUnaryCall| ATN-PARSER::INDEX)8573 (COND (ATN-PARSER::SUCCESS8574 (SETF *ATN-TERM* '|BuiltinNullOrUnaryCall|)8575 (LET ((|BuiltinNullOrUnaryCall621| |BuiltinNullOrUnaryCall|))8576 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8577 (DESTRUCTURING-BIND8578 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8579 ATN-PARSER::RESULT-AND-INDEX8580 (WHEN ATN-PARSER::RESULT8581 (SETF |BuiltinNullOrUnaryCall| ATN-PARSER::RESULT))8582 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))8583 (SETF |BuiltinNullOrUnaryCall| |BuiltinNullOrUnaryCall621|))))8584 (T (SETF *ATN-TERM?* '|BuiltinNullOrUnaryCall|) NIL))))8585 (%ATN-EDGE-BLOCK8586 (PUSH |BuiltinBinaryCall|)8587 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8588 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinBinaryCall| ATN-PARSER::INDEX)8589 (COND (ATN-PARSER::SUCCESS8590 (SETF *ATN-TERM* '|BuiltinBinaryCall|)8591 (LET ((|BuiltinBinaryCall621| |BuiltinBinaryCall|))8592 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8593 (DESTRUCTURING-BIND8594 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8595 ATN-PARSER::RESULT-AND-INDEX8596 (WHEN ATN-PARSER::RESULT8597 (SETF |BuiltinBinaryCall| ATN-PARSER::RESULT))8598 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))8599 (SETF |BuiltinBinaryCall| |BuiltinBinaryCall621|))))8600 (T (SETF *ATN-TERM?* '|BuiltinBinaryCall|) NIL))))8601 (%ATN-EDGE-BLOCK8602 (PUSH |BuiltinUnaryCall|)8603 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8604 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinUnaryCall| ATN-PARSER::INDEX)8605 (COND (ATN-PARSER::SUCCESS8606 (SETF *ATN-TERM* '|BuiltinUnaryCall|)8607 (LET ((|BuiltinUnaryCall621| |BuiltinUnaryCall|))8608 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8609 (DESTRUCTURING-BIND8610 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8611 ATN-PARSER::RESULT-AND-INDEX8612 (WHEN ATN-PARSER::RESULT8613 (SETF |BuiltinUnaryCall| ATN-PARSER::RESULT))8614 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))8615 (SETF |BuiltinUnaryCall| |BuiltinUnaryCall621|))))8616 (T (SETF *ATN-TERM?* '|BuiltinUnaryCall|) NIL))))8617 (%ATN-EDGE-BLOCK8618 (PUSH |BuiltinListCall|)8619 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8620 (ATN-PARSE-SUBSTRUCTURE* '|BuiltinListCall| ATN-PARSER::INDEX)8621 (COND (ATN-PARSER::SUCCESS8622 (SETF *ATN-TERM* '|BuiltinListCall|)8623 (LET ((|BuiltinListCall621| |BuiltinListCall|))8624 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8625 (DESTRUCTURING-BIND8626 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8627 ATN-PARSER::RESULT-AND-INDEX8628 (WHEN ATN-PARSER::RESULT8629 (SETF |BuiltinListCall| ATN-PARSER::RESULT))8630 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))8631 (SETF |BuiltinListCall| |BuiltinListCall621|))))8632 (T (SETF *ATN-TERM?* '|BuiltinListCall|) NIL))))8633 (%ATN-EDGE-BLOCK8634 (PUSH |RegexExpression|)8635 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8636 (ATN-PARSE-SUBSTRUCTURE* '|RegexExpression| ATN-PARSER::INDEX)8637 (COND (ATN-PARSER::SUCCESS8638 (SETF *ATN-TERM* '|RegexExpression|)8639 (LET ((|RegexExpression621| |RegexExpression|))8640 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8641 (DESTRUCTURING-BIND8642 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8643 ATN-PARSER::RESULT-AND-INDEX8644 (WHEN ATN-PARSER::RESULT8645 (SETF |RegexExpression| ATN-PARSER::RESULT))8646 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))8647 (SETF |RegexExpression| |RegexExpression621|))))8648 (T (SETF *ATN-TERM?* '|RegexExpression|) NIL))))8649 (%ATN-EDGE-BLOCK8650 (PUSH |IfExpression|)8651 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8652 (ATN-PARSE-SUBSTRUCTURE* '|IfExpression| ATN-PARSER::INDEX)8653 (COND (ATN-PARSER::SUCCESS8654 (SETF *ATN-TERM* '|IfExpression|)8655 (LET ((|IfExpression621| |IfExpression|))8656 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8657 (DESTRUCTURING-BIND8658 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8659 ATN-PARSER::RESULT-AND-INDEX8660 (WHEN ATN-PARSER::RESULT8661 (SETF |IfExpression| ATN-PARSER::RESULT))8662 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))8663 (SETF |IfExpression| |IfExpression621|))))8664 (T (SETF *ATN-TERM?* '|IfExpression|) NIL))))8665 (%ATN-EDGE-BLOCK8666 (PUSH |SubstringExpression|)8667 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8668 (ATN-PARSE-SUBSTRUCTURE* '|SubstringExpression| ATN-PARSER::INDEX)8669 (COND (ATN-PARSER::SUCCESS8670 (SETF *ATN-TERM* '|SubstringExpression|)8671 (LET ((|SubstringExpression621| |SubstringExpression|))8672 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8673 (DESTRUCTURING-BIND8674 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8675 ATN-PARSER::RESULT-AND-INDEX8676 (WHEN ATN-PARSER::RESULT8677 (SETF |SubstringExpression| ATN-PARSER::RESULT))8678 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))8679 (SETF |SubstringExpression| |SubstringExpression621|))))8680 (T (SETF *ATN-TERM?* '|SubstringExpression|) NIL))))8681 (%ATN-EDGE-BLOCK8682 (PUSH |ExistsFunc|)8683 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8684 (ATN-PARSE-SUBSTRUCTURE* '|ExistsFunc| ATN-PARSER::INDEX)8685 (COND (ATN-PARSER::SUCCESS8686 (SETF *ATN-TERM* '|ExistsFunc|)8687 (LET ((|ExistsFunc621| |ExistsFunc|))8688 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8689 (DESTRUCTURING-BIND8690 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8691 ATN-PARSER::RESULT-AND-INDEX8692 (WHEN ATN-PARSER::RESULT8693 (SETF |ExistsFunc| ATN-PARSER::RESULT))8694 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))8695 (SETF |ExistsFunc| |ExistsFunc621|))))8696 (T (SETF *ATN-TERM?* '|ExistsFunc|) NIL))))8697 (%ATN-EDGE-BLOCK8698 (PUSH |NotExistsFunc|)8699 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8700 (ATN-PARSE-SUBSTRUCTURE* '|NotExistsFunc| ATN-PARSER::INDEX)8701 (COND (ATN-PARSER::SUCCESS8702 (SETF *ATN-TERM* '|NotExistsFunc|)8703 (LET ((|NotExistsFunc621| |NotExistsFunc|))8704 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8705 (DESTRUCTURING-BIND8706 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8707 ATN-PARSER::RESULT-AND-INDEX8708 (WHEN ATN-PARSER::RESULT8709 (SETF |NotExistsFunc| ATN-PARSER::RESULT))8710 (|BuiltInCall.2| ATN-PARSER::RESULT-INDEX))8711 (SETF |NotExistsFunc| |NotExistsFunc621|))))8712 (T (SETF *ATN-TERM?* '|NotExistsFunc|) NIL))))8713 (|BuiltInCall/fail.3| ATN-PARSER::INDEX))))))8714 (|BuiltInCall/start.1| ATN-PARSER::INDEX)8715 (SETF *ATN-NODE NIL)8716 NIL8717 (IF ATN-PARSER::ATN-STRUCTURE8718 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8719 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8720 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltInCall| ATN-PARSER::INDEX *ATN-STACK))))8721 (PROGN (DEFVAR |BuiltinNullCall-INDEX|)8722 (DEFUN |BuiltinNullCall| (ATN-PARSER::INDEX &AUX (|NullOperator| NIL))8723 "BuiltinNullCall ::= NullOperator '(' ')'8724 (|NullOperator|)"8725 (DECLARE (SPECIAL |BuiltinNullCall-INDEX|))8726 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinNullCall-INDEX| *ATN-LEVEL))8727 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8728 (IF (< |BuiltinNullCall-INDEX| ATN-PARSER::INDEX)8729 (LET ((|BuiltinNullCall-INDEX| ATN-PARSER::INDEX)8730 (*ATN-LEVEL (1+ *ATN-LEVEL))8731 (*ATN-STACK (CONS '|BuiltinNullCall| *ATN-STACK))8732 (ATN-PARSER::ATN-STRUCTURE NIL))8733 (DECLARE (SPECIAL |BuiltinNullCall-INDEX|))8734 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8735 (DECLARE (TYPE CONS *ATN-STACK))8736 (SYMBOL-MACROLET8737 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8738 (%ATN-BLOCK |BuiltinNullCall|8739 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8740 (SETF *ATN-TERM* '|BuiltinNullCall|)8741 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8742 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8743 (|BuiltinNullCall.2| (ATN-PARSER::INDEX)8744 (%ATN-NODE-BLOCK8745 |BuiltinNullCall.2|8746 (%ATN-EDGE-BLOCK8747 (POP |BuiltinNullCall|)8748 (WHEN T8749 (SETF *ATN-TERM* '|BuiltinNullCall|)8750 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8751 '|BuiltinNullCall|8752 ATN-PARSER::INDEX8753 (LIST '|NullOperator| |NullOperator|))8754 (LET ((ATN-PARSER::RESULT-STRUCTURE8755 (IF (EQ *ATN-REDUCE* T)8756 (|BuiltinNullCall-Constructor| |NullOperator|)8757 (IF (EQ *ATN-REDUCE* 'CONS)8758 (CONS '|BuiltinNullCall| (DELETE NIL (LIST |NullOperator|)))8759 '|BuiltinNullCall|))))8760 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8761 (|BuiltinNullCall/BuiltinNullCall.2.4| (ATN-PARSER::INDEX)8762 (%ATN-NODE-BLOCK8763 |BuiltinNullCall/BuiltinNullCall.2.4|8764 (%ATN-EDGE-BLOCK8765 (ATN-PARSER::WORD SPOCQ.S:\()8766 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()8767 (SETF *ATN-TERM* 'SPOCQ.S:\()8768 (|BuiltinNullCall/BuiltinNullCall.2.5| (1+ ATN-PARSER::INDEX)))8769 (T8770 (SETF *ATN-TERM?* 'SPOCQ.S:\()8771 (|BuiltinNullCall/fail.3| ATN-PARSER::INDEX))))))8772 (|BuiltinNullCall/BuiltinNullCall.2.5| (ATN-PARSER::INDEX)8773 (%ATN-NODE-BLOCK8774 |BuiltinNullCall/BuiltinNullCall.2.5|8775 (%ATN-EDGE-BLOCK8776 (ATN-PARSER::WORD SPOCQ.S:\))8777 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))8778 (SETF *ATN-TERM* 'SPOCQ.S:\))8779 (|BuiltinNullCall.2| (1+ ATN-PARSER::INDEX)))8780 (T8781 (SETF *ATN-TERM?* 'SPOCQ.S:\))8782 (|BuiltinNullCall/fail.3| ATN-PARSER::INDEX))))))8783 (|BuiltinNullCall/fail.3| (ATN-PARSER::INDEX)8784 (%ATN-NODE-BLOCK |BuiltinNullCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8785 (|BuiltinNullCall/start.1| (ATN-PARSER::INDEX)8786 (%ATN-NODE-BLOCK8787 |BuiltinNullCall/start.1|8788 (%ATN-EDGE-BLOCK8789 (ATN-PARSER::CAT |NullOperator|)8790 (COND ((|IS-NullOperator| ATN-PARSER::|item|)8791 (SETF *ATN-TERM* '|NullOperator|)8792 (SETF |NullOperator|8793 (IF (EQ *ATN-REDUCE* T)8794 (ATN-REDUCE-ITEM #'|NullOperator-Constructor| ATN-PARSER::|item|)8795 (IF (EQ *ATN-REDUCE* 'CONS)8796 (LIST '|NullOperator| ATN-PARSER::|item|)8797 '|NullOperator|)))8798 (|BuiltinNullCall/BuiltinNullCall.2.4| (1+ ATN-PARSER::INDEX)))8799 (T8800 (SETF *ATN-TERM* '|NullOperator|)8801 (|BuiltinNullCall/fail.3| ATN-PARSER::INDEX)))))))8802 (|BuiltinNullCall/start.1| ATN-PARSER::INDEX)8803 (SETF *ATN-NODE NIL)8804 NIL8805 (IF ATN-PARSER::ATN-STRUCTURE8806 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8807 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8808 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinNullCall| ATN-PARSER::INDEX *ATN-STACK))))8809 (PROGN (DEFVAR |BuiltinNullOrUnaryCall-INDEX|)8810 (DEFUN |BuiltinNullOrUnaryCall| (ATN-PARSER::INDEX &AUX (|Expression| NIL) (|NullOrUnaryOperator| NIL))8811 "BuiltinNullOrUnaryCall ::= NullOrUnaryOperator '(' Expression? ')'8812 (|Expression| |NullOrUnaryOperator|)"8813 (DECLARE (SPECIAL |BuiltinNullOrUnaryCall-INDEX|))8814 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinNullOrUnaryCall-INDEX| *ATN-LEVEL))8815 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8816 (IF (< |BuiltinNullOrUnaryCall-INDEX| ATN-PARSER::INDEX)8817 (LET ((|BuiltinNullOrUnaryCall-INDEX| ATN-PARSER::INDEX)8818 (*ATN-LEVEL (1+ *ATN-LEVEL))8819 (*ATN-STACK (CONS '|BuiltinNullOrUnaryCall| *ATN-STACK))8820 (ATN-PARSER::ATN-STRUCTURE NIL))8821 (DECLARE (SPECIAL |BuiltinNullOrUnaryCall-INDEX|))8822 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8823 (DECLARE (TYPE CONS *ATN-STACK))8824 (SYMBOL-MACROLET8825 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8826 (%ATN-BLOCK |BuiltinNullOrUnaryCall|8827 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8828 (SETF *ATN-TERM* '|BuiltinNullOrUnaryCall|)8829 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8830 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8831 (|BuiltinNullOrUnaryCall.2| (ATN-PARSER::INDEX)8832 (%ATN-NODE-BLOCK8833 |BuiltinNullOrUnaryCall.2|8834 (%ATN-EDGE-BLOCK8835 (POP |BuiltinNullOrUnaryCall|)8836 (WHEN T8837 (SETF *ATN-TERM* '|BuiltinNullOrUnaryCall|)8838 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8839 '|BuiltinNullOrUnaryCall|8840 ATN-PARSER::INDEX8841 (LIST '|Expression|8842 |Expression|8843 '|NullOrUnaryOperator|8844 |NullOrUnaryOperator|))8845 (LET ((ATN-PARSER::RESULT-STRUCTURE8846 (IF (EQ *ATN-REDUCE* T)8847 (|BuiltinNullOrUnaryCall-Constructor| |Expression| |NullOrUnaryOperator|)8848 (IF (EQ *ATN-REDUCE* 'CONS)8849 (CONS '|BuiltinNullOrUnaryCall|8850 (DELETE NIL (LIST |Expression| |NullOrUnaryOperator|)))8851 '|BuiltinNullOrUnaryCall|))))8852 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8853 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.4| (ATN-PARSER::INDEX)8854 (%ATN-NODE-BLOCK8855 |BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.4|8856 (%ATN-EDGE-BLOCK8857 (ATN-PARSER::WORD SPOCQ.S:\()8858 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()8859 (SETF *ATN-TERM* 'SPOCQ.S:\()8860 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.5| (1+ ATN-PARSER::INDEX)))8861 (T8862 (SETF *ATN-TERM?* 'SPOCQ.S:\()8863 (|BuiltinNullOrUnaryCall/fail.3| ATN-PARSER::INDEX))))))8864 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.5| (ATN-PARSER::INDEX)8865 (%ATN-NODE-BLOCK8866 |BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.5|8867 (%ATN-EDGE-BLOCK8868 (PUSH |Expression|)8869 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8870 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)8871 (COND (ATN-PARSER::SUCCESS8872 (SETF *ATN-TERM* '|Expression|)8873 (LET ((|Expression622| |Expression|))8874 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8875 (DESTRUCTURING-BIND8876 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8877 ATN-PARSER::RESULT-AND-INDEX8878 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))8879 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.6|8880 ATN-PARSER::RESULT-INDEX))8881 (SETF |Expression| |Expression622|))))8882 (T8883 (SETF *ATN-TERM?* '|Expression|)8884 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.6| ATN-PARSER::INDEX)))))))8885 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.6| (ATN-PARSER::INDEX)8886 (%ATN-NODE-BLOCK8887 |BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.6|8888 (%ATN-EDGE-BLOCK8889 (ATN-PARSER::WORD SPOCQ.S:\))8890 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))8891 (SETF *ATN-TERM* 'SPOCQ.S:\))8892 (|BuiltinNullOrUnaryCall.2| (1+ ATN-PARSER::INDEX)))8893 (T8894 (SETF *ATN-TERM?* 'SPOCQ.S:\))8895 (|BuiltinNullOrUnaryCall/fail.3| ATN-PARSER::INDEX))))))8896 (|BuiltinNullOrUnaryCall/fail.3| (ATN-PARSER::INDEX)8897 (%ATN-NODE-BLOCK8898 |BuiltinNullOrUnaryCall/fail.3|8899 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))8900 (|BuiltinNullOrUnaryCall/start.1| (ATN-PARSER::INDEX)8901 (%ATN-NODE-BLOCK8902 |BuiltinNullOrUnaryCall/start.1|8903 (%ATN-EDGE-BLOCK8904 (ATN-PARSER::CAT |NullOrUnaryOperator|)8905 (COND ((|IS-NullOrUnaryOperator| ATN-PARSER::|item|)8906 (SETF *ATN-TERM* '|NullOrUnaryOperator|)8907 (SETF |NullOrUnaryOperator|8908 (IF (EQ *ATN-REDUCE* T)8909 (ATN-REDUCE-ITEM8910 #'|NullOrUnaryOperator-Constructor|8911 ATN-PARSER::|item|)8912 (IF (EQ *ATN-REDUCE* 'CONS)8913 (LIST '|NullOrUnaryOperator| ATN-PARSER::|item|)8914 '|NullOrUnaryOperator|)))8915 (|BuiltinNullOrUnaryCall/BuiltinNullOrUnaryCall.2.4| (1+ ATN-PARSER::INDEX)))8916 (T8917 (SETF *ATN-TERM* '|NullOrUnaryOperator|)8918 (|BuiltinNullOrUnaryCall/fail.3| ATN-PARSER::INDEX)))))))8919 (|BuiltinNullOrUnaryCall/start.1| ATN-PARSER::INDEX)8920 (SETF *ATN-NODE NIL)8921 NIL8922 (IF ATN-PARSER::ATN-STRUCTURE8923 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)8924 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))8925 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinNullOrUnaryCall| ATN-PARSER::INDEX *ATN-STACK))))8926 (PROGN (DEFVAR |BuiltinUnaryCall-INDEX|)8927 (DEFUN |BuiltinUnaryCall| (ATN-PARSER::INDEX &AUX (|BuiltinUnaryOperator| NIL) (|Expression| NIL))8928 "{57} BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'8929 (|BuiltinUnaryOperator| |Expression|)"8930 (DECLARE (SPECIAL |BuiltinUnaryCall-INDEX|))8931 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinUnaryCall-INDEX| *ATN-LEVEL))8932 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))8933 (IF (< |BuiltinUnaryCall-INDEX| ATN-PARSER::INDEX)8934 (LET ((|BuiltinUnaryCall-INDEX| ATN-PARSER::INDEX)8935 (*ATN-LEVEL (1+ *ATN-LEVEL))8936 (*ATN-STACK (CONS '|BuiltinUnaryCall| *ATN-STACK))8937 (ATN-PARSER::ATN-STRUCTURE NIL))8938 (DECLARE (SPECIAL |BuiltinUnaryCall-INDEX|))8939 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))8940 (DECLARE (TYPE CONS *ATN-STACK))8941 (SYMBOL-MACROLET8942 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))8943 (%ATN-BLOCK |BuiltinUnaryCall|8944 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)8945 (SETF *ATN-TERM* '|BuiltinUnaryCall|)8946 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))8947 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)8948 (|BuiltinUnaryCall.2| (ATN-PARSER::INDEX)8949 (%ATN-NODE-BLOCK8950 |BuiltinUnaryCall.2|8951 (%ATN-EDGE-BLOCK8952 (POP |BuiltinUnaryCall|)8953 (WHEN T8954 (SETF *ATN-TERM* '|BuiltinUnaryCall|)8955 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"8956 '|BuiltinUnaryCall|8957 ATN-PARSER::INDEX8958 (LIST '|BuiltinUnaryOperator|8959 |BuiltinUnaryOperator|8960 '|Expression|8961 |Expression|))8962 (LET ((ATN-PARSER::RESULT-STRUCTURE8963 (IF (EQ *ATN-REDUCE* T)8964 (|BuiltinUnaryCall-Constructor| |BuiltinUnaryOperator| |Expression|)8965 (IF (EQ *ATN-REDUCE* 'CONS)8966 (CONS '|BuiltinUnaryCall|8967 (DELETE NIL (LIST |BuiltinUnaryOperator| |Expression|)))8968 '|BuiltinUnaryCall|))))8969 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))8970 (|BuiltinUnaryCall/BuiltinUnaryCall.2.4| (ATN-PARSER::INDEX)8971 (%ATN-NODE-BLOCK8972 |BuiltinUnaryCall/BuiltinUnaryCall.2.4|8973 (%ATN-EDGE-BLOCK8974 (ATN-PARSER::WORD SPOCQ.S:\()8975 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()8976 (SETF *ATN-TERM* 'SPOCQ.S:\()8977 (|BuiltinUnaryCall/BuiltinUnaryCall.2.5| (1+ ATN-PARSER::INDEX)))8978 (T8979 (SETF *ATN-TERM?* 'SPOCQ.S:\()8980 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX))))))8981 (|BuiltinUnaryCall/BuiltinUnaryCall.2.5| (ATN-PARSER::INDEX)8982 (%ATN-NODE-BLOCK8983 |BuiltinUnaryCall/BuiltinUnaryCall.2.5|8984 (%ATN-EDGE-BLOCK8985 (PUSH |Expression|)8986 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)8987 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)8988 (COND (ATN-PARSER::SUCCESS8989 (SETF *ATN-TERM* '|Expression|)8990 (LET ((|Expression623| |Expression|))8991 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)8992 (DESTRUCTURING-BIND8993 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)8994 ATN-PARSER::RESULT-AND-INDEX8995 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))8996 (|BuiltinUnaryCall/BuiltinUnaryCall.2.6| ATN-PARSER::RESULT-INDEX))8997 (SETF |Expression| |Expression623|))))8998 (T8999 (SETF *ATN-TERM?* '|Expression|)9000 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX)))))))9001 (|BuiltinUnaryCall/BuiltinUnaryCall.2.6| (ATN-PARSER::INDEX)9002 (%ATN-NODE-BLOCK9003 |BuiltinUnaryCall/BuiltinUnaryCall.2.6|9004 (%ATN-EDGE-BLOCK9005 (ATN-PARSER::WORD SPOCQ.S:\))9006 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))9007 (SETF *ATN-TERM* 'SPOCQ.S:\))9008 (|BuiltinUnaryCall.2| (1+ ATN-PARSER::INDEX)))9009 (T9010 (SETF *ATN-TERM?* 'SPOCQ.S:\))9011 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX))))))9012 (|BuiltinUnaryCall/fail.3| (ATN-PARSER::INDEX)9013 (%ATN-NODE-BLOCK |BuiltinUnaryCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9014 (|BuiltinUnaryCall/start.1| (ATN-PARSER::INDEX)9015 (%ATN-NODE-BLOCK9016 |BuiltinUnaryCall/start.1|9017 (%ATN-EDGE-BLOCK9018 (ATN-PARSER::CAT |BuiltinUnaryOperator|)9019 (COND ((|IS-BuiltinUnaryOperator| ATN-PARSER::|item|)9020 (SETF *ATN-TERM* '|BuiltinUnaryOperator|)9021 (SETF |BuiltinUnaryOperator|9022 (IF (EQ *ATN-REDUCE* T)9023 (ATN-REDUCE-ITEM9024 #'|BuiltinUnaryOperator-Constructor|9025 ATN-PARSER::|item|)9026 (IF (EQ *ATN-REDUCE* 'CONS)9027 (LIST '|BuiltinUnaryOperator| ATN-PARSER::|item|)9028 '|BuiltinUnaryOperator|)))9029 (|BuiltinUnaryCall/BuiltinUnaryCall.2.4| (1+ ATN-PARSER::INDEX)))9030 (T9031 (SETF *ATN-TERM* '|BuiltinUnaryOperator|)9032 (|BuiltinUnaryCall/fail.3| ATN-PARSER::INDEX)))))))9033 (|BuiltinUnaryCall/start.1| ATN-PARSER::INDEX)9034 (SETF *ATN-NODE NIL)9035 NIL9036 (IF ATN-PARSER::ATN-STRUCTURE9037 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9038 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9039 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinUnaryCall| ATN-PARSER::INDEX *ATN-STACK))))9040 (PROGN (DEFVAR |BuiltinBinaryCall-INDEX|)9041 (DEFUN |BuiltinBinaryCall| (ATN-PARSER::INDEX &AUX (|BuiltinBinaryOperator| NIL) (|Expression| NIL))9042 "{57} BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'9043 (|BuiltinBinaryOperator| |Expression|)"9044 (DECLARE (SPECIAL |BuiltinBinaryCall-INDEX|))9045 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinBinaryCall-INDEX| *ATN-LEVEL))9046 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9047 (IF (< |BuiltinBinaryCall-INDEX| ATN-PARSER::INDEX)9048 (LET ((|BuiltinBinaryCall-INDEX| ATN-PARSER::INDEX)9049 (*ATN-LEVEL (1+ *ATN-LEVEL))9050 (*ATN-STACK (CONS '|BuiltinBinaryCall| *ATN-STACK))9051 (ATN-PARSER::ATN-STRUCTURE NIL))9052 (DECLARE (SPECIAL |BuiltinBinaryCall-INDEX|))9053 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9054 (DECLARE (TYPE CONS *ATN-STACK))9055 (SYMBOL-MACROLET9056 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9057 (%ATN-BLOCK |BuiltinBinaryCall|9058 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9059 (SETF *ATN-TERM* '|BuiltinBinaryCall|)9060 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9061 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9062 (|BuiltinBinaryCall.2| (ATN-PARSER::INDEX)9063 (%ATN-NODE-BLOCK9064 |BuiltinBinaryCall.2|9065 (%ATN-EDGE-BLOCK9066 (POP |BuiltinBinaryCall|)9067 (WHEN T9068 (SETF *ATN-TERM* '|BuiltinBinaryCall|)9069 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9070 '|BuiltinBinaryCall|9071 ATN-PARSER::INDEX9072 (LIST '|BuiltinBinaryOperator|9073 |BuiltinBinaryOperator|9074 '|Expression|9075 |Expression|))9076 (LET ((ATN-PARSER::RESULT-STRUCTURE9077 (IF (EQ *ATN-REDUCE* T)9078 (|BuiltinBinaryCall-Constructor| |BuiltinBinaryOperator| |Expression|)9079 (IF (EQ *ATN-REDUCE* 'CONS)9080 (CONS '|BuiltinBinaryCall|9081 (DELETE NIL (LIST |BuiltinBinaryOperator| |Expression|)))9082 '|BuiltinBinaryCall|))))9083 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9084 (|BuiltinBinaryCall/BuiltinBinaryCall.2.4| (ATN-PARSER::INDEX)9085 (%ATN-NODE-BLOCK9086 |BuiltinBinaryCall/BuiltinBinaryCall.2.4|9087 (%ATN-EDGE-BLOCK9088 (ATN-PARSER::WORD SPOCQ.S:\()9089 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()9090 (SETF *ATN-TERM* 'SPOCQ.S:\()9091 (|BuiltinBinaryCall/BuiltinBinaryCall.2.5| (1+ ATN-PARSER::INDEX)))9092 (T9093 (SETF *ATN-TERM?* 'SPOCQ.S:\()9094 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))9095 (|BuiltinBinaryCall/BuiltinBinaryCall.2.5| (ATN-PARSER::INDEX)9096 (%ATN-NODE-BLOCK9097 |BuiltinBinaryCall/BuiltinBinaryCall.2.5|9098 (%ATN-EDGE-BLOCK9099 (PUSH |Expression|)9100 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9101 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)9102 (COND (ATN-PARSER::SUCCESS9103 (SETF *ATN-TERM* '|Expression|)9104 (LET ((|Expression625| |Expression|))9105 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9106 (DESTRUCTURING-BIND9107 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9108 ATN-PARSER::RESULT-AND-INDEX9109 (WHEN ATN-PARSER::RESULT9110 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))9111 (|BuiltinBinaryCall/BuiltinBinaryCall.2.6| ATN-PARSER::RESULT-INDEX))9112 (SETF |Expression| |Expression625|))))9113 (T9114 (SETF *ATN-TERM?* '|Expression|)9115 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))9116 (|BuiltinBinaryCall/BuiltinBinaryCall.2.6| (ATN-PARSER::INDEX)9117 (%ATN-NODE-BLOCK9118 |BuiltinBinaryCall/BuiltinBinaryCall.2.6|9119 (%ATN-EDGE-BLOCK9120 (ATN-PARSER::WORD SPOCQ.S:\,)9121 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)9122 (SETF *ATN-TERM* 'SPOCQ.S:\,)9123 (|BuiltinBinaryCall/BuiltinBinaryCall.2.7| (1+ ATN-PARSER::INDEX)))9124 (T9125 (SETF *ATN-TERM?* 'SPOCQ.S:\,)9126 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))9127 (|BuiltinBinaryCall/BuiltinBinaryCall.2.7| (ATN-PARSER::INDEX)9128 (%ATN-NODE-BLOCK9129 |BuiltinBinaryCall/BuiltinBinaryCall.2.7|9130 (%ATN-EDGE-BLOCK9131 (PUSH |Expression|)9132 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9133 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)9134 (COND (ATN-PARSER::SUCCESS9135 (SETF *ATN-TERM* '|Expression|)9136 (LET ((|Expression624| |Expression|))9137 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9138 (DESTRUCTURING-BIND9139 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9140 ATN-PARSER::RESULT-AND-INDEX9141 (WHEN ATN-PARSER::RESULT9142 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))9143 (|BuiltinBinaryCall/BuiltinBinaryCall.2.8| ATN-PARSER::RESULT-INDEX))9144 (SETF |Expression| |Expression624|))))9145 (T9146 (SETF *ATN-TERM?* '|Expression|)9147 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))9148 (|BuiltinBinaryCall/BuiltinBinaryCall.2.8| (ATN-PARSER::INDEX)9149 (%ATN-NODE-BLOCK9150 |BuiltinBinaryCall/BuiltinBinaryCall.2.8|9151 (%ATN-EDGE-BLOCK9152 (ATN-PARSER::WORD SPOCQ.S:\))9153 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))9154 (SETF *ATN-TERM* 'SPOCQ.S:\))9155 (|BuiltinBinaryCall.2| (1+ ATN-PARSER::INDEX)))9156 (T9157 (SETF *ATN-TERM?* 'SPOCQ.S:\))9158 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX))))))9159 (|BuiltinBinaryCall/fail.3| (ATN-PARSER::INDEX)9160 (%ATN-NODE-BLOCK |BuiltinBinaryCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9161 (|BuiltinBinaryCall/start.1| (ATN-PARSER::INDEX)9162 (%ATN-NODE-BLOCK9163 |BuiltinBinaryCall/start.1|9164 (%ATN-EDGE-BLOCK9165 (ATN-PARSER::CAT |BuiltinBinaryOperator|)9166 (COND ((|IS-BuiltinBinaryOperator| ATN-PARSER::|item|)9167 (SETF *ATN-TERM* '|BuiltinBinaryOperator|)9168 (SETF |BuiltinBinaryOperator|9169 (IF (EQ *ATN-REDUCE* T)9170 (ATN-REDUCE-ITEM9171 #'|BuiltinBinaryOperator-Constructor|9172 ATN-PARSER::|item|)9173 (IF (EQ *ATN-REDUCE* 'CONS)9174 (LIST '|BuiltinBinaryOperator| ATN-PARSER::|item|)9175 '|BuiltinBinaryOperator|)))9176 (|BuiltinBinaryCall/BuiltinBinaryCall.2.4| (1+ ATN-PARSER::INDEX)))9177 (T9178 (SETF *ATN-TERM* '|BuiltinBinaryOperator|)9179 (|BuiltinBinaryCall/fail.3| ATN-PARSER::INDEX)))))))9180 (|BuiltinBinaryCall/start.1| ATN-PARSER::INDEX)9181 (SETF *ATN-NODE NIL)9182 NIL9183 (IF ATN-PARSER::ATN-STRUCTURE9184 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9185 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9186 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinBinaryCall| ATN-PARSER::INDEX *ATN-STACK))))9187 (PROGN (DEFVAR |SubstringExpression-INDEX|)9188 (DEFUN |SubstringExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))9189 "SubstringExpression ::= 'SUBSTR' '(' Expression ',' Expression (','9190 Expression)? ')'9191 (|Expression|)"9192 (DECLARE (SPECIAL |SubstringExpression-INDEX|))9193 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |SubstringExpression-INDEX| *ATN-LEVEL))9194 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9195 (IF (< |SubstringExpression-INDEX| ATN-PARSER::INDEX)9196 (LET ((|SubstringExpression-INDEX| ATN-PARSER::INDEX)9197 (*ATN-LEVEL (1+ *ATN-LEVEL))9198 (*ATN-STACK (CONS '|SubstringExpression| *ATN-STACK))9199 (ATN-PARSER::ATN-STRUCTURE NIL))9200 (DECLARE (SPECIAL |SubstringExpression-INDEX|))9201 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9202 (DECLARE (TYPE CONS *ATN-STACK))9203 (SYMBOL-MACROLET9204 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9205 (%ATN-BLOCK |SubstringExpression|9206 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9207 (SETF *ATN-TERM* '|SubstringExpression|)9208 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9209 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9210 (|SubstringExpression.2| (ATN-PARSER::INDEX)9211 (%ATN-NODE-BLOCK9212 |SubstringExpression.2|9213 (%ATN-EDGE-BLOCK9214 (POP |SubstringExpression|)9215 (WHEN T9216 (SETF *ATN-TERM* '|SubstringExpression|)9217 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9218 '|SubstringExpression|9219 ATN-PARSER::INDEX9220 (LIST '|Expression| |Expression|))9221 (LET ((ATN-PARSER::RESULT-STRUCTURE9222 (IF (EQ *ATN-REDUCE* T)9223 (|SubstringExpression-Constructor| |Expression|)9224 (IF (EQ *ATN-REDUCE* 'CONS)9225 (CONS '|SubstringExpression| (DELETE NIL (LIST |Expression|)))9226 '|SubstringExpression|))))9227 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9228 (|SubstringExpression/fail.3| (ATN-PARSER::INDEX)9229 (%ATN-NODE-BLOCK9230 |SubstringExpression/fail.3|9231 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9232 (|SubstringExpression/start.1| (ATN-PARSER::INDEX)9233 (%ATN-NODE-BLOCK9234 |SubstringExpression/start.1|9235 (%ATN-EDGE-BLOCK9236 (ATN-PARSER::WORD SPOCQ.S:SUBSTR)9237 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:SUBSTR)9238 (SETF *ATN-TERM* 'SPOCQ.S:SUBSTR)9239 (|SubstringExpression/SubstringExpression.2.4| (1+ ATN-PARSER::INDEX)))9240 (T9241 (SETF *ATN-TERM?* 'SPOCQ.S:SUBSTR)9242 (|SubstringExpression/fail.3| ATN-PARSER::INDEX))))))9243 (|SubstringExpression/SubstringExpression.2.4| (ATN-PARSER::INDEX)9244 (%ATN-NODE-BLOCK9245 |SubstringExpression/SubstringExpression.2.4|9246 (%ATN-EDGE-BLOCK9247 (ATN-PARSER::WORD SPOCQ.S:\()9248 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()9249 (SETF *ATN-TERM* 'SPOCQ.S:\()9250 (|SubstringExpression/SubstringExpression.2.5| (1+ ATN-PARSER::INDEX)))9251 (T9252 (SETF *ATN-TERM?* 'SPOCQ.S:\()9253 (|SubstringExpression/fail.3| ATN-PARSER::INDEX))))))9254 (|SubstringExpression/SubstringExpression.2.5| (ATN-PARSER::INDEX)9255 (%ATN-NODE-BLOCK9256 |SubstringExpression/SubstringExpression.2.5|9257 (%ATN-EDGE-BLOCK9258 (PUSH |Expression|)9259 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9260 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)9261 (COND (ATN-PARSER::SUCCESS9262 (SETF *ATN-TERM* '|Expression|)9263 (LET ((|Expression628| |Expression|))9264 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9265 (DESTRUCTURING-BIND9266 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9267 ATN-PARSER::RESULT-AND-INDEX9268 (WHEN ATN-PARSER::RESULT9269 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))9270 (|SubstringExpression/SubstringExpression.2.6|9271 ATN-PARSER::RESULT-INDEX))9272 (SETF |Expression| |Expression628|))))9273 (T9274 (SETF *ATN-TERM?* '|Expression|)9275 (|SubstringExpression/fail.3| ATN-PARSER::INDEX)))))))9276 (|SubstringExpression/SubstringExpression.2.6| (ATN-PARSER::INDEX)9277 (%ATN-NODE-BLOCK9278 |SubstringExpression/SubstringExpression.2.6|9279 (%ATN-EDGE-BLOCK9280 (ATN-PARSER::WORD SPOCQ.S:\,)9281 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)9282 (SETF *ATN-TERM* 'SPOCQ.S:\,)9283 (|SubstringExpression/SubstringExpression.2.7| (1+ ATN-PARSER::INDEX)))9284 (T9285 (SETF *ATN-TERM?* 'SPOCQ.S:\,)9286 (|SubstringExpression/fail.3| ATN-PARSER::INDEX))))))9287 (|SubstringExpression/SubstringExpression.2.7| (ATN-PARSER::INDEX)9288 (%ATN-NODE-BLOCK9289 |SubstringExpression/SubstringExpression.2.7|9290 (%ATN-EDGE-BLOCK9291 (PUSH |Expression|)9292 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9293 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)9294 (COND (ATN-PARSER::SUCCESS9295 (SETF *ATN-TERM* '|Expression|)9296 (LET ((|Expression627| |Expression|))9297 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9298 (DESTRUCTURING-BIND9299 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9300 ATN-PARSER::RESULT-AND-INDEX9301 (WHEN ATN-PARSER::RESULT9302 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))9303 (|SubstringExpression/SubstringExpression.2.8|9304 ATN-PARSER::RESULT-INDEX))9305 (SETF |Expression| |Expression627|))))9306 (T9307 (SETF *ATN-TERM?* '|Expression|)9308 (|SubstringExpression/fail.3| ATN-PARSER::INDEX)))))))9309 (|SubstringExpression/SubstringExpression.2.8| (ATN-PARSER::INDEX)9310 (%ATN-NODE-BLOCK9311 |SubstringExpression/SubstringExpression.2.8|9312 (%ATN-EDGE-BLOCK9313 (ATN-PARSER::JUMP |SubstringExpression/SubstringExpression/SubstringExpression.2.9.10|)9314 (|SubstringExpression/SubstringExpression/SubstringExpression.2.9.10|9315 ATN-PARSER::INDEX))9316 (%ATN-EDGE-BLOCK9317 (ATN-PARSER::JUMP |SubstringExpression/SubstringExpression.2.9|)9318 (|SubstringExpression/SubstringExpression.2.9| ATN-PARSER::INDEX))))9319 (|SubstringExpression/SubstringExpression.2.9| (ATN-PARSER::INDEX)9320 (%ATN-NODE-BLOCK9321 |SubstringExpression/SubstringExpression.2.9|9322 (%ATN-EDGE-BLOCK9323 (ATN-PARSER::WORD SPOCQ.S:\))9324 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))9325 (SETF *ATN-TERM* 'SPOCQ.S:\))9326 (|SubstringExpression.2| (1+ ATN-PARSER::INDEX)))9327 (T9328 (SETF *ATN-TERM?* 'SPOCQ.S:\))9329 (|SubstringExpression/fail.3| ATN-PARSER::INDEX))))))9330 (|SubstringExpression/SubstringExpression/SubstringExpression.2.9.10| (ATN-PARSER::INDEX)9331 (%ATN-NODE-BLOCK9332 |SubstringExpression/SubstringExpression/SubstringExpression.2.9.10|9333 (%ATN-EDGE-BLOCK9334 (ATN-PARSER::WORD SPOCQ.S:\,)9335 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)9336 (SETF *ATN-TERM* 'SPOCQ.S:\,)9337 (|SubstringExpression/SubstringExpression/SubstringExpression.2.9.11|9338 (1+ ATN-PARSER::INDEX)))9339 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))9340 (|SubstringExpression/SubstringExpression/SubstringExpression.2.9.11| (ATN-PARSER::INDEX)9341 (%ATN-NODE-BLOCK9342 |SubstringExpression/SubstringExpression/SubstringExpression.2.9.11|9343 (%ATN-EDGE-BLOCK9344 (PUSH |Expression|)9345 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9346 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)9347 (COND (ATN-PARSER::SUCCESS9348 (SETF *ATN-TERM* '|Expression|)9349 (LET ((|Expression626| |Expression|))9350 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9351 (DESTRUCTURING-BIND9352 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9353 ATN-PARSER::RESULT-AND-INDEX9354 (WHEN ATN-PARSER::RESULT9355 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))9356 (|SubstringExpression/SubstringExpression.2.9|9357 ATN-PARSER::RESULT-INDEX))9358 (SETF |Expression| |Expression626|))))9359 (T (SETF *ATN-TERM?* '|Expression|) NIL)))))))9360 (|SubstringExpression/start.1| ATN-PARSER::INDEX)9361 (SETF *ATN-NODE NIL)9362 NIL9363 (IF ATN-PARSER::ATN-STRUCTURE9364 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9365 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9366 (WARN "recursive grammar: ~s @ position ~s: ~s" '|SubstringExpression| ATN-PARSER::INDEX *ATN-STACK))))9367 (PROGN (DEFVAR |IfExpression-INDEX|)9368 (DEFUN |IfExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))9369 "IfExpression ::= 'IF' '(' Expression ',' Expression ',' Expression ')'9370 (|Expression|)"9371 (DECLARE (SPECIAL |IfExpression-INDEX|))9372 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IfExpression-INDEX| *ATN-LEVEL))9373 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9374 (IF (< |IfExpression-INDEX| ATN-PARSER::INDEX)9375 (LET ((|IfExpression-INDEX| ATN-PARSER::INDEX)9376 (*ATN-LEVEL (1+ *ATN-LEVEL))9377 (*ATN-STACK (CONS '|IfExpression| *ATN-STACK))9378 (ATN-PARSER::ATN-STRUCTURE NIL))9379 (DECLARE (SPECIAL |IfExpression-INDEX|))9380 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9381 (DECLARE (TYPE CONS *ATN-STACK))9382 (SYMBOL-MACROLET9383 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9384 (%ATN-BLOCK |IfExpression|9385 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9386 (SETF *ATN-TERM* '|IfExpression|)9387 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9388 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9389 (|IfExpression.2| (ATN-PARSER::INDEX)9390 (%ATN-NODE-BLOCK9391 |IfExpression.2|9392 (%ATN-EDGE-BLOCK9393 (POP |IfExpression|)9394 (WHEN T9395 (SETF *ATN-TERM* '|IfExpression|)9396 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9397 '|IfExpression|9398 ATN-PARSER::INDEX9399 (LIST '|Expression| |Expression|))9400 (LET ((ATN-PARSER::RESULT-STRUCTURE9401 (IF (EQ *ATN-REDUCE* T)9402 (|IfExpression-Constructor| |Expression|)9403 (IF (EQ *ATN-REDUCE* 'CONS)9404 (CONS '|IfExpression| (DELETE NIL (LIST |Expression|)))9405 '|IfExpression|))))9406 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9407 (|IfExpression/fail.3| (ATN-PARSER::INDEX)9408 (%ATN-NODE-BLOCK |IfExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9409 (|IfExpression/IfExpression.2.10| (ATN-PARSER::INDEX)9410 (%ATN-NODE-BLOCK9411 |IfExpression/IfExpression.2.10|9412 (%ATN-EDGE-BLOCK9413 (ATN-PARSER::WORD SPOCQ.S:\))9414 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))9415 (SETF *ATN-TERM* 'SPOCQ.S:\))9416 (|IfExpression.2| (1+ ATN-PARSER::INDEX)))9417 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|IfExpression/fail.3| ATN-PARSER::INDEX))))))9418 (|IfExpression/IfExpression.2.4| (ATN-PARSER::INDEX)9419 (%ATN-NODE-BLOCK9420 |IfExpression/IfExpression.2.4|9421 (%ATN-EDGE-BLOCK9422 (ATN-PARSER::WORD SPOCQ.S:\()9423 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()9424 (SETF *ATN-TERM* 'SPOCQ.S:\()9425 (|IfExpression/IfExpression.2.5| (1+ ATN-PARSER::INDEX)))9426 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|IfExpression/fail.3| ATN-PARSER::INDEX))))))9427 (|IfExpression/IfExpression.2.5| (ATN-PARSER::INDEX)9428 (%ATN-NODE-BLOCK9429 |IfExpression/IfExpression.2.5|9430 (%ATN-EDGE-BLOCK9431 (PUSH |Expression|)9432 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9433 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)9434 (COND (ATN-PARSER::SUCCESS9435 (SETF *ATN-TERM* '|Expression|)9436 (LET ((|Expression631| |Expression|))9437 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9438 (DESTRUCTURING-BIND9439 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9440 ATN-PARSER::RESULT-AND-INDEX9441 (WHEN ATN-PARSER::RESULT9442 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))9443 (|IfExpression/IfExpression.2.6| ATN-PARSER::RESULT-INDEX))9444 (SETF |Expression| |Expression631|))))9445 (T9446 (SETF *ATN-TERM?* '|Expression|)9447 (|IfExpression/fail.3| ATN-PARSER::INDEX)))))))9448 (|IfExpression/IfExpression.2.6| (ATN-PARSER::INDEX)9449 (%ATN-NODE-BLOCK9450 |IfExpression/IfExpression.2.6|9451 (%ATN-EDGE-BLOCK9452 (ATN-PARSER::WORD SPOCQ.S:\,)9453 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)9454 (SETF *ATN-TERM* 'SPOCQ.S:\,)9455 (|IfExpression/IfExpression.2.7| (1+ ATN-PARSER::INDEX)))9456 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) (|IfExpression/fail.3| ATN-PARSER::INDEX))))))9457 (|IfExpression/IfExpression.2.7| (ATN-PARSER::INDEX)9458 (%ATN-NODE-BLOCK9459 |IfExpression/IfExpression.2.7|9460 (%ATN-EDGE-BLOCK9461 (PUSH |Expression|)9462 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9463 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)9464 (COND (ATN-PARSER::SUCCESS9465 (SETF *ATN-TERM* '|Expression|)9466 (LET ((|Expression630| |Expression|))9467 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9468 (DESTRUCTURING-BIND9469 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9470 ATN-PARSER::RESULT-AND-INDEX9471 (WHEN ATN-PARSER::RESULT9472 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))9473 (|IfExpression/IfExpression.2.8| ATN-PARSER::RESULT-INDEX))9474 (SETF |Expression| |Expression630|))))9475 (T9476 (SETF *ATN-TERM?* '|Expression|)9477 (|IfExpression/fail.3| ATN-PARSER::INDEX)))))))9478 (|IfExpression/IfExpression.2.8| (ATN-PARSER::INDEX)9479 (%ATN-NODE-BLOCK9480 |IfExpression/IfExpression.2.8|9481 (%ATN-EDGE-BLOCK9482 (ATN-PARSER::WORD SPOCQ.S:\,)9483 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)9484 (SETF *ATN-TERM* 'SPOCQ.S:\,)9485 (|IfExpression/IfExpression.2.9| (1+ ATN-PARSER::INDEX)))9486 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) (|IfExpression/fail.3| ATN-PARSER::INDEX))))))9487 (|IfExpression/IfExpression.2.9| (ATN-PARSER::INDEX)9488 (%ATN-NODE-BLOCK9489 |IfExpression/IfExpression.2.9|9490 (%ATN-EDGE-BLOCK9491 (PUSH |Expression|)9492 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9493 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)9494 (COND (ATN-PARSER::SUCCESS9495 (SETF *ATN-TERM* '|Expression|)9496 (LET ((|Expression629| |Expression|))9497 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9498 (DESTRUCTURING-BIND9499 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9500 ATN-PARSER::RESULT-AND-INDEX9501 (WHEN ATN-PARSER::RESULT9502 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))9503 (|IfExpression/IfExpression.2.10| ATN-PARSER::RESULT-INDEX))9504 (SETF |Expression| |Expression629|))))9505 (T9506 (SETF *ATN-TERM?* '|Expression|)9507 (|IfExpression/fail.3| ATN-PARSER::INDEX)))))))9508 (|IfExpression/start.1| (ATN-PARSER::INDEX)9509 (%ATN-NODE-BLOCK9510 |IfExpression/start.1|9511 (%ATN-EDGE-BLOCK9512 (ATN-PARSER::WORD SPOCQ.S:IF)9513 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:IF)9514 (SETF *ATN-TERM* 'SPOCQ.S:IF)9515 (|IfExpression/IfExpression.2.4| (1+ ATN-PARSER::INDEX)))9516 (T (SETF *ATN-TERM?* 'SPOCQ.S:IF) (|IfExpression/fail.3| ATN-PARSER::INDEX)))))))9517 (|IfExpression/start.1| ATN-PARSER::INDEX)9518 (SETF *ATN-NODE NIL)9519 NIL9520 (IF ATN-PARSER::ATN-STRUCTURE9521 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9522 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9523 (WARN "recursive grammar: ~s @ position ~s: ~s" '|IfExpression| ATN-PARSER::INDEX *ATN-STACK))))9524 (PROGN (DEFVAR |RegexExpression-INDEX|)9525 (DEFUN |RegexExpression| (ATN-PARSER::INDEX &AUX (|Expression| NIL))9526 "{58} RegexExpression ::= 'REGEX' '(' Expression ',' Expression (','9527 Expression)? ')'9528 (|Expression|)"9529 (DECLARE (SPECIAL |RegexExpression-INDEX|))9530 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RegexExpression-INDEX| *ATN-LEVEL))9531 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9532 (IF (< |RegexExpression-INDEX| ATN-PARSER::INDEX)9533 (LET ((|RegexExpression-INDEX| ATN-PARSER::INDEX)9534 (*ATN-LEVEL (1+ *ATN-LEVEL))9535 (*ATN-STACK (CONS '|RegexExpression| *ATN-STACK))9536 (ATN-PARSER::ATN-STRUCTURE NIL))9537 (DECLARE (SPECIAL |RegexExpression-INDEX|))9538 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9539 (DECLARE (TYPE CONS *ATN-STACK))9540 (SYMBOL-MACROLET9541 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9542 (%ATN-BLOCK |RegexExpression|9543 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9544 (SETF *ATN-TERM* '|RegexExpression|)9545 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9546 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9547 (|RegexExpression.2| (ATN-PARSER::INDEX)9548 (%ATN-NODE-BLOCK9549 |RegexExpression.2|9550 (%ATN-EDGE-BLOCK9551 (POP |RegexExpression|)9552 (WHEN T9553 (SETF *ATN-TERM* '|RegexExpression|)9554 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9555 '|RegexExpression|9556 ATN-PARSER::INDEX9557 (LIST '|Expression| |Expression|))9558 (LET ((ATN-PARSER::RESULT-STRUCTURE9559 (IF (EQ *ATN-REDUCE* T)9560 (|RegexExpression-Constructor| |Expression|)9561 (IF (EQ *ATN-REDUCE* 'CONS)9562 (CONS '|RegexExpression| (DELETE NIL (LIST |Expression|)))9563 '|RegexExpression|))))9564 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9565 (|RegexExpression/fail.3| (ATN-PARSER::INDEX)9566 (%ATN-NODE-BLOCK |RegexExpression/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9567 (|RegexExpression/RegexExpression.2.4| (ATN-PARSER::INDEX)9568 (%ATN-NODE-BLOCK9569 |RegexExpression/RegexExpression.2.4|9570 (%ATN-EDGE-BLOCK9571 (ATN-PARSER::WORD SPOCQ.S:\()9572 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()9573 (SETF *ATN-TERM* 'SPOCQ.S:\()9574 (|RegexExpression/RegexExpression.2.5| (1+ ATN-PARSER::INDEX)))9575 (T9576 (SETF *ATN-TERM?* 'SPOCQ.S:\()9577 (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))9578 (|RegexExpression/RegexExpression.2.5| (ATN-PARSER::INDEX)9579 (%ATN-NODE-BLOCK9580 |RegexExpression/RegexExpression.2.5|9581 (%ATN-EDGE-BLOCK9582 (PUSH |Expression|)9583 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9584 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)9585 (COND (ATN-PARSER::SUCCESS9586 (SETF *ATN-TERM* '|Expression|)9587 (LET ((|Expression634| |Expression|))9588 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9589 (DESTRUCTURING-BIND9590 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9591 ATN-PARSER::RESULT-AND-INDEX9592 (WHEN ATN-PARSER::RESULT9593 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))9594 (|RegexExpression/RegexExpression.2.6| ATN-PARSER::RESULT-INDEX))9595 (SETF |Expression| |Expression634|))))9596 (T9597 (SETF *ATN-TERM?* '|Expression|)9598 (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))9599 (|RegexExpression/RegexExpression.2.6| (ATN-PARSER::INDEX)9600 (%ATN-NODE-BLOCK9601 |RegexExpression/RegexExpression.2.6|9602 (%ATN-EDGE-BLOCK9603 (ATN-PARSER::WORD SPOCQ.S:\,)9604 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)9605 (SETF *ATN-TERM* 'SPOCQ.S:\,)9606 (|RegexExpression/RegexExpression.2.7| (1+ ATN-PARSER::INDEX)))9607 (T9608 (SETF *ATN-TERM?* 'SPOCQ.S:\,)9609 (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))9610 (|RegexExpression/RegexExpression.2.7| (ATN-PARSER::INDEX)9611 (%ATN-NODE-BLOCK9612 |RegexExpression/RegexExpression.2.7|9613 (%ATN-EDGE-BLOCK9614 (PUSH |Expression|)9615 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9616 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)9617 (COND (ATN-PARSER::SUCCESS9618 (SETF *ATN-TERM* '|Expression|)9619 (LET ((|Expression633| |Expression|))9620 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9621 (DESTRUCTURING-BIND9622 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9623 ATN-PARSER::RESULT-AND-INDEX9624 (WHEN ATN-PARSER::RESULT9625 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))9626 (|RegexExpression/RegexExpression.2.8| ATN-PARSER::RESULT-INDEX))9627 (SETF |Expression| |Expression633|))))9628 (T9629 (SETF *ATN-TERM?* '|Expression|)9630 (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))9631 (|RegexExpression/RegexExpression.2.8| (ATN-PARSER::INDEX)9632 (%ATN-NODE-BLOCK9633 |RegexExpression/RegexExpression.2.8|9634 (%ATN-EDGE-BLOCK9635 (ATN-PARSER::JUMP |RegexExpression/RegexExpression/RegexExpression.2.9.10|)9636 (|RegexExpression/RegexExpression/RegexExpression.2.9.10| ATN-PARSER::INDEX))9637 (%ATN-EDGE-BLOCK9638 (ATN-PARSER::JUMP |RegexExpression/RegexExpression.2.9|)9639 (|RegexExpression/RegexExpression.2.9| ATN-PARSER::INDEX))))9640 (|RegexExpression/RegexExpression.2.9| (ATN-PARSER::INDEX)9641 (%ATN-NODE-BLOCK9642 |RegexExpression/RegexExpression.2.9|9643 (%ATN-EDGE-BLOCK9644 (ATN-PARSER::WORD SPOCQ.S:\))9645 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))9646 (SETF *ATN-TERM* 'SPOCQ.S:\))9647 (|RegexExpression.2| (1+ ATN-PARSER::INDEX)))9648 (T9649 (SETF *ATN-TERM?* 'SPOCQ.S:\))9650 (|RegexExpression/fail.3| ATN-PARSER::INDEX))))))9651 (|RegexExpression/RegexExpression/RegexExpression.2.9.10| (ATN-PARSER::INDEX)9652 (%ATN-NODE-BLOCK9653 |RegexExpression/RegexExpression/RegexExpression.2.9.10|9654 (%ATN-EDGE-BLOCK9655 (ATN-PARSER::WORD SPOCQ.S:\,)9656 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\,)9657 (SETF *ATN-TERM* 'SPOCQ.S:\,)9658 (|RegexExpression/RegexExpression/RegexExpression.2.9.11|9659 (1+ ATN-PARSER::INDEX)))9660 (T (SETF *ATN-TERM?* 'SPOCQ.S:\,) NIL)))))9661 (|RegexExpression/RegexExpression/RegexExpression.2.9.11| (ATN-PARSER::INDEX)9662 (%ATN-NODE-BLOCK9663 |RegexExpression/RegexExpression/RegexExpression.2.9.11|9664 (%ATN-EDGE-BLOCK9665 (PUSH |Expression|)9666 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9667 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)9668 (COND (ATN-PARSER::SUCCESS9669 (SETF *ATN-TERM* '|Expression|)9670 (LET ((|Expression632| |Expression|))9671 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9672 (DESTRUCTURING-BIND9673 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9674 ATN-PARSER::RESULT-AND-INDEX9675 (WHEN ATN-PARSER::RESULT9676 (SETF |Expression| (CONS ATN-PARSER::RESULT |Expression|)))9677 (|RegexExpression/RegexExpression.2.9| ATN-PARSER::RESULT-INDEX))9678 (SETF |Expression| |Expression632|))))9679 (T (SETF *ATN-TERM?* '|Expression|) NIL))))))9680 (|RegexExpression/start.1| (ATN-PARSER::INDEX)9681 (%ATN-NODE-BLOCK9682 |RegexExpression/start.1|9683 (%ATN-EDGE-BLOCK9684 (ATN-PARSER::WORD SPOCQ.S:REGEX)9685 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:REGEX)9686 (SETF *ATN-TERM* 'SPOCQ.S:REGEX)9687 (|RegexExpression/RegexExpression.2.4| (1+ ATN-PARSER::INDEX)))9688 (T9689 (SETF *ATN-TERM?* 'SPOCQ.S:REGEX)9690 (|RegexExpression/fail.3| ATN-PARSER::INDEX)))))))9691 (|RegexExpression/start.1| ATN-PARSER::INDEX)9692 (SETF *ATN-NODE NIL)9693 NIL9694 (IF ATN-PARSER::ATN-STRUCTURE9695 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9696 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9697 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RegexExpression| ATN-PARSER::INDEX *ATN-STACK))))9698 (PROGN (DEFVAR |ExistsFunc-INDEX|)9699 (DEFUN |ExistsFunc| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))9700 "ExistsFunc ::= 'EXISTS' GroupGraphPattern9701 (|GroupGraphPattern|)"9702 (DECLARE (SPECIAL |ExistsFunc-INDEX|))9703 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ExistsFunc-INDEX| *ATN-LEVEL))9704 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9705 (IF (< |ExistsFunc-INDEX| ATN-PARSER::INDEX)9706 (LET ((|ExistsFunc-INDEX| ATN-PARSER::INDEX)9707 (*ATN-LEVEL (1+ *ATN-LEVEL))9708 (*ATN-STACK (CONS '|ExistsFunc| *ATN-STACK))9709 (ATN-PARSER::ATN-STRUCTURE NIL))9710 (DECLARE (SPECIAL |ExistsFunc-INDEX|))9711 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9712 (DECLARE (TYPE CONS *ATN-STACK))9713 (SYMBOL-MACROLET9714 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9715 (%ATN-BLOCK |ExistsFunc|9716 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9717 (SETF *ATN-TERM* '|ExistsFunc|)9718 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9719 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9720 (|ExistsFunc.2| (ATN-PARSER::INDEX)9721 (%ATN-NODE-BLOCK9722 |ExistsFunc.2|9723 (%ATN-EDGE-BLOCK9724 (POP |ExistsFunc|)9725 (WHEN T9726 (SETF *ATN-TERM* '|ExistsFunc|)9727 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9728 '|ExistsFunc|9729 ATN-PARSER::INDEX9730 (LIST '|GroupGraphPattern| |GroupGraphPattern|))9731 (LET ((ATN-PARSER::RESULT-STRUCTURE9732 (IF (EQ *ATN-REDUCE* T)9733 (|ExistsFunc-Constructor| |GroupGraphPattern|)9734 (IF (EQ *ATN-REDUCE* 'CONS)9735 (CONS '|ExistsFunc| (DELETE NIL (LIST |GroupGraphPattern|)))9736 '|ExistsFunc|))))9737 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9738 (|ExistsFunc/ExistsFunc.2.4| (ATN-PARSER::INDEX)9739 (%ATN-NODE-BLOCK9740 |ExistsFunc/ExistsFunc.2.4|9741 (%ATN-EDGE-BLOCK9742 (PUSH |GroupGraphPattern|)9743 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9744 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)9745 (COND (ATN-PARSER::SUCCESS9746 (SETF *ATN-TERM* '|GroupGraphPattern|)9747 (LET ((|GroupGraphPattern634| |GroupGraphPattern|))9748 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9749 (DESTRUCTURING-BIND9750 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9751 ATN-PARSER::RESULT-AND-INDEX9752 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))9753 (|ExistsFunc.2| ATN-PARSER::RESULT-INDEX))9754 (SETF |GroupGraphPattern| |GroupGraphPattern634|))))9755 (T9756 (SETF *ATN-TERM?* '|GroupGraphPattern|)9757 (|ExistsFunc/fail.3| ATN-PARSER::INDEX)))))))9758 (|ExistsFunc/fail.3| (ATN-PARSER::INDEX)9759 (%ATN-NODE-BLOCK |ExistsFunc/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9760 (|ExistsFunc/start.1| (ATN-PARSER::INDEX)9761 (%ATN-NODE-BLOCK9762 |ExistsFunc/start.1|9763 (%ATN-EDGE-BLOCK9764 (ATN-PARSER::WORD SPOCQ.S:EXISTS)9765 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:EXISTS)9766 (SETF *ATN-TERM* 'SPOCQ.S:EXISTS)9767 (|ExistsFunc/ExistsFunc.2.4| (1+ ATN-PARSER::INDEX)))9768 (T9769 (SETF *ATN-TERM?* 'SPOCQ.S:EXISTS)9770 (|ExistsFunc/fail.3| ATN-PARSER::INDEX)))))))9771 (|ExistsFunc/start.1| ATN-PARSER::INDEX)9772 (SETF *ATN-NODE NIL)9773 NIL9774 (IF ATN-PARSER::ATN-STRUCTURE9775 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9776 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9777 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ExistsFunc| ATN-PARSER::INDEX *ATN-STACK))))9778 (PROGN (DEFVAR |NotExistsFunc-INDEX|)9779 (DEFUN |NotExistsFunc| (ATN-PARSER::INDEX &AUX (|GroupGraphPattern| NIL))9780 "NotExistsFunc ::= 'NOT' 'EXISTS' GroupGraphPattern9781 (|GroupGraphPattern|)"9782 (DECLARE (SPECIAL |NotExistsFunc-INDEX|))9783 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |NotExistsFunc-INDEX| *ATN-LEVEL))9784 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9785 (IF (< |NotExistsFunc-INDEX| ATN-PARSER::INDEX)9786 (LET ((|NotExistsFunc-INDEX| ATN-PARSER::INDEX)9787 (*ATN-LEVEL (1+ *ATN-LEVEL))9788 (*ATN-STACK (CONS '|NotExistsFunc| *ATN-STACK))9789 (ATN-PARSER::ATN-STRUCTURE NIL))9790 (DECLARE (SPECIAL |NotExistsFunc-INDEX|))9791 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9792 (DECLARE (TYPE CONS *ATN-STACK))9793 (SYMBOL-MACROLET9794 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9795 (%ATN-BLOCK |NotExistsFunc|9796 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9797 (SETF *ATN-TERM* '|NotExistsFunc|)9798 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9799 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9800 (|NotExistsFunc.2| (ATN-PARSER::INDEX)9801 (%ATN-NODE-BLOCK9802 |NotExistsFunc.2|9803 (%ATN-EDGE-BLOCK9804 (POP |NotExistsFunc|)9805 (WHEN T9806 (SETF *ATN-TERM* '|NotExistsFunc|)9807 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9808 '|NotExistsFunc|9809 ATN-PARSER::INDEX9810 (LIST '|GroupGraphPattern| |GroupGraphPattern|))9811 (LET ((ATN-PARSER::RESULT-STRUCTURE9812 (IF (EQ *ATN-REDUCE* T)9813 (|NotExistsFunc-Constructor| |GroupGraphPattern|)9814 (IF (EQ *ATN-REDUCE* 'CONS)9815 (CONS '|NotExistsFunc| (DELETE NIL (LIST |GroupGraphPattern|)))9816 '|NotExistsFunc|))))9817 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9818 (|NotExistsFunc/fail.3| (ATN-PARSER::INDEX)9819 (%ATN-NODE-BLOCK |NotExistsFunc/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9820 (|NotExistsFunc/NotExistsFunc.2.4| (ATN-PARSER::INDEX)9821 (%ATN-NODE-BLOCK9822 |NotExistsFunc/NotExistsFunc.2.4|9823 (%ATN-EDGE-BLOCK9824 (ATN-PARSER::WORD SPOCQ.S:EXISTS)9825 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:EXISTS)9826 (SETF *ATN-TERM* 'SPOCQ.S:EXISTS)9827 (|NotExistsFunc/NotExistsFunc.2.5| (1+ ATN-PARSER::INDEX)))9828 (T9829 (SETF *ATN-TERM?* 'SPOCQ.S:EXISTS)9830 (|NotExistsFunc/fail.3| ATN-PARSER::INDEX))))))9831 (|NotExistsFunc/NotExistsFunc.2.5| (ATN-PARSER::INDEX)9832 (%ATN-NODE-BLOCK9833 |NotExistsFunc/NotExistsFunc.2.5|9834 (%ATN-EDGE-BLOCK9835 (PUSH |GroupGraphPattern|)9836 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9837 (ATN-PARSE-SUBSTRUCTURE* '|GroupGraphPattern| ATN-PARSER::INDEX)9838 (COND (ATN-PARSER::SUCCESS9839 (SETF *ATN-TERM* '|GroupGraphPattern|)9840 (LET ((|GroupGraphPattern635| |GroupGraphPattern|))9841 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9842 (DESTRUCTURING-BIND9843 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9844 ATN-PARSER::RESULT-AND-INDEX9845 (WHEN ATN-PARSER::RESULT (SETF |GroupGraphPattern| ATN-PARSER::RESULT))9846 (|NotExistsFunc.2| ATN-PARSER::RESULT-INDEX))9847 (SETF |GroupGraphPattern| |GroupGraphPattern635|))))9848 (T9849 (SETF *ATN-TERM?* '|GroupGraphPattern|)9850 (|NotExistsFunc/fail.3| ATN-PARSER::INDEX)))))))9851 (|NotExistsFunc/start.1| (ATN-PARSER::INDEX)9852 (%ATN-NODE-BLOCK9853 |NotExistsFunc/start.1|9854 (%ATN-EDGE-BLOCK9855 (ATN-PARSER::WORD SPOCQ.S:NOT)9856 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:NOT)9857 (SETF *ATN-TERM* 'SPOCQ.S:NOT)9858 (|NotExistsFunc/NotExistsFunc.2.4| (1+ ATN-PARSER::INDEX)))9859 (T9860 (SETF *ATN-TERM?* 'SPOCQ.S:NOT)9861 (|NotExistsFunc/fail.3| ATN-PARSER::INDEX)))))))9862 (|NotExistsFunc/start.1| ATN-PARSER::INDEX)9863 (SETF *ATN-NODE NIL)9864 NIL9865 (IF ATN-PARSER::ATN-STRUCTURE9866 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9867 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9868 (WARN "recursive grammar: ~s @ position ~s: ~s" '|NotExistsFunc| ATN-PARSER::INDEX *ATN-STACK))))9869 (PROGN (DEFVAR |BuiltinListCall-INDEX|)9870 (DEFUN |BuiltinListCall| (ATN-PARSER::INDEX &AUX (|BuiltinListOperator| NIL) (|ExpressionList| NIL))9871 "BuiltinListCall ::= BuiltinListOperator ExpressionList9872 (|BuiltinListOperator| |ExpressionList|)"9873 (DECLARE (SPECIAL |BuiltinListCall-INDEX|))9874 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BuiltinListCall-INDEX| *ATN-LEVEL))9875 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9876 (IF (< |BuiltinListCall-INDEX| ATN-PARSER::INDEX)9877 (LET ((|BuiltinListCall-INDEX| ATN-PARSER::INDEX)9878 (*ATN-LEVEL (1+ *ATN-LEVEL))9879 (*ATN-STACK (CONS '|BuiltinListCall| *ATN-STACK))9880 (ATN-PARSER::ATN-STRUCTURE NIL))9881 (DECLARE (SPECIAL |BuiltinListCall-INDEX|))9882 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9883 (DECLARE (TYPE CONS *ATN-STACK))9884 (SYMBOL-MACROLET9885 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9886 (%ATN-BLOCK |BuiltinListCall|9887 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9888 (SETF *ATN-TERM* '|BuiltinListCall|)9889 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9890 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9891 (|BuiltinListCall.2| (ATN-PARSER::INDEX)9892 (%ATN-NODE-BLOCK9893 |BuiltinListCall.2|9894 (%ATN-EDGE-BLOCK9895 (POP |BuiltinListCall|)9896 (WHEN T9897 (SETF *ATN-TERM* '|BuiltinListCall|)9898 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9899 '|BuiltinListCall|9900 ATN-PARSER::INDEX9901 (LIST '|BuiltinListOperator|9902 |BuiltinListOperator|9903 '|ExpressionList|9904 |ExpressionList|))9905 (LET ((ATN-PARSER::RESULT-STRUCTURE9906 (IF (EQ *ATN-REDUCE* T)9907 (|BuiltinListCall-Constructor| |BuiltinListOperator| |ExpressionList|)9908 (IF (EQ *ATN-REDUCE* 'CONS)9909 (CONS '|BuiltinListCall|9910 (DELETE NIL (LIST |BuiltinListOperator| |ExpressionList|)))9911 '|BuiltinListCall|))))9912 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))9913 (|BuiltinListCall/BuiltinListCall.2.4| (ATN-PARSER::INDEX)9914 (%ATN-NODE-BLOCK9915 |BuiltinListCall/BuiltinListCall.2.4|9916 (%ATN-EDGE-BLOCK9917 (PUSH |ExpressionList|)9918 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)9919 (ATN-PARSE-SUBSTRUCTURE* '|ExpressionList| ATN-PARSER::INDEX)9920 (COND (ATN-PARSER::SUCCESS9921 (SETF *ATN-TERM* '|ExpressionList|)9922 (LET ((|ExpressionList635| |ExpressionList|))9923 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)9924 (DESTRUCTURING-BIND9925 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)9926 ATN-PARSER::RESULT-AND-INDEX9927 (WHEN ATN-PARSER::RESULT (SETF |ExpressionList| ATN-PARSER::RESULT))9928 (|BuiltinListCall.2| ATN-PARSER::RESULT-INDEX))9929 (SETF |ExpressionList| |ExpressionList635|))))9930 (T9931 (SETF *ATN-TERM?* '|ExpressionList|)9932 (|BuiltinListCall/fail.3| ATN-PARSER::INDEX)))))))9933 (|BuiltinListCall/fail.3| (ATN-PARSER::INDEX)9934 (%ATN-NODE-BLOCK |BuiltinListCall/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))9935 (|BuiltinListCall/start.1| (ATN-PARSER::INDEX)9936 (%ATN-NODE-BLOCK9937 |BuiltinListCall/start.1|9938 (%ATN-EDGE-BLOCK9939 (ATN-PARSER::CAT |BuiltinListOperator|)9940 (COND ((|IS-BuiltinListOperator| ATN-PARSER::|item|)9941 (SETF *ATN-TERM* '|BuiltinListOperator|)9942 (SETF |BuiltinListOperator|9943 (IF (EQ *ATN-REDUCE* T)9944 (ATN-REDUCE-ITEM9945 #'|BuiltinListOperator-Constructor|9946 ATN-PARSER::|item|)9947 (IF (EQ *ATN-REDUCE* 'CONS)9948 (LIST '|BuiltinListOperator| ATN-PARSER::|item|)9949 '|BuiltinListOperator|)))9950 (|BuiltinListCall/BuiltinListCall.2.4| (1+ ATN-PARSER::INDEX)))9951 (T9952 (SETF *ATN-TERM* '|BuiltinListOperator|)9953 (|BuiltinListCall/fail.3| ATN-PARSER::INDEX)))))))9954 (|BuiltinListCall/start.1| ATN-PARSER::INDEX)9955 (SETF *ATN-NODE NIL)9956 NIL9957 (IF ATN-PARSER::ATN-STRUCTURE9958 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)9959 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))9960 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BuiltinListCall| ATN-PARSER::INDEX *ATN-STACK))))9961 (PROGN (DEFVAR |IRIrefOrFunction-INDEX|)9962 (DEFUN |IRIrefOrFunction| (ATN-PARSER::INDEX &AUX (|ArgList| NIL) (|IRIref| NIL))9963 "{59} IRIrefOrFunction ::= IRIref ArgList?9964 (|ArgList| |IRIref|)"9965 (DECLARE (SPECIAL |IRIrefOrFunction-INDEX|))9966 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IRIrefOrFunction-INDEX| *ATN-LEVEL))9967 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))9968 (IF (< |IRIrefOrFunction-INDEX| ATN-PARSER::INDEX)9969 (LET ((|IRIrefOrFunction-INDEX| ATN-PARSER::INDEX)9970 (*ATN-LEVEL (1+ *ATN-LEVEL))9971 (*ATN-STACK (CONS '|IRIrefOrFunction| *ATN-STACK))9972 (ATN-PARSER::ATN-STRUCTURE NIL))9973 (DECLARE (SPECIAL |IRIrefOrFunction-INDEX|))9974 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))9975 (DECLARE (TYPE CONS *ATN-STACK))9976 (SYMBOL-MACROLET9977 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))9978 (%ATN-BLOCK |IRIrefOrFunction|9979 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)9980 (SETF *ATN-TERM* '|IRIrefOrFunction|)9981 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))9982 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)9983 (|IRIrefOrFunction.2| (ATN-PARSER::INDEX)9984 (%ATN-NODE-BLOCK9985 |IRIrefOrFunction.2|9986 (%ATN-EDGE-BLOCK9987 (POP |IRIrefOrFunction|)9988 (WHEN T9989 (SETF *ATN-TERM* '|IRIrefOrFunction|)9990 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"9991 '|IRIrefOrFunction|9992 ATN-PARSER::INDEX9993 (LIST '|ArgList| |ArgList| '|IRIref| |IRIref|))9994 (LET ((ATN-PARSER::RESULT-STRUCTURE9995 (IF (EQ *ATN-REDUCE* T)9996 (|IRIrefOrFunction-Constructor| |ArgList| |IRIref|)9997 (IF (EQ *ATN-REDUCE* 'CONS)9998 (CONS '|IRIrefOrFunction| (DELETE NIL (LIST |ArgList| |IRIref|)))9999 '|IRIrefOrFunction|))))10000 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10001 (|IRIrefOrFunction/fail.3| (ATN-PARSER::INDEX)10002 (%ATN-NODE-BLOCK |IRIrefOrFunction/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10003 (|IRIrefOrFunction/IRIrefOrFunction.2.4| (ATN-PARSER::INDEX)10004 (%ATN-NODE-BLOCK10005 |IRIrefOrFunction/IRIrefOrFunction.2.4|10006 (%ATN-EDGE-BLOCK10007 (PUSH |ArgList|)10008 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10009 (ATN-PARSE-SUBSTRUCTURE* '|ArgList| ATN-PARSER::INDEX)10010 (COND (ATN-PARSER::SUCCESS10011 (SETF *ATN-TERM* '|ArgList|)10012 (LET ((|ArgList635| |ArgList|))10013 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10014 (DESTRUCTURING-BIND10015 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10016 ATN-PARSER::RESULT-AND-INDEX10017 (WHEN ATN-PARSER::RESULT (SETF |ArgList| ATN-PARSER::RESULT))10018 (|IRIrefOrFunction.2| ATN-PARSER::RESULT-INDEX))10019 (SETF |ArgList| |ArgList635|))))10020 (T (SETF *ATN-TERM?* '|ArgList|) (|IRIrefOrFunction.2| ATN-PARSER::INDEX)))))))10021 (|IRIrefOrFunction/start.1| (ATN-PARSER::INDEX)10022 (%ATN-NODE-BLOCK10023 |IRIrefOrFunction/start.1|10024 (%ATN-EDGE-BLOCK10025 (PUSH |IRIref|)10026 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10027 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)10028 (COND (ATN-PARSER::SUCCESS10029 (SETF *ATN-TERM* '|IRIref|)10030 (LET ((|IRIref635| |IRIref|))10031 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10032 (DESTRUCTURING-BIND10033 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10034 ATN-PARSER::RESULT-AND-INDEX10035 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))10036 (|IRIrefOrFunction/IRIrefOrFunction.2.4| ATN-PARSER::RESULT-INDEX))10037 (SETF |IRIref| |IRIref635|))))10038 (T10039 (SETF *ATN-TERM?* '|IRIref|)10040 (|IRIrefOrFunction/fail.3| ATN-PARSER::INDEX))))))))10041 (|IRIrefOrFunction/start.1| ATN-PARSER::INDEX)10042 (SETF *ATN-NODE NIL)10043 NIL10044 (IF ATN-PARSER::ATN-STRUCTURE10045 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10046 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10047 (WARN "recursive grammar: ~s @ position ~s: ~s" '|IRIrefOrFunction| ATN-PARSER::INDEX *ATN-STACK))))10048 (PROGN (DEFVAR |RDFLiteral-INDEX|)10049 (DEFUN |RDFLiteral| (ATN-PARSER::INDEX &AUX (|IRIref| NIL) (LANGTAG NIL) (|String| NIL))10050 "{60} RDFLiteral ::= String ((LANGTAG | ('^^' IRIref)))?10051 (|IRIref| LANGTAG |String|)"10052 (DECLARE (SPECIAL |RDFLiteral-INDEX|))10053 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |RDFLiteral-INDEX| *ATN-LEVEL))10054 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10055 (IF (< |RDFLiteral-INDEX| ATN-PARSER::INDEX)10056 (LET ((|RDFLiteral-INDEX| ATN-PARSER::INDEX)10057 (*ATN-LEVEL (1+ *ATN-LEVEL))10058 (*ATN-STACK (CONS '|RDFLiteral| *ATN-STACK))10059 (ATN-PARSER::ATN-STRUCTURE NIL))10060 (DECLARE (SPECIAL |RDFLiteral-INDEX|))10061 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10062 (DECLARE (TYPE CONS *ATN-STACK))10063 (SYMBOL-MACROLET10064 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10065 (%ATN-BLOCK |RDFLiteral|10066 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10067 (SETF *ATN-TERM* '|RDFLiteral|)10068 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10069 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10070 (|RDFLiteral.2| (ATN-PARSER::INDEX)10071 (%ATN-NODE-BLOCK10072 |RDFLiteral.2|10073 (%ATN-EDGE-BLOCK10074 (POP |RDFLiteral|)10075 (WHEN T10076 (SETF *ATN-TERM* '|RDFLiteral|)10077 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10078 '|RDFLiteral|10079 ATN-PARSER::INDEX10080 (LIST '|IRIref| |IRIref| 'LANGTAG LANGTAG '|String| |String|))10081 (LET ((ATN-PARSER::RESULT-STRUCTURE10082 (IF (EQ *ATN-REDUCE* T)10083 (|RDFLiteral-Constructor| |IRIref| LANGTAG |String|)10084 (IF (EQ *ATN-REDUCE* 'CONS)10085 (CONS '|RDFLiteral| (DELETE NIL (LIST |IRIref| LANGTAG |String|)))10086 '|RDFLiteral|))))10087 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10088 (|RDFLiteral/fail.3| (ATN-PARSER::INDEX)10089 (%ATN-NODE-BLOCK |RDFLiteral/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10090 (|RDFLiteral/RDFLiteral.2.4| (ATN-PARSER::INDEX)10091 (%ATN-NODE-BLOCK10092 |RDFLiteral/RDFLiteral.2.4|10093 (%ATN-EDGE-BLOCK10094 OR10095 (PROGN (%ATN-EDGE-BLOCK10096 (TEST LANGTAG)10097 (COND ((IS-LANGTAG ATN-PARSER::|item|)10098 (SETF *ATN-TERM* 'LANGTAG)10099 (SETF LANGTAG10100 (IF (EQ *ATN-REDUCE* T)10101 (ATN-REDUCE-ITEM #'|LANGTAG-Constructor| ATN-PARSER::|item|)10102 (IF (EQ *ATN-REDUCE* 'CONS)10103 (LIST 'LANGTAG ATN-PARSER::|item|)10104 'LANGTAG)))10105 (|RDFLiteral.2| (1+ ATN-PARSER::INDEX)))10106 (T (SETF *ATN-TERM?* 'LANGTAG) NIL)))10107 (%ATN-EDGE-BLOCK10108 (ATN-PARSER::JUMP |RDFLiteral/RDFLiteral.2.5|)10109 (|RDFLiteral/RDFLiteral.2.5| ATN-PARSER::INDEX))10110 (|RDFLiteral.2| ATN-PARSER::INDEX)))))10111 (|RDFLiteral/RDFLiteral.2.5| (ATN-PARSER::INDEX)10112 (%ATN-NODE-BLOCK10113 |RDFLiteral/RDFLiteral.2.5|10114 (%ATN-EDGE-BLOCK10115 (ATN-PARSER::WORD SPOCQ.S:^^)10116 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:^^)10117 (SETF *ATN-TERM* 'SPOCQ.S:^^)10118 (|RDFLiteral/RDFLiteral.2.6| (1+ ATN-PARSER::INDEX)))10119 (T (SETF *ATN-TERM?* 'SPOCQ.S:^^) NIL)))))10120 (|RDFLiteral/RDFLiteral.2.6| (ATN-PARSER::INDEX)10121 (%ATN-NODE-BLOCK10122 |RDFLiteral/RDFLiteral.2.6|10123 (%ATN-EDGE-BLOCK10124 (PUSH |IRIref|)10125 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10126 (ATN-PARSE-SUBSTRUCTURE* '|IRIref| ATN-PARSER::INDEX)10127 (COND (ATN-PARSER::SUCCESS10128 (SETF *ATN-TERM* '|IRIref|)10129 (LET ((|IRIref636| |IRIref|))10130 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10131 (DESTRUCTURING-BIND10132 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10133 ATN-PARSER::RESULT-AND-INDEX10134 (WHEN ATN-PARSER::RESULT (SETF |IRIref| ATN-PARSER::RESULT))10135 (|RDFLiteral.2| ATN-PARSER::RESULT-INDEX))10136 (SETF |IRIref| |IRIref636|))))10137 (T (SETF *ATN-TERM?* '|IRIref|) NIL))))))10138 (|RDFLiteral/start.1| (ATN-PARSER::INDEX)10139 (%ATN-NODE-BLOCK10140 |RDFLiteral/start.1|10141 (%ATN-EDGE-BLOCK10142 (ATN-PARSER::CAT |String|)10143 (COND ((|IS-String| ATN-PARSER::|item|)10144 (SETF *ATN-TERM* '|String|)10145 (SETF |String|10146 (IF (EQ *ATN-REDUCE* T)10147 (ATN-REDUCE-ITEM #'|String-Constructor| ATN-PARSER::|item|)10148 (IF (EQ *ATN-REDUCE* 'CONS)10149 (LIST '|String| ATN-PARSER::|item|)10150 '|String|)))10151 (|RDFLiteral/RDFLiteral.2.4| (1+ ATN-PARSER::INDEX)))10152 (T (SETF *ATN-TERM* '|String|) (|RDFLiteral/fail.3| ATN-PARSER::INDEX)))))))10153 (|RDFLiteral/start.1| ATN-PARSER::INDEX)10154 (SETF *ATN-NODE NIL)10155 NIL10156 (IF ATN-PARSER::ATN-STRUCTURE10157 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10158 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10159 (WARN "recursive grammar: ~s @ position ~s: ~s" '|RDFLiteral| ATN-PARSER::INDEX *ATN-STACK))))10160 (PROGN (DEFVAR |IRIref-INDEX|)10161 (DEFUN |IRIref| (ATN-PARSER::INDEX &AUX (IRI_REF NIL) (|PrefixedName| NIL))10162 "{67} IRIref ::= (IRI_REF | PrefixedName)10163 (IRI_REF |PrefixedName|)"10164 (DECLARE (SPECIAL |IRIref-INDEX|))10165 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |IRIref-INDEX| *ATN-LEVEL))10166 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10167 (IF (< |IRIref-INDEX| ATN-PARSER::INDEX)10168 (LET ((|IRIref-INDEX| ATN-PARSER::INDEX)10169 (*ATN-LEVEL (1+ *ATN-LEVEL))10170 (*ATN-STACK (CONS '|IRIref| *ATN-STACK))10171 (ATN-PARSER::ATN-STRUCTURE NIL))10172 (DECLARE (SPECIAL |IRIref-INDEX|))10173 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10174 (DECLARE (TYPE CONS *ATN-STACK))10175 (SYMBOL-MACROLET10176 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10177 (%ATN-BLOCK |IRIref|10178 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10179 (SETF *ATN-TERM* '|IRIref|)10180 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10181 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10182 (|IRIref.2| (ATN-PARSER::INDEX)10183 (%ATN-NODE-BLOCK10184 |IRIref.2|10185 (%ATN-EDGE-BLOCK10186 (POP |IRIref|)10187 (WHEN T10188 (SETF *ATN-TERM* '|IRIref|)10189 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10190 '|IRIref|10191 ATN-PARSER::INDEX10192 (LIST 'IRI_REF IRI_REF '|PrefixedName| |PrefixedName|))10193 (LET ((ATN-PARSER::RESULT-STRUCTURE10194 (IF (EQ *ATN-REDUCE* T)10195 (|IRIref-Constructor| IRI_REF |PrefixedName|)10196 (IF (EQ *ATN-REDUCE* 'CONS)10197 (CONS '|IRIref| (DELETE NIL (LIST IRI_REF |PrefixedName|)))10198 '|IRIref|))))10199 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10200 (|IRIref/fail.3| (ATN-PARSER::INDEX)10201 (%ATN-NODE-BLOCK |IRIref/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10202 (|IRIref/start.1| (ATN-PARSER::INDEX)10203 (%ATN-NODE-BLOCK10204 |IRIref/start.1|10205 (%ATN-EDGE-BLOCK10206 OR10207 (PROGN (%ATN-EDGE-BLOCK10208 (PUSH IRI_REF)10209 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10210 (ATN-PARSE-SUBSTRUCTURE* 'IRI_REF ATN-PARSER::INDEX)10211 (COND (ATN-PARSER::SUCCESS10212 (SETF *ATN-TERM* 'IRI_REF)10213 (LET ((IRI_REF636 IRI_REF))10214 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10215 (DESTRUCTURING-BIND10216 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10217 ATN-PARSER::RESULT-AND-INDEX10218 (WHEN ATN-PARSER::RESULT (SETF IRI_REF ATN-PARSER::RESULT))10219 (|IRIref.2| ATN-PARSER::RESULT-INDEX))10220 (SETF IRI_REF IRI_REF636))))10221 (T (SETF *ATN-TERM?* 'IRI_REF) NIL))))10222 (%ATN-EDGE-BLOCK10223 (ATN-PARSER::CAT |PrefixedName|)10224 (COND ((|IS-PrefixedName| ATN-PARSER::|item|)10225 (SETF *ATN-TERM* '|PrefixedName|)10226 (SETF |PrefixedName|10227 (IF (EQ *ATN-REDUCE* T)10228 (ATN-REDUCE-ITEM10229 #'|PrefixedName-Constructor|10230 ATN-PARSER::|item|)10231 (IF (EQ *ATN-REDUCE* 'CONS)10232 (LIST '|PrefixedName| ATN-PARSER::|item|)10233 '|PrefixedName|)))10234 (|IRIref.2| (1+ ATN-PARSER::INDEX)))10235 (T (SETF *ATN-TERM* '|PrefixedName|) NIL)))10236 (|IRIref/fail.3| ATN-PARSER::INDEX))))))10237 (|IRIref/start.1| ATN-PARSER::INDEX)10238 (SETF *ATN-NODE NIL)10239 NIL10240 (IF ATN-PARSER::ATN-STRUCTURE10241 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10242 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10243 (WARN "recursive grammar: ~s @ position ~s: ~s" '|IRIref| ATN-PARSER::INDEX *ATN-STACK))))10244 (PROGN (DEFVAR |BlankNode-INDEX|)10245 (DEFUN |BlankNode| (ATN-PARSER::INDEX &AUX (ANON NIL) (BLANK_NODE_LABEL NIL))10246 "{69} BlankNode ::= (BLANK_NODE_LABEL | ANON)10247 (ANON BLANK_NODE_LABEL)"10248 (DECLARE (SPECIAL |BlankNode-INDEX|))10249 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |BlankNode-INDEX| *ATN-LEVEL))10250 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10251 (IF (< |BlankNode-INDEX| ATN-PARSER::INDEX)10252 (LET ((|BlankNode-INDEX| ATN-PARSER::INDEX)10253 (*ATN-LEVEL (1+ *ATN-LEVEL))10254 (*ATN-STACK (CONS '|BlankNode| *ATN-STACK))10255 (ATN-PARSER::ATN-STRUCTURE NIL))10256 (DECLARE (SPECIAL |BlankNode-INDEX|))10257 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10258 (DECLARE (TYPE CONS *ATN-STACK))10259 (SYMBOL-MACROLET10260 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10261 (%ATN-BLOCK |BlankNode|10262 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10263 (SETF *ATN-TERM* '|BlankNode|)10264 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10265 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10266 (|BlankNode.2| (ATN-PARSER::INDEX)10267 (%ATN-NODE-BLOCK10268 |BlankNode.2|10269 (%ATN-EDGE-BLOCK10270 (POP |BlankNode|)10271 (WHEN T10272 (SETF *ATN-TERM* '|BlankNode|)10273 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10274 '|BlankNode|10275 ATN-PARSER::INDEX10276 (LIST 'ANON ANON 'BLANK_NODE_LABEL BLANK_NODE_LABEL))10277 (LET ((ATN-PARSER::RESULT-STRUCTURE10278 (IF (EQ *ATN-REDUCE* T)10279 (|BlankNode-Constructor| ANON BLANK_NODE_LABEL)10280 (IF (EQ *ATN-REDUCE* 'CONS)10281 (CONS '|BlankNode| (DELETE NIL (LIST ANON BLANK_NODE_LABEL)))10282 '|BlankNode|))))10283 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10284 (|BlankNode/fail.3| (ATN-PARSER::INDEX)10285 (%ATN-NODE-BLOCK |BlankNode/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10286 (|BlankNode/start.1| (ATN-PARSER::INDEX)10287 (%ATN-NODE-BLOCK10288 |BlankNode/start.1|10289 (%ATN-EDGE-BLOCK10290 OR10291 (PROGN (%ATN-EDGE-BLOCK10292 (PUSH BLANK_NODE_LABEL)10293 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10294 (ATN-PARSE-SUBSTRUCTURE* 'BLANK_NODE_LABEL ATN-PARSER::INDEX)10295 (COND (ATN-PARSER::SUCCESS10296 (SETF *ATN-TERM* 'BLANK_NODE_LABEL)10297 (LET ((BLANK_NODE_LABEL636 BLANK_NODE_LABEL))10298 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10299 (DESTRUCTURING-BIND10300 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10301 ATN-PARSER::RESULT-AND-INDEX10302 (WHEN ATN-PARSER::RESULT10303 (SETF BLANK_NODE_LABEL ATN-PARSER::RESULT))10304 (|BlankNode.2| ATN-PARSER::RESULT-INDEX))10305 (SETF BLANK_NODE_LABEL BLANK_NODE_LABEL636))))10306 (T (SETF *ATN-TERM?* 'BLANK_NODE_LABEL) NIL))))10307 (%ATN-EDGE-BLOCK10308 (PUSH ANON)10309 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10310 (ATN-PARSE-SUBSTRUCTURE* 'ANON ATN-PARSER::INDEX)10311 (COND (ATN-PARSER::SUCCESS10312 (SETF *ATN-TERM* 'ANON)10313 (LET ((ANON636 ANON))10314 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10315 (DESTRUCTURING-BIND10316 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10317 ATN-PARSER::RESULT-AND-INDEX10318 (WHEN ATN-PARSER::RESULT (SETF ANON ATN-PARSER::RESULT))10319 (|BlankNode.2| ATN-PARSER::RESULT-INDEX))10320 (SETF ANON ANON636))))10321 (T (SETF *ATN-TERM?* 'ANON) NIL))))10322 (|BlankNode/fail.3| ATN-PARSER::INDEX))))))10323 (|BlankNode/start.1| ATN-PARSER::INDEX)10324 (SETF *ATN-NODE NIL)10325 NIL10326 (IF ATN-PARSER::ATN-STRUCTURE10327 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10328 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10329 (WARN "recursive grammar: ~s @ position ~s: ~s" '|BlankNode| ATN-PARSER::INDEX *ATN-STACK))))10330 (PROGN (DEFVAR IRI_REF-INDEX)10331 (DEFUN IRI_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))10332 "{70} IRI_REF ::= '<' IRI_NAMESTRING? '>'10333 (IRI_NAMESTRING)"10334 (DECLARE (SPECIAL IRI_REF-INDEX))10335 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX IRI_REF-INDEX *ATN-LEVEL))10336 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10337 (IF (< IRI_REF-INDEX ATN-PARSER::INDEX)10338 (LET ((IRI_REF-INDEX ATN-PARSER::INDEX)10339 (*ATN-LEVEL (1+ *ATN-LEVEL))10340 (*ATN-STACK (CONS 'IRI_REF *ATN-STACK))10341 (ATN-PARSER::ATN-STRUCTURE NIL))10342 (DECLARE (SPECIAL IRI_REF-INDEX))10343 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10344 (DECLARE (TYPE CONS *ATN-STACK))10345 (SYMBOL-MACROLET10346 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10347 (%ATN-BLOCK IRI_REF10348 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10349 (SETF *ATN-TERM* 'IRI_REF)10350 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10351 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10352 (IRI_REF.2 (ATN-PARSER::INDEX)10353 (%ATN-NODE-BLOCK10354 IRI_REF.210355 (%ATN-EDGE-BLOCK10356 (POP IRI_REF)10357 (WHEN T10358 (SETF *ATN-TERM* 'IRI_REF)10359 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10360 'IRI_REF10361 ATN-PARSER::INDEX10362 (LIST 'IRI_NAMESTRING IRI_NAMESTRING))10363 (LET ((ATN-PARSER::RESULT-STRUCTURE10364 (IF (EQ *ATN-REDUCE* T)10365 (|IRI_REF-Constructor| IRI_NAMESTRING)10366 (IF (EQ *ATN-REDUCE* 'CONS)10367 (CONS 'IRI_REF (DELETE NIL (LIST IRI_NAMESTRING)))10368 'IRI_REF))))10369 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10370 (|IRI_REF/fail.3| (ATN-PARSER::INDEX)10371 (%ATN-NODE-BLOCK |IRI_REF/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10372 (IRI_REF/IRI_REF.2.4 (ATN-PARSER::INDEX)10373 (%ATN-NODE-BLOCK10374 IRI_REF/IRI_REF.2.410375 (%ATN-EDGE-BLOCK10376 (TEST IRI_NAMESTRING)10377 (COND ((IS-IRI_NAMESTRING ATN-PARSER::|item|)10378 (SETF *ATN-TERM* 'IRI_NAMESTRING)10379 (SETF IRI_NAMESTRING10380 (IF (EQ *ATN-REDUCE* T)10381 (ATN-REDUCE-ITEM #'|IRI_NAMESTRING-Constructor| ATN-PARSER::|item|)10382 (IF (EQ *ATN-REDUCE* 'CONS)10383 (LIST 'IRI_NAMESTRING ATN-PARSER::|item|)10384 'IRI_NAMESTRING)))10385 (IRI_REF/IRI_REF.2.5 (1+ ATN-PARSER::INDEX)))10386 (T10387 (SETF *ATN-TERM?* 'IRI_NAMESTRING)10388 (IRI_REF/IRI_REF.2.5 ATN-PARSER::INDEX))))))10389 (IRI_REF/IRI_REF.2.5 (ATN-PARSER::INDEX)10390 (%ATN-NODE-BLOCK10391 IRI_REF/IRI_REF.2.510392 (%ATN-EDGE-BLOCK10393 (ATN-PARSER::WORD SPOCQ.S:>)10394 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:>)10395 (SETF *ATN-TERM* 'SPOCQ.S:>)10396 (IRI_REF.2 (1+ ATN-PARSER::INDEX)))10397 (T (SETF *ATN-TERM?* 'SPOCQ.S:>) (|IRI_REF/fail.3| ATN-PARSER::INDEX))))))10398 (|IRI_REF/start.1| (ATN-PARSER::INDEX)10399 (%ATN-NODE-BLOCK10400 |IRI_REF/start.1|10401 (%ATN-EDGE-BLOCK10402 (ATN-PARSER::WORD SPOCQ.S:<)10403 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:<)10404 (SETF *ATN-TERM* 'SPOCQ.S:<)10405 (IRI_REF/IRI_REF.2.4 (1+ ATN-PARSER::INDEX)))10406 (T (SETF *ATN-TERM?* 'SPOCQ.S:<) (|IRI_REF/fail.3| ATN-PARSER::INDEX)))))))10407 (|IRI_REF/start.1| ATN-PARSER::INDEX)10408 (SETF *ATN-NODE NIL)10409 NIL10410 (IF ATN-PARSER::ATN-STRUCTURE10411 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10412 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10413 (WARN "recursive grammar: ~s @ position ~s: ~s" 'IRI_REF ATN-PARSER::INDEX *ATN-STACK))))10414 (PROGN (DEFVAR NAMESPACE_REF-INDEX)10415 (DEFUN NAMESPACE_REF (ATN-PARSER::INDEX &AUX (IRI_NAMESTRING NIL))10416 "{70} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'10417 (IRI_NAMESTRING)"10418 (DECLARE (SPECIAL NAMESPACE_REF-INDEX))10419 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX NAMESPACE_REF-INDEX *ATN-LEVEL))10420 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10421 (IF (< NAMESPACE_REF-INDEX ATN-PARSER::INDEX)10422 (LET ((NAMESPACE_REF-INDEX ATN-PARSER::INDEX)10423 (*ATN-LEVEL (1+ *ATN-LEVEL))10424 (*ATN-STACK (CONS 'NAMESPACE_REF *ATN-STACK))10425 (ATN-PARSER::ATN-STRUCTURE NIL))10426 (DECLARE (SPECIAL NAMESPACE_REF-INDEX))10427 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10428 (DECLARE (TYPE CONS *ATN-STACK))10429 (SYMBOL-MACROLET10430 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10431 (%ATN-BLOCK NAMESPACE_REF10432 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10433 (SETF *ATN-TERM* 'NAMESPACE_REF)10434 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10435 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10436 (NAMESPACE_REF.2 (ATN-PARSER::INDEX)10437 (%ATN-NODE-BLOCK10438 NAMESPACE_REF.210439 (%ATN-EDGE-BLOCK10440 (POP NAMESPACE_REF)10441 (WHEN T10442 (SETF *ATN-TERM* 'NAMESPACE_REF)10443 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10444 'NAMESPACE_REF10445 ATN-PARSER::INDEX10446 (LIST 'IRI_NAMESTRING IRI_NAMESTRING))10447 (LET ((ATN-PARSER::RESULT-STRUCTURE10448 (IF (EQ *ATN-REDUCE* T)10449 (|NAMESPACE_REF-Constructor| IRI_NAMESTRING)10450 (IF (EQ *ATN-REDUCE* 'CONS)10451 (CONS 'NAMESPACE_REF (DELETE NIL (LIST IRI_NAMESTRING)))10452 'NAMESPACE_REF))))10453 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10454 (|NAMESPACE_REF/fail.3| (ATN-PARSER::INDEX)10455 (%ATN-NODE-BLOCK |NAMESPACE_REF/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10456 (NAMESPACE_REF/NAMESPACE_REF.2.4 (ATN-PARSER::INDEX)10457 (%ATN-NODE-BLOCK10458 NAMESPACE_REF/NAMESPACE_REF.2.410459 (%ATN-EDGE-BLOCK10460 (TEST IRI_NAMESTRING)10461 (COND ((IS-IRI_NAMESTRING ATN-PARSER::|item|)10462 (SETF *ATN-TERM* 'IRI_NAMESTRING)10463 (SETF IRI_NAMESTRING10464 (IF (EQ *ATN-REDUCE* T)10465 (ATN-REDUCE-ITEM #'|IRI_NAMESTRING-Constructor| ATN-PARSER::|item|)10466 (IF (EQ *ATN-REDUCE* 'CONS)10467 (LIST 'IRI_NAMESTRING ATN-PARSER::|item|)10468 'IRI_NAMESTRING)))10469 (NAMESPACE_REF/NAMESPACE_REF.2.5 (1+ ATN-PARSER::INDEX)))10470 (T10471 (SETF *ATN-TERM?* 'IRI_NAMESTRING)10472 (NAMESPACE_REF/NAMESPACE_REF.2.5 ATN-PARSER::INDEX))))))10473 (NAMESPACE_REF/NAMESPACE_REF.2.5 (ATN-PARSER::INDEX)10474 (%ATN-NODE-BLOCK10475 NAMESPACE_REF/NAMESPACE_REF.2.510476 (%ATN-EDGE-BLOCK10477 (ATN-PARSER::WORD SPOCQ.S:>)10478 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:>)10479 (SETF *ATN-TERM* 'SPOCQ.S:>)10480 (NAMESPACE_REF.2 (1+ ATN-PARSER::INDEX)))10481 (T (SETF *ATN-TERM?* 'SPOCQ.S:>) (|NAMESPACE_REF/fail.3| ATN-PARSER::INDEX))))))10482 (|NAMESPACE_REF/start.1| (ATN-PARSER::INDEX)10483 (%ATN-NODE-BLOCK10484 |NAMESPACE_REF/start.1|10485 (%ATN-EDGE-BLOCK10486 (ATN-PARSER::WORD SPOCQ.S:<)10487 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:<)10488 (SETF *ATN-TERM* 'SPOCQ.S:<)10489 (NAMESPACE_REF/NAMESPACE_REF.2.4 (1+ ATN-PARSER::INDEX)))10490 (T (SETF *ATN-TERM?* 'SPOCQ.S:<) (|NAMESPACE_REF/fail.3| ATN-PARSER::INDEX)))))))10491 (|NAMESPACE_REF/start.1| ATN-PARSER::INDEX)10492 (SETF *ATN-NODE NIL)10493 NIL10494 (IF ATN-PARSER::ATN-STRUCTURE10495 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10496 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10497 (WARN "recursive grammar: ~s @ position ~s: ~s" 'NAMESPACE_REF ATN-PARSER::INDEX *ATN-STACK))))10498 (PROGN (DEFVAR BLANK_NODE_LABEL-INDEX)10499 (DEFUN BLANK_NODE_LABEL (ATN-PARSER::INDEX &AUX (PN_LOCAL NIL))10500 "{73} BLANK_NODE_LABEL ::= '_:' PN_LOCAL10501 (PN_LOCAL)"10502 (DECLARE (SPECIAL BLANK_NODE_LABEL-INDEX))10503 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX BLANK_NODE_LABEL-INDEX *ATN-LEVEL))10504 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10505 (IF (< BLANK_NODE_LABEL-INDEX ATN-PARSER::INDEX)10506 (LET ((BLANK_NODE_LABEL-INDEX ATN-PARSER::INDEX)10507 (*ATN-LEVEL (1+ *ATN-LEVEL))10508 (*ATN-STACK (CONS 'BLANK_NODE_LABEL *ATN-STACK))10509 (ATN-PARSER::ATN-STRUCTURE NIL))10510 (DECLARE (SPECIAL BLANK_NODE_LABEL-INDEX))10511 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10512 (DECLARE (TYPE CONS *ATN-STACK))10513 (SYMBOL-MACROLET10514 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10515 (%ATN-BLOCK BLANK_NODE_LABEL10516 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10517 (SETF *ATN-TERM* 'BLANK_NODE_LABEL)10518 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10519 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10520 (BLANK_NODE_LABEL.2 (ATN-PARSER::INDEX)10521 (%ATN-NODE-BLOCK10522 BLANK_NODE_LABEL.210523 (%ATN-EDGE-BLOCK10524 (POP BLANK_NODE_LABEL)10525 (WHEN T10526 (SETF *ATN-TERM* 'BLANK_NODE_LABEL)10527 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10528 'BLANK_NODE_LABEL10529 ATN-PARSER::INDEX10530 (LIST 'PN_LOCAL PN_LOCAL))10531 (LET ((ATN-PARSER::RESULT-STRUCTURE10532 (IF (EQ *ATN-REDUCE* T)10533 (|BLANK_NODE_LABEL-Constructor| PN_LOCAL)10534 (IF (EQ *ATN-REDUCE* 'CONS)10535 (CONS 'BLANK_NODE_LABEL (DELETE NIL (LIST PN_LOCAL)))10536 'BLANK_NODE_LABEL))))10537 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10538 (BLANK_NODE_LABEL/BLANK_NODE_LABEL.2.4 (ATN-PARSER::INDEX)10539 (%ATN-NODE-BLOCK10540 BLANK_NODE_LABEL/BLANK_NODE_LABEL.2.410541 (%ATN-EDGE-BLOCK10542 (TEST PN_LOCAL)10543 (COND ((IS-PN_LOCAL ATN-PARSER::|item|)10544 (SETF *ATN-TERM* 'PN_LOCAL)10545 (SETF PN_LOCAL10546 (IF (EQ *ATN-REDUCE* T)10547 (ATN-REDUCE-ITEM #'|PN_LOCAL-Constructor| ATN-PARSER::|item|)10548 (IF (EQ *ATN-REDUCE* 'CONS)10549 (LIST 'PN_LOCAL ATN-PARSER::|item|)10550 'PN_LOCAL)))10551 (BLANK_NODE_LABEL.2 (1+ ATN-PARSER::INDEX)))10552 (T10553 (SETF *ATN-TERM?* 'PN_LOCAL)10554 (|BLANK_NODE_LABEL/fail.3| ATN-PARSER::INDEX))))))10555 (|BLANK_NODE_LABEL/fail.3| (ATN-PARSER::INDEX)10556 (%ATN-NODE-BLOCK |BLANK_NODE_LABEL/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10557 (|BLANK_NODE_LABEL/start.1| (ATN-PARSER::INDEX)10558 (%ATN-NODE-BLOCK10559 |BLANK_NODE_LABEL/start.1|10560 (%ATN-EDGE-BLOCK10561 (ATN-PARSER::WORD SPOCQ.S:|_:|)10562 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:|_:|)10563 (SETF *ATN-TERM* 'SPOCQ.S:|_:|)10564 (BLANK_NODE_LABEL/BLANK_NODE_LABEL.2.4 (1+ ATN-PARSER::INDEX)))10565 (T10566 (SETF *ATN-TERM?* 'SPOCQ.S:|_:|)10567 (|BLANK_NODE_LABEL/fail.3| ATN-PARSER::INDEX)))))))10568 (|BLANK_NODE_LABEL/start.1| ATN-PARSER::INDEX)10569 (SETF *ATN-NODE NIL)10570 NIL10571 (IF ATN-PARSER::ATN-STRUCTURE10572 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10573 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10574 (WARN "recursive grammar: ~s @ position ~s: ~s" 'BLANK_NODE_LABEL ATN-PARSER::INDEX *ATN-STACK))))10575 (PROGN (DEFVAR NILLIST-INDEX)10576 (DEFUN NILLIST (ATN-PARSER::INDEX &AUX)10577 "{92} NILLIST ::= '(' ')'10578 NIL"10579 (DECLARE (SPECIAL NILLIST-INDEX))10580 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX NILLIST-INDEX *ATN-LEVEL))10581 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10582 (IF (< NILLIST-INDEX ATN-PARSER::INDEX)10583 (LET ((NILLIST-INDEX ATN-PARSER::INDEX)10584 (*ATN-LEVEL (1+ *ATN-LEVEL))10585 (*ATN-STACK (CONS 'NILLIST *ATN-STACK))10586 (ATN-PARSER::ATN-STRUCTURE NIL))10587 (DECLARE (SPECIAL NILLIST-INDEX))10588 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10589 (DECLARE (TYPE CONS *ATN-STACK))10590 (SYMBOL-MACROLET10591 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10592 (%ATN-BLOCK NILLIST10593 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10594 (SETF *ATN-TERM* 'NILLIST)10595 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10596 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10597 (NILLIST.2 (ATN-PARSER::INDEX)10598 (%ATN-NODE-BLOCK10599 NILLIST.210600 (%ATN-EDGE-BLOCK10601 (POP NILLIST)10602 (WHEN T10603 (SETF *ATN-TERM* 'NILLIST)10604 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" 'NILLIST ATN-PARSER::INDEX (LIST))10605 (LET ((ATN-PARSER::RESULT-STRUCTURE10606 (IF (EQ *ATN-REDUCE* T)10607 (|NILLIST-Constructor|)10608 (IF (EQ *ATN-REDUCE* 'CONS)10609 (CONS 'NILLIST (DELETE NIL (LIST)))10610 'NILLIST))))10611 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10612 (|NILLIST/fail.3| (ATN-PARSER::INDEX)10613 (%ATN-NODE-BLOCK |NILLIST/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10614 (NILLIST/NILLIST.2.4 (ATN-PARSER::INDEX)10615 (%ATN-NODE-BLOCK10616 NILLIST/NILLIST.2.410617 (%ATN-EDGE-BLOCK10618 (ATN-PARSER::WORD SPOCQ.S:\))10619 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))10620 (SETF *ATN-TERM* 'SPOCQ.S:\))10621 (NILLIST.2 (1+ ATN-PARSER::INDEX)))10622 (T (SETF *ATN-TERM?* 'SPOCQ.S:\)) (|NILLIST/fail.3| ATN-PARSER::INDEX))))))10623 (|NILLIST/start.1| (ATN-PARSER::INDEX)10624 (%ATN-NODE-BLOCK10625 |NILLIST/start.1|10626 (%ATN-EDGE-BLOCK10627 (ATN-PARSER::WORD SPOCQ.S:\()10628 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()10629 (SETF *ATN-TERM* 'SPOCQ.S:\()10630 (NILLIST/NILLIST.2.4 (1+ ATN-PARSER::INDEX)))10631 (T (SETF *ATN-TERM?* 'SPOCQ.S:\() (|NILLIST/fail.3| ATN-PARSER::INDEX)))))))10632 (|NILLIST/start.1| ATN-PARSER::INDEX)10633 (SETF *ATN-NODE NIL)10634 NIL10635 (IF ATN-PARSER::ATN-STRUCTURE10636 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10637 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10638 (WARN "recursive grammar: ~s @ position ~s: ~s" 'NILLIST ATN-PARSER::INDEX *ATN-STACK))))10639 (PROGN (DEFVAR ANON-INDEX)10640 (DEFUN ANON (ATN-PARSER::INDEX &AUX)10641 "{94} ANON ::= '[' ']'10642 NIL"10643 (DECLARE (SPECIAL ANON-INDEX))10644 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX ANON-INDEX *ATN-LEVEL))10645 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10646 (IF (< ANON-INDEX ATN-PARSER::INDEX)10647 (LET ((ANON-INDEX ATN-PARSER::INDEX)10648 (*ATN-LEVEL (1+ *ATN-LEVEL))10649 (*ATN-STACK (CONS 'ANON *ATN-STACK))10650 (ATN-PARSER::ATN-STRUCTURE NIL))10651 (DECLARE (SPECIAL ANON-INDEX))10652 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10653 (DECLARE (TYPE CONS *ATN-STACK))10654 (SYMBOL-MACROLET10655 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10656 (%ATN-BLOCK ANON10657 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10658 (SETF *ATN-TERM* 'ANON)10659 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10660 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10661 (ANON.2 (ATN-PARSER::INDEX)10662 (%ATN-NODE-BLOCK10663 ANON.210664 (%ATN-EDGE-BLOCK10665 (POP ANON)10666 (WHEN T10667 (SETF *ATN-TERM* 'ANON)10668 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a" 'ANON ATN-PARSER::INDEX (LIST))10669 (LET ((ATN-PARSER::RESULT-STRUCTURE10670 (IF (EQ *ATN-REDUCE* T)10671 (|ANON-Constructor|)10672 (IF (EQ *ATN-REDUCE* 'CONS) (CONS 'ANON (DELETE NIL (LIST))) 'ANON))))10673 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10674 (ANON/ANON.2.4 (ATN-PARSER::INDEX)10675 (%ATN-NODE-BLOCK10676 ANON/ANON.2.410677 (%ATN-EDGE-BLOCK10678 (ATN-PARSER::WORD SPOCQ.S:])10679 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:])10680 (SETF *ATN-TERM* 'SPOCQ.S:])10681 (ANON.2 (1+ ATN-PARSER::INDEX)))10682 (T (SETF *ATN-TERM?* 'SPOCQ.S:]) (|ANON/fail.3| ATN-PARSER::INDEX))))))10683 (|ANON/fail.3| (ATN-PARSER::INDEX)10684 (%ATN-NODE-BLOCK |ANON/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10685 (|ANON/start.1| (ATN-PARSER::INDEX)10686 (%ATN-NODE-BLOCK10687 |ANON/start.1|10688 (%ATN-EDGE-BLOCK10689 (ATN-PARSER::WORD SPOCQ.S:[)10690 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:[)10691 (SETF *ATN-TERM* 'SPOCQ.S:[)10692 (ANON/ANON.2.4 (1+ ATN-PARSER::INDEX)))10693 (T (SETF *ATN-TERM?* 'SPOCQ.S:[) (|ANON/fail.3| ATN-PARSER::INDEX)))))))10694 (|ANON/start.1| ATN-PARSER::INDEX)10695 (SETF *ATN-NODE NIL)10696 NIL10697 (IF ATN-PARSER::ATN-STRUCTURE10698 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10699 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10700 (WARN "recursive grammar: ~s @ position ~s: ~s" 'ANON ATN-PARSER::INDEX *ATN-STACK))))10701 (PROGN (DEFVAR |Aggregate-INDEX|)10702 (DEFUN |Aggregate| (ATN-PARSER::INDEX &AUX (|ArithmeticAggregate| NIL) (|ConcatAggregate| NIL) (|CountAggregate| NIL))10703 "{110} Aggregate ::= (CountAggregate | ArithmeticAggregate | ConcatAggregate)10704 (|ArithmeticAggregate| |ConcatAggregate| |CountAggregate|)"10705 (DECLARE (SPECIAL |Aggregate-INDEX|))10706 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |Aggregate-INDEX| *ATN-LEVEL))10707 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10708 (IF (< |Aggregate-INDEX| ATN-PARSER::INDEX)10709 (LET ((|Aggregate-INDEX| ATN-PARSER::INDEX)10710 (*ATN-LEVEL (1+ *ATN-LEVEL))10711 (*ATN-STACK (CONS '|Aggregate| *ATN-STACK))10712 (ATN-PARSER::ATN-STRUCTURE NIL))10713 (DECLARE (SPECIAL |Aggregate-INDEX|))10714 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10715 (DECLARE (TYPE CONS *ATN-STACK))10716 (SYMBOL-MACROLET10717 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10718 (%ATN-BLOCK |Aggregate|10719 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10720 (SETF *ATN-TERM* '|Aggregate|)10721 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10722 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10723 (|Aggregate.2| (ATN-PARSER::INDEX)10724 (%ATN-NODE-BLOCK10725 |Aggregate.2|10726 (%ATN-EDGE-BLOCK10727 (POP |Aggregate|)10728 (WHEN T10729 (SETF *ATN-TERM* '|Aggregate|)10730 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10731 '|Aggregate|10732 ATN-PARSER::INDEX10733 (LIST '|ArithmeticAggregate|10734 |ArithmeticAggregate|10735 '|ConcatAggregate|10736 |ConcatAggregate|10737 '|CountAggregate|10738 |CountAggregate|))10739 (LET ((ATN-PARSER::RESULT-STRUCTURE10740 (IF (EQ *ATN-REDUCE* T)10741 (|Aggregate-Constructor|10742 |ArithmeticAggregate|10743 |ConcatAggregate|10744 |CountAggregate|)10745 (IF (EQ *ATN-REDUCE* 'CONS)10746 (CONS '|Aggregate|10747 (DELETE NIL10748 (LIST |ArithmeticAggregate|10749 |ConcatAggregate|10750 |CountAggregate|)))10751 '|Aggregate|))))10752 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10753 (|Aggregate/fail.3| (ATN-PARSER::INDEX)10754 (%ATN-NODE-BLOCK |Aggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10755 (|Aggregate/start.1| (ATN-PARSER::INDEX)10756 (%ATN-NODE-BLOCK10757 |Aggregate/start.1|10758 (%ATN-EDGE-BLOCK10759 OR10760 (PROGN (%ATN-EDGE-BLOCK10761 (PUSH |CountAggregate|)10762 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10763 (ATN-PARSE-SUBSTRUCTURE* '|CountAggregate| ATN-PARSER::INDEX)10764 (COND (ATN-PARSER::SUCCESS10765 (SETF *ATN-TERM* '|CountAggregate|)10766 (LET ((|CountAggregate636| |CountAggregate|))10767 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10768 (DESTRUCTURING-BIND10769 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10770 ATN-PARSER::RESULT-AND-INDEX10771 (WHEN ATN-PARSER::RESULT10772 (SETF |CountAggregate| ATN-PARSER::RESULT))10773 (|Aggregate.2| ATN-PARSER::RESULT-INDEX))10774 (SETF |CountAggregate| |CountAggregate636|))))10775 (T (SETF *ATN-TERM?* '|CountAggregate|) NIL))))10776 (%ATN-EDGE-BLOCK10777 (PUSH |ArithmeticAggregate|)10778 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10779 (ATN-PARSE-SUBSTRUCTURE* '|ArithmeticAggregate| ATN-PARSER::INDEX)10780 (COND (ATN-PARSER::SUCCESS10781 (SETF *ATN-TERM* '|ArithmeticAggregate|)10782 (LET ((|ArithmeticAggregate636| |ArithmeticAggregate|))10783 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10784 (DESTRUCTURING-BIND10785 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10786 ATN-PARSER::RESULT-AND-INDEX10787 (WHEN ATN-PARSER::RESULT10788 (SETF |ArithmeticAggregate| ATN-PARSER::RESULT))10789 (|Aggregate.2| ATN-PARSER::RESULT-INDEX))10790 (SETF |ArithmeticAggregate| |ArithmeticAggregate636|))))10791 (T (SETF *ATN-TERM?* '|ArithmeticAggregate|) NIL))))10792 (%ATN-EDGE-BLOCK10793 (PUSH |ConcatAggregate|)10794 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10795 (ATN-PARSE-SUBSTRUCTURE* '|ConcatAggregate| ATN-PARSER::INDEX)10796 (COND (ATN-PARSER::SUCCESS10797 (SETF *ATN-TERM* '|ConcatAggregate|)10798 (LET ((|ConcatAggregate636| |ConcatAggregate|))10799 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10800 (DESTRUCTURING-BIND10801 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10802 ATN-PARSER::RESULT-AND-INDEX10803 (WHEN ATN-PARSER::RESULT10804 (SETF |ConcatAggregate| ATN-PARSER::RESULT))10805 (|Aggregate.2| ATN-PARSER::RESULT-INDEX))10806 (SETF |ConcatAggregate| |ConcatAggregate636|))))10807 (T (SETF *ATN-TERM?* '|ConcatAggregate|) NIL))))10808 (|Aggregate/fail.3| ATN-PARSER::INDEX))))))10809 (|Aggregate/start.1| ATN-PARSER::INDEX)10810 (SETF *ATN-NODE NIL)10811 NIL10812 (IF ATN-PARSER::ATN-STRUCTURE10813 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10814 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10815 (WARN "recursive grammar: ~s @ position ~s: ~s" '|Aggregate| ATN-PARSER::INDEX *ATN-STACK))))10816 (PROGN (DEFVAR |CountAggregate-INDEX|)10817 (DEFUN |CountAggregate| (ATN-PARSER::INDEX &AUX (|Distinctness| NIL) (|Expression| NIL) (|Wild| NIL))10818 "{110} CountAggregate ::= 'COUNT' '(' Distinctness? ((Wild | Expression)) ')'10819 (|Distinctness| |Expression| |Wild|)"10820 (DECLARE (SPECIAL |CountAggregate-INDEX|))10821 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |CountAggregate-INDEX| *ATN-LEVEL))10822 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10823 (IF (< |CountAggregate-INDEX| ATN-PARSER::INDEX)10824 (LET ((|CountAggregate-INDEX| ATN-PARSER::INDEX)10825 (*ATN-LEVEL (1+ *ATN-LEVEL))10826 (*ATN-STACK (CONS '|CountAggregate| *ATN-STACK))10827 (ATN-PARSER::ATN-STRUCTURE NIL))10828 (DECLARE (SPECIAL |CountAggregate-INDEX|))10829 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10830 (DECLARE (TYPE CONS *ATN-STACK))10831 (SYMBOL-MACROLET10832 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10833 (%ATN-BLOCK |CountAggregate|10834 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10835 (SETF *ATN-TERM* '|CountAggregate|)10836 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10837 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10838 (|CountAggregate.2| (ATN-PARSER::INDEX)10839 (%ATN-NODE-BLOCK10840 |CountAggregate.2|10841 (%ATN-EDGE-BLOCK10842 (POP |CountAggregate|)10843 (WHEN T10844 (SETF *ATN-TERM* '|CountAggregate|)10845 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10846 '|CountAggregate|10847 ATN-PARSER::INDEX10848 (LIST '|Distinctness|10849 |Distinctness|10850 '|Expression|10851 |Expression|10852 '|Wild|10853 |Wild|))10854 (LET ((ATN-PARSER::RESULT-STRUCTURE10855 (IF (EQ *ATN-REDUCE* T)10856 (|CountAggregate-Constructor| |Distinctness| |Expression| |Wild|)10857 (IF (EQ *ATN-REDUCE* 'CONS)10858 (CONS '|CountAggregate|10859 (DELETE NIL (LIST |Distinctness| |Expression| |Wild|)))10860 '|CountAggregate|))))10861 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))10862 (|CountAggregate/CountAggregate.2.4| (ATN-PARSER::INDEX)10863 (%ATN-NODE-BLOCK10864 |CountAggregate/CountAggregate.2.4|10865 (%ATN-EDGE-BLOCK10866 (ATN-PARSER::WORD SPOCQ.S:\()10867 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()10868 (SETF *ATN-TERM* 'SPOCQ.S:\()10869 (|CountAggregate/CountAggregate.2.5| (1+ ATN-PARSER::INDEX)))10870 (T10871 (SETF *ATN-TERM?* 'SPOCQ.S:\()10872 (|CountAggregate/fail.3| ATN-PARSER::INDEX))))))10873 (|CountAggregate/CountAggregate.2.5| (ATN-PARSER::INDEX)10874 (%ATN-NODE-BLOCK10875 |CountAggregate/CountAggregate.2.5|10876 (%ATN-EDGE-BLOCK10877 (ATN-PARSER::CAT |Distinctness|)10878 (COND ((|IS-Distinctness| ATN-PARSER::|item|)10879 (SETF *ATN-TERM* '|Distinctness|)10880 (SETF |Distinctness|10881 (IF (EQ *ATN-REDUCE* T)10882 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)10883 (IF (EQ *ATN-REDUCE* 'CONS)10884 (LIST '|Distinctness| ATN-PARSER::|item|)10885 '|Distinctness|)))10886 (|CountAggregate/CountAggregate.2.6| (1+ ATN-PARSER::INDEX)))10887 (T10888 (SETF *ATN-TERM* '|Distinctness|)10889 (|CountAggregate/CountAggregate.2.6| ATN-PARSER::INDEX))))))10890 (|CountAggregate/CountAggregate.2.6| (ATN-PARSER::INDEX)10891 (%ATN-NODE-BLOCK10892 |CountAggregate/CountAggregate.2.6|10893 (%ATN-EDGE-BLOCK10894 OR10895 (PROGN (%ATN-EDGE-BLOCK10896 (ATN-PARSER::CAT |Wild|)10897 (COND ((|IS-Wild| ATN-PARSER::|item|)10898 (SETF *ATN-TERM* '|Wild|)10899 (SETF |Wild|10900 (IF (EQ *ATN-REDUCE* T)10901 (ATN-REDUCE-ITEM #'|Wild-Constructor| ATN-PARSER::|item|)10902 (IF (EQ *ATN-REDUCE* 'CONS)10903 (LIST '|Wild| ATN-PARSER::|item|)10904 '|Wild|)))10905 (|CountAggregate/CountAggregate.2.7| (1+ ATN-PARSER::INDEX)))10906 (T (SETF *ATN-TERM* '|Wild|) NIL)))10907 (%ATN-EDGE-BLOCK10908 (PUSH |Expression|)10909 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)10910 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)10911 (COND (ATN-PARSER::SUCCESS10912 (SETF *ATN-TERM* '|Expression|)10913 (LET ((|Expression636| |Expression|))10914 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)10915 (DESTRUCTURING-BIND10916 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)10917 ATN-PARSER::RESULT-AND-INDEX10918 (WHEN ATN-PARSER::RESULT10919 (SETF |Expression| ATN-PARSER::RESULT))10920 (|CountAggregate/CountAggregate.2.7| ATN-PARSER::RESULT-INDEX))10921 (SETF |Expression| |Expression636|))))10922 (T (SETF *ATN-TERM?* '|Expression|) NIL))))10923 (|CountAggregate/fail.3| ATN-PARSER::INDEX)))))10924 (|CountAggregate/CountAggregate.2.7| (ATN-PARSER::INDEX)10925 (%ATN-NODE-BLOCK10926 |CountAggregate/CountAggregate.2.7|10927 (%ATN-EDGE-BLOCK10928 (ATN-PARSER::WORD SPOCQ.S:\))10929 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))10930 (SETF *ATN-TERM* 'SPOCQ.S:\))10931 (|CountAggregate.2| (1+ ATN-PARSER::INDEX)))10932 (T10933 (SETF *ATN-TERM?* 'SPOCQ.S:\))10934 (|CountAggregate/fail.3| ATN-PARSER::INDEX))))))10935 (|CountAggregate/fail.3| (ATN-PARSER::INDEX)10936 (%ATN-NODE-BLOCK |CountAggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))10937 (|CountAggregate/start.1| (ATN-PARSER::INDEX)10938 (%ATN-NODE-BLOCK10939 |CountAggregate/start.1|10940 (%ATN-EDGE-BLOCK10941 (ATN-PARSER::WORD SPOCQ.S:COUNT)10942 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:COUNT)10943 (SETF *ATN-TERM* 'SPOCQ.S:COUNT)10944 (|CountAggregate/CountAggregate.2.4| (1+ ATN-PARSER::INDEX)))10945 (T10946 (SETF *ATN-TERM?* 'SPOCQ.S:COUNT)10947 (|CountAggregate/fail.3| ATN-PARSER::INDEX)))))))10948 (|CountAggregate/start.1| ATN-PARSER::INDEX)10949 (SETF *ATN-NODE NIL)10950 NIL10951 (IF ATN-PARSER::ATN-STRUCTURE10952 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)10953 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))10954 (WARN "recursive grammar: ~s @ position ~s: ~s" '|CountAggregate| ATN-PARSER::INDEX *ATN-STACK))))10955 (PROGN (DEFVAR |ArithmeticAggregate-INDEX|)10956 (DEFUN |ArithmeticAggregate| (ATN-PARSER::INDEX &AUX (|ArithmeticAggregateOperator| NIL) (|Distinctness| NIL)10957 (|Expression| NIL))10958 "{110} ArithmeticAggregate ::= ArithmeticAggregateOperator '(' Distinctness? Expression ')'10959 (|ArithmeticAggregateOperator| |Distinctness| |Expression|)"10960 (DECLARE (SPECIAL |ArithmeticAggregate-INDEX|))10961 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ArithmeticAggregate-INDEX| *ATN-LEVEL))10962 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))10963 (IF (< |ArithmeticAggregate-INDEX| ATN-PARSER::INDEX)10964 (LET ((|ArithmeticAggregate-INDEX| ATN-PARSER::INDEX)10965 (*ATN-LEVEL (1+ *ATN-LEVEL))10966 (*ATN-STACK (CONS '|ArithmeticAggregate| *ATN-STACK))10967 (ATN-PARSER::ATN-STRUCTURE NIL))10968 (DECLARE (SPECIAL |ArithmeticAggregate-INDEX|))10969 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))10970 (DECLARE (TYPE CONS *ATN-STACK))10971 (SYMBOL-MACROLET10972 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))10973 (%ATN-BLOCK |ArithmeticAggregate|10974 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)10975 (SETF *ATN-TERM* '|ArithmeticAggregate|)10976 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))10977 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)10978 (|ArithmeticAggregate.2| (ATN-PARSER::INDEX)10979 (%ATN-NODE-BLOCK10980 |ArithmeticAggregate.2|10981 (%ATN-EDGE-BLOCK10982 (POP |ArithmeticAggregate|)10983 (WHEN T10984 (SETF *ATN-TERM* '|ArithmeticAggregate|)10985 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"10986 '|ArithmeticAggregate|10987 ATN-PARSER::INDEX10988 (LIST '|ArithmeticAggregateOperator|10989 |ArithmeticAggregateOperator|10990 '|Distinctness|10991 |Distinctness|10992 '|Expression|10993 |Expression|))10994 (LET ((ATN-PARSER::RESULT-STRUCTURE10995 (IF (EQ *ATN-REDUCE* T)10996 (|ArithmeticAggregate-Constructor|10997 |ArithmeticAggregateOperator|10998 |Distinctness|10999 |Expression|)11000 (IF (EQ *ATN-REDUCE* 'CONS)11001 (CONS '|ArithmeticAggregate|11002 (DELETE NIL11003 (LIST |ArithmeticAggregateOperator|11004 |Distinctness|11005 |Expression|)))11006 '|ArithmeticAggregate|))))11007 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))11008 (|ArithmeticAggregate/ArithmeticAggregate.2.4| (ATN-PARSER::INDEX)11009 (%ATN-NODE-BLOCK11010 |ArithmeticAggregate/ArithmeticAggregate.2.4|11011 (%ATN-EDGE-BLOCK11012 (ATN-PARSER::WORD SPOCQ.S:\()11013 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()11014 (SETF *ATN-TERM* 'SPOCQ.S:\()11015 (|ArithmeticAggregate/ArithmeticAggregate.2.5| (1+ ATN-PARSER::INDEX)))11016 (T11017 (SETF *ATN-TERM?* 'SPOCQ.S:\()11018 (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX))))))11019 (|ArithmeticAggregate/ArithmeticAggregate.2.5| (ATN-PARSER::INDEX)11020 (%ATN-NODE-BLOCK11021 |ArithmeticAggregate/ArithmeticAggregate.2.5|11022 (%ATN-EDGE-BLOCK11023 (ATN-PARSER::CAT |Distinctness|)11024 (COND ((|IS-Distinctness| ATN-PARSER::|item|)11025 (SETF *ATN-TERM* '|Distinctness|)11026 (SETF |Distinctness|11027 (IF (EQ *ATN-REDUCE* T)11028 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)11029 (IF (EQ *ATN-REDUCE* 'CONS)11030 (LIST '|Distinctness| ATN-PARSER::|item|)11031 '|Distinctness|)))11032 (|ArithmeticAggregate/ArithmeticAggregate.2.6| (1+ ATN-PARSER::INDEX)))11033 (T11034 (SETF *ATN-TERM* '|Distinctness|)11035 (|ArithmeticAggregate/ArithmeticAggregate.2.6| ATN-PARSER::INDEX))))))11036 (|ArithmeticAggregate/ArithmeticAggregate.2.6| (ATN-PARSER::INDEX)11037 (%ATN-NODE-BLOCK11038 |ArithmeticAggregate/ArithmeticAggregate.2.6|11039 (%ATN-EDGE-BLOCK11040 (PUSH |Expression|)11041 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11042 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)11043 (COND (ATN-PARSER::SUCCESS11044 (SETF *ATN-TERM* '|Expression|)11045 (LET ((|Expression637| |Expression|))11046 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11047 (DESTRUCTURING-BIND11048 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11049 ATN-PARSER::RESULT-AND-INDEX11050 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))11051 (|ArithmeticAggregate/ArithmeticAggregate.2.7|11052 ATN-PARSER::RESULT-INDEX))11053 (SETF |Expression| |Expression637|))))11054 (T11055 (SETF *ATN-TERM?* '|Expression|)11056 (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX)))))))11057 (|ArithmeticAggregate/ArithmeticAggregate.2.7| (ATN-PARSER::INDEX)11058 (%ATN-NODE-BLOCK11059 |ArithmeticAggregate/ArithmeticAggregate.2.7|11060 (%ATN-EDGE-BLOCK11061 (ATN-PARSER::WORD SPOCQ.S:\))11062 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))11063 (SETF *ATN-TERM* 'SPOCQ.S:\))11064 (|ArithmeticAggregate.2| (1+ ATN-PARSER::INDEX)))11065 (T11066 (SETF *ATN-TERM?* 'SPOCQ.S:\))11067 (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX))))))11068 (|ArithmeticAggregate/fail.3| (ATN-PARSER::INDEX)11069 (%ATN-NODE-BLOCK11070 |ArithmeticAggregate/fail.3|11071 (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))11072 (|ArithmeticAggregate/start.1| (ATN-PARSER::INDEX)11073 (%ATN-NODE-BLOCK11074 |ArithmeticAggregate/start.1|11075 (%ATN-EDGE-BLOCK11076 (ATN-PARSER::CAT |ArithmeticAggregateOperator|)11077 (COND ((|IS-ArithmeticAggregateOperator| ATN-PARSER::|item|)11078 (SETF *ATN-TERM* '|ArithmeticAggregateOperator|)11079 (SETF |ArithmeticAggregateOperator|11080 (IF (EQ *ATN-REDUCE* T)11081 (ATN-REDUCE-ITEM11082 #'|ArithmeticAggregateOperator-Constructor|11083 ATN-PARSER::|item|)11084 (IF (EQ *ATN-REDUCE* 'CONS)11085 (LIST '|ArithmeticAggregateOperator| ATN-PARSER::|item|)11086 '|ArithmeticAggregateOperator|)))11087 (|ArithmeticAggregate/ArithmeticAggregate.2.4| (1+ ATN-PARSER::INDEX)))11088 (T11089 (SETF *ATN-TERM* '|ArithmeticAggregateOperator|)11090 (|ArithmeticAggregate/fail.3| ATN-PARSER::INDEX)))))))11091 (|ArithmeticAggregate/start.1| ATN-PARSER::INDEX)11092 (SETF *ATN-NODE NIL)11093 NIL11094 (IF ATN-PARSER::ATN-STRUCTURE11095 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)11096 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))11097 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ArithmeticAggregate| ATN-PARSER::INDEX *ATN-STACK))))11098 (PROGN (DEFVAR |ConcatAggregate-INDEX|)11099 (DEFUN |ConcatAggregate| (ATN-PARSER::INDEX &AUX (|Distinctness| NIL) (|Expression| NIL) (|String| NIL))11100 "{110} ConcatAggregate ::= 'GROUP_CONCAT' '(' Distinctness? Expression (';'11101 'SEPARATOR'11102 '='11103 String)? ')'11104 (|Distinctness| |Expression| |String|)"11105 (DECLARE (SPECIAL |ConcatAggregate-INDEX|))11106 (DECLARE (TYPE FIXNUM ATN-PARSER::INDEX |ConcatAggregate-INDEX| *ATN-LEVEL))11107 (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0)))11108 (IF (< |ConcatAggregate-INDEX| ATN-PARSER::INDEX)11109 (LET ((|ConcatAggregate-INDEX| ATN-PARSER::INDEX)11110 (*ATN-LEVEL (1+ *ATN-LEVEL))11111 (*ATN-STACK (CONS '|ConcatAggregate| *ATN-STACK))11112 (ATN-PARSER::ATN-STRUCTURE NIL))11113 (DECLARE (SPECIAL |ConcatAggregate-INDEX|))11114 (DECLARE (DYNAMIC-EXTENT *ATN-STACK))11115 (DECLARE (TYPE CONS *ATN-STACK))11116 (SYMBOL-MACROLET11117 ((ATN-PARSER::|item| (INPUT-REFERENCE ATN-PARSER::INDEX)))11118 (%ATN-BLOCK |ConcatAggregate|11119 (LABELS ((ATN-PARSER::SUCCEED (ATN-PARSER::INDEX ATN-PARSER::RESULT)11120 (SETF *ATN-TERM* '|ConcatAggregate|)11121 (PUSH (CONS ATN-PARSER::RESULT ATN-PARSER::INDEX) ATN-PARSER::ATN-STRUCTURE))11122 (ATN-PARSER::FAIL (ATN-PARSER::INDEX) ATN-PARSER::INDEX)11123 (|ConcatAggregate.2| (ATN-PARSER::INDEX)11124 (%ATN-NODE-BLOCK11125 |ConcatAggregate.2|11126 (%ATN-EDGE-BLOCK11127 (POP |ConcatAggregate|)11128 (WHEN T11129 (SETF *ATN-TERM* '|ConcatAggregate|)11130 (%ATN-TRACE " [***/~a @ ~s reduce structure: ~a"11131 '|ConcatAggregate|11132 ATN-PARSER::INDEX11133 (LIST '|Distinctness|11134 |Distinctness|11135 '|Expression|11136 |Expression|11137 '|String|11138 |String|))11139 (LET ((ATN-PARSER::RESULT-STRUCTURE11140 (IF (EQ *ATN-REDUCE* T)11141 (|ConcatAggregate-Constructor| |Distinctness| |Expression| |String|)11142 (IF (EQ *ATN-REDUCE* 'CONS)11143 (CONS '|ConcatAggregate|11144 (DELETE NIL (LIST |Distinctness| |Expression| |String|)))11145 '|ConcatAggregate|))))11146 (ATN-PARSER::SUCCEED ATN-PARSER::INDEX ATN-PARSER::RESULT-STRUCTURE))))))11147 (|ConcatAggregate/ConcatAggregate.2.4| (ATN-PARSER::INDEX)11148 (%ATN-NODE-BLOCK11149 |ConcatAggregate/ConcatAggregate.2.4|11150 (%ATN-EDGE-BLOCK11151 (ATN-PARSER::WORD SPOCQ.S:\()11152 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\()11153 (SETF *ATN-TERM* 'SPOCQ.S:\()11154 (|ConcatAggregate/ConcatAggregate.2.5| (1+ ATN-PARSER::INDEX)))11155 (T11156 (SETF *ATN-TERM?* 'SPOCQ.S:\()11157 (|ConcatAggregate/fail.3| ATN-PARSER::INDEX))))))11158 (|ConcatAggregate/ConcatAggregate.2.5| (ATN-PARSER::INDEX)11159 (%ATN-NODE-BLOCK11160 |ConcatAggregate/ConcatAggregate.2.5|11161 (%ATN-EDGE-BLOCK11162 (ATN-PARSER::CAT |Distinctness|)11163 (COND ((|IS-Distinctness| ATN-PARSER::|item|)11164 (SETF *ATN-TERM* '|Distinctness|)11165 (SETF |Distinctness|11166 (IF (EQ *ATN-REDUCE* T)11167 (ATN-REDUCE-ITEM #'|Distinctness-Constructor| ATN-PARSER::|item|)11168 (IF (EQ *ATN-REDUCE* 'CONS)11169 (LIST '|Distinctness| ATN-PARSER::|item|)11170 '|Distinctness|)))11171 (|ConcatAggregate/ConcatAggregate.2.6| (1+ ATN-PARSER::INDEX)))11172 (T11173 (SETF *ATN-TERM* '|Distinctness|)11174 (|ConcatAggregate/ConcatAggregate.2.6| ATN-PARSER::INDEX))))))11175 (|ConcatAggregate/ConcatAggregate.2.6| (ATN-PARSER::INDEX)11176 (%ATN-NODE-BLOCK11177 |ConcatAggregate/ConcatAggregate.2.6|11178 (%ATN-EDGE-BLOCK11179 (PUSH |Expression|)11180 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11181 (ATN-PARSE-SUBSTRUCTURE* '|Expression| ATN-PARSER::INDEX)11182 (COND (ATN-PARSER::SUCCESS11183 (SETF *ATN-TERM* '|Expression|)11184 (LET ((|Expression638| |Expression|))11185 (DOLIST (ATN-PARSER::RESULT-AND-INDEX ATN-PARSER::RESULT)11186 (DESTRUCTURING-BIND11187 (ATN-PARSER::RESULT . ATN-PARSER::RESULT-INDEX)11188 ATN-PARSER::RESULT-AND-INDEX11189 (WHEN ATN-PARSER::RESULT (SETF |Expression| ATN-PARSER::RESULT))11190 (|ConcatAggregate/ConcatAggregate.2.7| ATN-PARSER::RESULT-INDEX))11191 (SETF |Expression| |Expression638|))))11192 (T11193 (SETF *ATN-TERM?* '|Expression|)11194 (|ConcatAggregate/fail.3| ATN-PARSER::INDEX)))))))11195 (|ConcatAggregate/ConcatAggregate.2.7| (ATN-PARSER::INDEX)11196 (%ATN-NODE-BLOCK11197 |ConcatAggregate/ConcatAggregate.2.7|11198 (%ATN-EDGE-BLOCK11199 (ATN-PARSER::JUMP |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9|)11200 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9| ATN-PARSER::INDEX))11201 (%ATN-EDGE-BLOCK11202 (ATN-PARSER::JUMP |ConcatAggregate/ConcatAggregate.2.8|)11203 (|ConcatAggregate/ConcatAggregate.2.8| ATN-PARSER::INDEX))))11204 (|ConcatAggregate/ConcatAggregate.2.8| (ATN-PARSER::INDEX)11205 (%ATN-NODE-BLOCK11206 |ConcatAggregate/ConcatAggregate.2.8|11207 (%ATN-EDGE-BLOCK11208 (ATN-PARSER::WORD SPOCQ.S:\))11209 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\))11210 (SETF *ATN-TERM* 'SPOCQ.S:\))11211 (|ConcatAggregate.2| (1+ ATN-PARSER::INDEX)))11212 (T11213 (SETF *ATN-TERM?* 'SPOCQ.S:\))11214 (|ConcatAggregate/fail.3| ATN-PARSER::INDEX))))))11215 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.10| (ATN-PARSER::INDEX)11216 (%ATN-NODE-BLOCK11217 |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.10|11218 (%ATN-EDGE-BLOCK11219 (ATN-PARSER::WORD SPOCQ.S:SEPARATOR)11220 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:SEPARATOR)11221 (SETF *ATN-TERM* 'SPOCQ.S:SEPARATOR)11222 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.11|11223 (1+ ATN-PARSER::INDEX)))11224 (T (SETF *ATN-TERM?* 'SPOCQ.S:SEPARATOR) NIL)))))11225 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.11| (ATN-PARSER::INDEX)11226 (%ATN-NODE-BLOCK11227 |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.11|11228 (%ATN-EDGE-BLOCK11229 (ATN-PARSER::WORD SPOCQ.S:=)11230 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:=)11231 (SETF *ATN-TERM* 'SPOCQ.S:=)11232 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.12|11233 (1+ ATN-PARSER::INDEX)))11234 (T (SETF *ATN-TERM?* 'SPOCQ.S:=) NIL)))))11235 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.12| (ATN-PARSER::INDEX)11236 (%ATN-NODE-BLOCK11237 |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.12|11238 (%ATN-EDGE-BLOCK11239 (ATN-PARSER::CAT |String|)11240 (COND ((|IS-String| ATN-PARSER::|item|)11241 (SETF *ATN-TERM* '|String|)11242 (SETF |String|11243 (IF (EQ *ATN-REDUCE* T)11244 (ATN-REDUCE-ITEM #'|String-Constructor| ATN-PARSER::|item|)11245 (IF (EQ *ATN-REDUCE* 'CONS)11246 (LIST '|String| ATN-PARSER::|item|)11247 '|String|)))11248 (|ConcatAggregate/ConcatAggregate.2.8| (1+ ATN-PARSER::INDEX)))11249 (T (SETF *ATN-TERM* '|String|) NIL)))))11250 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9| (ATN-PARSER::INDEX)11251 (%ATN-NODE-BLOCK11252 |ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.9|11253 (%ATN-EDGE-BLOCK11254 (ATN-PARSER::WORD SPOCQ.S:\;)11255 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:\;)11256 (SETF *ATN-TERM* 'SPOCQ.S:\;)11257 (|ConcatAggregate/ConcatAggregate/ConcatAggregate.2.8.10|11258 (1+ ATN-PARSER::INDEX)))11259 (T (SETF *ATN-TERM?* 'SPOCQ.S:\;) NIL)))))11260 (|ConcatAggregate/fail.3| (ATN-PARSER::INDEX)11261 (%ATN-NODE-BLOCK |ConcatAggregate/fail.3| (PROGN (ATN-PARSER::FAIL ATN-PARSER::INDEX))))11262 (|ConcatAggregate/start.1| (ATN-PARSER::INDEX)11263 (%ATN-NODE-BLOCK11264 |ConcatAggregate/start.1|11265 (%ATN-EDGE-BLOCK11266 (ATN-PARSER::WORD SPOCQ.S:GROUP_CONCAT)11267 (COND ((EQ ATN-PARSER::|item| 'SPOCQ.S:GROUP_CONCAT)11268 (SETF *ATN-TERM* 'SPOCQ.S:GROUP_CONCAT)11269 (|ConcatAggregate/ConcatAggregate.2.4| (1+ ATN-PARSER::INDEX)))11270 (T11271 (SETF *ATN-TERM?* 'SPOCQ.S:GROUP_CONCAT)11272 (|ConcatAggregate/fail.3| ATN-PARSER::INDEX)))))))11273 (|ConcatAggregate/start.1| ATN-PARSER::INDEX)11274 (SETF *ATN-NODE NIL)11275 NIL11276 (IF ATN-PARSER::ATN-STRUCTURE11277 (VALUES ATN-PARSER::ATN-STRUCTURE T NIL)11278 (VALUES (LIST (LIST* NIL ATN-PARSER::INDEX)) NIL NIL))))))11279 (WARN "recursive grammar: ~s @ position ~s: ~s" '|ConcatAggregate| ATN-PARSER::INDEX *ATN-STACK))))11280 (SETF (GET '|Query| :PRODUCTION) "11281 {1 } Query ::= Prologue ((SelectQuery | ConstructQuery | DescribeQuery | AskQuery)) BindingsClause?")11282 (SETF (GET '|Prologue| :PRODUCTION) "11283 {2 } Prologue ::= BaseDecl? PrefixDecl*")11284 (SETF (GET '|BaseDecl| :PRODUCTION) "11285 {3 } BaseDecl ::= 'BASE' IRI_REF")11286 (SETF (GET '|PrefixDecl| :PRODUCTION) "11287 {4 } PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF")11288 (SETF (GET '|SelectQuery| :PRODUCTION) "11289 {5 } SelectQuery ::= SelectClause DatasetClause* WhereClause SolutionModifier")11290 (SETF (GET '|SelectClause| :PRODUCTION) "11291 SelectClause ::= 'SELECT' Distinctness? (((VariableOrBinding)+ | Wild))")11292 (SETF (GET '|VariableOrBinding| :PRODUCTION) "11293 {5 } VariableOrBinding ::= (Var | ('(' Expression 'AS' Var ')'))")11294 (SETF (GET '|ConstructQuery| :PRODUCTION) "11295 {6 } ConstructQuery ::= 'CONSTRUCT' ConstructTemplate DatasetClause* WhereClause SolutionModifier")11296 (SETF (GET '|DescribeQuery| :PRODUCTION) "11297 {7 } DescribeQuery ::= 'DESCRIBE' ((VarOrIRIref+ | '*')) DatasetClause* WhereClause? SolutionModifier")11298 (SETF (GET '|AskQuery| :PRODUCTION) "11299 {8 } AskQuery ::= 'ASK' DatasetClause* WhereClause")11300 (SETF (GET '|DatasetClause| :PRODUCTION) "11301 {9 } DatasetClause ::= 'FROM' ((DefaultGraphClause | NamedGraphClause))")11302 (SETF (GET '|DefaultGraphClause| :PRODUCTION) "11303 {10} DefaultGraphClause ::= SourceSelector")11304 (SETF (GET '|NamedGraphClause| :PRODUCTION) "11305 {11} NamedGraphClause ::= 'NAMED' SourceSelector")11306 (SETF (GET '|SourceSelector| :PRODUCTION) "11307 {12} SourceSelector ::= IRIref")11308 (SETF (GET '|WhereClause| :PRODUCTION) "11309 {13} WhereClause ::= 'WHERE'? GroupGraphPattern")11310 (SETF (GET '|SolutionModifier| :PRODUCTION) "11311 {14} SolutionModifier ::= GroupClause? HavingClause? OrderClause? LimitOffsetClauses?")11312 (SETF (GET '|GroupClause| :PRODUCTION) "11313 {18a} GroupClause ::= 'GROUP' 'BY' GroupCondition+")11314 (SETF (GET '|GroupCondition| :PRODUCTION) "11315 {19a} GroupCondition ::= (BuiltInCall | FunctionCall | VariableOrBindingOrExpression)")11316 (SETF (GET '|VariableOrBindingOrExpression| :PRODUCTION) "11317 {19a} VariableOrBindingOrExpression ::= (('(' Expression ('AS' Var)? ')') | Var)")11318 (SETF (GET '|HavingClause| :PRODUCTION) "11319 {20a} HavingClause ::= 'HAVING' HavingCondition+")11320 (SETF (GET '|HavingCondition| :PRODUCTION) "11321 {21a} HavingCondition ::= Constraint")11322 (SETF (GET '|LimitOffsetClauses| :PRODUCTION) "11323 {15} LimitOffsetClauses ::= (((LimitClause OffsetClause?) | (OffsetClause11324 LimitClause?)))")11325 (SETF (GET '|OrderClause| :PRODUCTION) "11326 {16} OrderClause ::= 'ORDER' 'BY' OrderCondition+")11327 (SETF (GET '|OrderCondition| :PRODUCTION) "11328 {17} OrderCondition ::= ((OrderDirection11329 BrackettedExpression) | Constraint | Var)")11330 (SETF (GET '|LimitClause| :PRODUCTION) "11331 {18} LimitClause ::= 'LIMIT' INTEGER")11332 (SETF (GET '|OffsetClause| :PRODUCTION) "11333 {19} OffsetClause ::= 'OFFSET' INTEGER")11334 (SETF (GET '|BindingsClause| :PRODUCTION) "11335 BindingsClause ::= 'BINDINGS' Var* '{' BindingList* '}'")11336 (SETF (GET '|BindingList| :PRODUCTION) "11337 BindingList ::= '(' BindingValue* ')'")11338 (SETF (GET '|BindingValue| :PRODUCTION) "11339 BindingValue ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | Undef)")11340 (SETF (GET '|GroupGraphPattern| :PRODUCTION) "11341 {20} GroupGraphPattern ::= '{' ((SubSelect | GroupGraphPatternSub)) '}'")11342 (SETF (GET '|GroupGraphPatternSub| :PRODUCTION) "11343 GroupGraphPatternSub ::= TriplesBlock? GroupGraphPatternRest*")11344 (SETF (GET '|GroupGraphPatternRest| :PRODUCTION) "11345 GroupGraphPatternRest ::= ((GraphPatternNotTriples | Filter | Bind)) '.'? TriplesBlock?")11346 (SETF (GET '|SubSelect| :PRODUCTION) "11347 SubSelect ::= SelectClause WhereClause SolutionModifier")11348 (SETF (GET '|Bind| :PRODUCTION) "11349 Bind ::= 'BIND' '(' Expression 'AS' Var ')'")11350 (SETF (GET '|TriplesBlock| :PRODUCTION) "11351 {21} TriplesBlock ::= TriplesSameSubject ('.' TriplesBlock?)?")11352 (SETF (GET '|GraphPatternNotTriples| :PRODUCTION) "11353 {22} GraphPatternNotTriples ::= (OptionalGraphPattern | GroupOrUnionGraphPattern | GraphGraphPattern)")11354 (SETF (GET '|OptionalGraphPattern| :PRODUCTION) "11355 {23} OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern")11356 (SETF (GET '|GraphGraphPattern| :PRODUCTION) "11357 {24} GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern")11358 (SETF (GET '|GroupOrUnionGraphPattern| :PRODUCTION) "11359 {25} GroupOrUnionGraphPattern ::= GroupGraphPattern ('UNION' GroupGraphPattern)*")11360 (SETF (GET '|Filter| :PRODUCTION) "11361 {26} Filter ::= 'FILTER' Constraint")11362 (SETF (GET '|Constraint| :PRODUCTION) "11363 {27} Constraint ::= (BrackettedExpression | BuiltInCall | FunctionCall)")11364 (SETF (GET '|FunctionCall| :PRODUCTION) "11365 {28} FunctionCall ::= IRIref ArgList")11366 (SETF (GET '|ArgList| :PRODUCTION) "11367 {29} ArgList ::= (NILLIST | ('(' Expression (',' Expression)* ')'))")11368 (SETF (GET '|ExpressionList| :PRODUCTION) "11369 ExpressionList ::= (NILLIST | ('(' Expression (',' Expression)* ')'))")11370 (SETF (GET '|ConstructTemplate| :PRODUCTION) "11371 {30} ConstructTemplate ::= '{' ConstructTriples? '}'")11372 (SETF (GET '|ConstructTriples| :PRODUCTION) "11373 {31} ConstructTriples ::= TriplesSameSubject ('.' ConstructTriples?)?")11374 (SETF (GET '|TriplesSameSubject| :PRODUCTION) "11375 {32} TriplesSameSubject ::= ((VarOrTerm PropertyListNotEmpty) | (TriplesNode11376 PropertyList))")11377 (SETF (GET '|PropertyListNotEmpty| :PRODUCTION) "11378 {33} PropertyListNotEmpty ::= VerbObjectList (';' VerbObjectList?)*")11379 (SETF (GET '|VerbObjectList| :PRODUCTION) "11380 VerbObjectList ::= Verb ObjectList")11381 (SETF (GET '|PropertyList| :PRODUCTION) "11382 {34} PropertyList ::= PropertyListNotEmpty?")11383 (SETF (GET '|ObjectList| :PRODUCTION) "11384 {35} ObjectList ::= Object (',' Object)*")11385 (SETF (GET '|Object| :PRODUCTION) "11386 {36} Object ::= GraphNode")11387 (SETF (GET '|Verb| :PRODUCTION) "11388 {37} Verb ::= (VarOrIRIref | 'a')")11389 (SETF (GET '|TriplesNode| :PRODUCTION) "11390 {38} TriplesNode ::= (Collection | BlankNodePropertyList)")11391 (SETF (GET '|BlankNodePropertyList| :PRODUCTION) "11392 {39} BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'")11393 (SETF (GET '|Collection| :PRODUCTION) "11394 {40} Collection ::= '(' GraphNode+ ')'")11395 (SETF (GET '|GraphNode| :PRODUCTION) "11396 {41} GraphNode ::= (VarOrTerm | TriplesNode)")11397 (SETF (GET '|VarOrTerm| :PRODUCTION) "11398 {42} VarOrTerm ::= (Var | GraphTerm)")11399 (SETF (GET '|VarOrIRIref| :PRODUCTION) "11400 {43} VarOrIRIref ::= (Var | IRIref)")11401 (SETF (GET '|GraphTerm| :PRODUCTION) "11402 {45} GraphTerm ::= (IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST)")11403 (SETF (GET '|Expression| :PRODUCTION) "11404 {46} Expression ::= ConditionalOrExpression")11405 (SETF (GET '|ConditionalOrExpression| :PRODUCTION) "11406 {47} ConditionalOrExpression ::= ConditionalAndExpression ('||'11407 ConditionalAndExpression)*")11408 (SETF (GET '|ConditionalAndExpression| :PRODUCTION) "11409 {48} ConditionalAndExpression ::= ValueLogical ('&&' ValueLogical)*")11410 (SETF (GET '|ValueLogical| :PRODUCTION) "11411 {49} ValueLogical ::= RelationalExpression")11412 (SETF (GET '|RelationalExpression| :PRODUCTION) "11413 {50} RelationalExpression ::= NumericExpression RelatedNumeric?")11414 (SETF (GET '|RelatedNumeric| :PRODUCTION) "11415 RelatedNumeric ::= RelationalOperator NumericExpression")11416 (SETF (GET '|NumericExpression| :PRODUCTION) "11417 {51} NumericExpression ::= AdditiveExpression")11418 (SETF (GET '|AdditiveExpression| :PRODUCTION) "11419 {52} AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*")11420 (SETF (GET '|AddedMultiplicative| :PRODUCTION) "11421 AddedMultiplicative ::= ((AdditiveOperator11422 MultiplicativeExpression) | NumericLiteralPositive | NumericLiteralNegative)")11423 (SETF (GET '|MultiplicativeExpression| :PRODUCTION) "11424 {53} MultiplicativeExpression ::= UnaryExpression MultipliedUnary*")11425 (SETF (GET '|MultipliedUnary| :PRODUCTION) "11426 MultipliedUnary ::= MultiplicativeOperator UnaryExpression")11427 (SETF (GET '|UnaryExpression| :PRODUCTION) "11428 {54} UnaryExpression ::= ((UnaryOperator PrimaryExpression) | PrimaryExpression)")11429 (SETF (GET '|PrimaryExpression| :PRODUCTION) "11430 {55} PrimaryExpression ::= (BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var | Aggregate)")11431 (SETF (GET '|BrackettedExpression| :PRODUCTION) "11432 {56} BrackettedExpression ::= '(' Expression ')'")11433 (SETF (GET '|BuiltInCall| :PRODUCTION) "11434 {57} BuiltInCall ::= (BuiltinNullCall | BuiltinNullOrUnaryCall | BuiltinBinaryCall | BuiltinUnaryCall | BuiltinListCall | RegexExpression | IfExpression | SubstringExpression | ExistsFunc | NotExistsFunc)")11435 (SETF (GET '|BuiltinNullCall| :PRODUCTION) "11436 BuiltinNullCall ::= NullOperator '(' ')'")11437 (SETF (GET '|BuiltinNullOrUnaryCall| :PRODUCTION) "11438 BuiltinNullOrUnaryCall ::= NullOrUnaryOperator '(' Expression? ')'")11439 (SETF (GET '|BuiltinUnaryCall| :PRODUCTION) "11440 {57} BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'")11441 (SETF (GET '|BuiltinBinaryCall| :PRODUCTION) "11442 {57} BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'")11443 (SETF (GET '|SubstringExpression| :PRODUCTION) "11444 SubstringExpression ::= 'SUBSTR' '(' Expression ',' Expression (','11445 Expression)? ')'")11446 (SETF (GET '|IfExpression| :PRODUCTION) "11447 IfExpression ::= 'IF' '(' Expression ',' Expression ',' Expression ')'")11448 (SETF (GET '|RegexExpression| :PRODUCTION) "11449 {58} RegexExpression ::= 'REGEX' '(' Expression ',' Expression (','11450 Expression)? ')'")11451 (SETF (GET '|ExistsFunc| :PRODUCTION) "11452 ExistsFunc ::= 'EXISTS' GroupGraphPattern")11453 (SETF (GET '|NotExistsFunc| :PRODUCTION) "11454 NotExistsFunc ::= 'NOT' 'EXISTS' GroupGraphPattern")11455 (SETF (GET '|BuiltinListCall| :PRODUCTION) "11456 BuiltinListCall ::= BuiltinListOperator ExpressionList")11457 (SETF (GET '|IRIrefOrFunction| :PRODUCTION) "11458 {59} IRIrefOrFunction ::= IRIref ArgList?")11459 (SETF (GET '|RDFLiteral| :PRODUCTION) "11460 {60} RDFLiteral ::= String ((LANGTAG | ('^^' IRIref)))?")11461 (SETF (GET '|IRIref| :PRODUCTION) "11462 {67} IRIref ::= (IRI_REF | PrefixedName)")11463 (SETF (GET '|BlankNode| :PRODUCTION) "11464 {69} BlankNode ::= (BLANK_NODE_LABEL | ANON)")11465 (SETF (GET 'IRI_REF :PRODUCTION) "11466 {70} IRI_REF ::= '<' IRI_NAMESTRING? '>'")11467 (SETF (GET 'NAMESPACE_REF :PRODUCTION) "11468 {70} NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'")11469 (SETF (GET 'BLANK_NODE_LABEL :PRODUCTION) "11470 {73} BLANK_NODE_LABEL ::= '_:' PN_LOCAL")11471 (SETF (GET 'NILLIST :PRODUCTION) "11472 {92} NILLIST ::= '(' ')'")11473 (SETF (GET 'ANON :PRODUCTION) "11474 {94} ANON ::= '[' ']'")11475 (SETF (GET '|Aggregate| :PRODUCTION) "11476 {110} Aggregate ::= (CountAggregate | ArithmeticAggregate | ConcatAggregate)")11477 (SETF (GET '|CountAggregate| :PRODUCTION) "11478 {110} CountAggregate ::= 'COUNT' '(' Distinctness? ((Wild | Expression)) ')'")11479 (SETF (GET '|ArithmeticAggregate| :PRODUCTION) "11480 {110} ArithmeticAggregate ::= ArithmeticAggregateOperator '(' Distinctness? Expression ')'")11481 (SETF (GET '|ConcatAggregate| :PRODUCTION) "11482 {110} ConcatAggregate ::= 'GROUP_CONCAT' '(' Distinctness? Expression (';'11483 'SEPARATOR'11484 '='11485 String)? ')'")11486 (DEFUN |Query-Parser| (ATN-PARSER::*ATN-INPUT &KEY ((:TRACE *ATN-TRACE*) *ATN-TRACE*)11487 ((:TRACE-NETS *ATN-TRACE-NETS*) *ATN-TRACE-NETS*) ((:START-NAME ATN-PARSER::*ATN-START-NAME) '|Query|)11488 ((:MODE ATN-PARSER::*ATN-MODE) :MULTIPLE) ((:REDUCE *ATN-REDUCE*) T)11489 ((:REGISTER-WORDS *ATN-REGISTER-WORDS) NIL)11490 (ATN-PARSER::ATN-WFST (MAKE-ARRAY 8 :ADJUSTABLE T :ELEMENT-TYPE 'LIST :INITIAL-ELEMENT NIL)11491 ATN-PARSER::AW-S)11492 &ALLOW-OTHER-KEYS &AUX)11493 "// generated 2011.06.21T08:18:48 based on \"P-LIBRARY:org;datagraph;spocq;src;core;encoding;sparql-1-0-2.bnf\" from 2011.06.16T18:40:20.11494 // 1.0.1 adds aggregation expressions and select as bindings11495 // 1.0.2 adds groups and related forms11496 11497 [[1]] Query ::= Prologue ( SelectQuery | ConstructQuery | DescribeQuery | AskQuery ) BindingsClause?11498 [[2]] Prologue ::= BaseDecl? PrefixDecl*11499 [[3]] BaseDecl ::= 'BASE' IRI_REF11500 [[4]] PrefixDecl ::= 'PREFIX' PNAME_NS NAMESPACE_REF11501 // [[5]] SelectQuery ::= 'SELECT' Distinctness? ( Var+ | '*' ) DatasetClause* WhereClause SolutionModifier11502 [[5]] SelectQuery ::= SelectClause DatasetClause* WhereClause SolutionModifier 11503 SelectClause ::= 'SELECT' Distinctness? ( ( VariableOrBinding )+ | Wild )11504 [[5]] Distinctness ::= 'DISTINCT' | 'REDUCED'11505 [[5]] VariableOrBinding ::= Var | ( '(' Expression 'AS' Var ')' )11506 [[5]] Wild ::= '*'11507 [[6]] ConstructQuery ::= 'CONSTRUCT' ConstructTemplate DatasetClause* WhereClause SolutionModifier11508 [[7]] DescribeQuery ::= 'DESCRIBE' ( VarOrIRIref+ | '*' ) DatasetClause* WhereClause? SolutionModifier11509 [[8]] AskQuery ::= 'ASK' DatasetClause* WhereClause11510 [[9]] DatasetClause ::= 'FROM' ( DefaultGraphClause | NamedGraphClause )11511 [[10]] DefaultGraphClause ::= SourceSelector11512 [[11]] NamedGraphClause ::= 'NAMED' SourceSelector11513 [[12]] SourceSelector ::= IRIref11514 [[13]] WhereClause ::= 'WHERE'? GroupGraphPattern11515 [[14]] SolutionModifier ::= GroupClause? HavingClause? OrderClause? LimitOffsetClauses?11516 // 1.0.2 groups and having11517 [[18a]] GroupClause ::= 'GROUP' 'BY' GroupCondition+11518 [[19a]] GroupCondition ::= BuiltInCall | FunctionCall | VariableOrBindingOrExpression11519 [[19a]] VariableOrBindingOrExpression ::= ( '(' Expression ( 'AS' Var )? ')' ) | Var11520 [[20a]] HavingClause ::= 'HAVING' HavingCondition+11521 [[21a]] HavingCondition ::= Constraint11522 11523 [[15]] LimitOffsetClauses ::= ( ( LimitClause OffsetClause?) | (OffsetClause LimitClause?) )11524 [[16]] OrderClause ::= 'ORDER' 'BY' OrderCondition+11525 [[17]] OrderCondition ::= ( OrderDirection BrackettedExpression ) | Constraint | Var11526 OrderDirection ::= 'ASC' | 'DESC'11527 [[18]] LimitClause ::= 'LIMIT' INTEGER11528 [[19]] OffsetClause ::= 'OFFSET' INTEGER11529 // 1.0.2 bindings11530 BindingsClause ::='BINDINGS' Var* '{' BindingList* '}'11531 BindingList ::= '(' BindingValue* ')'11532 BindingValue ::= IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | Undef11533 Undef ::= 'UNDEF'11534 // 1.0.2 sub-queries11535 [[20]] GroupGraphPattern ::= '{' ( SubSelect | GroupGraphPatternSub ) '}'11536 GroupGraphPatternSub ::= TriplesBlock? GroupGraphPatternRest*11537 GroupGraphPatternRest ::= ( GraphPatternNotTriples | Filter | Bind ) '.'? TriplesBlock?11538 SubSelect ::= SelectClause WhereClause SolutionModifier11539 Bind ::= 'BIND' '(' Expression 'AS' Var ')'11540 [[21]] TriplesBlock ::= TriplesSameSubject ( '.' TriplesBlock? )?11541 [[22]] GraphPatternNotTriples ::= OptionalGraphPattern | GroupOrUnionGraphPattern | GraphGraphPattern11542 [[23]] OptionalGraphPattern ::= 'OPTIONAL' GroupGraphPattern11543 [[24]] GraphGraphPattern ::= 'GRAPH' VarOrIRIref GroupGraphPattern11544 [[25]] GroupOrUnionGraphPattern ::= GroupGraphPattern ( 'UNION' GroupGraphPattern )*11545 [[26]] Filter ::= 'FILTER' Constraint11546 [[27]] Constraint ::= BrackettedExpression | BuiltInCall | FunctionCall11547 [[28]] FunctionCall ::= IRIref ArgList11548 [[29]] ArgList ::= NILLIST | ( '(' Expression ( ',' Expression )* ')' ) // will get distinct11549 ExpressionList ::= NILLIST | ( '(' Expression ( ',' Expression )* ')' )11550 [[30]] ConstructTemplate ::= '{' ConstructTriples? '}'11551 [[31]] ConstructTriples ::= TriplesSameSubject ( '.' ConstructTriples? )?11552 [[32]] TriplesSameSubject ::= ( VarOrTerm PropertyListNotEmpty ) | ( TriplesNode PropertyList )11553 [[33]] PropertyListNotEmpty ::= VerbObjectList ( ';' VerbObjectList? )* 11554 VerbObjectList ::= Verb ObjectList11555 [[34]] PropertyList ::= PropertyListNotEmpty?11556 [[35]] ObjectList ::= Object ( ',' Object )*11557 [[36]] Object ::= GraphNode11558 [[37]] Verb ::= VarOrIRIref | 'a'11559 [[38]] TriplesNode ::= Collection | BlankNodePropertyList11560 [[39]] BlankNodePropertyList ::= '[' PropertyListNotEmpty ']'11561 [[40]] Collection ::= '(' GraphNode+ ')'11562 [[41]] GraphNode ::= VarOrTerm | TriplesNode11563 [[42]] VarOrTerm ::= Var | GraphTerm11564 [[43]] VarOrIRIref ::= Var | IRIref11565 // [[44]] Var ::= VAR1 | VAR211566 [[45]] GraphTerm ::= IRIref | RDFLiteral | NumericLiteral | BooleanLiteral | BlankNode | NILLIST11567 [[46]] Expression ::= ConditionalOrExpression11568 [[47]] ConditionalOrExpression ::= ConditionalAndExpression ( '||' ConditionalAndExpression )*11569 [[48]] ConditionalAndExpression ::= ValueLogical ( '&&' ValueLogical )*11570 [[49]] ValueLogical ::= RelationalExpression11571 [[50]] RelationalExpression ::= NumericExpression RelatedNumeric ?11572 RelationalOperator ::= '=' | '!=' | '<' | '>' | '<=' | '>='11573 RelatedNumeric ::= RelationalOperator NumericExpression11574 [[51]] NumericExpression ::= AdditiveExpression11575 [[52]] AdditiveExpression ::= MultiplicativeExpression AddedMultiplicative*11576 AdditiveOperator ::= '+' | '-'11577 // add the literals to accommodate 1.1's [106]11578 AddedMultiplicative :: ( AdditiveOperator MultiplicativeExpression ) | NumericLiteralPositive | NumericLiteralNegative11579 // | NumericLiteralPositive | NumericLiteralNegative already appear through primary expression11580 [[53]] MultiplicativeExpression ::= UnaryExpression MultipliedUnary*11581 MultiplicativeOperator ::= '*' | '/'11582 MultipliedUnary ::= MultiplicativeOperator UnaryExpression11583 [[54]] UnaryExpression ::= ( UnaryOperator PrimaryExpression ) | PrimaryExpression11584 UnaryOperator ::= '!' | '+' | '-'11585 [[55]] PrimaryExpression ::= BrackettedExpression | BuiltInCall | IRIrefOrFunction | RDFLiteral | NumericLiteral | BooleanLiteral | Var | Aggregate11586 [[56]] BrackettedExpression ::= '(' Expression ')'11587 [[57]] BuiltInCall ::= BuiltinNullCall | BuiltinNullOrUnaryCall | BuiltinBinaryCall | BuiltinUnaryCall | BuiltinListCall |11588 RegexExpression | IfExpression | SubstringExpression | ExistsFunc | NotExistsFunc11589 BuiltinNullCall ::= NullOperator '(' ')'11590 NullOperator ::= 'RAND' | 'NOW'11591 BuiltinNullOrUnaryCall ::= NullOrUnaryOperator '(' Expression? ')'11592 NullOrUnaryOperator ::= 'BNODE'11593 [[57]] BuiltinUnaryCall ::= BuiltinUnaryOperator '(' Expression ')'11594 [[57]] BuiltinUnaryOperator ::= 'STR' | 'LANG' | 'DATATYPE' | 'BOUND' | 'IRI' | 'URI' | 'ABS' | 'CEIL' | 'FLOOR' | 'ROUND' |11595 'STRLEN' | 'UCASE' | 'LCASE' | 'ENCODE_FOR_URI' | 11596 'YEAR' | 'MONTH' | 'DAY' | 'HOURS' | 'MINUTES' | 'SECONDS' | 'TIMEZONE' | 'TZ' |11597 'MD5' | 'SHA1' | 'SHA224' | 'SHA256' | 'SHA384' | 'SHA512' |11598 'isIRI' | 'isURI' | 'isBlank' | 'isLiteral' | 'isNumeric'11599 [[57]] BuiltinBinaryCall ::= BuiltinBinaryOperator '(' Expression ',' Expression ')'11600 [[57]] BuiltinBinaryOperator ::= 'LANGMATCHES' | 'CONTAINS' | 'STRSTARTS' | 'STRENDS' | 'STRLANG' | 'STRDT' | 'sameTerm'11601 SubstringExpression ::= 'SUBSTR' '(' Expression ',' Expression ( ',' Expression )? ')'11602 IfExpression ::= 'IF' '(' Expression ',' Expression ',' Expression ')'11603 [[58]] RegexExpression ::= 'REGEX' '(' Expression ',' Expression ( ',' Expression )? ')'11604 ExistsFunc ::= 'EXISTS' GroupGraphPattern11605 NotExistsFunc ::= 'NOT' 'EXISTS' GroupGraphPattern11606 BuiltinListCall ::= BuiltinListOperator ExpressionList11607 BuiltinListOperator ::= 'CONCAT' | 'COALESCE'11608 [[59]] IRIrefOrFunction ::= IRIref ArgList?11609 [[60]] RDFLiteral ::= String ( LANGTAG | ( '^^' IRIref ) )?11610 [[61]] NumericLiteral ::= NumericLiteralUnsigned | NumericLiteralPositive | NumericLiteralNegative11611 [[62]] NumericLiteralUnsigned ::= INTEGER | DECIMAL | DOUBLE11612 [[63]] NumericLiteralPositive ::= INTEGER_POSITIVE | DECIMAL_POSITIVE | DOUBLE_POSITIVE11613 [[64]] NumericLiteralNegative ::= INTEGER_NEGATIVE | DECIMAL_NEGATIVE | DOUBLE_NEGATIVE11614 [[65]] BooleanLiteral ::= 'true' | 'false'11615 [[66]] String ::= STRING_LITERAL1 | STRING_LITERAL2 | STRING_LITERAL_LONG1 | STRING_LITERAL_LONG211616 [[67]] IRIref ::= IRI_REF | PrefixedName11617 [[68]] PrefixedName ::= PNAME_LN | PNAME_NS11618 [[69]] BlankNode ::= BLANK_NODE_LABEL | ANON11619 // [[70]] IRI_REF ::= '<' ([^<>\"{}|^`\\]-[#x00-#x20])* '>'11620 [[70]] IRI_REF ::= '<' IRI_NAMESTRING? '>'11621 [[70]] NAMESPACE_REF ::= '<' IRI_NAMESTRING? '>'11622 // [[71]] PNAME_NS ::= PN_PREFIX? ':'11623 // [[72]] PNAME_LN ::= PNAME_NS PN_LOCAL11624 [[73]] BLANK_NODE_LABEL ::= '_:' PN_LOCAL11625 // [[74]] VAR1 ::= '?' VARNAME11626 // [[75]] VAR2 ::= '$' VARNAME11627 // [[76]] LANGTAG ::= '@' [a-zA-Z]+ ('-' [a-zA-Z0-9]+)*11628 // [[77]] INTEGER ::= [0-9]+11629 // [[78]] DECIMAL ::= [0-9]+ '.' [0-9]* | '.' [0-9]+11630 // [[79]] DOUBLE ::= [0-9]+ '.' [0-9]* EXPONENT | '.' ([0-9])+ EXPONENT | ([0-9])+ EXPONENT11631 // [[80]] INTEGER_POSITIVE ::= '+' INTEGER11632 // [[81]] DECIMAL_POSITIVE ::= '+' DECIMAL11633 // [[82]] DOUBLE_POSITIVE ::= '+' DOUBLE11634 // [[83]] INTEGER_NEGATIVE ::= '-' INTEGER11635 // [[84]] DECIMAL_NEGATIVE ::= '-' DECIMAL11636 // [[85]] DOUBLE_NEGATIVE ::= '-' DOUBLE11637 // [[86]] EXPONENT ::= [eE] [+-]? [0-9]+11638 // [[87]] STRING_LITERAL1 ::= \"'\" ( ([^#x27#x5C#xA#xD]) | ECHAR )* \"'\"11639 // [[88]] STRING_LITERAL2 ::= '\"' ( ([^#x22#x5C#xA#xD]) | ECHAR )* '\"'11640 // [[89]] STRING_LITERAL_LONG1 ::= \"'''\" ( ( \"'\" | \"''\" )? ( [^'\\] | ECHAR ) )* \"'''\"11641 // [[90]] STRING_LITERAL_LONG2 ::= '\"\"\"' ( ( '\"' | '\"\"' )? ( [^\"\\] | ECHAR ) )* '\"\"\"'11642 // [[91]] ECHAR ::= '\\' [tbnrf\\\"']11643 [[92]] NILLIST ::= '(' ')'11644 // [[93]] WS ::= #x20 | #x9 | #xD | #xA11645 [[94]] ANON ::= '[' ']'11646 // [[95]] PN_CHARS_BASE ::= [A-Z] | [a-z] | [#x00C0-#x00D6] | [#x00D8-#x00F6] | [#x00F8-#x02FF] | [#x0370-#x037D] | [#x037F-#x1FFF] | [#x200C-#x200D] | [#x2070-#x218F] | [#x2C00-#x2FEF] | [#x3001-#xD7FF] | [#xF900-#xFDCF] | [#xFDF0-#xFFFD] | [#x10000-#xEFFFF]11647 // [[96]] PN_CHARS_U ::= PN_CHARS_BASE | '_'11648 // [[97]] VARNAME ::= ( PN_CHARS_U | [0-9] ) ( PN_CHARS_U | [0-9] | #x00B7 | [#x0300-#x036F] | [#x203F-#x2040] )*11649 // [[98]] PN_CHARS ::= PN_CHARS_U | '-' | [0-9] | #x00B7 | [#x0300-#x036F] | [#x203F-#x2040]11650 // [[99]] PN_PREFIX ::= PN_CHARS_BASE ((PN_CHARS|'.')* PN_CHARS)?11651 // [[100]] PN_LOCAL ::= ( PN_CHARS_U | [0-9] ) ((PN_CHARS|'.')* PN_CHARS)?11652 11653 11654 // 1.0.1 additions : select aggregates11655 [[110]] Aggregate ::= CountAggregate | ArithmeticAggregate | ConcatAggregate11656 [[110]] CountAggregate ::= 'COUNT' '(' Distinctness? ( Wild | Expression ) ')'11657 [[110]] ArithmeticAggregate ::= ArithmeticAggregateOperator '(' Distinctness? Expression ')'11658 [[110]] ArithmeticAggregateOperator ::= 'MIN' | 'MAX' | 'AVG' | 'SAMPLE' | 'SUM'11659 [[110]] ConcatAggregate ::= 'GROUP_CONCAT' '(' Distinctness? Expression ( ';' 'SEPARATOR' '=' String )? ')'11660 11661 // 1.0.2 additions : group, aggregates, and having11662 11663 "11664 (DECLARE (SPECIAL *ATN-REDUCE* ATN-PARSER::*ATN-MODE ATN-PARSER::*ATN-INPUT))11665 (WHEN ATN-PARSER::AW-S (|wfst-initialize| ATN-PARSER::ATN-WFST))11666 (LET ((*ATN-LEVEL 0)11667 (*ATN-WFST ATN-PARSER::ATN-WFST)11668 (*ATN-STACK '(|Query-Parser|))11669 (*ATN-NODE NIL)11670 (*ATN-PROPERTIES NIL)11671 (*ATN-CLASS NIL)11672 (|Query-INDEX| -1)11673 (|Prologue-INDEX| -1)11674 (|BaseDecl-INDEX| -1)11675 (|PrefixDecl-INDEX| -1)11676 (|SelectQuery-INDEX| -1)11677 (|SelectClause-INDEX| -1)11678 (|VariableOrBinding-INDEX| -1)11679 (|ConstructQuery-INDEX| -1)11680 (|DescribeQuery-INDEX| -1)11681 (|AskQuery-INDEX| -1)11682 (|DatasetClause-INDEX| -1)11683 (|DefaultGraphClause-INDEX| -1)11684 (|NamedGraphClause-INDEX| -1)11685 (|SourceSelector-INDEX| -1)11686 (|WhereClause-INDEX| -1)11687 (|SolutionModifier-INDEX| -1)11688 (|GroupClause-INDEX| -1)11689 (|GroupCondition-INDEX| -1)11690 (|VariableOrBindingOrExpression-INDEX| -1)11691 (|HavingClause-INDEX| -1)11692 (|HavingCondition-INDEX| -1)11693 (|LimitOffsetClauses-INDEX| -1)11694 (|OrderClause-INDEX| -1)11695 (|OrderCondition-INDEX| -1)11696 (|LimitClause-INDEX| -1)11697 (|OffsetClause-INDEX| -1)11698 (|BindingsClause-INDEX| -1)11699 (|BindingList-INDEX| -1)11700 (|BindingValue-INDEX| -1)11701 (|GroupGraphPattern-INDEX| -1)11702 (|GroupGraphPatternSub-INDEX| -1)11703 (|GroupGraphPatternRest-INDEX| -1)11704 (|SubSelect-INDEX| -1)11705 (|Bind-INDEX| -1)11706 (|TriplesBlock-INDEX| -1)11707 (|GraphPatternNotTriples-INDEX| -1)11708 (|OptionalGraphPattern-INDEX| -1)11709 (|GraphGraphPattern-INDEX| -1)11710 (|GroupOrUnionGraphPattern-INDEX| -1)11711 (|Filter-INDEX| -1)11712 (|Constraint-INDEX| -1)11713 (|FunctionCall-INDEX| -1)11714 (|ArgList-INDEX| -1)11715 (|ExpressionList-INDEX| -1)11716 (|ConstructTemplate-INDEX| -1)11717 (|ConstructTriples-INDEX| -1)11718 (|TriplesSameSubject-INDEX| -1)11719 (|PropertyListNotEmpty-INDEX| -1)11720 (|VerbObjectList-INDEX| -1)11721 (|PropertyList-INDEX| -1)11722 (|ObjectList-INDEX| -1)11723 (|Object-INDEX| -1)11724 (|Verb-INDEX| -1)11725 (|TriplesNode-INDEX| -1)11726 (|BlankNodePropertyList-INDEX| -1)11727 (|Collection-INDEX| -1)11728 (|GraphNode-INDEX| -1)11729 (|VarOrTerm-INDEX| -1)11730 (|VarOrIRIref-INDEX| -1)11731 (|GraphTerm-INDEX| -1)11732 (|Expression-INDEX| -1)11733 (|ConditionalOrExpression-INDEX| -1)11734 (|ConditionalAndExpression-INDEX| -1)11735 (|ValueLogical-INDEX| -1)11736 (|RelationalExpression-INDEX| -1)11737 (|RelatedNumeric-INDEX| -1)11738 (|NumericExpression-INDEX| -1)11739 (|AdditiveExpression-INDEX| -1)11740 (|AddedMultiplicative-INDEX| -1)11741 (|MultiplicativeExpression-INDEX| -1)11742 (|MultipliedUnary-INDEX| -1)11743 (|UnaryExpression-INDEX| -1)11744 (|PrimaryExpression-INDEX| -1)11745 (|BrackettedExpression-INDEX| -1)11746 (|BuiltInCall-INDEX| -1)11747 (|BuiltinNullCall-INDEX| -1)11748 (|BuiltinNullOrUnaryCall-INDEX| -1)11749 (|BuiltinUnaryCall-INDEX| -1)11750 (|BuiltinBinaryCall-INDEX| -1)11751 (|SubstringExpression-INDEX| -1)11752 (|IfExpression-INDEX| -1)11753 (|RegexExpression-INDEX| -1)11754 (|ExistsFunc-INDEX| -1)11755 (|NotExistsFunc-INDEX| -1)11756 (|BuiltinListCall-INDEX| -1)11757 (|IRIrefOrFunction-INDEX| -1)11758 (|RDFLiteral-INDEX| -1)11759 (|IRIref-INDEX| -1)11760 (|BlankNode-INDEX| -1)11761 (IRI_REF-INDEX -1)11762 (NAMESPACE_REF-INDEX -1)11763 (BLANK_NODE_LABEL-INDEX -1)11764 (NILLIST-INDEX -1)11765 (ANON-INDEX -1)11766 (|Aggregate-INDEX| -1)11767 (|CountAggregate-INDEX| -1)11768 (|ArithmeticAggregate-INDEX| -1)11769 (|ConcatAggregate-INDEX| -1)11770 (ATN-PARSER::ATN-NET-NAMES11771 '(|Query| |Prologue|11772 |BaseDecl|11773 |PrefixDecl|11774 |SelectQuery|11775 |SelectClause|11776 |VariableOrBinding|11777 |ConstructQuery|11778 |DescribeQuery|11779 |AskQuery|11780 |DatasetClause|11781 |DefaultGraphClause|11782 |NamedGraphClause|11783 |SourceSelector|11784 |WhereClause|11785 |SolutionModifier|11786 |GroupClause|11787 |GroupCondition|11788 |VariableOrBindingOrExpression|11789 |HavingClause|11790 |HavingCondition|11791 |LimitOffsetClauses|11792 |OrderClause|11793 |OrderCondition|11794 |LimitClause|11795 |OffsetClause|11796 |BindingsClause|11797 |BindingList|11798 |BindingValue|11799 |GroupGraphPattern|11800 |GroupGraphPatternSub|11801 |GroupGraphPatternRest|11802 |SubSelect|11803 |Bind|11804 |TriplesBlock|11805 |GraphPatternNotTriples|11806 |OptionalGraphPattern|11807 |GraphGraphPattern|11808 |GroupOrUnionGraphPattern|11809 |Filter|11810 |Constraint|11811 |FunctionCall|11812 |ArgList|11813 |ExpressionList|11814 |ConstructTemplate|11815 |ConstructTriples|11816 |TriplesSameSubject|11817 |PropertyListNotEmpty|11818 |VerbObjectList|11819 |PropertyList|11820 |ObjectList|11821 |Object|11822 |Verb|11823 |TriplesNode|11824 |BlankNodePropertyList|11825 |Collection|11826 |GraphNode|11827 |VarOrTerm|11828 |VarOrIRIref|11829 |GraphTerm|11830 |Expression|11831 |ConditionalOrExpression|11832 |ConditionalAndExpression|11833 |ValueLogical|11834 |RelationalExpression|11835 |RelatedNumeric|11836 |NumericExpression|11837 |AdditiveExpression|11838 |AddedMultiplicative|11839 |MultiplicativeExpression|11840 |MultipliedUnary|11841 |UnaryExpression|11842 |PrimaryExpression|11843 |BrackettedExpression|11844 |BuiltInCall|11845 |BuiltinNullCall|11846 |BuiltinNullOrUnaryCall|11847 |BuiltinUnaryCall|11848 |BuiltinBinaryCall|11849 |SubstringExpression|11850 |IfExpression|11851 |RegexExpression|11852 |ExistsFunc|11853 |NotExistsFunc|11854 |BuiltinListCall|11855 |IRIrefOrFunction|11856 |RDFLiteral|11857 |IRIref|11858 |BlankNode|11859 IRI_REF11860 NAMESPACE_REF11861 BLANK_NODE_LABEL11862 NILLIST11863 ANON11864 |Aggregate|11865 |CountAggregate|11866 |ArithmeticAggregate|11867 |ConcatAggregate|)))11868 (DECLARE11869 (SPECIAL |Query-INDEX| |Prologue-INDEX| |BaseDecl-INDEX| |PrefixDecl-INDEX| |SelectQuery-INDEX| |SelectClause-INDEX|11870 |VariableOrBinding-INDEX| |ConstructQuery-INDEX| |DescribeQuery-INDEX| |AskQuery-INDEX| |DatasetClause-INDEX|11871 |DefaultGraphClause-INDEX| |NamedGraphClause-INDEX| |SourceSelector-INDEX| |WhereClause-INDEX| |SolutionModifier-INDEX|11872 |GroupClause-INDEX| |GroupCondition-INDEX| |VariableOrBindingOrExpression-INDEX| |HavingClause-INDEX| |HavingCondition-INDEX|11873 |LimitOffsetClauses-INDEX| |OrderClause-INDEX| |OrderCondition-INDEX| |LimitClause-INDEX| |OffsetClause-INDEX|11874 |BindingsClause-INDEX| |BindingList-INDEX| |BindingValue-INDEX| |GroupGraphPattern-INDEX| |GroupGraphPatternSub-INDEX|11875 |GroupGraphPatternRest-INDEX| |SubSelect-INDEX| |Bind-INDEX| |TriplesBlock-INDEX| |GraphPatternNotTriples-INDEX|11876 |OptionalGraphPattern-INDEX| |GraphGraphPattern-INDEX| |GroupOrUnionGraphPattern-INDEX| |Filter-INDEX| |Constraint-INDEX|11877 |FunctionCall-INDEX| |ArgList-INDEX| |ExpressionList-INDEX| |ConstructTemplate-INDEX| |ConstructTriples-INDEX|11878 |TriplesSameSubject-INDEX| |PropertyListNotEmpty-INDEX| |VerbObjectList-INDEX| |PropertyList-INDEX| |ObjectList-INDEX|11879 |Object-INDEX| |Verb-INDEX| |TriplesNode-INDEX| |BlankNodePropertyList-INDEX| |Collection-INDEX| |GraphNode-INDEX|11880 |VarOrTerm-INDEX| |VarOrIRIref-INDEX| |GraphTerm-INDEX| |Expression-INDEX| |ConditionalOrExpression-INDEX|11881 |ConditionalAndExpression-INDEX| |ValueLogical-INDEX| |RelationalExpression-INDEX| |RelatedNumeric-INDEX|11882 |NumericExpression-INDEX| |AdditiveExpression-INDEX| |AddedMultiplicative-INDEX| |MultiplicativeExpression-INDEX|11883 |MultipliedUnary-INDEX| |UnaryExpression-INDEX| |PrimaryExpression-INDEX| |BrackettedExpression-INDEX| |BuiltInCall-INDEX|11884 |BuiltinNullCall-INDEX| |BuiltinNullOrUnaryCall-INDEX| |BuiltinUnaryCall-INDEX| |BuiltinBinaryCall-INDEX|11885 |SubstringExpression-INDEX| |IfExpression-INDEX| |RegexExpression-INDEX| |ExistsFunc-INDEX| |NotExistsFunc-INDEX|11886 |BuiltinListCall-INDEX| |IRIrefOrFunction-INDEX| |RDFLiteral-INDEX| |IRIref-INDEX| |BlankNode-INDEX| IRI_REF-INDEX11887 NAMESPACE_REF-INDEX BLANK_NODE_LABEL-INDEX NILLIST-INDEX ANON-INDEX |Aggregate-INDEX| |CountAggregate-INDEX|11888 |ArithmeticAggregate-INDEX| |ConcatAggregate-INDEX|))11889 (UNLESS (FIND ATN-PARSER::*ATN-START-NAME ATN-PARSER::ATN-NET-NAMES)11890 (ERROR "production not defined in system: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|Query-Parser|))11891 (UNLESS (FBOUNDP ATN-PARSER::*ATN-START-NAME)11892 (ERROR "parse function missing: ~s: ~s." ATN-PARSER::*ATN-START-NAME '|Query-Parser|))11893 (HANDLER-BIND ((CONTINUABLE-PARSER-ERROR #'(LAMBDA (CONDITION) (SIGNAL CONDITION)))11894 (TERMINAL-PARSER-ERROR11895 #'(LAMBDA (CONDITION &AUX (ATN-PARSER::ACTION (CONDITION-ACTION CONDITION)))11896 (ETYPECASE ATN-PARSER::ACTION11897 (NULL)11898 (KEYWORD11899 (ECASE ATN-PARSER::ACTION11900 (:ABORT11901 (WHEN *ATN-TRACE*11902 (WARN "terminating parse on condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))11903 (RETURN-FROM |Query-Parser| (VALUES NIL CONDITION NIL)))11904 (:CONTINUE11905 (WHEN *ATN-TRACE*11906 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))11907 (CONTINUE CONDITION))11908 (:SIGNAL11909 (WHEN *ATN-TRACE*11910 (WARN "signaling parse condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))11911 (SIGNAL CONDITION)11912 (WHEN *ATN-TRACE*11913 (WARN "continuing parse with condition: ~a: Context ~s." CONDITION ATN-PARSER::*ATN-INPUT))11914 (CONTINUE CONDITION))))11915 #'(FUNCALL ATN-PARSER::ACTION))))11916 (ERROR #'(LAMBDA (CONDITION) (WHEN *ATN-TRACE* (WARN "parse raised condition: ~a." CONDITION)) NIL)))11917 (MULTIPLE-VALUE-BIND (ATN-PARSER::RESULT ATN-PARSER::SUCCESS)11918 (ATN-PARSE-SUBSTRUCTURE* ATN-PARSER::*ATN-START-NAME 0)11919 (COND (ATN-PARSER::SUCCESS11920 (RETURN-FROM |Query-Parser|11921 (PROGN (WHEN (CDR ATN-PARSER::RESULT)11922 (WHEN *ATN-TRACE* (WARN "ambiguous results for term: ~s." ATN-PARSER::*ATN-START-NAME))11923 (SETF ATN-PARSER::RESULT (SORT ATN-PARSER::RESULT #'> :KEY #'REST)))11924 (DESTRUCTURING-BIND11925 (ATN-PARSER::RESULT . ATN-PARSER::INDEX)11926 (FIRST ATN-PARSER::RESULT)11927 (VALUES ATN-PARSER::RESULT ATN-PARSER::INDEX (INPUT-EOF? ATN-PARSER::INDEX))))))11928 (T11929 (RETURN-FROM |Query-Parser|11930 (VALUES NIL (REDUCE #'MAX ATN-PARSER::RESULT :KEY #'REST :INITIAL-VALUE 0) NIL))))))))